head	1.2;
access;
symbols
	RELEASE_8_3_0:1.2
	RELEASE_9_0_0:1.2
	RELEASE_7_4_0:1.2
	RELEASE_8_2_0:1.2
	RELEASE_6_EOL:1.2
	RELEASE_8_1_0:1.2
	RELEASE_7_3_0:1.2
	RELEASE_8_0_0:1.2
	RELEASE_7_2_0:1.2
	RELEASE_7_1_0:1.2
	RELEASE_6_4_0:1.2
	RELEASE_5_EOL:1.2
	RELEASE_7_0_0:1.2
	RELEASE_6_3_0:1.2
	PRE_XORG_7:1.2
	RELEASE_4_EOL:1.2
	RELEASE_6_2_0:1.2
	old_RELEASE_6_1_0:1.2
	old_RELEASE_5_5_0:1.2
	old_RELEASE_6_0_0:1.2
	old_RELEASE_5_4_0:1.2
	old_RELEASE_4_11_0:1.2
	old_RELEASE_5_3_0:1.2
	old_RELEASE_4_10_0:1.2
	old_RELEASE_5_2_1:1.2
	old_RELEASE_5_2_0:1.2
	old_RELEASE_4_9_0:1.2
	old_RELEASE_5_1_0:1.2
	old_RELEASE_4_8_0:1.1
	old_RELEASE_5_0_0:1.1
	old_RELEASE_4_7_0:1.1
	old_RELEASE_4_6_2:1.1
	old_RELEASE_4_6_1:1.1
	old_RELEASE_4_6_0:1.1
	old_RELEASE_5_0_DP1:1.1
	old_RELEASE_4_5_0:1.1
	old_RELEASE_4_4_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2003.05.10.22.29.24;	author perky;	state Exp;
branches;
next	1.1;

1.1
date	2001.04.30.06.54.55;	author kris;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Upgrade to 5.0 and keep 4.0 as lang/lua4
@
text
@--- src/lib/lmathlib.c.orig	Tue Mar 11 21:30:37 2003
+++ src/lib/lmathlib.c	Fri May  9 02:32:59 2003
@@@@ -170,7 +170,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 */
@@@@ -196,7 +196,7 @@@@
 
 
 static int math_randomseed (lua_State *L) {
-  srand(luaL_checkint(L, 1));
+  srandom(luaL_checkint(L, 1));
   return 0;
 }
 
@


1.1
log
@Use random()/srandom() for better PRNG properties than rand()/srand().
Bump PORTREVISION.

Approved by:	maintainer
@
text
@d1 3
a3 3
--- 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 @@@@
d5 4
a8 4
   /* 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;
d12 1
a12 1
@@@@ -194,7 +194,7 @@@@
d16 2
a17 2
-  srand(luaL_check_int(L, 1));
+  srandom(luaL_check_int(L, 1));
@

