diff options
author | hobbs <hobbs@noemail.net> | 1999-07-30 22:19:09 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 1999-07-30 22:19:09 (GMT) |
commit | 6158db1ef73664af2b9cf7e7c5d638c6bbb4340c (patch) | |
tree | ef5d0dba9c60829a6b26adf180ec8505877e79db /generic | |
parent | 2ee6246e4c108eba88483a7246cea94bda231514 (diff) | |
download | tcl-6158db1ef73664af2b9cf7e7c5d638c6bbb4340c.zip tcl-6158db1ef73664af2b9cf7e7c5d638c6bbb4340c.tar.gz tcl-6158db1ef73664af2b9cf7e7c5d638c6bbb4340c.tar.bz2 |
* tclParse.c: fixed bug in info complete regarding nested square
brackets [Bug: 2382, 2466]
FossilOrigin-Name: 02e78f811ba7b48eea97c809a1b3e40a53110d55
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclParse.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index df5412f..cef7d66 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParse.c,v 1.10 1999/07/23 23:40:29 redman Exp $ + * RCS: @(#) $Id: tclParse.c,v 1.11 1999/07/30 22:19:20 hobbs Exp $ */ #include "tclInt.h" @@ -260,6 +260,7 @@ Tcl_ParseCommand(interp, string, numBytes, nested, parsePtr) parsePtr->tokensAvailable = NUM_STATIC_TOKENS; parsePtr->string = string; parsePtr->end = string + numBytes; + parsePtr->term = parsePtr->end; parsePtr->interp = interp; parsePtr->incomplete = 0; parsePtr->errorType = TCL_PARSE_SUCCESS; @@ -372,6 +373,7 @@ Tcl_ParseCommand(interp, string, numBytes, nested, parsePtr) break; } if ((type & terminators) != 0) { + parsePtr->term = src; src++; break; } @@ -455,6 +457,7 @@ Tcl_ParseCommand(interp, string, numBytes, nested, parsePtr) } if ((type & terminators) != 0) { + parsePtr->term = src; src++; break; } @@ -607,7 +610,7 @@ ParseTokens(src, mask, parsePtr) if (nested.tokenPtr != nested.staticTokens) { ckfree((char *) nested.tokenPtr); } - if ((src[-1] == ']') && !nested.incomplete) { + if ((*nested.term == ']') && !nested.incomplete) { break; } if (src == parsePtr->end) { |