summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-27 13:02:39 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-27 13:02:39 (GMT)
commit491ea5e8b5064417e8238bf86ac995d2999a3fbd (patch)
tree4b4e2e9764933dc4fa210ba778c37cc0429f24ea
parente30a832a0e2040dd682f2e77c6d26043e0829d80 (diff)
parentc755d23a508df80984dc1755ea1c96af87f27425 (diff)
downloadtcl-491ea5e8b5064417e8238bf86ac995d2999a3fbd.zip
tcl-491ea5e8b5064417e8238bf86ac995d2999a3fbd.tar.gz
tcl-491ea5e8b5064417e8238bf86ac995d2999a3fbd.tar.bz2
Improve comment on TCL_WIDE_INT_IS_LONG, making it less misleading.
In tclThreadTest.c, allow mainThreadId to be >32 bits.
-rw-r--r--generic/tcl.h4
-rw-r--r--generic/tclThreadTest.c2
2 files changed, 3 insertions, 3 deletions
diff --git a/generic/tcl.h b/generic/tcl.h
index bdb4035..731724e 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -375,8 +375,8 @@ typedef long LONG;
* we have one, we can have the other.)
*
* Also defines the following macros:
- * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a real
- * 64-bit system.)
+ * TCL_WIDE_INT_IS_LONG - if wide ints are really longs (i.e. we're on a
+ * LP64 system such as modern Solaris or Linux ... not including Win64)
* Tcl_WideAsLong - forgetful converter from wideInt to long.
* Tcl_LongAsWide - sign-extending converter from long to wideInt.
* Tcl_WideAsDouble - converter from wideInt to double.
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index 5bb0165..9c5fecb 100644
--- a/generic/tclThreadTest.c
+++ b/generic/tclThreadTest.c
@@ -341,7 +341,7 @@ ThreadObjCmd(
} else if (objc == 3
&& strcmp("-main", Tcl_GetString(objv[2])) == 0) {
Tcl_MutexLock(&threadMutex);
- idObj = Tcl_NewLongObj((long)(size_t)mainThreadId);
+ idObj = Tcl_NewWideIntObj((Tcl_WideInt)(size_t)mainThreadId);
Tcl_MutexUnlock(&threadMutex);
} else {
Tcl_WrongNumArgs(interp, 2, objv, NULL);