summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-07-13 15:03:27 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-07-13 15:03:27 (GMT)
commitba36e5644b01038e11624290850803281b18ece1 (patch)
tree63d86013193acb9aeca52f3a8c0f53bd4bc50bfa /generic/tclInt.h
parent636bacdfbd8be8be7fd289266dcc8637d3b846c2 (diff)
downloadtcl-ba36e5644b01038e11624290850803281b18ece1.zip
tcl-ba36e5644b01038e11624290850803281b18ece1.tar.gz
tcl-ba36e5644b01038e11624290850803281b18ece1.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.h2
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))
/*