From dd8daec5e8e4352cbc1d3b1cd1d9c67ae232b760 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 20 Sep 1999 23:18:38 +0000 Subject: [PATCH] (find_symbol_value): Remove unused variables. (Faref, Fstring_to_number): Ditto. (toplevel): Include stdio.h. (Fnumber_to_string): Cast XINT to long for %ld. --- src/data.c | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/src/data.c b/src/data.c index 371d81514cf..2c7e2298a50 100644 --- a/src/data.c +++ b/src/data.c @@ -22,6 +22,7 @@ Boston, MA 02111-1307, USA. */ #include #include +#include #include "lisp.h" #include "puresize.h" #include "charset.h" @@ -885,7 +886,7 @@ Lisp_Object find_symbol_value (symbol) Lisp_Object symbol; { - register Lisp_Object valcontents, tem1; + register Lisp_Object valcontents; register Lisp_Object val; CHECK_SYMBOL (symbol, 0); valcontents = XSYMBOL (symbol)->value; @@ -1643,7 +1644,6 @@ or a byte-code object. IDX starts at 0.") idxval = XINT (idx); if (STRINGP (array)) { - Lisp_Object val; int c, idxval_byte; if (idxval < 0 || idxval >= XSTRING (array)->size) @@ -1796,8 +1796,6 @@ IDX starts at 0.") } else if (CHAR_TABLE_P (array)) { - Lisp_Object val; - if (idxval < 0) args_out_of_range (array, idx); if (idxval < CHAR_TABLE_ORDINARY_SLOTS) @@ -1841,7 +1839,7 @@ IDX starts at 0.") } else if (STRING_MULTIBYTE (array)) { - int c, idxval_byte, new_len, actual_len; + int idxval_byte, new_len, actual_len; int prev_byte; unsigned char *p, workbuf[4], *str; @@ -2072,7 +2070,7 @@ NUMBER may be an integer or a floating point number.") if (sizeof (int) == sizeof (EMACS_INT)) sprintf (buffer, "%d", XINT (number)); else if (sizeof (long) == sizeof (EMACS_INT)) - sprintf (buffer, "%ld", XINT (number)); + sprintf (buffer, "%ld", (long) XINT (number)); else abort (); return build_string (buffer); @@ -2111,7 +2109,7 @@ If the base used is not 10, floating point is not recognized.") register Lisp_Object string, base; { register unsigned char *p; - register int b, digit, v = 0; + register int b, v = 0; int negative = 1; CHECK_STRING (string, 0); -- 2.39.5