diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-15 15:18:00 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-15 15:18:00 (GMT) |
| commit | 6a8e707f9e6b7d108220a53ab44030604a690801 (patch) | |
| tree | ca8b7ad481e6eec850ec921ca280d3e5a1a1cf52 /generic | |
| parent | 3c57bdf2836715776785db896771e09c365b0b10 (diff) | |
| download | tcl-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?
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompile.c | 4 |
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 |