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 | ddef3ac5616ea2bacd8abc82f73cbcd2769b35ca (patch) | |
| tree | ed3f9aee6078b3fdac22b3fafaa24b031b6b292a | |
| parent | 17f0995e114e21bcef360729768e74b8f7a222cd (diff) | |
| parent | 787fbfd99556033394bc9cffcca68fa19b338b97 (diff) | |
| download | tcl-ddef3ac5616ea2bacd8abc82f73cbcd2769b35ca.zip tcl-ddef3ac5616ea2bacd8abc82f73cbcd2769b35ca.tar.gz tcl-ddef3ac5616ea2bacd8abc82f73cbcd2769b35ca.tar.bz2 | |
gcc 4.6 (64-bit) warnings
| -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); |