Attachment "tclCmdMZ.c.patch" to
ticket [558324ffff]
added by
watsonrick
2002-05-20 22:46:34.
*** generic/tclCmdMZ.c.orig Fri Oct 12 15:39:16 2001
--- generic/tclCmdMZ.c Fri May 17 16:41:12 2002
***************
*** 363,368 ****
--- 363,369 ----
}
} else {
Tcl_Obj *valuePtr;
+ /* 5/17/2002 rick: After this call the interp result has changed, so resultPtr is invalid */
valuePtr = Tcl_ObjSetVar2(interp, objv[i], NULL, newPtr, 0);
if (valuePtr == NULL) {
Tcl_DecrRefCount(newPtr);
***************
*** 403,408 ****
--- 404,411 ----
*/
if (!doinline) {
+ /* 5/17/2002 rick: use a valid resultPtr */
+ resultPtr = Tcl_GetObjResult(interp);
Tcl_SetIntObj(resultPtr, (all ? all-1 : 1));
}
return TCL_OK;