diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-12 13:46:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-12 13:46:14 (GMT) |
| commit | 915c9e49675d816fa2018e7b3b35903264bfffb4 (patch) | |
| tree | b3610140816d0eebd159e992178ec00f153d4365 /generic/tclStrToD.c | |
| parent | 3c8ecbaacd225de1d9b971de37d2bbfd2f4f3bfe (diff) | |
| download | tcl-915c9e49675d816fa2018e7b3b35903264bfffb4.zip tcl-915c9e49675d816fa2018e7b3b35903264bfffb4.tar.gz tcl-915c9e49675d816fa2018e7b3b35903264bfffb4.tar.bz2 | |
[be003d570f] TclParseNumber() failed to fully implement TCL_PARSE_BINARY_ONLY.
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index dc85124..6da6df3 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -630,7 +630,7 @@ TclParseNumber( acceptPoint = p; acceptLen = len; if (c == 'x' || c == 'X') { - if (flags & TCL_PARSE_OCTAL_ONLY) { + if (flags & (TCL_PARSE_OCTAL_ONLY|TCL_PARSE_BINARY_ONLY)) { goto endgame; } state = ZERO_X; |