From bce813aac1160c79546da18348b6e6d4f2d4e476 Mon Sep 17 00:00:00 2001 From: Dan Sugalski Date: Wed, 16 May 2001 14:05:19 -0400 Subject: Quick thread speedup Message-Id: <5.1.0.14.0.20010516175826.01afde08@24.8.96.48> p4raw-id: //depot/perl@10141 --- thread.h | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'thread.h') diff --git a/thread.h b/thread.h index 99269a1f1f..87e897417b 100644 --- a/thread.h +++ b/thread.h @@ -250,7 +250,12 @@ #endif /* JOIN */ #ifndef PERL_GET_CONTEXT -# define PERL_GET_CONTEXT pthread_getspecific(PL_thr_key) +/* True for Tru64 version 4.0 and up as well */ +# if defined(__ALPHA) && (__VMS_VER >= 70000000) +# define PERL_GET_CONTEXT pthread_unchecked_getspecific_np(PL_thr_key) +# else +# define PERL_GET_CONTEXT pthread_getspecific(PL_thr_key) +# endif #endif #ifndef PERL_SET_CONTEXT -- cgit v1.2.1