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 | 879982f8badbcbad0712c4962bb0dcc92f0d45b6 (patch) | |
tree | 88c44a6de5e6c2de80fa7e2a177e12cba4c97f48 /generic | |
parent | 38a1f6c276f00c641bb85a2c5281a917c20fe0b4 (diff) | |
parent | d70fdf0f646214181606e609768b1ee62ad1b5cc (diff) | |
download | tcl-879982f8badbcbad0712c4962bb0dcc92f0d45b6.zip tcl-879982f8badbcbad0712c4962bb0dcc92f0d45b6.tar.gz tcl-879982f8badbcbad0712c4962bb0dcc92f0d45b6.tar.bz2 |
merge to release
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclTest.c | 4 | ||||
-rw-r--r-- | generic/tclThreadAlloc.c | 4 |
2 files changed, 6 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); diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index bea85bd..9008d52 100644 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -291,6 +291,7 @@ TclpAlloc( register int bucket; size_t size; +#ifndef __LP64__ if (sizeof(int) >= sizeof(size_t)) { /* An unsigned int overflow can also be a size_t overflow */ const size_t zero = 0; @@ -301,6 +302,7 @@ TclpAlloc( return NULL; } } +#endif cachePtr = TclpGetAllocCache(); if (cachePtr == NULL) { @@ -434,6 +436,7 @@ TclpRealloc( return TclpAlloc(reqSize); } +#ifndef __LP64__ if (sizeof(int) >= sizeof(size_t)) { /* An unsigned int overflow can also be a size_t overflow */ const size_t zero = 0; @@ -444,6 +447,7 @@ TclpRealloc( return NULL; } } +#endif cachePtr = TclpGetAllocCache(); if (cachePtr == NULL) { |