"rand()", in SunOS, may return values bigger than "RAND_MAX"...

1 files changed, 4 insertions, 2 deletions

diff --git a/lmathlib.c b/lmathlib.c
index 13c74a0a..ad462535 100644
--- a/lmathlib.c
+++ b/lmathlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lmathlib.c,v 1.6 1997/11/28 12:39:22 roberto Exp roberto $
+** $Id: lmathlib.c,v 1.7 1997/12/09 13:35:19 roberto Exp roberto $
 ** Lua standard mathematical library
 ** See Copyright Notice in lua.h
 */
@@ -145,8 +145,10 @@ static void math_max (void)
 
 static void math_random (void)
 {
+  /* the '%' is needed because on some sistems (SunOS!) "rand()" may */
+  /* return a value bigger than RAND_MAX... */
+  double r = (double)(rand()%RAND_MAX) / (double)RAND_MAX;
   double l = luaL_opt_number(1, 0);
-  double r = (double)rand() / (double)RAND_MAX;
   if (l == 0)
     lua_pushnumber(r);
   else