From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 19 Sep 1994 00:15:08 +0000 (+0000)
Subject: (Frandom): Fix Lisp_Object vs. int problems.
X-Git-Tag: emacs-19.34~6953
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9309fdb17ffc0b686b5094826d757f5bf4ab93c4;p=emacs.git

(Frandom): Fix Lisp_Object vs. int problems.
---

diff --git a/src/fns.c b/src/fns.c
index b65f3f203f7..9afea6c59cf 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -32,6 +32,8 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "keyboard.h"
 #include "intervals.h"
 
+extern Lisp_Object Flookup_key ();
+
 Lisp_Object Qstring_lessp, Qprovide, Qrequire;
 Lisp_Object Qyes_or_no_p_history;
 
@@ -64,9 +66,9 @@ With argument t, set the random number seed from the current time and pid.")
     srandom (getpid () + time (0));
   if (XTYPE (limit) == Lisp_Int && XINT (limit) > 0)
     {
-      if (XINT (limit) >= 0x40000000)
+      if (XFASTINT (limit) >= 0x40000000)
 	/* This case may occur on 64-bit machines.  */
-	val = random () % XINT (limit);
+	val = random () % XFASTINT (limit);
       else
 	{
 	  /* Try to take our random number from the higher bits of VAL,
@@ -79,7 +81,7 @@ With argument t, set the random number seed from the current time and pid.")
 	  denominator = (unsigned long)0x40000000 / XFASTINT (limit);
 	  do
 	    val = (random () & 0x3fffffff) / denominator;
-	  while (val >= limit);
+	  while (val >= XFASTINT (limit));
 	}
     }
   else