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.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index b1e42b2..ecb2d8d 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,10 @@
 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

diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index 10629af..d885261 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-cmds.c
+++ b/gdb/gdbtk/generic/gdbtk-cmds.c
@@ -2703,12 +2703,9 @@ gdb_update_mem (ClientData clientData, Tcl_Interp *interp,
     }
 
   /* 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;