Commit e2d6972a authored by Karl Heuer's avatar Karl Heuer
Browse files

(Frandom): Use EMACS_INT, not int.

Use NULL, not 0, as arg of `time'.
parent 6c6a9be8
......@@ -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 */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment