From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 30 May 1995 03:15:27 +0000 (+0000)
Subject: (Frandom): Use EMACS_INT, not int.
X-Git-Tag: emacs-19.34~3850
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2d6972aefdd044e150173a3d32ac2904252db8d;p=emacs.git

(Frandom): Use EMACS_INT, not int.
Use NULL, not 0, as arg of `time'.
---

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 */