diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-27 14:15:27 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-27 14:15:27 +0000 |
commit | 9958dc3c5a4566e3db5ff02a57527e0e18be4802 (patch) | |
tree | 94dcf7575bdd7484c223955a4aca0add5120c20a /Configure | |
parent | d37d8ed3e7f38ecc5e707af8622a55f8b9333e07 (diff) | |
download | perl-9958dc3c5a4566e3db5ff02a57527e0e18be4802.tar.gz |
Try to catch the SIGBUS, as suggested by Nicholas Clark.
p4raw-id: //depot/perl@13908
Diffstat (limited to 'Configure')
-rwxr-xr-x | Configure | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -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 perlbug@perl.org) cat >c1$$ <<EOF @@ -13477,6 +13477,10 @@ $cat >try.c <<EOCP #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 @@ int main() { 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 */ |