diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-02 23:12:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-02 23:12:36 +0000 |
| commit | 227c31c3430bbf328868bf1f4c9abf171e662db9 (patch) | |
| tree | a7dabd50074b7b264d48d7a34adc0436bcc715df /thread.h | |
| parent | 7d4ba924cffa17b20a2c7f77186bab223278f3d5 (diff) | |
| download | perl-227c31c3430bbf328868bf1f4c9abf171e662db9.tar.gz | |
The HP-UX threads patch (change #3028) is needed also here.
p4raw-link: @3028 on //depot/maint-5.005/perl: d9761d5fa9df9e662778f8ca3ed55c2e3037a72a
p4raw-id: //depot/cfgperl@3052
Diffstat (limited to 'thread.h')
| -rw-r--r-- | thread.h | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -136,12 +136,26 @@ struct perl_thread *getTHR _((void)); # endif #endif +#ifdef __hpux +# define MUTEX_INIT_NEEDS_MUTEX_ZEROED +#endif + #ifndef MUTEX_INIT +#ifdef MUTEX_INIT_NEEDS_MUTEX_ZEROED + /* Temporary workaround, true bug is deeper. --jhi 1999-02-25 */ +#define MUTEX_INIT(m) \ + STMT_START { \ + Zero((m), 1, perl_mutex); \ + if (pthread_mutex_init((m), pthread_mutexattr_default)) \ + croak("panic: MUTEX_INIT"); \ + } STMT_END +#else #define MUTEX_INIT(m) \ STMT_START { \ if (pthread_mutex_init((m), pthread_mutexattr_default)) \ croak("panic: MUTEX_INIT"); \ } STMT_END +#endif #define MUTEX_LOCK(m) \ STMT_START { \ if (pthread_mutex_lock((m))) \ |