diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-27 13:02:39 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-27 13:02:39 (GMT) |
commit | 491ea5e8b5064417e8238bf86ac995d2999a3fbd (patch) | |
tree | 4b4e2e9764933dc4fa210ba778c37cc0429f24ea /generic/tclThreadTest.c | |
parent | e30a832a0e2040dd682f2e77c6d26043e0829d80 (diff) | |
parent | c755d23a508df80984dc1755ea1c96af87f27425 (diff) | |
download | tcl-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.
Diffstat (limited to 'generic/tclThreadTest.c')
-rw-r--r-- | generic/tclThreadTest.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |