summaryrefslogtreecommitdiffstats
path: root/generic/tclStrToD.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclStrToD.c')
-rwxr-xr-xgeneric/tclStrToD.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index a55ee83..f666e08 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -1101,7 +1101,10 @@ TclParseNumber(
d = 10 + c - 'a';
} else if (c >= 'A' && c <= 'F') {
d = 10 + c - 'A';
+ } else {
+ goto endgame;
}
+ numSigDigs++;
significandWide = (significandWide << 4) + d;
state = sNANHEX;
break;