[perl #17202] [PATCH] Avoid SIGBUS/coredump in Configure alignment tests

[via RT]

# New Ticket Created by  Andy Dougherty 
# Please include the string:  [perl #17202]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17202 >


The following patch installs a signal handler to try to catch the core
dumps that can follow from Configure's attempts to perform unaligned
access.

diff -r -u parrot-orig/config/auto/alignptrs/test_c.in 
parrot-andy/config/auto/alignptrs/test_c.in
--- parrot-orig/config/auto/alignptrs/test_c.in Thu Jul 18 19:58:02 2002
+++ parrot-andy/config/auto/alignptrs/test_c.in Thu Sep 12 12:06:04 2002
@@ -6,6 +6,12 @@
  */
 
 #include <stdio.h>
+#include <sys/types.h>
+#include <signal.h>
+/* Try to catch bus errors */
+#ifdef SIGBUS
+void bletch(s) int s; { exit(1); }
+#endif
 
 int main(int argc, char **argv) {
 
@@ -16,6 +22,9 @@
     void **ptr;
     
     int align = 0;
+#ifdef SIGBUS
+    signal(SIGBUS, bletch);
+#endif
 
     for (i = 0; i < 32; i ++) space[i] = 0;
 

-- 
    Andy Dougherty              [EMAIL PROTECTED]