changeset 25780:18cf58ed9400

(find_symbol_value): Remove unused variables. (Faref, Fstring_to_number): Ditto. (toplevel): Include stdio.h. (Fnumber_to_string): Cast XINT to long for %ld.

--- a/src/data.c	Mon Sep 20 23:18:36 1999 +0000
+++ b/src/data.c	Mon Sep 20 23:18:38 1999 +0000
@@ -22,6 +22,7 @@
 #include <signal.h>
 
 #include <config.h>
+#include <stdio.h>
 #include "lisp.h"
 #include "puresize.h"
 #include "charset.h"
@@ -885,7 +886,7 @@
 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 @@
   idxval = XINT (idx);
   if (STRINGP (array))
     {
-      Lisp_Object val;
       int c, idxval_byte;
 
       if (idxval < 0 || idxval >= XSTRING (array)->size)
@@ -1796,8 +1796,6 @@
     }
   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 @@
     }
   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 @@
   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 @@
      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);