From e2d6972aefdd044e150173a3d32ac2904252db8d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 30 May 1995 03:15:27 +0000 Subject: [PATCH] (Frandom): Use EMACS_INT, not int. Use NULL, not 0, as arg of `time'. --- src/fns.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/fns.c b/src/fns.c index e060f027e83..1510930c9c1 100644 --- a/src/fns.c +++ b/src/fns.c @@ -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 */ -- 2.39.2