diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-25 22:49:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-25 22:49:16 (GMT) |
| commit | ff3cf2ae397658af620c85dafae887a07774fab7 (patch) | |
| tree | 0f7f2cb6e8f0b22c38fe958225d56d418455af02 /generic/regc_lex.c | |
| parent | 9d83a309b08f81a35aac073bc94a5156f8d18d35 (diff) | |
| download | tcl-ff3cf2ae397658af620c85dafae887a07774fab7.zip tcl-ff3cf2ae397658af620c85dafae887a07774fab7.tar.gz tcl-ff3cf2ae397658af620c85dafae887a07774fab7.tar.bz2 | |
Make reg-13.33/reg-13.34 work again. Still have to investigate what's the problem.
Diffstat (limited to 'generic/regc_lex.c')
| -rw-r--r-- | generic/regc_lex.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/regc_lex.c b/generic/regc_lex.c index 6ef0a83..a303ec6 100644 --- a/generic/regc_lex.c +++ b/generic/regc_lex.c @@ -843,18 +843,12 @@ lexescape( if (ISERR()) { FAILW(REG_EESCAPE); } -#if CHRBITS > 16 - if ((unsigned)i > 0x10FFFF) { - i = 0xFFFD; - } -#else - if ((unsigned)i & ~0xFFFF) { + if (i > 0xFFFF) { /* TODO: output a Surrogate pair */ i = 0xFFFD; } -#endif - RETV(PLAIN, (uchr)i); + RETV(PLAIN, (uchr) i); break; case CHR('v'): RETV(PLAIN, CHR('\v')); |