comparison src/data.c @ 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.

25779:4065a85ee695

#include <signal.h>

#include <config.h>
#include "lisp.h"
#include "puresize.h"
#include "charset.h"

#ifndef standalone

Lisp_Object
find_symbol_value (symbol)
     Lisp_Object symbol;
{
  register Lisp_Object valcontents, tem1;
  register Lisp_Object val;
  CHECK_SYMBOL (symbol, 0);
  valcontents = XSYMBOL (symbol)->value;

  if (BUFFER_LOCAL_VALUEP (valcontents)

  CHECK_NUMBER (idx, 1);
  idxval = XINT (idx);
  if (STRINGP (array))
    {
      Lisp_Object val;
      int c, idxval_byte;

      if (idxval < 0 || idxval >= XSTRING (array)->size)
	args_out_of_range (array, idx);
      if (! STRING_MULTIBYTE (array))

	val &= ~(1 << (idxval % BITS_PER_CHAR));
      XBOOL_VECTOR (array)->data[idxval / BITS_PER_CHAR] = val;
    }
  else if (CHAR_TABLE_P (array))
    {
      Lisp_Object val;

      if (idxval < 0)
	args_out_of_range (array, idx);
      if (idxval < CHAR_TABLE_ORDINARY_SLOTS)
	XCHAR_TABLE (array)->contents[idxval] = newelt;
      else

	  XCHAR_TABLE (array)->contents[code[i]] = newelt;
	}
    }
  else if (STRING_MULTIBYTE (array))
    {
      int c, idxval_byte, new_len, actual_len;
      int prev_byte;
      unsigned char *p, workbuf[4], *str;

      if (idxval < 0 || idxval >= XSTRING (array)->size)
	args_out_of_range (array, idx);

#endif /* LISP_FLOAT_TYPE */

  if (sizeof (int) == sizeof (EMACS_INT))
    sprintf (buffer, "%d", XINT (number));
  else if (sizeof (long) == sizeof (EMACS_INT))
    sprintf (buffer, "%ld", XINT (number));
  else
    abort ();
  return build_string (buffer);
}

If the base used is not 10, floating point is not recognized.")
   (string, base)
     register Lisp_Object string, base;
{
  register unsigned char *p;
  register int b, digit, v = 0;
  int negative = 1;

  CHECK_STRING (string, 0);

  if (NILP (base))

25780:18cf58ed9400

#include <signal.h>

#include <config.h>
#include <stdio.h>
#include "lisp.h"
#include "puresize.h"
#include "charset.h"

#ifndef standalone

Lisp_Object
find_symbol_value (symbol)
     Lisp_Object symbol;
{
  register Lisp_Object valcontents;
  register Lisp_Object val;
  CHECK_SYMBOL (symbol, 0);
  valcontents = XSYMBOL (symbol)->value;

  if (BUFFER_LOCAL_VALUEP (valcontents)

  CHECK_NUMBER (idx, 1);
  idxval = XINT (idx);
  if (STRINGP (array))
    {
      int c, idxval_byte;

      if (idxval < 0 || idxval >= XSTRING (array)->size)
	args_out_of_range (array, idx);
      if (! STRING_MULTIBYTE (array))

	val &= ~(1 << (idxval % BITS_PER_CHAR));
      XBOOL_VECTOR (array)->data[idxval / BITS_PER_CHAR] = val;
    }
  else if (CHAR_TABLE_P (array))
    {
      if (idxval < 0)
	args_out_of_range (array, idx);
      if (idxval < CHAR_TABLE_ORDINARY_SLOTS)
	XCHAR_TABLE (array)->contents[idxval] = newelt;
      else

	  XCHAR_TABLE (array)->contents[code[i]] = newelt;
	}
    }
  else if (STRING_MULTIBYTE (array))
    {
      int idxval_byte, new_len, actual_len;
      int prev_byte;
      unsigned char *p, workbuf[4], *str;

      if (idxval < 0 || idxval >= XSTRING (array)->size)
	args_out_of_range (array, idx);

#endif /* LISP_FLOAT_TYPE */

  if (sizeof (int) == sizeof (EMACS_INT))
    sprintf (buffer, "%d", XINT (number));
  else if (sizeof (long) == sizeof (EMACS_INT))
    sprintf (buffer, "%ld", (long) XINT (number));
  else
    abort ();
  return build_string (buffer);
}

If the base used is not 10, floating point is not recognized.")
   (string, base)
     register Lisp_Object string, base;
{
  register unsigned char *p;
  register int b, v = 0;
  int negative = 1;

  CHECK_STRING (string, 0);

  if (NILP (base))