summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2004-05-04 02:44:23 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2004-05-04 02:44:23 (GMT)
commita74b516922cd7c45eee255a76d3347c78c9ff2b0 (patch)
tree84065ce15c60b6ff08a320c95b732097cc04b6a1 /generic/tclCompile.c
parente2d0d91fa792e2f97a832e3b025c543dfbddf697 (diff)
downloadtcl-a74b516922cd7c45eee255a76d3347c78c9ff2b0.zip
tcl-a74b516922cd7c45eee255a76d3347c78c9ff2b0.tar.gz
tcl-a74b516922cd7c45eee255a76d3347c78c9ff2b0.tar.bz2
slight improvement to last commit
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 52c3487..e75a5a4 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.63 2004/05/04 02:38:07 msofer Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.64 2004/05/04 02:44:23 msofer Exp $
*/
#include "tclInt.h"
@@ -919,6 +919,12 @@ TclCompileScript(interp, script, numBytes, envPtr)
Tcl_ResetResult(interp);
isFirstCmd = 1;
+ if (envPtr->procPtr != NULL) {
+ cmdNsPtr = envPtr->procPtr->cmdPtr->nsPtr;
+ } else {
+ cmdNsPtr = NULL; /* use current NS */
+ }
+
/*
* Each iteration through the following loop compiles the next
* command from the script.
@@ -1001,12 +1007,6 @@ TclCompileScript(interp, script, numBytes, envPtr)
EnterCmdStartData(envPtr, currCmdIndex,
(parse.commandStart - envPtr->source), startCodeOffset);
- if (envPtr->procPtr != NULL) {
- cmdNsPtr = envPtr->procPtr->cmdPtr->nsPtr;
- } else {
- cmdNsPtr = NULL; /* use current NS */
- }
-
/*
* Each iteration of the following loop compiles one word
* from the command.