Change 13908 by jhi@alpha on 2001/12/27 14:15:27
Try to catch the SIGBUS, as suggested by Nicholas Clark.
Affected files ...
.... //depot/perl/Configure#383 edit
Differences ...
==== //depot/perl/Configure#383 (xtext) ====
Index: perl/Configure
--- perl/Configure.~1~ Thu Dec 27 07:30:06 2001
+++ perl/Configure Thu Dec 27 07:30:06 2001
@@ -20,7 +20,7 @@
# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Wed Dec 26 20:19:46 EET 2001 [metaconfig 3.0 PL70]
+# Generated on Thu Dec 27 17:16:22 EET 2001 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by [EMAIL PROTECTED])
cat >c1$$ <<EOF
@@ -13477,6 +13477,10 @@
#define U32 $u32type
#define BYTEORDER 0x$byteorder
#define U8 $u8type
+#include <signal.h>
+#ifdef SIGBUS
+$signal_t bletch(s) int s; { exit(4); }
+#endif
int main() {
#if BYTEORDER == 0x1234 || BYTEORDER == 0x4321
U8 buf[] = "\0\0\0\1\0\0\0\0";
@@ -13490,6 +13494,10 @@
fflush(stdout);
+#ifdef SIGBUS
+ signal(SIGBUS, bletch);
+#endif
+
for (i = 0; i < 4; i++) {
up = (U32*)(buf + i);
if (! ((*up == 1 << (8*i)) || /* big-endian */
End of Patch.
