From 7736a343edbd9a5f2feb71878361bc0f1f81640b Mon Sep 17 00:00:00 2001
From: redman <redman>
Date: Sat, 31 Jul 1999 01:55:48 +0000
Subject: * 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).
---
 ChangeLog          | 18 +++++++++++++-----
 tests/info.test    |  4 ++--
 unix/tclUnixThrd.c |  4 +++-
 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;
-- 
cgit v0.12