X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thread.h;h=7ff71fad2ab3677926464f7f0083f5f8b6fdcddc;hb=e573f90328e9db84c5405db01c52908bfac9286d;hp=476f310b47ee89895793cab3d44611cecff7c46c;hpb=54ca4ee7252684545d9524460bab88037e5f584b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thread.h b/thread.h
index 476f310..7ff71fa 100644
--- a/thread.h
+++ b/thread.h
@@ -98,6 +98,11 @@
 #  define THREAD_CREATE_NEEDS_STACK (32*1024)
 #endif
 
+#ifdef __VMS
+  /* Default is 1024 on VAX, 8192 otherwise */
+#  define THREAD_CREATE_NEEDS_STACK (32*1024)
+#endif
+
 #ifdef I_MACH_CTHREADS
 
 /* cthreads interface */
@@ -333,8 +338,7 @@
 #ifndef ALLOC_THREAD_KEY
 #  define ALLOC_THREAD_KEY \
     STMT_START {						\
-	int _eC_;						\
-	if ((_eC_ = pthread_key_create(&PL_thr_key, 0))) {	\
+	if (pthread_key_create(&PL_thr_key, 0)) {		\
             write(2, STR_WITH_LEN("panic: pthread_key_create failed\n")); \
 	    exit(1);						\
 	}							\