summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2003-05-09 13:42:38 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2003-05-09 13:42:38 (GMT)
commitbf03b26a12344067b24baca9bc4617566c721b13 (patch)
tree5cffdf6d9686de27cf87a1144ab442a5833d2216 /generic/tclCompile.c
parentd51857ebee06efd6c8b787e97a2cc344cd5f74b1 (diff)
downloadtcl-bf03b26a12344067b24baca9bc4617566c721b13.zip
tcl-bf03b26a12344067b24baca9bc4617566c721b13.tar.gz
tcl-bf03b26a12344067b24baca9bc4617566c721b13.tar.bz2
fix for [Bug 735055]
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index b492e3b..c781814 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCompile.c,v 1.47 2003/04/18 21:54:51 dgp Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.48 2003/05/09 13:42:39 msofer Exp $
*/
#include "tclInt.h"
@@ -930,6 +930,7 @@ TclCompileScript(interp, script, numBytes, envPtr)
&& !(cmdPtr->flags & CMD_HAS_EXEC_TRACES)
&& !(iPtr->flags & DONT_COMPILE_CMDS_INLINE)) {
int savedNumCmds = envPtr->numCommands;
+ int savedCodeNext = envPtr->codeNext;
code = (*(cmdPtr->compileProc))(interp, &parse,
envPtr);
@@ -942,6 +943,7 @@ TclCompileScript(interp, script, numBytes, envPtr)
* [Bug 705406]
*/
envPtr->numCommands = savedNumCmds;
+ envPtr->codeNext = savedCodeNext;
} else { /* an error */
/*
* There was a compilation error, the last