mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 22:01:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

When parsing a floating point number at least one digit should be present. ECL parsed +.e0 as +0.0e0, instead of as a symbol.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-31 15:51:09 +02:00
parent cc2b0901f9
commit fb2afabbd5
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -15,6 +15,9 @@ ECL 11.7.1:
- Fixed externalization of bytecodes with literals that need MAKE-LOAD-FORM.
- When parsing a floating point number at least one digit should be
present. ECL parsed +.e0 as +0.0e0, instead of as a symbol.
* Visible changes:
- When printing error messages, the condition type is shown (M. Mondor)

5
src/c/reader/parse_number.d
View file

@ -120,6 +120,7 @@ ecl_parse_number(cl_object str, cl_index start, cl_index end,
int sign = -1, d;
cl_index c, i, decimal = end;
cl_object num = _ecl_big_register0();
bool some_digit = 0;
if (end <= start || radix > 36) {
*ep = start;
return OBJNULL;
@ -172,8 +173,11 @@ ecl_parse_number(cl_object str, cl_index start, cl_index end,
} else if ((d = ecl_digitp(c, radix)) >= 0) {
_ecl_big_mul_ui(num, num, radix);
_ecl_big_add_ui(num, num, d);
some_digit = 1;
} else if (exponent_charp(c)) {
cl_object exp, decimals;
if (!some_digit)
goto NOT_A_NUMBER;
if (radix != 10) {
radix = 10;
goto AGAIN;
@ -211,6 +215,7 @@ ecl_parse_number(cl_object str, cl_index start, cl_index end,
* 1., 2, 13., etc) we return an integer */
*ep = i;
if (decimal < i) {
if (!some_digit) goto NOT_A_NUMBER;
return make_float(_ecl_big_register_normalize(num),
MAKE_FIXNUM(decimal - i), 'e', sign);
} else {