diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 12:51:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 12:51:30 (GMT) |
| commit | af7fa225c1d0ec592c7af29ead5922f45c1c15fb (patch) | |
| tree | 3582411900a7dd47db3f96290226a1dea37804e4 /generic/tclDisassemble.c | |
| parent | 27c27e941a08c8ea873a5de4333a498788a22c33 (diff) | |
| download | tcl-af7fa225c1d0ec592c7af29ead5922f45c1c15fb.zip tcl-af7fa225c1d0ec592c7af29ead5922f45c1c15fb.tar.gz tcl-af7fa225c1d0ec592c7af29ead5922f45c1c15fb.tar.bz2 | |
More uppercase HEX representations in source-code.
Diffstat (limited to 'generic/tclDisassemble.c')
| -rw-r--r-- | generic/tclDisassemble.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index f62c260..b60edca 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -894,23 +894,23 @@ PrintSourceToObj( continue; default: #if TCL_UTF_MAX > 4 - if (ch > 0xffff) { + if (ch > 0xFFFF) { Tcl_AppendPrintfToObj(appendObj, "\\U%08x", ch); i += 10; } else #elif TCL_UTF_MAX > 3 - /* If len == 0, this means we have a char > 0xffff, resulting in + /* If len == 0, this means we have a char > 0xFFFF, resulting in * TclUtfToUniChar producing a surrogate pair. We want to output * this pair as a single Unicode character. */ if (len == 0) { - int upper = ((ch & 0x3ff) + 1) << 10; + int upper = ((ch & 0x3FF) + 1) << 10; len = TclUtfToUniChar(p, &ch); - Tcl_AppendPrintfToObj(appendObj, "\\U%08x", upper + (ch & 0x3ff)); + Tcl_AppendPrintfToObj(appendObj, "\\U%08x", upper + (ch & 0x3FF)); i += 10; } else #endif - if (ch < 0x20 || ch >= 0x7f) { + if (ch < 0x20 || ch >= 0x7F) { Tcl_AppendPrintfToObj(appendObj, "\\u%04x", ch); i += 6; } else { |