diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-10-18 15:31:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-10-18 15:31:51 (GMT) |
| commit | 90221ac971708ce2bd09ffff98b55b8198513808 (patch) | |
| tree | ec9ac9fbc978032844db1abec26b437520a22af4 /generic/tclDisassemble.c | |
| parent | 050e383cf2f4f6e67ba6030a187257e0c2c0b1e0 (diff) | |
| parent | 49ebd1264d9cff42e9e5963f2a2f3c0eb732f375 (diff) | |
| download | tcl-90221ac971708ce2bd09ffff98b55b8198513808.zip tcl-90221ac971708ce2bd09ffff98b55b8198513808.tar.gz tcl-90221ac971708ce2bd09ffff98b55b8198513808.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclDisassemble.c')
| -rw-r--r-- | generic/tclDisassemble.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclDisassemble.c b/generic/tclDisassemble.c index e63b9d6..46012c5 100644 --- a/generic/tclDisassemble.c +++ b/generic/tclDisassemble.c @@ -908,7 +908,7 @@ PrintSourceToObj( Tcl_AppendPrintfToObj(appendObj, "\\U%08x", ch); i += 10; } else -#elif TCL_UTF_MAX > 3 +#else /* 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. |