diff options
| author | hobbs <hobbs> | 1999-12-08 03:49:51 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-12-08 03:49:51 (GMT) |
| commit | df65ef241df29b4804136dedaa143565339a45a1 (patch) | |
| tree | 5dccefdd87861f6b6c2083252462cb86cc51f139 /generic/tclUtil.c | |
| parent | eb4ef639449d572ffaa371a1b20834c8ae596fba (diff) | |
| download | tcl-df65ef241df29b4804136dedaa143565339a45a1.zip tcl-df65ef241df29b4804136dedaa143565339a45a1.tar.gz tcl-df65ef241df29b4804136dedaa143565339a45a1.tar.bz2 | |
* generic/tclDate.c:
* unix/Makefile.in: fixed make gendate to swap const with CONST
so it uses the Tcl defined CONST type [Bug: 3521]
* generic/tclIO.c: removed panic that could occur in FlushChannel
when a "blocking" channel would receive EAGAIN, instead treating
it the same as non-blocking. [Bug: 3773]
* generic/tclUtil.c: fixed Tcl_ScanCountedElement to not step
beyond the end of the counted string [Bug: 3336]
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index d4dc7b0..da38b97 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtil.c,v 1.15 1999/12/04 06:28:05 hobbs Exp $ + * RCS: @(#) $Id: tclUtil.c,v 1.16 1999/12/08 03:49:52 hobbs Exp $ */ #include "tclInt.h" @@ -581,7 +581,7 @@ Tcl_ScanCountedElement(string, length, flagPtr) if ((p == lastChar) || (*p == '{') || (*p == '"')) { flags |= USE_BRACES; } - for ( ; p != lastChar; p++) { + for ( ; p < lastChar; p++) { switch (*p) { case '{': nestingLevel++; |