# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806019484 0
# Node ID 476296adb950c807c287edab1393b5f2908612a4
# Parent  dacfad0d4be577c1b39849b542066d15095af54f
(Fexpt): Use EMACS_INT for integer calculation.
(Ffloor): Likewise.

diff -r dacfad0d4be5 -r 476296adb950 src/floatfns.c
--- a/src/floatfns.c	Mon Jul 17 22:17:19 1995 +0000
+++ b/src/floatfns.c	Mon Jul 17 22:18:04 1995 +0000
@@ -447,7 +447,7 @@
   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 @@
 
   if (! NILP (divisor))
     {
-      int i1, i2;
+      EMACS_INT i1, i2;
 
       CHECK_NUMBER_OR_FLOAT (divisor, 1);