diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-17 01:43:50 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-17 01:43:50 +0000 |
| commit | 0953243c2ac89e79fe3d39c48a15619486aafea4 (patch) | |
| tree | 5bcec8504322dc99a010f7ed59a0fcbd9840ed10 /thread.h | |
| parent | bce813aac1160c79546da18348b6e6d4f2d4e476 (diff) | |
| download | perl-0953243c2ac89e79fe3d39c48a15619486aafea4.tar.gz | |
Use the unchecked thread-specific key fetch also in Tru64.
p4raw-id: //depot/perl@10142
Diffstat (limited to 'thread.h')
| -rw-r--r-- | thread.h | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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) |