summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2013-09-13 22:57:59 +0100
committerSteve Hay <steve.m.hay@googlemail.com>2013-09-13 23:09:50 +0100
commit63835f7971cba357334d2e18bcc585f707740980 (patch)
tree24545604c6916c6d50fff6db0c76b4f6c602fd60 /util.c
parentdd9a180e74e86e123c4a37c05803e14975ecbb69 (diff)
downloadperl-63835f7971cba357334d2e18bcc585f707740980.tar.gz
Fix the VC6 build on Windows following commit 3be8f09452
The VC6 compiler has slightly flaky support for __int64 and chokes on util.c when using the 64-bit implementation of drand48, so switch it to the 32-bit version instead.
Diffstat (limited to 'util.c')
-rw-r--r--util.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/util.c b/util.c
index 28cc7064ed..79e4000df5 100644
--- a/util.c
+++ b/util.c
@@ -6287,6 +6287,7 @@ Perl_drand48_r(perl_drand48_t *random_state)
return ldexp(*random_state, -48);
#else
+ {
U32 accu;
U16 temp[2];
@@ -6308,6 +6309,7 @@ Perl_drand48_r(perl_drand48_t *random_state)
return ldexp((double) random_state->seed[0], -48) +
ldexp((double) random_state->seed[1], -32) +
ldexp((double) random_state->seed[2], -16);
+ }
#endif
}