comparison src/data.c @ 23420:460aba3ec682

(Fstring_to_number): Don't recognize floating point if base is not 10.

23419:c251dd6b289e

This parses both integers and floating point numbers.\n\
It ignores leading spaces and tabs.\n\
\n\
If BASE, interpret STRING as a number in that base.  If BASE isn't\n\
present, base 10 is used.  BASE must be between 2 and 16 (inclusive).\n\
Floating point numbers always use base 10.")
   (string, base)
     register Lisp_Object string, base;
{
  register unsigned char *p;
  register int b, digit, v = 0;

    }
  else if (*p == '+')
    p++;
  
#ifdef LISP_FLOAT_TYPE
  if (isfloat_string (p))
    return make_float (negative * atof (p));
#endif /* LISP_FLOAT_TYPE */

  while (1)
    {

23420:460aba3ec682

This parses both integers and floating point numbers.\n\
It ignores leading spaces and tabs.\n\
\n\
If BASE, interpret STRING as a number in that base.  If BASE isn't\n\
present, base 10 is used.  BASE must be between 2 and 16 (inclusive).\n\
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;

    }
  else if (*p == '+')
    p++;
  
#ifdef LISP_FLOAT_TYPE
  if (isfloat_string (p) && b == 10)
    return make_float (negative * atof (p));
#endif /* LISP_FLOAT_TYPE */

  while (1)
    {