diff options
| author | mig <mig> | 2011-04-07 02:56:45 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-04-07 02:56:45 (GMT) |
| commit | 8ffd9ec61e651bc933eb844c13a99927543bf8f4 (patch) | |
| tree | ffa103642c357bf7f8c87c681d4cdb8cc74d5e1b /generic/tclExecute.c | |
| parent | 37684dd968c4300c5b34816c65e2b9b551842fe6 (diff) | |
| parent | e58b837d5c172dd8d798ca185b336055ca152600 (diff) | |
| download | tcl-8ffd9ec61e651bc933eb844c13a99927543bf8f4.zip tcl-8ffd9ec61e651bc933eb844c13a99927543bf8f4.tar.gz tcl-8ffd9ec61e651bc933eb844c13a99927543bf8f4.tar.bz2 | |
* generic/tclExecute.c (TclCompileObj): earlier return if Tip280 gymnastics not needed.
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; } |