From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 17 May 2001 01:43:50 +0000 (+0000)
Subject: Use the unchecked thread-specific key fetch also in Tru64.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0953243c2ac89e79fe3d39c48a15619486aafea4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)