VM/ESA feedback for #2028.

[perl5.git] / thread.h

diff --git a/thread.h b/thread.h
index bca5f83..58e70fb 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -11,7 +11,7 @@
            croak("panic: DETACH");             \
        }                                       \
     } STMT_END
-#    define THR getTHR
+#    define THR getTHR()
 struct perl_thread *getTHR _((void));
 #    define PTHREAD_GETSPECIFIC_INT
 #    ifdef DJGPP
@@ -27,6 +27,7 @@ struct perl_thread *getTHR _((void));
 #      define PTHREAD_ATTR_SETDETACHSTATE(a,s) pthread_setdetach_np(a,s)
 #      define pthread_key_create(k,d) pthread_keycreate(k,(pthread_destructor_t)(d))
 #      define pthread_mutexattr_init(a) pthread_mutexattr_create(a)
+#      define pthread_mutexattr_settype(a,t) pthread_mutexattr_setkind_np(a,t)
 #    endif
 #    if defined(DJGPP) || defined(__OPEN_VM)
 #      define PTHREAD_ATTR_SETDETACHSTATE(a,s) pthread_attr_setdetachstate(a,&(s))
@@ -35,9 +36,6 @@ struct perl_thread *getTHR _((void));
 #    if defined(DJGPP) || defined(VMS)
 #      define PTHREAD_CREATE(t,a,s,d) pthread_create(t,a,s,d)
 #    endif
-#    if defined(__OPEN_VM) || defined(VMS)
-#      define pthread_mutexattr_settype(a,t) pthread_mutexattr_setkind_np(a,t)
-#    endif
 #  endif
 #  ifndef VMS
 #    define pthread_mutexattr_default NULL