From 6a8e707f9e6b7d108220a53ab44030604a690801 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 15 May 2013 15:18:00 +0000
Subject: 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?

---
 generic/tclCompile.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12