From 3e033b354b6208eb4e0c1e0acd9fbb3e52bcd579 Mon Sep 17 00:00:00 2001 From: dgp Date: Wed, 30 Jul 2008 20:59:08 +0000 Subject: * generic/tclBasic.c: Corrected the timing of when the flag TCL_ALLOW_EXCEPTIONS is tested. --- ChangeLog | 5 +++++ generic/tclBasic.c | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index b369a57..47a9487 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-07-30 Don Porter + + * generic/tclBasic.c: Corrected the timing of when the flag + TCL_ALLOW_EXCEPTIONS is tested. + 2008-07-29 Miguel Sofer * generic/tclExecute.c: fix [Bug 2030670] that cause diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 0c0fbda..fcdd41d 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.295.2.7 2008/07/28 20:45:15 andreas_kupries Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.295.2.8 2008/07/30 20:59:16 dgp Exp $ */ #include "tclInt.h" @@ -3880,6 +3880,7 @@ Tcl_EvalObjv( { Interp *iPtr = (Interp *) interp; int code = TCL_OK; + int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS); iPtr->numLevels++; code = TclEvalObjvInternal(interp, objc, objv, NULL, 0, flags); @@ -3888,7 +3889,6 @@ Tcl_EvalObjv( if (code == TCL_OK) { return code; } else { - int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS); /* * If we are again at the top level, process any unusual return code @@ -4921,7 +4921,6 @@ TclEvalObjEx( int result; CallFrame *savedVarFramePtr;/* Saves old copy of iPtr->varFramePtr in case * TCL_EVAL_GLOBAL was set. */ - int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS); Tcl_IncrRefCount(objPtr); @@ -5086,6 +5085,7 @@ TclEvalObjEx( * TIP #280 The invoker provides us with the context for the script. * We transfer this to the byte code compiler. */ + int allowExceptions = (iPtr->evalFlags & TCL_ALLOW_EXCEPTIONS); savedVarFramePtr = iPtr->varFramePtr; if (flags & TCL_EVAL_GLOBAL) { -- cgit v0.12