Posted to tcl by miguel at Fri Jan 11 11:01:38 GMT 2008view raw
- 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;