diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-07-13 15:03:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-07-13 15:03:27 (GMT) |
| commit | b1243f260322f2203d5c5e140b7c9f89cf847851 (patch) | |
| tree | 63d86013193acb9aeca52f3a8c0f53bd4bc50bfa /generic/tclInt.h | |
| parent | 692ea37c40875fdf3db99108dcbd34a4de9d0c22 (diff) | |
| download | tcl-b1243f260322f2203d5c5e140b7c9f89cf847851.zip tcl-b1243f260322f2203d5c5e140b7c9f89cf847851.tar.gz tcl-b1243f260322f2203d5c5e140b7c9f89cf847851.tar.bz2 | |
Fix [293344d4f3]: Regression in SQLite test-suite. Long-standing bug in implementation of TclUtfToUniChar() macro.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 6113f23..25bec6a 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3670,7 +3670,7 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, CONST char *file, #define TclUtfToUniChar(str, chPtr) \ ((((unsigned char) *(str)) < 0xC0) ? \ - ((*(chPtr) = (Tcl_UniChar) *(str)), 1) \ + ((*(chPtr) = (unsigned char) *(str)), 1) \ : Tcl_UtfToUniChar(str, chPtr)) /* |