From ba36e5644b01038e11624290850803281b18ece1 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 13 Jul 2017 15:03:27 +0000 Subject: Fix [293344d4f3]: Regression in SQLite test-suite. Long-standing bug in implementation of TclUtfToUniChar() macro. --- generic/tclInt.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) /* -- cgit v0.12 From 94e285cad09f37ba982d10d920ead9ed582bab4f Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Mon, 17 Jul 2017 08:01:11 +0000 Subject: Fix [fb2208172c671f29d60e9ac928d9ded45d01d8b8|fb2208172c]: tclIndex varies across builds from auto_mkindex --- library/auto.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/library/auto.tcl b/library/auto.tcl index ec680de..6cb09b6 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -211,7 +211,7 @@ proc auto_mkindex {dir args} { } auto_mkindex_parser::init - foreach file [glob -- {*}$args] { + foreach file [lsort [glob -- {*}$args]] { if {[catch {auto_mkindex_parser::mkindex $file} msg opts] == 0} { append index $msg } else { @@ -244,7 +244,7 @@ proc auto_mkindex_old {dir args} { if {[llength $args] == 0} { set args *.tcl } - foreach file [glob -- {*}$args] { + foreach file [lsort [glob -- {*}$args]] { set f "" set error [catch { set f [open $file] -- cgit v0.12