diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-15 11:01:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-15 11:01:58 (GMT) |
| commit | 8972f613ebb784402a6b52363af36ea6b77ccfd1 (patch) | |
| tree | 8ecc6179cce54380e418a76fb147f332a929b2ad | |
| parent | b7a1ba3ba40ba71b65cefedc057bbccf0323f4a5 (diff) | |
| parent | f7860f65a494888a46e377831ba0419de5f364d9 (diff) | |
| download | tcl-8972f613ebb784402a6b52363af36ea6b77ccfd1.zip tcl-8972f613ebb784402a6b52363af36ea6b77ccfd1.tar.gz tcl-8972f613ebb784402a6b52363af36ea6b77ccfd1.tar.bz2 | |
Merge core-8-6-branch.
Fix gcc warning: tclStrToD.c:1180:2: warning: enumeration value ‘ZERO_D’ not handled in switch [-Wswitch]
switch (acceptState) {
| -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 && |