From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 10 Apr 2002 12:57:51 +0000 (+0000)
Subject: Try to fool old AIX when threading, from Merijn.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c5078cac1872919b2585b95c6a7826d452ac1977;p=p5sagit%2Fp5-mst-13.2.git

Try to fool old AIX when threading, from Merijn.

p4raw-id: //depot/perl@15846
---

diff --git a/perl.h b/perl.h
index 383ae2d..023b90b 100644
--- a/perl.h
+++ b/perl.h
@@ -2146,6 +2146,22 @@ typedef I32 (*filter_t) (pTHX_ int, SV *, int);
 #define FILTER_DATA(idx)	   (AvARRAY(PL_rsfp_filters)[idx])
 #define FILTER_ISREADER(idx)	   (idx >= AvFILLp(PL_rsfp_filters))
 
+#if defined(_AIX) && !defined(_AIX43)
+#if defined(USE_REENTRANT) || defined(_REENTRANT) || defined(_THREAD_SAFE)
+/* We cannot include <crypt.h> to get the struct crypt_data
+ * because of setkey prototype problems when threading */
+typedef        struct crypt_data {     /* straight from /usr/include/crypt.h */
+    /* From OSF, Not needed in AIX
+       char C[28], D[28];
+    */
+    char E[48];
+    char KS[16][48];
+    char block[66];
+    char iobuf[16];
+} CRYPTD;
+#endif /* threading */
+#endif /* AIX */
+
 #if !defined(OS2) && !defined(MACOS_TRADITIONAL)
 #  include "iperlsys.h"
 #endif