diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-11 16:06:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-11 16:06:44 (GMT) |
| commit | b8bffd00e36251f0126d02b73f1e84c24b912ab9 (patch) | |
| tree | 877b12f08f4266c9a01b6068d7e0e3a0fb80d520 /generic/tclParse.c | |
| parent | a0457efe80223c1380e9e0fc6a50c755fc7bbeda (diff) | |
| parent | 2ead5632823207539bb83b296fb903b63ec595ff (diff) | |
| download | tcl-b8bffd00e36251f0126d02b73f1e84c24b912ab9.zip tcl-b8bffd00e36251f0126d02b73f1e84c24b912ab9.tar.gz tcl-b8bffd00e36251f0126d02b73f1e84c24b912ab9.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 78f3a9e..7a51dae 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -942,9 +942,11 @@ TclParseBackslash( * No hexdigits -> This is just "U". */ result = 'U'; +#if TCL_UTF_MAX > 3 } else if ((result & ~0x7FF) == 0xD800) { /* Upper or lower surrogate, not allowed in this syntax. */ result = 0xFFFD; +#endif } break; case '\n': |