diff options
Diffstat (limited to 'gnu/usr.bin/perl/thread.h')
| -rw-r--r-- | gnu/usr.bin/perl/thread.h | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/thread.h b/gnu/usr.bin/perl/thread.h index 7ff71fad2ab..3a059b5f861 100644 --- a/gnu/usr.bin/perl/thread.h +++ b/gnu/usr.bin/perl/thread.h @@ -100,7 +100,11 @@ #ifdef __VMS /* Default is 1024 on VAX, 8192 otherwise */ -# define THREAD_CREATE_NEEDS_STACK (32*1024) +# ifdef __ia64 +# define THREAD_CREATE_NEEDS_STACK (48*1024) +# else +# define THREAD_CREATE_NEEDS_STACK (32*1024) +# endif #endif #ifdef I_MACH_CTHREADS @@ -156,7 +160,7 @@ #define THREAD_RET_CAST(x) ((any_t) x) #define DETACH(t) cthread_detach(t->self) -#define JOIN(t, avp) (*(avp) = (AV *)cthread_join(t->self)) +#define JOIN(t, avp) (*(avp) = MUTABLE_AV(cthread_join(t->self))) #define PERL_SET_CONTEXT(t) cthread_set_data(cthread_self(), t) #define PERL_GET_CONTEXT cthread_data(cthread_self()) @@ -472,3 +476,13 @@ #ifndef INIT_THREADS # define INIT_THREADS NOOP #endif + +/* + * Local variables: + * c-indentation-style: bsd + * c-basic-offset: 4 + * indent-tabs-mode: t + * End: + * + * ex: set ts=8 sts=4 sw=4 noet: + */ |