From 9a51b24a036009390f5ced5ae8932d4a89e63690 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 17 Jul 1995 22:18:04 +0000 Subject: [PATCH] (Fexpt): Use EMACS_INT for integer calculation. (Ffloor): Likewise. --- src/floatfns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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); -- 2.39.2