Artifact
4c63fa198a437ea0ba30aa0c85f0b14156b66167:
Attachment "1004065.patch" to
ticket [1004065fff]
added by
dgp
2004-08-06 01:51:17.
? solaris
? 860402.patch
? 856951.patch
? 859251.patch
? b2d.test.gz
? fsopt.patch
? return.patch
? solcc
? debug
? fsOpt.patch
? undo.patch
? fsopt2.patch
? fsopt2.patch.dos
? fsopt3.patch
? fsopt5.patch
? ppp
? explore
? 623787.patch
? robust.patch
? headers.patch
? 875055.patch
? 729692.patch
? 918320.patch
? 811461.patch
? tclPort.diff
? tclPort.diff-old
? 940281.patch
? 941108.patch
? thread
? 945447.patch
? 946952.patch
? solthread
? 947564.patch
? 943995.patch
? 948177.patch
? normcache.patch
? 959193.patch
? tip199.patch
? 960560.patch
? 956063.patch
? shared
? my.patch
? scratch
? 966053.patch
? exepath.patch
? filedirname.patch
? 970529.patch
? solshare
? temp
? cheap.patch
? 808319.patch
? esp.patch
? threadStorage5.zip
? esp-kbk.patch
? esp-kbk.patch.dos
? 976520.patch
? threadStorage5.diff
? 976496.patch
? new.patch
? 976520.patch.dos
? 211.patch
? hacked
? 1004065.patch
? apply.patch
? ip.patch
? dgp.patch
? tip207.patch
? soldebug
? TCLTtest.patch
? generic/returnOpts
? generic/tmp
? generic/temp
? generic/tclCmdAH.c.ip
? generic/notes
? generic/evex
? generic/pds
? generic/tclFileName.c-mystery
? generic/tclDecls.h-orig
? generic/tclIntDecls.h-orig
? generic/tclIntPlatDecls.h-orig
? generic/tclPlatDecls.h-orig
? generic/tclStubInit.c-orig
? generic/mods
? generic/tclIOUtil.c.mine
? generic/tclLiteral.c.debug
? library/latest.diff
? library/tcltest/constraints.tcl
? library/tcltest/files.tcl
? library/tcltest/testresults.tcl
? unix/.nfs000000000002ce0a00000013
? unix/.nfs000000000002ce3d00000015
? unix/try.tcl
? unix/autom4te.cache
? unix/stO8poeg
? unix/ne.tcl
? unix/stkbfmOT
? unix/stSwYXH7
? unix/httpd_16512
? unix/bar.tcl
? unix/foo.tcl
? unix/leak.tcl
? unix/inside.tcl
? unix/invokehidden_ns.tcl
? unix/.nfs000000000002cd8c00000011
? unix/dltest.marker
? unix/sa.tcl
? unix/demo.tcl
? unix/seg.tcl
? win/autom4te.cache
? win/tclWinInit.c.conflicts
? win/undo.patch
Index: generic/tclEncoding.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEncoding.c,v
retrieving revision 1.23
diff -u -r1.23 tclEncoding.c
--- generic/tclEncoding.c 18 Jun 2004 20:38:01 -0000 1.23
+++ generic/tclEncoding.c 5 Aug 2004 18:48:23 -0000
@@ -2349,7 +2349,15 @@
break;
}
len = TclUtfToUniChar(src, &ch);
+#if TCL_UTF_MAX > 3
+ if (ch & 0xffff0000) {
+ word = 0;
+ } else {
+#endif
word = fromUnicode[(ch >> 8)][ch & 0xff];
+#if TCL_UTF_MAX > 3
+ }
+#endif
if ((word == 0) && (ch != 0)) {
if (flags & TCL_ENCODING_STOPONERROR) {
result = TCL_CONVERT_UNKNOWN;
