diff options
| author | dgp@users.sourceforge.net <dgp> | 2004-03-08 16:34:22 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2004-03-08 16:34:22 (GMT) |
| commit | 9f6fb7bdda5bef5ccab06a5bd24ff3adb3ea2f8a (patch) | |
| tree | 8d273db47836b31f4418cc8bc53fe7e49cb9ce99 /generic/tclTest.c | |
| parent | f7279ac4323417204da72b6298132e88c9e5822d (diff) | |
| download | tcl-9f6fb7bdda5bef5ccab06a5bd24ff3adb3ea2f8a.zip tcl-9f6fb7bdda5bef5ccab06a5bd24ff3adb3ea2f8a.tar.gz tcl-9f6fb7bdda5bef5ccab06a5bd24ff3adb3ea2f8a.tar.bz2 | |
* generic/tclParse.c (TclParseInit): Modified TclParseInit so
* generic/tclTest.c ([testexprparser]): that Tcl_Parse initialization
conforms to documented promised about what fields will not be
modified by what Tcl_Parse* routines. [Bug 910595]
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index d29c132..b0380f6 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.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: tclTest.c,v 1.78 2004/03/05 16:36:56 kennykb Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.79 2004/03/08 16:34:23 dgp Exp $ */ #define TCL_TEST @@ -3067,6 +3067,10 @@ TestexprparserObjCmd(clientData, interp, objc, objv) if (length == 0) { length = dummy; } + parse.commentStart = NULL; + parse.commentSize = 0; + parse.commandStart = NULL; + parse.commandSize = 0; if (Tcl_ParseExpr(interp, script, length, &parse) != TCL_OK) { Tcl_AddErrorInfo(interp, "\n (remainder of expr: \""); Tcl_AddErrorInfo(interp, parse.term); |