summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-12-04 10:31:43 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-12-04 10:31:43 (GMT)
commit0cdd87c215b27bd82bd9c250719eb471b8209911 (patch)
tree173f4f8c36fe9c472d4c66e62f26d8cb119e33b7 /generic
parent25084dcd33f266a26bce646b6388334fe6ef6127 (diff)
parentcd48044e1b95257568e26686e58e9c293a81a82d (diff)
downloadtcl-0cdd87c215b27bd82bd9c250719eb471b8209911.zip
tcl-0cdd87c215b27bd82bd9c250719eb471b8209911.tar.gz
tcl-0cdd87c215b27bd82bd9c250719eb471b8209911.tar.bz2
Merge 8.5 (syncing "tcltest" package). Use more uppercase hex representations
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdMZ.c50
-rw-r--r--generic/tclIOUtil.c4
2 files changed, 27 insertions, 27 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 081b036..ee30a7a 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -36,31 +36,31 @@ static int UniCharIsHexDigit(int character);
*/
const char tclDefaultTrimSet[] =
- "\x09\x0a\x0b\x0c\x0d " /* ASCII */
- "\xc0\x80" /* nul (U+0000) */
- "\xc2\x85" /* next line (U+0085) */
- "\xc2\xa0" /* non-breaking space (U+00a0) */
- "\xe1\x9a\x80" /* ogham space mark (U+1680) */
- "\xe1\xa0\x8e" /* mongolian vowel separator (U+180e) */
- "\xe2\x80\x80" /* en quad (U+2000) */
- "\xe2\x80\x81" /* em quad (U+2001) */
- "\xe2\x80\x82" /* en space (U+2002) */
- "\xe2\x80\x83" /* em space (U+2003) */
- "\xe2\x80\x84" /* three-per-em space (U+2004) */
- "\xe2\x80\x85" /* four-per-em space (U+2005) */
- "\xe2\x80\x86" /* six-per-em space (U+2006) */
- "\xe2\x80\x87" /* figure space (U+2007) */
- "\xe2\x80\x88" /* punctuation space (U+2008) */
- "\xe2\x80\x89" /* thin space (U+2009) */
- "\xe2\x80\x8a" /* hair space (U+200a) */
- "\xe2\x80\x8b" /* zero width space (U+200b) */
- "\xe2\x80\xa8" /* line separator (U+2028) */
- "\xe2\x80\xa9" /* paragraph separator (U+2029) */
- "\xe2\x80\xaf" /* narrow no-break space (U+202f) */
- "\xe2\x81\x9f" /* medium mathematical space (U+205f) */
- "\xe2\x81\xa0" /* word joiner (U+2060) */
- "\xe3\x80\x80" /* ideographic space (U+3000) */
- "\xef\xbb\xbf" /* zero width no-break space (U+feff) */
+ "\x09\x0A\x0B\x0C\x0D " /* ASCII */
+ "\xC0\x80" /* nul (U+0000) */
+ "\xC2\x85" /* next line (U+0085) */
+ "\xC2\xA0" /* non-breaking space (U+00a0) */
+ "\xE1\x9A\x80" /* ogham space mark (U+1680) */
+ "\xE1\xA0\x8E" /* mongolian vowel separator (U+180e) */
+ "\xE2\x80\x80" /* en quad (U+2000) */
+ "\xE2\x80\x81" /* em quad (U+2001) */
+ "\xE2\x80\x82" /* en space (U+2002) */
+ "\xE2\x80\x83" /* em space (U+2003) */
+ "\xE2\x80\x84" /* three-per-em space (U+2004) */
+ "\xE2\x80\x85" /* four-per-em space (U+2005) */
+ "\xE2\x80\x86" /* six-per-em space (U+2006) */
+ "\xE2\x80\x87" /* figure space (U+2007) */
+ "\xE2\x80\x88" /* punctuation space (U+2008) */
+ "\xE2\x80\x89" /* thin space (U+2009) */
+ "\xE2\x80\x8A" /* hair space (U+200a) */
+ "\xE2\x80\x8B" /* zero width space (U+200b) */
+ "\xE2\x80\xA8" /* line separator (U+2028) */
+ "\xE2\x80\xA9" /* paragraph separator (U+2029) */
+ "\xE2\x80\xAF" /* narrow no-break space (U+202f) */
+ "\xE2\x81\x9F" /* medium mathematical space (U+205f) */
+ "\xE2\x81\xA0" /* word joiner (U+2060) */
+ "\xE3\x80\x80" /* ideographic space (U+3000) */
+ "\xEF\xBB\xBF" /* zero width no-break space (U+feff) */
;
/*
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 513f1fb..5566f3e 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -1798,7 +1798,7 @@ Tcl_FSEvalFileEx(
*/
if (Tcl_ReadChars(chan, objPtr, -1,
- memcmp(string, "\xef\xbb\xbf", 3)) < 0) {
+ memcmp(string, "\xEF\xBB\xBF", 3)) < 0) {
Tcl_Close(interp, chan);
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"couldn't read file \"%s\": %s",
@@ -1933,7 +1933,7 @@ TclNREvalFile(
*/
if (Tcl_ReadChars(chan, objPtr, -1,
- memcmp(string, "\xef\xbb\xbf", 3)) < 0) {
+ memcmp(string, "\xEF\xBB\xBF", 3)) < 0) {
Tcl_Close(interp, chan);
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"couldn't read file \"%s\": %s",