diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-20 14:17:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-20 14:17:05 (GMT) |
| commit | bbca4ec51b895e3d6c36425e3cc30fdcdb92af73 (patch) | |
| tree | 94bbd9857b07248b664b2c8c0a719d84419e1176 /generic/tclCompile.c | |
| parent | 099345d98c26c7c3b683fb4739fab70524532ed1 (diff) | |
| download | tcl-bbca4ec51b895e3d6c36425e3cc30fdcdb92af73.zip tcl-bbca4ec51b895e3d6c36425e3cc30fdcdb92af73.tar.gz tcl-bbca4ec51b895e3d6c36425e3cc30fdcdb92af73.tar.bz2 | |
TclCompileScript() should not overwrite envPtr->numSrcBytes.
The envPtr already has the right value stored in it.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 1 |
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); } |