diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-09 17:30:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-09 17:30:06 (GMT) |
| commit | e2b3b1edf02e0c1ab06cfe784d6a7bd76e8050d8 (patch) | |
| tree | 18f2f6548b58be30c2a8ec13c42375ddb5802e94 /generic/tclStrToD.c | |
| parent | 77dbe8dc087788e733edf13dedd31202b18fded4 (diff) | |
| download | tcl-e2b3b1edf02e0c1ab06cfe784d6a7bd76e8050d8.zip tcl-e2b3b1edf02e0c1ab06cfe784d6a7bd76e8050d8.tar.gz tcl-e2b3b1edf02e0c1ab06cfe784d6a7bd76e8050d8.tar.bz2 | |
Guarantee TclNeedSpace and TclFindElement have common definition of whitespace
by having both call the same routine. Create a macro form to contain
performance costs and adapt callers.
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 4359829..3776521 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -533,7 +533,7 @@ TclParseNumber( * I, N, and whitespace. */ - if (TclIsSpaceProc(c)) { + if (TclIsSpaceProcM(c)) { if (flags & TCL_PARSE_NO_WHITESPACE) { goto endgame; } @@ -1053,7 +1053,7 @@ TclParseNumber( } /* FALLTHROUGH */ case sNANPAREN: - if (TclIsSpaceProc(c)) { + if (TclIsSpaceProcM(c)) { break; } if (numSigDigs < 13) { @@ -1107,7 +1107,7 @@ TclParseNumber( * Accept trailing whitespace. */ - while (len != 0 && TclIsSpaceProc(*p)) { + while (len != 0 && TclIsSpaceProcM(*p)) { p++; len--; } |