2002-10-10 Martin M. Hunt <hunt@redhat.com>
+ * generic/gdbtk-cmds.c (gdb_update_mem): No results
+ were being returned. Append results to result_ptr_obj_ptr.
+
+2002-10-10 Martin M. Hunt <hunt@redhat.com>
+
* library/session.tcl (save): Save target_cmd,
attach, load, run, and cont as session prefs.
(notice_file_change): Load in above session
}
/* return max_*_len so that column widths can be set */
- result = Tcl_NewListObj (0, NULL);
- Tcl_ListObjAppendElement (interp, result, Tcl_NewIntObj (max_label_len + 1));
- Tcl_ListObjAppendElement (interp, result, Tcl_NewIntObj (max_val_len + 1));
- Tcl_ListObjAppendElement (interp, result, Tcl_NewIntObj (max_ascii_len + 1));
- result_ptr->flags |= GDBTK_IN_TCL_RESULT;
-
+ Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewIntObj (max_label_len + 1));
+ Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewIntObj (max_val_len + 1));
+ Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewIntObj (max_ascii_len + 1));
do_cleanups (old_chain);
xfree (mbuf);
return TCL_OK;