From: Jarkko Hietaniemi Date: Sun, 10 Feb 2002 21:55:45 +0000 (+0000) Subject: Two Configure tweaks; the u32align test was trying X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8906a23eaf1b10abd420be0a2fffed84df224b05;p=p5sagit%2Fp5-mst-13.2.git Two Configure tweaks; the u32align test was trying to write into a string literal, the ln -s test was failing in VOS. p4raw-id: //depot/perl@14628 --- diff --git a/Configure b/Configure index 6629891..e44e19a 100755 --- a/Configure +++ b/Configure @@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Fri Feb 8 22:04:29 EET 2002 [metaconfig 3.0 PL70] +# Generated on Mon Feb 11 00:20:30 EET 2002 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.org) cat >c1$$ <&4 $lns blurfl sym if $test "X$issymlink" = X; then @@ -13511,7 +13511,7 @@ $signal_t bletch(s) int s; { exit(4); } #endif int main() { #if BYTEORDER == 0x1234 || BYTEORDER == 0x4321 - U8 *buf = (U8*)"\0\0\0\1\0\0\0\0"; + U8 buf[8]; U32 *up; int i; @@ -13526,6 +13526,15 @@ int main() { signal(SIGBUS, bletch); #endif + buf[0] = 0; + buf[1] = 0; + buf[2] = 0; + buf[3] = 1; + buf[5] = 0; + buf[6] = 0; + buf[7] = 0; + buf[8] = 1; + for (i = 0; i < 4; i++) { up = (U32*)(buf + i); if (! ((*up == 1 << (8*i)) || /* big-endian */