diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-07-17 22:18:04 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-07-17 22:18:04 +0000 |
| commit | 9a51b24a036009390f5ced5ae8932d4a89e63690 (patch) | |
| tree | 01d16047215c2e8420e51ec8b4fc45b04ebb92b9 /src/floatfns.c | |
| parent | ed3e7c62a6f0f1fb510bd19933dfe43b67915a7d (diff) | |
| download | emacs-9a51b24a036009390f5ced5ae8932d4a89e63690.tar.gz | |
(Fexpt): Use EMACS_INT for integer calculation.
(Ffloor): Likewise.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 4 |
1 files 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); |