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 | cadb1d41ab737c6b6f2d5f446e1bebdf0ee213b5 (patch) | |
| tree | 94dcf7575bdd7484c223955a4aca0add5120c20a /Configure | |
| parent | c3415116364721dcd4c1cec90d4944050009ae33 (diff) | |
| download | perl-cadb1d41ab737c6b6f2d5f446e1bebdf0ee213b5.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 */ |