/* thread.h
*
- * Copyright (C) 1999, 2000, 2001, 2002, 2004, by Larry Wall and others
+ * Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+ * by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
# 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 */
#ifndef ALLOC_THREAD_KEY
# define ALLOC_THREAD_KEY \
STMT_START { \
- int _eC_; \
- if ((_eC_ = pthread_key_create(&PL_thr_key, 0))) { \
- PerlIO_printf(PerlIO_stderr(), "panic: pthread_key_create (%d) [%s:%d]", \
- _eC_, __FILE__, __LINE__); \
+ if (pthread_key_create(&PL_thr_key, 0)) { \
+ write(2, STR_WITH_LEN("panic: pthread_key_create failed\n")); \
exit(1); \
} \
} STMT_END