diff options
| -rw-r--r-- | generic/tclExecute.c | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 953c63e..b7c576a 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1652,14 +1652,16 @@ TclCompileObj( } } - if (codePtr->procPtr == NULL) { - /* - * Check that any compiled locals do refer to the current proc - * environment! If not, recompile. - */ + if (!(codePtr->flags & TCL_BYTECODE_PRECOMPILED)) { + if (codePtr->procPtr == NULL) { + /* + * Check that any compiled locals do refer to the current proc + * environment! If not, recompile. + */ - if (codePtr->localCachePtr != iPtr->varFramePtr->localCachePtr) { - goto recompileObj; + if (codePtr->localCachePtr != iPtr->varFramePtr->localCachePtr) { + goto recompileObj; + } } } |