Fix the VC6 build on Windows following commit 3be8f09452

[perl5.git] / util.c

diff --git a/util.c b/util.c
index 28cc706..79e4000 100644 (file)
--- a/util.c
+++ b/util.c
@@ -6287,6 +6287,7 @@ Perl_drand48_r(perl_drand48_t *random_state)
 
     return ldexp(*random_state, -48);
 #else
 
     return ldexp(*random_state, -48);
 #else

+    {

     U32 accu;
     U16 temp[2];
 
     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);
     return ldexp((double) random_state->seed[0], -48) +
            ldexp((double) random_state->seed[1], -32) +
            ldexp((double) random_state->seed[2], -16);

+    }

 #endif
 }
  
 #endif
 }