summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorAndy Dougherty <doughera@lafayette.edu>1998-05-28 09:27:25 -0400
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-05-28 17:59:18 +0000
commitbd89102fe7784367e3eeddc7cefae29defae903a (patch)
tree79cc385dded6a269bf4f938ac1be5a70c7e644f4 /perl.h
parent1d26b16b4a5b44b9f5893c8b4c8ce90d163883e5 (diff)
downloadperl-bd89102fe7784367e3eeddc7cefae29defae903a.tar.gz
[PATCH 5.004_65] Config_65-02-03.diff: SunOS and Solaris hints
Date: Thu, 28 May 1998 13:27:25 -0400 (EDT) Subject: [PATCH 5.004_65] Config_65-03-04.diff: semctl probing Date: Thu, 28 May 1998 13:28:21 -0400 (EDT) p4raw-id: //depot/perl@1047
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h22
1 files changed, 21 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index fc9606438a..8645c393fb 100644
--- a/perl.h
+++ b/perl.h
@@ -2090,6 +2090,26 @@ enum {
UNLOCK_SV_MUTEX; \
} while (0)
+#ifdef HAS_SEM
+# include <sys/ipc.h>
+# include <sys/sem.h>
+# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
+ union semun {
+ int val;
+ struct semid_ds *buf;
+ unsigned short *array;
+ };
+# endif
+# ifdef USE_SEMCTL_SEMUN
+# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
+# else
+# ifdef USE_SEMCTL_SEMID_DS
+# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
+# endif
+# endif
+# ifndef Semctl /* Place our bets on the semun horse. */
+# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
+# endif
+#endif
#endif /* Include guard */
-