Yikes! Yesterday's "defensive programming" introduced a bug (D'oh!)

[yaz-moved-to-github.git] / src / charconv.tcl

diff --git a/src/charconv.tcl b/src/charconv.tcl
index 2d946d0..95a18a3 100755 (executable)
--- a/src/charconv.tcl
+++ b/src/charconv.tcl
@@ -2,7 +2,7 @@
 # the next line restats using tclsh \
 exec tclsh "$0" "$@"
 #
-# $Id: charconv.tcl,v 1.8 2005-03-16 21:26:37 adam Exp $
+# $Id: charconv.tcl,v 1.10 2005-11-09 17:48:11 adam Exp $
 
 proc usage {} {
     puts {charconv.tcl: [-p prefix] [-s split] [-o ofile] file ... }
@@ -22,7 +22,7 @@ proc preamble_trie {ofilehandle} {
             $totype to : 24;
         };
         struct yaz_iconv_trie_dir {
-            short ptr : 15;
+            int ptr : 15;
             unsigned combining : 1;
             $totype to : 24;
         };
@@ -249,7 +249,6 @@ proc dump_trie {ofilehandle} {
             if (!code)
             {
                 *no_read = 1;
-                code = *inp;
             }
             return code;
         }