From 80db59e20576cbaf4b35a47776c68b139b26e2f6 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 7 Jul 2004 14:00:04 +0000
Subject:         * generic.tclCmdMZ.c (TclMergeReturnOptions):  Simplified
 logic and         removed potential memory leak.  [Bug 986257].

---
 ChangeLog          |  5 +++++
 generic/tclCmdMZ.c | 37 ++++++++++++++++++++++---------------
 2 files changed, 27 insertions(+), 15 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fb62bc5..37480f7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-07  Don Porter  <dgp@users.sourceforge.net>
+
+	* generic.tclCmdMZ.c (TclMergeReturnOptions):  Simplified logic and
+	removed potential memory leak.  [Bug 986257].
+
 2004-07-07  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* tools/man2help2.tcl (setTabs, IPmacro): Added support for the
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index eae5e28..f41bfaf 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -15,7 +15,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdMZ.c,v 1.103 2004/06/30 12:34:35 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.104 2004/07/07 14:00:05 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -988,7 +988,7 @@ TclMergeReturnOptions(interp, objc, objv, optionsPtrPtr, codePtr, levelPtr)
 		Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad ",
 			compare, " value: expected dictionary but got \"",
 			Tcl_GetString(objv[1]), "\"", (char *) NULL);
-		return TCL_ERROR;
+		goto error;
 	    }
 
 	    while (!done) {
@@ -1025,7 +1025,7 @@ TclMergeReturnOptions(interp, objc, objv, optionsPtrPtr, codePtr, levelPtr)
 		    Tcl_GetString(valuePtr),
 		    "\": must be ok, error, return, break, ",
 		    "continue, or an integer", (char *) NULL);
-	    return TCL_ERROR;
+	    goto error;
 	}
 	/* Have a legal string value for a return code; convert to integer */
 	Tcl_DictObjPut(NULL, returnOpts,
@@ -1040,7 +1040,7 @@ TclMergeReturnOptions(interp, objc, objv, optionsPtrPtr, codePtr, levelPtr)
 	Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
 		"bad -level value: expected non-negative integer but got \"",
 		Tcl_GetString(valuePtr), "\"", (char *) NULL);
-	return TCL_ERROR;
+	goto error;
     }
 
     /* 
@@ -1055,29 +1055,36 @@ TclMergeReturnOptions(interp, objc, objv, optionsPtrPtr, codePtr, levelPtr)
 		iPtr->returnCodeKey, Tcl_NewIntObj(TCL_OK));
     }
 
+    if (codePtr != NULL) {
+	*codePtr = code;
+    }
+    if (levelPtr != NULL) {
+	*levelPtr = level;
+    }
+    if (optionsPtrPtr == NULL) {
+	/* Not passing back the options (?!), so clean them up */
+	Tcl_DecrRefCount(returnOpts);
+	return TCL_OK;
+    }
+
     /*
      * Check if we just have the default options.  If so, use them.
      * A dictionary equality test would be more robust, but seems
      * tricky, to say the least.
      */
+
     Tcl_DictObjSize(NULL, returnOpts, &size);
     if (size == 2 && code == TCL_OK && level == 1) {
 	Tcl_DecrRefCount(returnOpts);
-	returnOpts = iPtr->defaultReturnOpts;
-    }
-    if (codePtr != NULL) {
-	*codePtr = code;
-    }
-    if (levelPtr != NULL) {
-	*levelPtr = level;
-    }
-    if ((optionsPtrPtr == NULL) && (returnOpts != iPtr->defaultReturnOpts)) {
-	/* not passing back the options (?!), so clean them up */
-	Tcl_DecrRefCount(returnOpts);
+	*optionsPtrPtr = iPtr->defaultReturnOpts;
     } else {
 	*optionsPtrPtr = returnOpts;
     }
     return TCL_OK;
+
+error:
+    Tcl_DecrRefCount(returnOpts);
+    return TCL_ERROR;
 }
 
 /*
-- 
cgit v0.12