diff options
author | dgp <dgp@users.sourceforge.net> | 2013-02-22 18:24:24 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-02-22 18:24:24 (GMT) |
commit | 6083020b04f6fb36eb0b9b125e5e60e113c3b5ea (patch) | |
tree | 935677d44f873076a302681e82099d884f265e9a | |
parent | b4dbbf2a3b98c8fedd75432b72eb6a47dec6b3b1 (diff) | |
download | tcl-6083020b04f6fb36eb0b9b125e5e60e113c3b5ea.zip tcl-6083020b04f6fb36eb0b9b125e5e60e113c3b5ea.tar.gz tcl-6083020b04f6fb36eb0b9b125e5e60e113c3b5ea.tar.bz2 |
Use iPtr field instead of source field to mark a CompileEnv as uninitialized.
envPtr->source == NULL can actually be valid (at least when merging forward).
-rw-r--r-- | generic/tclCompile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index d27c9b6..41ee45b 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -922,7 +922,7 @@ void TclFreeCompileEnv(envPtr) register CompileEnv *envPtr; /* Points to the CompileEnv structure. */ { - if (envPtr->source) { + if (envPtr->iPtr) { /* * We never converted to Bytecode, so free the things we would * have transferred to it. @@ -1089,7 +1089,7 @@ TclCompileScript(interp, script, numBytes, nested, envPtr) int* clNext; #endif - if (envPtr->source == NULL) { + if (envPtr->iPtr == NULL) { Tcl_Panic("TclCompileScript() called on uninitialized CompileEnv"); } @@ -1996,7 +1996,7 @@ TclInitByteCodeObj(objPtr, envPtr) #endif Interp *iPtr; - if (envPtr->source == NULL) { + if (envPtr->iPtr == NULL) { Tcl_Panic("TclInitByteCodeObj() called on uninitialized CompileEnv"); } @@ -2121,7 +2121,7 @@ TclInitByteCodeObj(objPtr, envPtr) #endif /* We've used up the CompileEnv. Mark as uninitialized. */ - envPtr->source = NULL; + envPtr->iPtr = NULL; } /* |