Tcl Source Code

Artifact 72b4762b5bdbd35979fe4f4bf794ce96c0071cdb:

Attachment "c-version-try.diff" to ticket [2865247fff] added by a_kovalenko 2009-09-24 03:34:00.

---

Index: generic/tclCmdMZ.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclCmdMZ.c,v
retrieving revision 1.193
diff -u -r1.193 tclCmdMZ.c
--- generic/tclCmdMZ.c	11 Sep 2009 20:13:27 -0000	1.193
+++ generic/tclCmdMZ.c	23 Sep 2009 20:15:48 -0000
@@ -4497,7 +4497,7 @@
      */
 
     if (options != NULL) {
-	result = TclProcessReturn(interp, result, 0, options);
+	result = Tcl_SetReturnOptions(interp, options);
 	Tcl_DecrRefCount(options);
     }
     if (resultObj != NULL) {
@@ -4565,7 +4565,7 @@
      * any temporary storage.
      */
 
-    result = TclProcessReturn(interp, result, 0, options);
+    result = Tcl_SetReturnOptions(interp, options);
     Tcl_DecrRefCount(options);
     Tcl_SetObjResult(interp, resultObj);
     Tcl_DecrRefCount(resultObj);
@@ -4623,7 +4623,7 @@
      * any temporary storage.
      */
 
-    result = TclProcessReturn(interp, result, 0, options);
+    result = Tcl_SetReturnOptions(interp, options);
     Tcl_DecrRefCount(options);
     if (resultObj != NULL) {
 	Tcl_SetObjResult(interp, resultObj);