diff options
| author | mig <mig> | 2011-04-07 02:56:45 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-04-07 02:56:45 (GMT) |
| commit | e4d579ead5a212d6f43b5abd8fc285b1dbf8e47f (patch) | |
| tree | ffa103642c357bf7f8c87c681d4cdb8cc74d5e1b /generic/tclExecute.c | |
| parent | b7ca96bc2ecf6f4c0e3c38001fe0db17a3140f12 (diff) | |
| parent | 90d50b2605d13eae9f1f66f01f746f696ee6d206 (diff) | |
| download | tcl-e4d579ead5a212d6f43b5abd8fc285b1dbf8e47f.zip tcl-e4d579ead5a212d6f43b5abd8fc285b1dbf8e47f.tar.gz tcl-e4d579ead5a212d6f43b5abd8fc285b1dbf8e47f.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; } |