mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 01:20:37 -08:00
Code Issues Projects Releases Wiki Activity

(Frandom): Use EMACS_INT, not int.

Browse source 
Use NULL, not 0, as arg of `time'.
This commit is contained in:
Karl Heuer 1995-05-30 03:15:27 +00:00
parent 6c6a9be863
commit e2d6972aef
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fns.c
View file

@ -60,11 +60,12 @@ With argument t, set the random number seed from the current time and pid.")
(limit)
Lisp_Object limit;
{
int val;
EMACS_INT val;
Lisp_Object lispy_val;
unsigned long denominator;
if (EQ (limit, Qt))
seed_random (getpid () + time (0));
seed_random (getpid () + time (NULL));
if (NATNUMP (limit) && XFASTINT (limit) != 0)
{
/* Try to take our random number from the higher bits of VAL,
@ -81,7 +82,8 @@ With argument t, set the random number seed from the current time and pid.")
}
else
val = get_random ();
return make_number (val);
XSETINT (lispy_val, val);
return lispy_val;
}
/* Random data-structure functions */