Tcl Source Code

Artifact bd5c0c3e6a61a3ef0620b71766364486260103f5:

Attachment "760947-HEAD.patch" to ticket [760947ffff] added by dgp 2003-10-09 06:11:18.

---

Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.90
diff -u -r1.90 tclBasic.c
--- generic/tclBasic.c	3 Oct 2003 20:42:06 -0000	1.90
+++ generic/tclBasic.c	8 Oct 2003 23:10:03 -0000
@@ -3151,6 +3151,10 @@
      * Call 'leave' command traces
      */
     if (!(cmdPtr->flags & CMD_IS_DELETED)) {
+	int saveErrFlags = iPtr->flags
+		& (ERR_IN_PROGRESS | ERR_ALREADY_LOGGED | ERROR_CODE_SET);
+	Tcl_Obj *saveOptions = iPtr->returnOpts;
+	Tcl_IncrRefCount(saveOptions);
         if ((cmdPtr->flags & CMD_HAS_EXEC_TRACES) && (traceCode == TCL_OK)) {
             traceCode = TclCheckExecutionTraces (interp, command, length,
                    cmdPtr, code, TCL_TRACE_LEAVE_EXEC, objc, objv);
@@ -3159,6 +3163,13 @@
             traceCode = TclCheckInterpTraces(interp, command, length,
                    cmdPtr, code, TCL_TRACE_LEAVE_EXEC, objc, objv);
         }
+	if (traceCode == TCL_OK) {
+	    Tcl_DecrRefCount(iPtr->returnOpts);
+	    iPtr->returnOpts = saveOptions;
+	    Tcl_IncrRefCount(iPtr->returnOpts);
+	    iPtr->flags |= saveErrFlags;
+	}
+	Tcl_DecrRefCount(saveOptions);
     }
     TclCleanupCommand(cmdPtr);