diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 11:20:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 11:20:09 (GMT) |
| commit | 54ee71bc1207b883cec010d1f5acb60b08a8cc7b (patch) | |
| tree | a10fd719299ff5d128949cfc4733e88742ed6940 /generic/tclThreadTest.c | |
| parent | 142a7645bb9c38692513ce5aaefe2ccbd1a9e02a (diff) | |
| parent | ce8fc8dc1e031e8dd27cd9196f299ecb1e21317f (diff) | |
| download | tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.zip tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.tar.gz tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.tar.bz2 | |
Merge 9.0. Eliminate almost all remaining (enum) casts
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 984a583..900af4a 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -270,7 +270,7 @@ ThreadObjCmd( } else { result = NULL; } - return ThreadCancel(interp, (Tcl_ThreadId) (size_t) id, result, flags); + return ThreadCancel(interp, (Tcl_ThreadId) INT2PTR(id), result, flags); } case THREAD_CREATE: { const char *script; @@ -334,11 +334,11 @@ ThreadObjCmd( */ if (objc == 2) { - idObj = Tcl_NewWideIntObj((Tcl_WideInt)(size_t)Tcl_GetCurrentThread()); + idObj = Tcl_NewWideIntObj((Tcl_WideInt)PTR2INT(Tcl_GetCurrentThread())); } else if (objc == 3 && strcmp("-main", Tcl_GetString(objv[2])) == 0) { Tcl_MutexLock(&threadMutex); - idObj = Tcl_NewWideIntObj((Tcl_WideInt)(size_t)mainThreadId); + idObj = Tcl_NewWideIntObj((Tcl_WideInt)PTR2INT(mainThreadId)); Tcl_MutexUnlock(&threadMutex); } else { Tcl_WrongNumArgs(interp, 2, objv, NULL); @@ -363,7 +363,7 @@ ThreadObjCmd( return TCL_ERROR; } - result = Tcl_JoinThread((Tcl_ThreadId)(size_t)id, &status); + result = Tcl_JoinThread((Tcl_ThreadId)INT2PTR(id), &status); if (result == TCL_OK) { Tcl_SetIntObj(Tcl_GetObjResult(interp), status); } else { @@ -405,7 +405,7 @@ ThreadObjCmd( } arg++; script = Tcl_GetString(objv[arg]); - return ThreadSend(interp, (Tcl_ThreadId)(size_t)id, script, wait); + return ThreadSend(interp, (Tcl_ThreadId)INT2PTR(id), script, wait); } case THREAD_EVENT: { if (objc > 2) { |