1 files changed, 4 insertions, 2 deletions
diff --git a/thread.h b/thread.h
index 87e897417b..912288587e 100644
--- 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)