summaryrefslogtreecommitdiffstats
path: root/generic/tclStrToD.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-06-15 11:01:58 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-06-15 11:01:58 (GMT)
commit56ea73145f32c4c4fe42c54904eea805388b9ee8 (patch)
tree8ecc6179cce54380e418a76fb147f332a929b2ad /generic/tclStrToD.c
parente8d9fe8ebebaf0e0c0d6c1a22a3a498da2347771 (diff)
parent0f0ca3d9323a2e8dd54a6a0e11a0f9fc5467cfd8 (diff)
downloadtcl-56ea73145f32c4c4fe42c54904eea805388b9ee8.zip
tcl-56ea73145f32c4c4fe42c54904eea805388b9ee8.tar.gz
tcl-56ea73145f32c4c4fe42c54904eea805388b9ee8.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) {
Diffstat (limited to 'generic/tclStrToD.c')
-rw-r--r--generic/tclStrToD.c3
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 &&