diff options
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 3 |
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; |