diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 1998-06-11 08:40:05 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-12 07:07:25 +0000 |
| commit | 89434db5ba82ba89335fe9df8141e14dfec10aa0 (patch) | |
| tree | 9d575c56c1519da583ae7d83ed938e51f07e3d87 /Configure | |
| parent | 8a5546a1774bc5278c3b557b5a3cac8da26aa636 (diff) | |
| download | perl-89434db5ba82ba89335fe9df8141e14dfec10aa0.tar.gz | |
Config_66-01-02.diff
Message-Id: <Pine.SUN.3.96.980611123857.18493K-100000@newton.phys>
p4raw-id: //depot/perl@1123
Diffstat (limited to 'Configure')
| -rwxr-xr-x | Configure | 24 |
1 files changed, 18 insertions, 6 deletions
@@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Mon Jun 8 12:04:14 EDT 1998 [metaconfig 3.0 PL70] +# Generated on Tue Jun 9 14:56:54 EDT 1998 [metaconfig 3.0 PL70] cat >/tmp/c1$$ <<EOF ARGGGHHHH!!!!! @@ -6216,10 +6216,14 @@ main() $xxx i32; double f, g; int result = 0; + char str[16]; signal(SIGFPE, blech); - /* Don't let compiler optimize the test away */ - sscanf("2147483647", "%lf", &f); /* f = (double) 0x7fffffff; */ + /* Don't let compiler optimize the test away. Store the number + in a writable string for gcc to pass to sscanf under HP/UX. + */ + sprintf(str, "2147483647"); + sscanf(str, "%lf", &f); /* f = (double) 0x7fffffff; */ g = 10 * f; i32 = ($xxx) g; @@ -6272,11 +6276,17 @@ main() unsigned int aint; unsigned short ashort; int result = 0; + char str[16]; + /* Frustrate gcc-2.7.2's optimizer which failed this test with a direct f = -123. assignment. gcc-2.8.0 reportedly optimized the whole file away */ - sscanf("-123.", "%lf", &f); /* f = -123.; */ + /* Store the number in a writable string for gcc to pass to + sscanf under HP/UX. + */ + sprintf(str, "-123"); + sscanf(str, "%lf", &f); /* f = -123.; */ signal(SIGFPE, blech); along = (unsigned long)f; @@ -6288,7 +6298,8 @@ main() result |= 1; if (ashort != (unsigned short)-123) result |= 1; - sscanf("1073741824.", "%lf", &f); /* f = (double)0x40000000; */ + sprintf(str, "1073741824."); + sscanf(str, "%lf", &f); /* f = (double)0x40000000; */ f = f + f; along = 0; along = (unsigned long)f; @@ -6307,7 +6318,8 @@ main() if (result) exit(result); signal(SIGFPE, blech_in_list); - sscanf("123.", "%lf", &f); /* f = 123.; */ + sprintf(str, "123."); + sscanf(str, "%lf", &f); /* f = 123.; */ along = dummy_long((unsigned long)f); aint = dummy_int((unsigned int)f); ashort = dummy_short((unsigned short)f); |