diff options
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index e11527f..ab50256 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1688,6 +1688,10 @@ TclCompileObj( * information. */ + if (!invoker) { + return codePtr; + } + { Tcl_HashEntry *hePtr = Tcl_FindHashEntry(iPtr->lineBCPtr, codePtr); @@ -1695,7 +1699,7 @@ TclCompileObj( CmdFrame *ctxPtr; int redo; - if (!hePtr || !invoker) { + if (!hePtr) { return codePtr; } |