From 4bfca1719697b39a7c84d652a5ccfa2c16058e3e Mon Sep 17 00:00:00 2001 From: Martin Hunt Date: Thu, 10 Oct 2002 23:55:36 +0000 Subject: [PATCH] 2002-10-10 Martin M. Hunt * generic/gdbtk-cmds.c (gdb_update_mem): No results were being returned. Append results to result_ptr_obj_ptr. --- gdb/gdbtk/ChangeLog | 5 +++++ gdb/gdbtk/generic/gdbtk-cmds.c | 9 +++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index b1e42b2241..ecb2d8dee0 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,10 @@ 2002-10-10 Martin M. Hunt + * 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 + * 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 10629af944..d8852615b4 100644 --- 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; -- 2.11.0