Use U64_CONST() for the drand48 constants that are larger than 2**32.

Without this the constants are truncated to 32 bits on (at least) HP-UX
with 32 bit IVs, which results in some very wrong output from rand().

1 files changed, 2 insertions, 2 deletions

diff --git a/util.c b/util.c
index ef464f7d4d..6227474e76 100644
--- a/util.c
+++ b/util.c
@@ -6247,9 +6247,9 @@ Perl_get_re_arg(pTHX_ SV *sv) {
 
 #ifdef PERL_DRAND48_QUAD
 
-#define DRAND48_MULT 0x5deece66d
+#define DRAND48_MULT U64_CONST(0x5deece66d)
 #define DRAND48_ADD  0xb
-#define DRAND48_MASK 0xffffffffffff
+#define DRAND48_MASK U64_CONST(0xffffffffffff)
 
 #else