diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-10-17 05:10:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-18 12:17:16 +0000 |
| commit | bb6f4497de510b4ef8ece50af67246912d14fb8e (patch) | |
| tree | 6f7e45279f9b70493fc324eee0140ec7233f16bf /configure.com | |
| parent | fd7b6849d7cf47f2fe101ad9761adae57a573493 (diff) | |
| download | perl-bb6f4497de510b4ef8ece50af67246912d14fb8e.tar.gz | |
try#2: [proposed PATCH Perl@12401] ieee floats, rand() & old systems
Message-Id: <011017090944.15ad2e@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12491
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/configure.com b/configure.com index 21b46f0b3f..82fa3ed4a0 100644 --- a/configure.com +++ b/configure.com @@ -2374,6 +2374,9 @@ $ rp = "Use IEEE math? [''dflt'] " $ GOSUB myread $ IF ans .eqs. "" THEN ans = "''dflt'" $ use_ieee_math = "''ans'" +$ ELSE +$ be_case_sensitive = "n" +$ use_ieee_math = "n" $ ENDIF $! CC Flags $ echo "" @@ -4511,6 +4514,7 @@ $! $! Check rand48 and its ilk $! $ echo4 "Looking for a random number function..." +$ d_use_rand = "undef" $ OS $ WS "#if defined(__DECC) || defined(__DECCXX)" $ WS "#include <stdlib.h>" @@ -4551,9 +4555,10 @@ $ IF compile_status .EQ. good_compile .AND. link_status .EQ. good_link $ THEN $ echo4 "OK, found random()." $ ELSE -$ drand01="(((float)rand())/((float)RAND_MAX))" +$ drand01="(((float)rand())*PL_my_inv_rand_max)" $ randseedtype = "unsigned" $ seedfunc = "srand" +$ d_use_rand = "define" $ echo4 "Yick, looks like I have to use rand()." $ ENDIF $ ENDIF @@ -5727,6 +5732,7 @@ $ THEN $! Alas this does not help to build Fcntl $! WC "#define PERL_IGNORE_FPUSIG SIGFPE" $ ENDIF +$ if d_use_rand .EQS. "define" then WC "#define Drand01_is_rand" $ CLOSE CONFIG $! $ echo4 "Doing variable substitutions on .SH files..." |