diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-06-20 14:17:05 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-06-20 14:17:05 (GMT) |
| commit | c8a7f1eef5f48bf4a994293a24c17133e6942990 (patch) | |
| tree | 94bbd9857b07248b664b2c8c0a719d84419e1176 | |
| parent | da5e363f7094a66ff7e492aac341233860048969 (diff) | |
| download | tcl-c8a7f1eef5f48bf4a994293a24c17133e6942990.zip tcl-c8a7f1eef5f48bf4a994293a24c17133e6942990.tar.gz tcl-c8a7f1eef5f48bf4a994293a24c17133e6942990.tar.bz2 | |
TclCompileScript() should not overwrite envPtr->numSrcBytes.
The envPtr already has the right value stored in it.
| -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); } |