Some dead codes removed, some parts rewritten, bitfields used for char

types.

1 files changed, 2 insertions, 2 deletions

diff --git a/unidata/CreateGetType.pl b/unidata/CreateGetType.pl
index dd40c34..28aad0e 100755
--- a/unidata/CreateGetType.pl
+++ b/unidata/CreateGetType.pl
@@ -207,7 +207,7 @@ sub split_entity {
 sub create_block {
     my ($block,$name, $ranges) = @_;
     my($title) = <<__;
-guchar ${name}\[256\] = {
+FriBidiCharType ${name}\[256\] = {
 __
     my $result;
     my $last_type=$ranges->[0]->[2];
@@ -264,7 +264,7 @@ __
     
     my $i = 0;
     my $block_array = <<__;
-guchar *FriBidiPropertyBlocks[256] = {
+FriBidiCharType *FriBidiPropertyBlocks[256] = {
 __
 
     my %seen_blocks;