ATTR_JOINABLE logic, based on (private email)

Subject: Some little diffs
Message-ID: <36350969.DA33E7B4@mailbox.tabnsw.com.au>

p4raw-id: //depot/cfgperl@2096

diff --git a/thread.h b/thread.h
index 9e607e0..8e95b98 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -128,16 +128,14 @@ struct perl_thread *getTHR _((void));
 #  endif
 #endif
 
-#ifdef PTHREADS_CREATED_JOINABLE
+#if !defined(ATTR_JOINABLE) && defined(PTHREAD_CREATE_JOINABLE)
 #  define ATTR_JOINABLE PTHREAD_CREATE_JOINABLE
-#else
-#  ifdef PTHREAD_CREATE_UNDETACHED
-#    define ATTR_JOINABLE PTHREAD_CREATE_UNDETACHED
-#  else
-#    ifdef __UNDETACHED
-#      define ATTR_JOINABLE __UNDETACHED
-#    endif
-#  endif
+#endif
+#if !defined(ATTR_JOINABLE) && defined(PTHREAD_CREATE_UNDETACHED)
+#  define ATTR_JOINABLE PTHREAD_CREATE_UNDETACHED
+#endif
+#if !defined(ATTR_JOINABLE) && defined(__UNDETACHED)
+#  define ATTR_JOINABLE __UNDETACHED
 #endif
 
 #ifndef MUTEX_INIT