mirrors/zsh
1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-01-01 05:16:05 +01:00
Code Releases Activity

31982: detection of floating point constants was problematic.

Browse source 
Remove the cause and fix the original problem with floating point
numbers with leading zeros (users/17445) a different way.
This commit is contained in:
Peter Stephenson 2013-11-14 11:49:22 +00:00
parent 7a94960957
commit 4c611f9323
3 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ChangeLog
View file

@ -1,3 +1,9 @@
2013-11-14 Peter Stephenson <p.stephenson@samsung.com>
* 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 <p.w.stephenson@ntlworld.com>
* 31977: Src/module.c: no error if autoloading a feature that

11
Src/math.c
View file

@ -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;

8
Test/C01arith.ztst
View file

@ -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