summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorBrian Harrison <brie@corp.home.net>1998-10-24 04:01:55 +0300
committerJarkko Hietaniemi <jhi@iki.fi>1998-10-27 07:56:57 +0000
commit7f3d1cf17f00f843a4ab0c805e58fa10c222716a (patch)
treeed640cb97c8a55a367e0562df5b2fb7751655522 /perl.h
parent25e9a2e3ad9e75ccc06381c3ed3d656041a0f0e2 (diff)
downloadperl-7f3d1cf17f00f843a4ab0c805e58fa10c222716a.tar.gz
Mach cthreads support based on:
Subject: perl5.005_02 patch for mthreads To: perl5-porters@perl.org Message-ID: <MLIST_Pine.GSO.4.04.9810231410220.11111-200000@sulaco.eos.home.net> Pthread yield probe (dejavu) Cosmetic nanochange for the union semun output. Better inttypes.h probe. Undo the 'void *' $selecttype probe from #1971 because it breaks the $selectminbits test. p4raw-id: //depot/cfgperl@2095
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h25
1 files changed, 12 insertions, 13 deletions
diff --git a/perl.h b/perl.h
index 7e9fd94ceb..1561884b78 100644
--- a/perl.h
+++ b/perl.h
@@ -309,12 +309,6 @@ register struct op *op asm(stringify(OP_IN_REGISTER));
# include <pthread.h>
#endif
-/* HP-UX 10.X CMA (Common Multithreaded Architecure) insists that
- pthread.h must be included before all other header files.
-*/
-#if defined(USE_THREADS) && defined(PTHREAD_H_FIRST)
-# include <pthread.h>
-#endif
#ifndef _TYPES_ /* If types.h defines this it's easy. */
# ifndef major /* Does everyone's types.h define this? */
# include <sys/types.h>
@@ -1381,17 +1375,22 @@ typedef I32 (*filter_t) _((int, SV *, int));
# ifdef OS2
# include "os2thread.h"
# else
-# include <pthread.h>
-typedef pthread_t perl_os_thread;
-typedef pthread_mutex_t perl_mutex;
-typedef pthread_cond_t perl_cond;
-typedef pthread_key_t perl_key;
+# ifdef I_MACH_CTHREADS
+typedef cthread_t perl_os_thread;
+typedef mutex_t perl_mutex;
+typedef condition_t perl_cond;
+typedef void * perl_key;
+# else /* Posix threads */
+# include <pthread.h>
+typedef pthread_t perl_os_thread;
+typedef pthread_mutex_t perl_mutex;
+typedef pthread_cond_t perl_cond;
+typedef pthread_key_t perl_key;
+# endif /* I_MACH_CTHREADS */
# endif /* OS2 */
# endif /* WIN32 */
# endif /* FAKE_THREADS */
#endif /* USE_THREADS */
-
-
#ifdef VMS
# define STATUS_NATIVE PL_statusvalue_vms