aboutsummaryrefslogtreecommitdiffstats
path: root/lang/lua4
diff options
context:
space:
mode:
authorkris <kris@FreeBSD.org>2001-04-30 14:54:55 +0800
committerkris <kris@FreeBSD.org>2001-04-30 14:54:55 +0800
commitcf9b361b71054c963acfcf0b3c05152f56d09a1b (patch)
treecd5ecf36c4afc470ec97927ea3df04ae4b8b22fc /lang/lua4
parentf2f59d0c76c76bfce8dfd3c53db3f4d94d36beda (diff)
downloadfreebsd-ports-gnome-cf9b361b71054c963acfcf0b3c05152f56d09a1b.tar.gz
freebsd-ports-gnome-cf9b361b71054c963acfcf0b3c05152f56d09a1b.tar.zst
freebsd-ports-gnome-cf9b361b71054c963acfcf0b3c05152f56d09a1b.zip
Use random()/srandom() for better PRNG properties than rand()/srand().
Bump PORTREVISION. Approved by: maintainer
Diffstat (limited to 'lang/lua4')
-rw-r--r--lang/lua4/Makefile1
-rw-r--r--lang/lua4/files/patch-ab20
2 files changed, 21 insertions, 0 deletions
diff --git a/lang/lua4/Makefile b/lang/lua4/Makefile
index 61964f909e39..c351e33e24af 100644
--- a/lang/lua4/Makefile
+++ b/lang/lua4/Makefile
@@ -7,6 +7,7 @@
PORTNAME= lua
PORTVERSION= 4.0
+PORTREVISION= 1
CATEGORIES= lang
MASTER_SITES= ftp://ftp.tecgraf.puc-rio.br/pub/lua/ \
ftp://csg.uwaterloo.ca/pub/lhf/lua/ \
diff --git a/lang/lua4/files/patch-ab b/lang/lua4/files/patch-ab
new file mode 100644
index 000000000000..b7fbfba0f970
--- /dev/null
+++ b/lang/lua4/files/patch-ab
@@ -0,0 +1,20 @@
+--- src/lib/lmathlib.c.orig Mon Apr 30 00:05:45 2001
++++ src/lib/lmathlib.c Mon Apr 30 00:06:05 2001
+@@ -168,7 +168,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 */
+- double r = (double)(rand()%RAND_MAX) / (double)RAND_MAX;
++ double r = (double)(random()%RAND_MAX) / (double)RAND_MAX;
+ switch (lua_gettop(L)) { /* check number of arguments */
+ case 0: { /* no arguments */
+ lua_pushnumber(L, r); /* Number between 0 and 1 */
+@@ -194,7 +194,7 @@
+
+
+ static int math_randomseed (lua_State *L) {
+- srand(luaL_check_int(L, 1));
++ srandom(luaL_check_int(L, 1));
+ return 0;
+ }
+