diff options
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index 4377832..5e49846 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -1183,6 +1183,7 @@ TclParseNumber( case ZERO_X: case ZERO_O: case ZERO_B: + case ZERO_D: case LEADING_RADIX_POINT: case EXPONENT_START: case EXPONENT_SIGNUM: @@ -1197,9 +1198,9 @@ TclParseNumber( case sNA: case sNANPAREN: case sNANHEX: +#endif Tcl_Panic("TclParseNumber: bad acceptState %d parsing '%s'", acceptState, bytes); -#endif case BINARY: shift = numTrailZeros; if (!significandOverflow && significandWide != 0 && |