diff options
| -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; } |