From 4c611f9323a516b95c3da19065e3f9040074de7e Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Thu, 14 Nov 2013 11:49:22 +0000 Subject: 31982: detection of floating point constants was problematic. Remove the cause and fix the original problem with floating point numbers with leading zeros (users/17445) a different way. --- ChangeLog | 6 ++++++ Src/math.c | 11 +++-------- Test/C01arith.ztst | 8 ++++++++ 3 files changed, 17 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 63eca13a0..c22054372 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2013-11-14 Peter Stephenson + + * 31982: Src/math.c, Test/C01arith.ztst: detection of floating + point constants had run rampant in users/17445. Fix the original + problem another way. + 2013-11-13 Peter Stephenson * 31977: Src/module.c: no error if autoloading a feature that diff --git a/Src/math.c b/Src/math.c index b21a3adee..42355f885 100644 --- a/Src/math.c +++ b/Src/math.c @@ -448,9 +448,7 @@ lexconstant(void) if (*nptr == '-') nptr++; - if (*nptr == '0' && - (memchr(nptr, '.', strlen(nptr)) == NULL)) - { + if (*nptr == '0') { nptr++; if (*nptr == 'x' || *nptr == 'X') { /* Let zstrtol parse number with base */ @@ -491,11 +489,8 @@ lexconstant(void) nptr = ptr2; } } - else - { - while (idigit(*nptr) || *nptr == '_') - nptr++; - } + while (idigit(*nptr) || *nptr == '_') + nptr++; if (*nptr == '.' || *nptr == 'e' || *nptr == 'E') { char *ptr2; diff --git a/Test/C01arith.ztst b/Test/C01arith.ztst index c19135ce6..7b005c2ab 100644 --- a/Test/C01arith.ztst +++ b/Test/C01arith.ztst @@ -258,3 +258,11 @@ >0.5 >3 >3. + + print $(( 0x30 + 0.5 )) + print $(( 077 + 0.5 )) + (setopt octalzeroes; print $(( 077 + 0.5 )) ) +0:Mixed float and non-decimal integer constants +>48.5 +>77.5 +>63.5 -- cgit 1.4.1