diff options
| -rw-r--r-- | unix/tclUnixThrd.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c index b00bf42..cb66d08 100644 --- a/unix/tclUnixThrd.c +++ b/unix/tclUnixThrd.c @@ -72,14 +72,18 @@ TclpThreadCreate(idPtr, proc, clientData) ClientData clientData; /* The one argument to Main() */ { pthread_attr_t attr; + int result; pthread_attr_init(&attr); pthread_attr_setscope(&attr, PTHREAD_SCOPE_SYSTEM); - if (pthread_create((pthread_t *)idPtr, &attr, (void * (*)())proc, (void *)clientData) < 0) { - return TCL_ERROR; + if (pthread_create((pthread_t *)idPtr, &attr, + (void * (*)())proc, (void *)clientData) < 0) { + result = TCL_ERROR; } else { - return TCL_OK; + result = TCL_OK; } + pthread_attr_destroy(&attr); + return result; } /* |