diff options
| author | Dan Sugalski <dan@sidhe.org> | 2001-05-16 14:05:19 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-17 01:41:07 +0000 |
| commit | bce813aac1160c79546da18348b6e6d4f2d4e476 (patch) | |
| tree | d305b12778f4e67359826c4de5aa802a8045d1d1 /util.c | |
| parent | 532e0e8e5050ac4d94137112aa8d8c5283cba92b (diff) | |
| download | perl-bce813aac1160c79546da18348b6e6d4f2d4e476.tar.gz | |
Quick thread speedup
Message-Id: <5.1.0.14.0.20010516175826.01afde08@24.8.96.48>
p4raw-id: //depot/perl@10141
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -3489,10 +3489,14 @@ Perl_get_context(void) Perl_croak_nocontext("panic: pthread_getspecific"); return (void*)t; # else -# ifdef I_MACH_CTHREADS - return (void*)cthread_data(cthread_self()); -# else - return (void*)pthread_getspecific(PL_thr_key); +# ifdef I_MACH_CTHREADS + return (void*)cthread_data(cthread_self()); +# else +# if defined(__ALPHA) && (__VMS_VER >= 70000000) + return (void*)pthread_unchecked_getspecific_np(PL_thr_key); +# else + return (void*)pthread_getspecific(PL_thr_key); +# endif # endif # endif #else |