Attachment "219362.patch" to
ticket [219362ffff]
added by
msofer
2001-12-11 05:16:27.
? 219362.patch
? singleWord.patch4
? generic/tclCompile.c.NEW
? generic/tclExecute.c.NEW
? generic/tclCompExpr.c.NEW
? generic/tclExecute.c.ORIG
? generic/tclVar.c.ORIG
? generic/tclVar.test
? tests/trace.test.ORIG
? unix/autoMkindex.tcl
? unix/stpyerC7
Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.42
diff -u -r1.42 tclBasic.c
--- generic/tclBasic.c 2001/11/21 17:17:17 1.42
+++ generic/tclBasic.c 2001/12/10 22:11:28
@@ -3456,7 +3456,8 @@
code = TCL_ERROR;
} else {
iPtr->numLevels++;
- code = TclEvalObjvInternal(interp, objectsUsed, objv, p, bytesLeft, 0);
+ code = TclEvalObjvInternal(interp, objectsUsed, objv, p,
+ parse.commandStart + parse.commandSize - p, 0);
iPtr->numLevels--;
}
if (code != TCL_OK) {
