diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-23 07:22:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-23 07:22:51 (GMT) |
commit | 8d4430b56c8e8f6fa179f64cb5cf4e8c9b9d37d7 (patch) | |
tree | ed3f9aee6078b3fdac22b3fafaa24b031b6b292a /generic/tclTest.c | |
parent | b001a09fa9bea8a30e18638849438a54fc58c5f2 (diff) | |
parent | 379048cb89b55b63858d61a573dbe5537b3656e5 (diff) | |
download | tcl-8d4430b56c8e8f6fa179f64cb5cf4e8c9b9d37d7.zip tcl-8d4430b56c8e8f6fa179f64cb5cf4e8c9b9d37d7.tar.gz tcl-8d4430b56c8e8f6fa179f64cb5cf4e8c9b9d37d7.tar.bz2 |
gcc 4.6 (64-bit) warnings
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 3e3bc09..96dcb36 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -799,7 +799,7 @@ TestasyncCmd( asyncPtr->id = nextId; nextId++; asyncPtr->handler = Tcl_AsyncCreate(AsyncHandlerProc, - (ClientData) asyncPtr->id); + INT2PTR(asyncPtr->id)); asyncPtr->nextPtr = firstHandler; firstHandler = asyncPtr; Tcl_MutexUnlock(&asyncTestMutex); @@ -870,7 +870,7 @@ TestasyncCmd( if (asyncPtr->id == id) { Tcl_ThreadId threadID; if (Tcl_CreateThread(&threadID, AsyncThreadProc, - (ClientData) id, TCL_THREAD_STACK_DEFAULT, + INT2PTR(id), TCL_THREAD_STACK_DEFAULT, TCL_THREAD_NOFLAGS) != TCL_OK) { Tcl_SetResult(interp, "can't create thread", TCL_STATIC); return TCL_ERROR; @@ -901,7 +901,7 @@ AsyncHandlerProc( int code) /* Current return code from command. */ { TestAsyncHandler *asyncPtr; - int id = (int) clientData; + int id = PTR2INT(clientData); const char *listArgv[4], *cmd; char string[TCL_INTEGER_SPACE]; @@ -958,7 +958,7 @@ AsyncThreadProc( * TestAsyncHandler, defined above. */ { TestAsyncHandler *asyncPtr; - int id = (int) clientData; + int id = PTR2INT(clientData); Tcl_Sleep(1); Tcl_MutexLock(&asyncTestMutex); |