From 610769bdb8172c2f6fa55f1cb6b0b4f7d40bc5ce Mon Sep 17 00:00:00 2001 From: vasiljevic Date: Tue, 10 Aug 2004 19:40:48 +0000 Subject: Changed handling of the returned thread ID since broken on 64-bit systems (Cray). Thanks to Rob Ratcliff for reporting the bug. --- ChangeLog | 6 ++++++ unix/tclUnixThrd.c | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b169536..f012094 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2004-08-10 Zoran Vasiljevic + + * unix/tclUnixThrd.c (TclpThreadCreate): changed handling of + the returned thread ID since broken on 64-bit systems (Cray). + Thanks to Rob Ratcliff for reporting the bug. + 2004-08-03 Donal K. Fellows * generic/tclNamesp.c (MakeCachedEnsembleCommand): Initialize the diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c index aad394f..b79442f 100644 --- a/unix/tclUnixThrd.c +++ b/unix/tclUnixThrd.c @@ -90,6 +90,7 @@ TclpThreadCreate(idPtr, proc, clientData, stackSize, flags) { #ifdef TCL_THREADS pthread_attr_t attr; + pthread_t theThread; int result; pthread_attr_init(&attr); @@ -125,12 +126,13 @@ TclpThreadCreate(idPtr, proc, clientData, stackSize, flags) } - if (pthread_create((pthread_t *)idPtr, &attr, + if (pthread_create(&theThread, &attr, (void * (*)(void *))proc, (void *)clientData) && - pthread_create((pthread_t *)idPtr, NULL, + pthread_create(&theThread, NULL, (void * (*)(void *))proc, (void *)clientData)) { result = TCL_ERROR; } else { + *idPtr = (Tcl_ThreadId)theThread; result = TCL_OK; } pthread_attr_destroy(&attr); -- cgit v0.12