diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-07-13 15:06:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-07-13 15:06:07 (GMT) |
| commit | e04398953ff1c2dc018c8e9183d9af690eb7a3bc (patch) | |
| tree | ea007aebaa431803c6305e66a1e28eae08711863 | |
| parent | daaac6f4c23110b1489e943f514c4b8befc14b2d (diff) | |
| parent | ba36e5644b01038e11624290850803281b18ece1 (diff) | |
| download | tcl-e04398953ff1c2dc018c8e9183d9af690eb7a3bc.zip tcl-e04398953ff1c2dc018c8e9183d9af690eb7a3bc.tar.gz tcl-e04398953ff1c2dc018c8e9183d9af690eb7a3bc.tar.bz2 | |
Fix [293344d4f3]: Regression in SQLite test-suite. Long-standing bug in implementation of TclUtfToUniChar() macro.
| -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 ed867d8..2f830cc 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4359,7 +4359,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)) /* |