From 386020eb7997d209433e66adb0c3d5fc066b7207 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 5 Jan 2024 09:46:36 +0000 Subject: Tcl_UtfNCmp -> Tcl_UtfNcmp --- generic/tclInt.decls | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 993cc5d..700311f 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -433,7 +433,7 @@ declare 167 { declare 168 { Tcl_Obj *TclGetStartupScriptPath(void) } -# variant of Tcl_UtfNCmp that takes n as bytes, not chars +# variant of Tcl_UtfNcmp that takes n as bytes, not chars declare 169 { int TclpUtfNcmp2(const char *s1, const char *s2, unsigned long n) } -- cgit v0.12 From d8531f86fd3639c8cbefb475589655775588e914 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 5 Jan 2024 13:49:07 +0000 Subject: Only run "loaddll" testcases in non-static builds --- tests/fileSystem.test | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 4c406a1..8eb0f49 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -31,7 +31,9 @@ catch { set ::ddelib [lindex [package ifneeded dde $::ddever] 1] set ::regver [package require registry] set ::reglib [lindex [package ifneeded registry $::regver] 1] - testConstraint loaddll 1 + if {[file extension $::reglib] eq ".dll"} { + testConstraint loaddll 1 + } } # Test for commands defined in Tcltest executable -- cgit v0.12