diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-20 14:20:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-20 14:20:59 (GMT) |
| commit | bd74c3a8549b56bbbf082f0d92034cdd58c43eb8 (patch) | |
| tree | 938d1dbbf4551d627fea12f18bf9f212332fcf43 | |
| parent | 5539977620b9c358a365280e4d0db6a816537b71 (diff) | |
| parent | 21cf159ca75e16fe0d396af83f2c0342fa7c9913 (diff) | |
| download | tcl-bd74c3a8549b56bbbf082f0d92034cdd58c43eb8.zip tcl-bd74c3a8549b56bbbf082f0d92034cdd58c43eb8.tar.gz tcl-bd74c3a8549b56bbbf082f0d92034cdd58c43eb8.tar.bz2 | |
TclCompileScript() should not overwrite envPtr->numSrcBytes.
The envPtr already has the right value stored in it.
| -rw-r--r-- | generic/tclCompile.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 92875a2..8cb53f5 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2192,8 +2192,6 @@ TclCompileScript( if (envPtr->codeNext == entryCodeNext) { PushStringLiteral(envPtr, ""); } - - envPtr->numSrcBytes = p - script; } /* |