diff options
author | redman <redman> | 1999-07-31 01:55:48 (GMT) |
---|---|---|
committer | redman <redman> | 1999-07-31 01:55:48 (GMT) |
commit | 7736a343edbd9a5f2feb71878361bc0f1f81640b (patch) | |
tree | 503fb1eb0c7f61b311f589b8de26f9df5ec6a452 | |
parent | 4440b020d403deecad8037fdcbac009f40f8296a (diff) | |
download | tcl-7736a343edbd9a5f2feb71878361bc0f1f81640b.zip tcl-7736a343edbd9a5f2feb71878361bc0f1f81640b.tar.gz tcl-7736a343edbd9a5f2feb71878361bc0f1f81640b.tar.bz2 |
* unix/tclUnixThrd.c: Applied patch to fix threads on Irix 6.5.
Patch from James Dennett. [Bug: 2450]
* tests/info.test: Enable test for tclParse.c change (info
complete).
-rw-r--r-- | ChangeLog | 18 | ||||
-rw-r--r-- | tests/info.test | 4 | ||||
-rw-r--r-- | unix/tclUnixThrd.c | 4 |
3 files changed, 18 insertions, 8 deletions
@@ -9,6 +9,19 @@ * win/tclWinSock.c: Applied small patch to get thread-specific data after initializing the socket driver. + * unix/tclUnixThrd.c: Applied patch to fix threads on Irix 6.5. + Patch from James Dennett. [Bug: 2450] + + * tests/info.test: Enable test for tclParse.c change (info + complete). + +1999-07-30 <hobbs@scriptics.com> + + * tclIO.c: added fix for Kupries' trf patch [Bug: 2386] + + * tclParse.c: fixed bug in info complete regarding nested square + brackets [Bug: 2382, 2466] + 1999-07-29 <redman@scriptics.com> * win/tclWinChan.c: Allow tcl to open CON and NUL, even for std @@ -1876,8 +1889,3 @@ * tclWin32Dll.c: removed TclpFinalize, cleanup of merges - * tclIO.c: added fix for Kupries' trf patch [Bug: 2386] - - * tclParse.c: fixed bug in info complete regarding nested square - brackets [Bug: 2382, 2466] - diff --git a/tests/info.test b/tests/info.test index 012bdff..908c0ea 100644 --- a/tests/info.test +++ b/tests/info.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.10 1999/07/23 23:40:29 redman Exp $ +# RCS: @(#) $Id: info.test,v 1.11 1999/07/31 01:55:51 redman Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -137,7 +137,7 @@ test info-5.3 {info complete option} { test info-5.4 {info complete option} { info complete {[a [b] } } 0 -test info-5.5 {info complete option} {knownBug} { +test info-5.5 {info complete option} { info complete {[a [b]} } 0 diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c index cb66d08..ac0804e 100644 --- a/unix/tclUnixThrd.c +++ b/unix/tclUnixThrd.c @@ -77,7 +77,9 @@ TclpThreadCreate(idPtr, proc, clientData) pthread_attr_init(&attr); pthread_attr_setscope(&attr, PTHREAD_SCOPE_SYSTEM); if (pthread_create((pthread_t *)idPtr, &attr, - (void * (*)())proc, (void *)clientData) < 0) { + (void * (*)())proc, (void *)clientData) && + pthread_create((pthread_t *)idPtr, NULL, + (void * (*)())proc, (void *)clientData)) { result = TCL_ERROR; } else { result = TCL_OK; |