summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorredman <redman>1999-07-31 01:55:48 (GMT)
committerredman <redman>1999-07-31 01:55:48 (GMT)
commit7736a343edbd9a5f2feb71878361bc0f1f81640b (patch)
tree503fb1eb0c7f61b311f589b8de26f9df5ec6a452
parent4440b020d403deecad8037fdcbac009f40f8296a (diff)
downloadtcl-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--ChangeLog18
-rw-r--r--tests/info.test4
-rw-r--r--unix/tclUnixThrd.c4
3 files changed, 18 insertions, 8 deletions
diff --git a/ChangeLog b/ChangeLog
index 81bf744..bdf1f53 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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;