head	1.1;
access;
symbols
	RELEASE_8_3_0:1.1
	RELEASE_9_0_0:1.1
	RELEASE_7_4_0:1.1
	RELEASE_8_2_0:1.1
	RELEASE_6_EOL:1.1
	RELEASE_8_1_0:1.1
	RELEASE_7_3_0:1.1
	RELEASE_8_0_0:1.1
	RELEASE_7_2_0:1.1
	RELEASE_7_1_0:1.1
	RELEASE_6_4_0:1.1
	RELEASE_5_EOL:1.1
	RELEASE_7_0_0:1.1
	RELEASE_6_3_0:1.1
	PRE_XORG_7:1.1
	RELEASE_4_EOL:1.1
	RELEASE_6_2_0:1.1
	RELEASE_6_1_0:1.1
	RELEASE_5_5_0:1.1
	RELEASE_6_0_0:1.1
	RELEASE_5_4_0:1.1
	RELEASE_4_11_0:1.1
	RELEASE_5_3_0:1.1
	RELEASE_4_10_0:1.1
	RELEASE_5_2_1:1.1
	RELEASE_5_2_0:1.1
	RELEASE_4_9_0:1.1
	RELEASE_5_1_0:1.1
	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.1
date	2001.04.30.06.54.55;	author kris;	state Exp;
branches;
next	;


desc
@@


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

Approved by:	maintainer
@
text
@--- 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;
 }
 
@
