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 | bd297e53d9c852c7011018a23ac73ecd1ab0a76a (patch) | |
| tree | 4e8cab765b335af6a0fd1cd13fb3c89dfe2a0215 /generic/tclStrToD.c | |
| parent | 2b3a9ba90da9d322fea0de66b8c59427a69b4ec2 (diff) | |
| download | tcl-bd297e53d9c852c7011018a23ac73ecd1ab0a76a.zip tcl-bd297e53d9c852c7011018a23ac73ecd1ab0a76a.tar.gz tcl-bd297e53d9c852c7011018a23ac73ecd1ab0a76a.tar.bz2 | |
[be003d570f] TclParseNumber() failed to fully implement TCL_PARSE_OCTAL_ONLY.
Diffstat (limited to 'generic/tclStrToD.c')
| -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; } |