Tcl Source Code

Artifact 99548c9b654f7d44b946ac35aa217e2bbf9f52f6:

Attachment "tclUnixThrd.diff" to ticket [1860425fff] added by msofer 2008-01-11 03:37:03.

---

Index: unix/tclUnixThrd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixThrd.c,v
retrieving revision 1.55
diff -u -r1.55 tclUnixThrd.c
--- unix/tclUnixThrd.c	13 Dec 2007 15:28:42 -0000	1.55
+++ unix/tclUnixThrd.c	10 Jan 2008 20:33:38 -0000
@@ -253,14 +253,11 @@
 
     if (!initialized) {
 	initialized = 1;
-#if 0
-	if (pthread_attr_init(&threadAttr) != 0) {
-	    return 0;
-	}
-#else
 	return 0;
-#endif
     } else {
+	if (pthread_attr_init(&threadAttr) != 0) {
+	    return -1;
+	}
 	if (TclpPthreadGetAttrs(pthread_self(), &threadAttr) != 0) {
 	    pthread_attr_destroy(&threadAttr);
 	    return (size_t)-1;