diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-11-01 14:40:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-11-01 14:40:55 (GMT) |
| commit | a618cfc343f3e88603f0456caf5843ded82e21d6 (patch) | |
| tree | 88c44a6de5e6c2de80fa7e2a177e12cba4c97f48 /generic/tclTest.c | |
| parent | e54423cee271e735eb4a07630a04ab85ef396d35 (diff) | |
| parent | 11331dcc6389af44efbfc5fdef4fe63c31dcf2e4 (diff) | |
| download | tcl-a618cfc343f3e88603f0456caf5843ded82e21d6.zip tcl-a618cfc343f3e88603f0456caf5843ded82e21d6.tar.gz tcl-a618cfc343f3e88603f0456caf5843ded82e21d6.tar.bz2 | |
merge to release
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 2430d1a..0f497b0 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -868,7 +868,7 @@ TestasyncCmd( if (asyncPtr->id == id) { Tcl_ThreadId threadID; if (Tcl_CreateThread(&threadID, AsyncThreadProc, - (ClientData) id, TCL_THREAD_STACK_DEFAULT, + (ClientData) INT2PTR(id), TCL_THREAD_STACK_DEFAULT, TCL_THREAD_NOFLAGS) != TCL_OK) { Tcl_SetResult(interp, "can't create thread", TCL_STATIC); return TCL_ERROR; @@ -956,7 +956,7 @@ AsyncThreadProc( * TestAsyncHandler, defined above. */ { TestAsyncHandler *asyncPtr; - int id = (int) clientData; + int id = PTR2INT(clientData); Tcl_Sleep(1); Tcl_MutexLock(&asyncTestMutex); |