Tcl Source Code

Artifact [5c86fb3dd1]
Login

Artifact 5c86fb3dd144ed5f021060a39b916733f323440a:

Ticket change [5c86fb3dd1] - New ticket [418035470b] tcl.h: #if TCL_UTF_MAX > 4. by pointsman 2013-12-22 23:12:32.
D 2013-12-22T23:12:32.840
J assignee nobody
J closer nobody
J cmimetype text/plain
J comment tcl.h\shas:\r\n\r\n#if\sTCL_UTF_MAX\s>\s4\r\n\s\s\s\s/*\r\n\s\s\s\s\s*\sunsigned\sint\sisn't\s100%\saccurate\sas\sit\sshould\sbe\sa\sstrict\s4-byte\svalue\r\n\s\s\s\s\s*\s(perhaps\swchar_t).\s64-bit\ssystems\smay\shave\stroubles.\sThe\ssize\sof\sthis\r\n\s\s\s\s\s*\svalue\smust\sbe\sreflected\scorrectly\sin\sregcustom.h\sand\r\n\s\s\s\s\s*\sin\stclEncoding.c.\r\n\s\s\s\s\s*\sXXX:\sTcl\sis\scurrently\sUCS-2\sand\splanning\sUTF-16\sfor\sthe\sUnicode\r\n\s\s\s\s\s*\sXXX:\sstring\srep\sthat\sTcl_UniChar\srepresents.\s\sChanging\sthe\ssize\r\n\s\s\s\s\s*\sXXX:\sof\sTcl_UniChar\sis\s/not/\ssupported.\r\n\s\s\s\s\s*/\r\ntypedef\sunsigned\sint\sTcl_UniChar;\r\n#else\r\ntypedef\sunsigned\sshort\sTcl_UniChar;\r\n#endif\r\n\f\r\n(See\sin\scontext\shere:\shttp://core.tcl.tk/tcl/artifact/f555d5aa61ea46ec31d833b33c52fb8788c8dcdf?ln=2208-2221)\r\n\r\nThat\smeans,\swith\sTCL_UTF_MAX\s4\sTcl_UniChar\sis\sstill\san\sunsigned\sshort.\sThis\sis\sobviously\swrong,\sbecause\sa\svalid\s4\sbyte\sutf-8\schar\sis\sbeyond\sthe\sBMP,\sthat\smeans\sbigger\sthan\san\sunsigned\sshort.\r\n\r\nThat\sdefine\sshould\sread\sas\s\r\n\r\n#if\sTCL_UTF_MAX\s>\s3\r\n\r\nas\sbefore\scheck-in\shttp://core.tcl.tk/tcl/info/4d6af4f7a468b71a\r\n\r\nSame\sin\sregcustom.h:\shttp://core.tcl.tk/tcl/artifact/197b7849d4dfcb86b50f783fdc0fc45dde12125b?ln=100-108
J foundin 8.6.1
J is_private 0
J login pointsman
J priority 5\sMedium
J private_contact 4ca203a8e925aecdd9419645f936bccf18cd6ea7
J resolution None
J severity Minor
J status Open
J submitter pointsman
J subsystem 44.\sUTF-8\sStrings
J title tcl.h:\s#if\sTCL_UTF_MAX\s>\s4
J type Bug
K 418035470b1306a17cff21dbb78dedfeee3d17f4
U pointsman
Z 0d0fdb99175fabad5b3e3d4dde5f9d50