X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thread.h;h=3a059b5f8615c76f531bfbf9e94252351058e3bb;hb=bb21036d6b2cd6d93d4c5c77bf58ceedb8b0d45c;hp=655e827fae68c7e3a9f8922b886222ee1908735a;hpb=e9a8c0991ec6634f51266c0ad53e02c328bc0761;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thread.h b/thread.h
index 655e827..3a059b5 100644
--- a/thread.h
+++ b/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())