[patch] fix memory window sizing

[patch] fix memory window sizing

[Martin M. Hunt]

[-- Attachment #1: Type: text/plain, Size: 303 bytes --]

Memory window was not resizing correctly because gdb_update_mem()
was not returning column sizes.

-- 
Martin Hunt
GDB Engineer
Red Hat, Inc.

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.

[-- Attachment #2: p --]
[-- Type: text/x-diff, Size: 1118 bytes --]

Index: generic/gdbtk-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-cmds.c,v
retrieving revision 1.57
diff -u -p -r1.57 gdbtk-cmds.c
--- generic/gdbtk-cmds.c	16 May 2002 01:08:51 -0000	1.57
+++ generic/gdbtk-cmds.c	10 Oct 2002 23:55:06 -0000
@@ -2703,12 +2703,9 @@ gdb_update_mem (ClientData clientData, T
     }
 
   /* 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;