X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thread.h;h=00e4d76d6a45f88536c36d180efaee72b5cd3a59;hb=52d59bef96c881381bce1bcb84a8c08ce48c2544;hp=3f7b2df540d70e74f347594599f6c556a67c8987;hpb=6cfe8af5837ee4b149d08cdc2afce032abee3494;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thread.h b/thread.h
index 3f7b2df..00e4d76 100644
--- a/thread.h
+++ b/thread.h
@@ -40,6 +40,11 @@
 #    ifdef __OPEN_VM
 #      define pthread_addr_t void *
 #    endif
+#    ifdef OEMVS
+#      define pthread_addr_t void *
+#      define pthread_create(t,a,s,d)        pthread_create(t,&(a),s,d)
+#      define pthread_keycreate              pthread_key_create
+#    endif
 #    ifdef VMS
 #      define pthread_attr_init(a) pthread_attr_create(a)
 #      define PTHREAD_ATTR_SETDETACHSTATE(a,s) pthread_setdetach_np(a,s)
@@ -57,7 +62,7 @@
 #      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)
+#    if defined(DJGPP) || defined(__OPEN_VM) || defined(OEMVS)
 #      define PTHREAD_ATTR_SETDETACHSTATE(a,s) pthread_attr_setdetachstate(a,&(s))
 #      define YIELD pthread_yield(NULL)
 #    endif
@@ -273,11 +278,7 @@
 #ifdef HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP
 #  define PTHREAD_GETSPECIFIC(key) pthread_unchecked_getspecific_np(key)
 #else
-#  ifdef OEMVS
-#    define PTHREAD_GETSPECIFIC(key) pthread_getspecific_d8_np(key)
-#  else
 #    define PTHREAD_GETSPECIFIC(key) pthread_getspecific(key)
-#  endif
 #endif
 
 #ifndef PERL_GET_CONTEXT