diff options
| -rw-r--r-- | doc/dict.n | 2 | ||||
| -rw-r--r-- | generic/tclStrToD.c | 3 |
2 files changed, 3 insertions, 2 deletions
@@ -437,7 +437,7 @@ puts $foo # prints: \fIa b foo {a b} bar 2 baz 3\fR .CE .SH "SEE ALSO" -append(n), array(n), foreach(n), mapeach(n), incr(n), list(n), lappend(n), set(n) +append(n), array(n), foreach(n), incr(n), list(n), lappend(n), lmap(n), set(n) .SH KEYWORDS dictionary, create, update, lookup, iterate, filter, map '\" Local Variables: 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 && |