[project @ 1999-09-13 11:01:05 by sof]

[ghc-hetmet.git] / ghc / rts / gmp / mpn / generic / random2.c

diff --git a/ghc/rts/gmp/mpn/generic/random2.c b/ghc/rts/gmp/mpn/generic/random2.c
index 2954608..7ac442a 100644 (file)
--- a/ghc/rts/gmp/mpn/generic/random2.c
+++ b/ghc/rts/gmp/mpn/generic/random2.c
@@ -31,6 +31,14 @@ random ()
 {
   return mrand48 ();
 }
+#elif defined(_WIN32) && !(defined(__CYGWIN__) || defined(__CYGWIN32__))
+/* MS CRT supplies just the poxy rand(), with an upper bound of 0x7fff */
+static inline unsigned long
+random ()
+{
+  return rand () ^ (rand () << 16) ^ (rand() << 32);
+}
+
 #else
 long random ();
 #endif