summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-11-01 14:10:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-11-01 14:10:30 (GMT)
commit6ea21f53d11dd8b83fa7f83e37f4b9609cd95198 (patch)
treeca4ed486e8088d1df07e55093d575cdc1901d899 /generic/tclTest.c
parentcf9df921f620da4fa43f83f17cee6b789c910002 (diff)
downloadtcl-6ea21f53d11dd8b83fa7f83e37f4b9609cd95198.zip
tcl-6ea21f53d11dd8b83fa7f83e37f4b9609cd95198.tar.gz
tcl-6ea21f53d11dd8b83fa7f83e37f4b9609cd95198.tar.bz2
Silence warnings.
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c4
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);