-#if defined(USE_THREADS) || defined(USE_ITHREADS)
+/* thread.h
+ *
+ * Copyright (c) 1997-2002, Larry Wall
+ *
+ * You may distribute under the terms of either the GNU General Public
+ * License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
#if defined(VMS)
#include <builtins.h>
#endif
#ifdef DGUX
-# define THREAD_CREATE_NEEDS_STACK (16*1024)
+# define THREAD_CREATE_NEEDS_STACK (32*1024)
#endif
#ifdef I_MACH_CTHREADS
* It would fail if the key were bogus, but if the key were bogus then
* Really Bad Things would be happening anyway. --dan */
#if (defined(__ALPHA) && (__VMS_VER >= 70000000)) || \
- (defined(__alpha) && defined(__osf__)) /* Available only on >= 4.0 */
+ (defined(__alpha) && defined(__osf__) && !defined(__GNUC__)) /* Available only on >= 4.0 */
# define HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP /* Configure test needed */
#endif
#endif
#ifndef PTHREAD_ATFORK
-# define PTHREAD_ATFORK(prepare,parent,child) \
- pthread_atfork(prepare,parent,child)
+# ifdef HAS_PTHREAD_ATFORK
+# define PTHREAD_ATFORK(prepare,parent,child) \
+ pthread_atfork(prepare,parent,child)
+# else
+# define PTHREAD_ATFORK(prepare,parent,child) \
+ NOOP
+# endif
#endif
#ifndef THREAD_RET_TYPE
# define THREAD_RET_CAST(p) ((void *)(p))
#endif /* THREAD_RET */
-#if defined(USE_THREADS)
+#if defined(USE_5005THREADS)
/* Accessor for per-thread SVs */
# define THREADSV(i) (thr->threadsvp[i])
#define MgCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->cond)
#define MgOWNER(mg) ((condpair_t *)(mg->mg_ptr))->owner
-#endif /* USE_THREADS */
-#endif /* USE_THREADS || USE_ITHREADS */
+#endif /* USE_5005THREADS */
+#endif /* USE_5005THREADS || USE_ITHREADS */
#ifndef MUTEX_LOCK
# define MUTEX_LOCK(m)
#ifndef INIT_THREADS
# define INIT_THREADS NOOP
#endif
-
-#ifndef PTHREAD_ATFORK
-# define PTHREAD_ATFORK(prepare,parent,child) NOOP
-#endif