summaryrefslogtreecommitdiffstats
path: root/generic/tclThreadTest.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-27 13:01:34 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-03-27 13:01:34 (GMT)
commitc755d23a508df80984dc1755ea1c96af87f27425 (patch)
treeee91010d0c9ce6d8cb203bca9a0318f8e97275ca /generic/tclThreadTest.c
parent757e12606a88c320fe5cfb0784f49a4ab7e3a448 (diff)
downloadtcl-c755d23a508df80984dc1755ea1c96af87f27425.zip
tcl-c755d23a508df80984dc1755ea1c96af87f27425.tar.gz
tcl-c755d23a508df80984dc1755ea1c96af87f27425.tar.bz2
Improve comment on TCL_WIDE_INT_IS_LONG, making it less misleading.
In tclThreadTest.c, allow mainThreadId to be >32 bits.
Diffstat (limited to 'generic/tclThreadTest.c')
-rw-r--r--generic/tclThreadTest.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index 9c66313..fcf3880 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);