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 | |
| 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.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclExecute.c | 6 |
2 files changed, 9 insertions, 2 deletions
@@ -1,8 +1,11 @@ 2011-04-06 Miguel Sofer <msofer@users.sf.net> + * generic/tclExecute.c (TclCompileObj): earlier return if Tip280 + gymnastics not needed. + * generic/tclExecute.c: fix for [Bug 3274728], making *catchTop an unsigned long. - + 2011-04-06 Jan Nijtmans <nijtmans@users.sf.net> * unix/tclAppInit.c: Make symbols "main" and "Tcl_AppInit" 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; } |