diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:34:11 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:34:11 (GMT) |
| commit | 33212a94d6d0cfef22ff3aced4795edba0932540 (patch) | |
| tree | 3d22b87eda29f9f003d56fc38945af2f73790410 /generic | |
| parent | 590e25c971a4f7a6663c82a6c901500c72012cea (diff) | |
| download | tcl-33212a94d6d0cfef22ff3aced4795edba0932540.zip tcl-33212a94d6d0cfef22ff3aced4795edba0932540.tar.gz tcl-33212a94d6d0cfef22ff3aced4795edba0932540.tar.bz2 | |
bug fix by match word token (FindWordEnd fixed);
repaired current locale switch
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclClockFmt.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclClockFmt.c b/generic/tclClockFmt.c index 5d3dcaf..a10d05d 100644 --- a/generic/tclClockFmt.c +++ b/generic/tclClockFmt.c @@ -609,12 +609,12 @@ FindWordEnd( return ++p; } /* multi-char word */ - while (*p++ == *x++) { - if (x >= tok->tokWord.end || p >= end) { + do + if (*p++ != *x++) { /* no match -> error */ return NULL; } - }; + while (x <= tok->tokWord.end && p < end); return p; } |