diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-14 10:17:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-14 10:17:31 (GMT) |
| commit | e59db7e00e94f016d7c222aea7603dbbc8eecb4e (patch) | |
| tree | 49eea3f1d82a1ac023889575a2e07d7643ad4b41 /generic/tclStrToD.c | |
| parent | 2f98c2ea4d9b29dc3a797522a457585ac5865388 (diff) | |
| parent | 920063dce71227734c3cd38eea46fd644ec37ded (diff) | |
| download | tcl-e59db7e00e94f016d7c222aea7603dbbc8eecb4e.zip tcl-e59db7e00e94f016d7c222aea7603dbbc8eecb4e.tar.gz tcl-e59db7e00e94f016d7c222aea7603dbbc8eecb4e.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index c4b9211..7ef2c60 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -576,7 +576,7 @@ TclParseNumber( * I, N, and whitespace. */ - if (TclIsSpaceProc(c)) { + if (TclIsSpaceProcM(c)) { if (flags & TCL_PARSE_NO_WHITESPACE) { goto endgame; } @@ -1134,7 +1134,7 @@ TclParseNumber( } /* FALLTHROUGH */ case sNANPAREN: - if (TclIsSpaceProc(c)) { + if (TclIsSpaceProcM(c)) { break; } if (numSigDigs < 13) { @@ -1188,7 +1188,7 @@ TclParseNumber( * Accept trailing whitespace. */ - while (len != 0 && TclIsSpaceProc(*p)) { + while (len != 0 && TclIsSpaceProcM(*p)) { p++; len--; } |