Use the unchecked thread-specific key fetch also in Tru64.
Jarkko Hietaniemi [Thu, 17 May 2001 01:43:50 +0000 (01:43 +0000)]
p4raw-id: //depot/perl@10142

thread.h

index 87e8974..9122885 100644 (file)
--- a/thread.h
+++ b/thread.h
 #endif /* JOIN */
 
 #ifndef PERL_GET_CONTEXT
-/* True for Tru64 version 4.0 and up as well */
-#  if defined(__ALPHA) && (__VMS_VER >= 70000000)
+#  if (defined(__ALPHA) && (__VMS_VER >= 70000000)) || (defined(__alpha) && defined(__osf__))
+/* Use an unchecked fetch of thread-specific data instead of a checked one.
+ * It would fail if the key were bogus, but if the key were bogus then
+ * Really Bad Things would be happening anyway. --dan */
 #    define PERL_GET_CONTEXT   pthread_unchecked_getspecific_np(PL_thr_key)
 #  else
 #    define PERL_GET_CONTEXT   pthread_getspecific(PL_thr_key)