diff options
| author | Richard M. Stallman | 1995-05-04 21:37:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-05-04 21:37:43 +0000 |
| commit | 5260234d4309ff40f02424a3266226cfeeebe8bf (patch) | |
| tree | 81665106eec3b9a3497dc39b0cfcecb03770cf42 | |
| parent | 1df90f8fe8f68c9c51bb76ec18da5358f6c12167 (diff) | |
| download | emacs-5260234d4309ff40f02424a3266226cfeeebe8bf.tar.gz emacs-5260234d4309ff40f02424a3266226cfeeebe8bf.zip | |
(arith_driver): Make accum and next EMACS_INTs.
(Fmod): i1 and i2 are EMACS_INT.
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 2dc25cf8301..af5f67fa227 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1707,8 +1707,8 @@ arith_driver (code, nargs, args) | |||
| 1707 | { | 1707 | { |
| 1708 | register Lisp_Object val; | 1708 | register Lisp_Object val; |
| 1709 | register int argnum; | 1709 | register int argnum; |
| 1710 | register int accum; | 1710 | register EMACS_INT accum; |
| 1711 | register int next; | 1711 | register EMACS_INT next; |
| 1712 | 1712 | ||
| 1713 | switch (SWITCH_ENUM_CAST (code)) | 1713 | switch (SWITCH_ENUM_CAST (code)) |
| 1714 | { | 1714 | { |
| @@ -1917,7 +1917,7 @@ Both X and Y must be numbers or markers.") | |||
| 1917 | register Lisp_Object num1, num2; | 1917 | register Lisp_Object num1, num2; |
| 1918 | { | 1918 | { |
| 1919 | Lisp_Object val; | 1919 | Lisp_Object val; |
| 1920 | int i1, i2; | 1920 | EMACS_INT i1, i2; |
| 1921 | 1921 | ||
| 1922 | #ifdef LISP_FLOAT_TYPE | 1922 | #ifdef LISP_FLOAT_TYPE |
| 1923 | CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num1, 0); | 1923 | CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num1, 0); |