diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-12-31 03:31:11 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-12-31 15:43:07 +0000 |
| commit | cd3eeb1905c3b23812c97ce8e4eec287dd9d3a0f (patch) | |
| tree | bf8ca875b60865bce9de40f66c4d4f118e94c7f1 /configure.com | |
| parent | e662ed2b9714a0bd988030413aa5ead299eead85 (diff) | |
| download | perl-cd3eeb1905c3b23812c97ce8e4eec287dd9d3a0f.tar.gz | |
randbits and randfunc for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <41D570BF.8010409@mac.com>
Date: Fri, 31 Dec 2004 09:31:11 -0600
p4raw-id: //depot/perl@23715
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 d54302f3cb..ad724022b9 100644 --- a/configure.com +++ b/configure.com @@ -4738,6 +4738,8 @@ $ GOSUB link_ok $ IF compile_status .EQ. good_compile .AND. link_status .EQ. good_link $ THEN $ drand01 = "drand48()" +$ randbits = "48" +$ randfunc = "drand48" $ randseedtype = "long int" $ seedfunc = "srand48" $ echo4 "Good, found drand48()." @@ -4745,6 +4747,8 @@ $ d_drand48proto = "define" $ ELSE $ d_drand48proto = "undef" $ drand01="random()" +$ randbits = "31" +$ randfunc = "random" $ randseedtype = "unsigned" $ seedfunc = "srandom" $ OS @@ -4764,6 +4768,7 @@ $ THEN $ echo4 "OK, found random()." $ ELSE $ drand01="(((float)rand())*MY_INV_RAND_MAX)" +$ randfunc = "rand" $ randseedtype = "unsigned" $ seedfunc = "srand" $ echo4 "Yick, looks like I have to use rand()." @@ -5870,7 +5875,8 @@ $ WC "prototype='define'" $ WC "ptrsize='" + ptrsize + "'" $ WC "quadkind='" + quadkind + "'" $ WC "quadtype='" + quadtype + "'" -$ WC "randbits='31'" +$ WC "randbits='" + randbits + "'" +$ WC "randfunc='" + randfunc + "'" $ WC "randseedtype='" + randseedtype + "'" $ WC "ranlib='" + "'" $ WC "rd_nodata=' '" |