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 | 21cf159ca75e16fe0d396af83f2c0342fa7c9913 (patch) | |
| tree | 94bbd9857b07248b664b2c8c0a719d84419e1176 /generic | |
| parent | c605707c6bdc1d617272e87d0d7cb15b11a5d41c (diff) | |
| download | tcl-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.
Diffstat (limited to 'generic')
| -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); } |