diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-12 13:31:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-12 13:31:07 (GMT) |
| commit | 29fdaa6dcd98bd9740a37b6555b0fa7ac20ab45e (patch) | |
| tree | 4e8cab765b335af6a0fd1cd13fb3c89dfe2a0215 /generic | |
| parent | c482675d8403f441c50101cdd590df8ca6472ef5 (diff) | |
| download | tcl-29fdaa6dcd98bd9740a37b6555b0fa7ac20ab45e.zip tcl-29fdaa6dcd98bd9740a37b6555b0fa7ac20ab45e.tar.gz tcl-29fdaa6dcd98bd9740a37b6555b0fa7ac20ab45e.tar.bz2 | |
[be003d570f] TclParseNumber() failed to fully implement TCL_PARSE_OCTAL_ONLY.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStrToD.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index d05fe5d..b89ce45 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -589,6 +589,9 @@ TclParseNumber( acceptPoint = p; acceptLen = len; if (c == 'x' || c == 'X') { + if (flags & TCL_PARSE_OCTAL_ONLY) { + goto endgame; + } state = ZERO_X; break; } @@ -599,6 +602,9 @@ TclParseNumber( goto zeroo; } if (c == 'b' || c == 'B') { + if (flags & TCL_PARSE_OCTAL_ONLY) { + goto endgame; + } state = ZERO_B; break; } |