From 5dd218ca607b888641a28ce7ec6ec5f9a0535305 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 17 Nov 2023 15:19:36 +0000 Subject: silence compiler warning --- generic/tclInterp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclInterp.c b/generic/tclInterp.c index ed3c527..3d2c009 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -3604,7 +3604,7 @@ static void WrapFree( void *ptr) { - Tcl_Free(ptr); + ckfree(ptr); } void -- cgit v0.12 From b286637e28ec3f7a0cb2808088840ac7c2a0e613 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 17 Nov 2023 15:35:13 +0000 Subject: Cherry-pick [90e09ca320]: silence compiler warning --- generic/tclInterp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 42d8ec3..f33aeed 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -3504,7 +3504,7 @@ static void WrapFree( void *ptr) { - Tcl_Free(ptr); + ckfree(ptr); } void -- cgit v0.12 From 64b0714cce3dbecaa78cd113cdf1dfe4da5d1ef5 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 17 Nov 2023 15:49:56 +0000 Subject: test suite debugging. [removeFile] matches [makeFile] and not [writeFile]. --- tests/ioCmd.test | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 619db31..2b9aed6 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -3999,7 +3999,7 @@ test iocmd.writeFile-2.1 "readFile procedure: behaviour" -setup { return $text }} $f] } -cleanup { - removeFile $f + file delete $f } -result [list {} "File\nContents\n"] test iocmd.writeFile-2.2 "readFile procedure: behaviour" -setup { set f [makeFile "" writeFile22.txt] @@ -4013,7 +4013,7 @@ test iocmd.writeFile-2.2 "readFile procedure: behaviour" -setup { return $text }} $f } -cleanup { - removeFile $f + file delete $f } -result "File\nContents\n" test iocmd.writeFile-2.3 "readFile procedure: behaviour" -setup { set f [makeFile "" writeFile23.txt] @@ -4028,7 +4028,7 @@ test iocmd.writeFile-2.3 "readFile procedure: behaviour" -setup { return $x }} $f } -cleanup { - removeFile $f + file delete $f } -result {0 1 2 3 4 26 27 13 10 0} # Tests of foreachLine -- cgit v0.12