Posted to tcl by miguel at Fri Jan 11 11:01:38 GMT 2008view raw

  1. Index: unix/tclUnixThrd.c
  2. ===================================================================
  3. RCS file: /cvsroot/tcl/tcl/unix/tclUnixThrd.c,v
  4. retrieving revision 1.55
  5. diff -u -r1.55 tclUnixThrd.c
  6. --- unix/tclUnixThrd.c 13 Dec 2007 15:28:42 -0000 1.55
  7. +++ unix/tclUnixThrd.c 10 Jan 2008 20:33:38 -0000
  8. @@ -253,14 +253,11 @@
  9.  
  10. if (!initialized) {
  11. initialized = 1;
  12. -#if 0
  13. - if (pthread_attr_init(&threadAttr) != 0) {
  14. - return 0;
  15. - }
  16. -#else
  17. return 0;
  18. -#endif
  19. } else {
  20. + if (pthread_attr_init(&threadAttr) != 0) {
  21. + return -1;
  22. + }
  23. if (TclpPthreadGetAttrs(pthread_self(), &threadAttr) != 0) {
  24. pthread_attr_destroy(&threadAttr);
  25. return (size_t)-1;