diff options
author | dgp <dgp@users.sourceforge.net> | 2008-07-30 20:59:08 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2008-07-30 20:59:08 (GMT) |
commit | 3e033b354b6208eb4e0c1e0acd9fbb3e52bcd579 (patch) | |
tree | da78b992e26a3937c8682cd17c2c3af2d3bc3278 /generic | |
parent | bd8f54a3a1f6e7c92b5e1709040f191d8e9a59a9 (diff) | |
download | tcl-3e033b354b6208eb4e0c1e0acd9fbb3e52bcd579.zip tcl-3e033b354b6208eb4e0c1e0acd9fbb3e52bcd579.tar.gz tcl-3e033b354b6208eb4e0c1e0acd9fbb3e52bcd579.tar.bz2 |
* generic/tclBasic.c: Corrected the timing of when the flag
TCL_ALLOW_EXCEPTIONS is tested.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
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) { |