From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 17 Jul 1995 22:18:04 +0000 (+0000)
Subject: (Fexpt): Use EMACS_INT for integer calculation.
X-Git-Tag: emacs-19.34~3322
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a51b24a036009390f5ced5ae8932d4a89e63690;p=emacs.git

(Fexpt): Use EMACS_INT for integer calculation.
(Ffloor): Likewise.
---

diff --git a/src/floatfns.c b/src/floatfns.c
index 33186eaf377..459f4d63faa 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -447,7 +447,7 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0,
   if (INTEGERP (arg1)     /* common lisp spec */
       && INTEGERP (arg2)) /* don't promote, if both are ints */
     {				/* this can be improved by pre-calculating */
-      int acc, x, y;		/* some binary powers of x then accumulating */
+      EMACS_INT acc, x, y;	/* some binary powers of x then accumulating */
       Lisp_Object val;
 
       x = XINT (arg1);
@@ -747,7 +747,7 @@ With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR.")
 
   if (! NILP (divisor))
     {
-      int i1, i2;
+      EMACS_INT i1, i2;
 
       CHECK_NUMBER_OR_FLOAT (divisor, 1);