summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-06-20 14:17:05 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-06-20 14:17:05 (GMT)
commit21cf159ca75e16fe0d396af83f2c0342fa7c9913 (patch)
tree94bbd9857b07248b664b2c8c0a719d84419e1176
parentc605707c6bdc1d617272e87d0d7cb15b11a5d41c (diff)
downloadtcl-21cf159ca75e16fe0d396af83f2c0342fa7c9913.zip
tcl-21cf159ca75e16fe0d396af83f2c0342fa7c9913.tar.gz
tcl-21cf159ca75e16fe0d396af83f2c0342fa7c9913.tar.bz2
TclCompileScript() should not overwrite envPtr->numSrcBytes.
The envPtr already has the right value stored in it.
-rw-r--r--generic/tclCompile.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index cba659d..f982359 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -1631,7 +1631,6 @@ TclCompileScript(
TclEmitPush(TclAddLiteralObj(envPtr, Tcl_NewObj(), NULL), envPtr);
}
- envPtr->numSrcBytes = (p - script);
TclStackFree(interp, parsePtr);
Tcl_DStringFree(&ds);
}