Use the unchecked thread-specific key fetch also in Tru64.

p4raw-id: //depot/perl@10142

diff --git a/thread.h b/thread.h
index 87e8974..9122885 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -250,8 +250,10 @@
 #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)