summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-05-15 15:18:00 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-05-15 15:18:00 (GMT)
commit6a8e707f9e6b7d108220a53ab44030604a690801 (patch)
treeca8b7ad481e6eec850ec921ca280d3e5a1a1cf52
parent3c57bdf2836715776785db896771e09c365b0b10 (diff)
downloadtcl-6a8e707f9e6b7d108220a53ab44030604a690801.zip
tcl-6a8e707f9e6b7d108220a53ab44030604a690801.tar.gz
tcl-6a8e707f9e6b7d108220a53ab44030604a690801.tar.bz2
Disabled some code in TclCompileScript(). Test suite results are unaffected.
Does this indicate a gap in the test suite, or is this code truly useless?
-rw-r--r--generic/tclCompile.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 1d1a680..8891d3f 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -1855,7 +1855,7 @@ TclCompileScript(
* code. Init. to avoid compiler warning. */
unsigned char *entryCodeNext = envPtr->codeNext;
const char *p, *next;
- Namespace *cmdNsPtr;
+ Namespace *cmdNsPtr = NULL;
Command *cmdPtr;
Tcl_Token *tokenPtr;
int bytesLeft, isFirstCmd, wordIdx, currCmdIndex, commandLength, objIndex;
@@ -1874,11 +1874,13 @@ TclCompileScript(
Tcl_ResetResult(interp);
isFirstCmd = 1;
+#if 0
if (envPtr->procPtr != NULL) {
cmdNsPtr = envPtr->procPtr->cmdPtr->nsPtr;
} else {
cmdNsPtr = NULL; /* use current NS */
}
+#endif
/*
* Each iteration through the following loop compiles the next command