From d4181179bc599205f6114102403ebf49656ec03f Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 2 Jun 2022 12:10:50 +0000 Subject: typo --- generic/tclTest.c | 2 +- tests-perf/clock.perf.tcl | 2 +- tests-perf/test-performance.tcl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/generic/tclTest.c b/generic/tclTest.c index 8f12715..88e32bc 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -4169,7 +4169,7 @@ TestsetplatformCmd( * A standard Tcl result. * * Side effects: - * When the packge given by argv[1] is loaded into an interpeter, + * When the packge given by argv[1] is loaded into an interpreter, * variable "x" in that interpreter is set to "loaded". * *---------------------------------------------------------------------- diff --git a/tests-perf/clock.perf.tcl b/tests-perf/clock.perf.tcl index c0da0ab..35fe219 100644 --- a/tests-perf/clock.perf.tcl +++ b/tests-perf/clock.perf.tcl @@ -32,7 +32,7 @@ namespace path {::tclTestPerf} ## set testing defaults: set ::env(TCL_TZ) :CET -# warm-up interpeter compiler env, clock platform-related features: +# warm-up interpreter compiler env, clock platform-related features: ## warm-up test-related features (load clock.tcl, system zones, locales, etc.): clock scan "" -gmt 1 diff --git a/tests-perf/test-performance.tcl b/tests-perf/test-performance.tcl index a715c8a..749e85e 100644 --- a/tests-perf/test-performance.tcl +++ b/tests-perf/test-performance.tcl @@ -16,7 +16,7 @@ # namespace eval ::tclTestPerf { -# warm-up interpeter compiler env, calibrate timerate measurement functionality: +# warm-up interpreter compiler env, calibrate timerate measurement functionality: # if no timerate here - import from unsupported: if {[namespace which -command timerate] eq {}} { -- cgit v0.12 From 211f4f652248b5d40573bb51fbfe7ed687e5eded Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Thu, 2 Jun 2022 15:16:46 +0000 Subject: Missing "const" with -DREG_DEBUG=1 --- generic/regc_color.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/regc_color.c b/generic/regc_color.c index 92e0aad..dc9f5b4 100644 --- a/generic/regc_color.c +++ b/generic/regc_color.c @@ -759,7 +759,7 @@ dumpcolors( struct colordesc *end; color co; chr c; - char *has; + const char *has; fprintf(f, "max %ld\n", (long) cm->max); if (NBYTS > 1) { -- cgit v0.12 From 345e120ec855d9f7d33f9715a2eecbceac2fafd2 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 3 Jun 2022 14:46:33 +0000 Subject: Undo part of previous commit: doesn't work as expected on Windows --- generic/tclCmdAH.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index d2662b9..3bb9d6c 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -2334,17 +2334,17 @@ StoreStatData( * cast might fail when there isn't a real arithmetic 'long long' type... */ - STORE_ARY("dev", Tcl_NewWideIntObj(statPtr->st_dev)); + STORE_ARY("dev", Tcl_NewWideIntObj((long)statPtr->st_dev)); STORE_ARY("ino", Tcl_NewWideIntObj(statPtr->st_ino)); - STORE_ARY("nlink", Tcl_NewWideIntObj(statPtr->st_nlink)); - STORE_ARY("uid", Tcl_NewWideIntObj(statPtr->st_uid)); - STORE_ARY("gid", Tcl_NewWideIntObj(statPtr->st_gid)); + STORE_ARY("nlink", Tcl_NewWideIntObj((long)statPtr->st_nlink)); + STORE_ARY("uid", Tcl_NewWideIntObj((long)statPtr->st_uid)); + STORE_ARY("gid", Tcl_NewWideIntObj((long)statPtr->st_gid)); STORE_ARY("size", Tcl_NewWideIntObj(statPtr->st_size)); #ifdef HAVE_STRUCT_STAT_ST_BLOCKS STORE_ARY("blocks", Tcl_NewWideIntObj(statPtr->st_blocks)); #endif #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE - STORE_ARY("blksize", Tcl_NewWideIntObj(statPtr->st_blksize)); + STORE_ARY("blksize", Tcl_NewWideIntObj((long)statPtr->st_blksize)); #endif STORE_ARY("atime", Tcl_NewWideIntObj(Tcl_GetAccessTimeFromStat(statPtr))); STORE_ARY("mtime", Tcl_NewWideIntObj(Tcl_GetModificationTimeFromStat(statPtr))); -- cgit v0.12