contrib/bsdinstaller-1.1.6/ports/lang/lua50/files/patch-src__lib__lmathlib.c

   1 --- src/lib/lmathlib.c.orig     Tue Mar 11 21:30:37 2003
   2 +++ src/lib/lmathlib.c  Fri May  9 02:32:59 2003
   3 @@ -170,7 +170,7 @@
   4  static int math_random (lua_State *L) {
   5    /* the `%' avoids the (rare) case of r==1, and is needed also because on
   6       some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */
   7 -  lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX;
   8 +  lua_Number r = (lua_Number)(random()%RAND_MAX) / (lua_Number)RAND_MAX;
   9    switch (lua_gettop(L)) {  /* check number of arguments */
  10      case 0: {  /* no arguments */
  11        lua_pushnumber(L, r);  /* Number between 0 and 1 */
  12 @@ -196,7 +196,7 @@
  13
  14
  15  static int math_randomseed (lua_State *L) {
  16 -  srand(luaL_checkint(L, 1));
  17 +  srandom(luaL_checkint(L, 1));
  18    return 0;
  19  }
  20