X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Fcharconv.tcl;h=5500f595f8ff5faef6f4c4c2bdb0866ce7129cc4;hb=eb68779c8a1e2ea059b5cf1a790e5047e3190bf2;hp=d57f2262d7bdab6764c8a7d96ce90194d0979fc4;hpb=b2b333d62406d7497da3b8af5fb3a4e8f0a7b505;p=yaz-moved-to-github.git diff --git a/src/charconv.tcl b/src/charconv.tcl index d57f226..5500f59 100644 --- a/src/charconv.tcl +++ b/src/charconv.tcl @@ -35,7 +35,7 @@ proc preamble_trie {ofilehandle ifiles ofile} { " puts $f { static unsigned long lookup(struct yaz_iconv_trie **ptrs, int ptr, unsigned char *inp, - size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, int boffset) + size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, unsigned int boffset) { struct yaz_iconv_trie *t = ptrs[ptr-1]; if (inbytesleft < 1) @@ -211,7 +211,7 @@ proc dump_trie {ofilehandle} { set v [lindex $m 3] puts $f "\}, /* $v */" } - puts $f " \{\"\", 0\}" + puts $f " \{\"\", 0, 0\}" puts $f "\};" puts $f "struct yaz_iconv_trie $trie(prefix)page${this} = \{" puts $f " $trie(prefix)page${this}_flat, 0" @@ -264,7 +264,7 @@ proc dump_trie {ofilehandle} { puts $f "" puts $f "unsigned long yaz_$trie(prefix)_conv - (unsigned char *inp, size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, int boffset) + (unsigned char *inp, size_t inbytesleft, size_t *no_read, int *combining, unsigned mask, unsigned int boffset) { unsigned long code;