summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2011-04-07 02:56:45 (GMT)
committermig <mig>2011-04-07 02:56:45 (GMT)
commit8ffd9ec61e651bc933eb844c13a99927543bf8f4 (patch)
treeffa103642c357bf7f8c87c681d4cdb8cc74d5e1b /generic
parent37684dd968c4300c5b34816c65e2b9b551842fe6 (diff)
parente58b837d5c172dd8d798ca185b336055ca152600 (diff)
downloadtcl-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')
-rw-r--r--generic/tclExecute.c6
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;
}