From 8e36ae7f46fddf057bde89a58d18749dc6d8cfbb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 12 Oct 1998 11:54:43 +0000 Subject: [PATCH] (Fstring_to_number): Don't recognize floating point if base is not 10. --- src/data.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/data.c b/src/data.c index 7f8f30ce088..f704c8fa049 100644 --- a/src/data.c +++ b/src/data.c @@ -2108,7 +2108,7 @@ 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.") +If the base used is not 10, floating point is not recognized.") (string, base) register Lisp_Object string, base; { @@ -2144,7 +2144,7 @@ Floating point numbers always use base 10.") p++; #ifdef LISP_FLOAT_TYPE - if (isfloat_string (p)) + if (isfloat_string (p) && b == 10) return make_float (negative * atof (p)); #endif /* LISP_FLOAT_TYPE */ -- 2.39.2