forked from Lainports/freebsd-ports
20 lines
762 B
Text
20 lines
762 B
Text
--- src/lmathlib.c.orig Thu Apr 27 23:42:51 2006
|
|
+++ src/lmathlib.c Thu Apr 27 23:43:27 2006
|
|
@@ -181,7 +181,7 @@
|
|
static int math_random (lua_State *L) {
|
|
/* the `%' avoids the (rare) case of r==1, and is needed also because on
|
|
some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */
|
|
- lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX;
|
|
+ lua_Number r = (lua_Number)(random()%RAND_MAX) / (lua_Number)RAND_MAX;
|
|
switch (lua_gettop(L)) { /* check number of arguments */
|
|
case 0: { /* no arguments */
|
|
lua_pushnumber(L, r); /* Number between 0 and 1 */
|
|
@@ -207,7 +207,7 @@
|
|
|
|
|
|
static int math_randomseed (lua_State *L) {
|
|
- srand(luaL_checkint(L, 1));
|
|
+ srandom(luaL_checkint(L, 1));
|
|
return 0;
|
|
}
|
|
|