From 8e5062c0f476becd753bad5774c807697fb30931 Mon Sep 17 00:00:00 2001 From: Martin Hunt Date: Thu, 6 Mar 2003 21:45:39 +0000 Subject: 2003-03-06 Martin M. Hunt * generic/gdbtk-bp.c (gdb_get_tracepoint_info): Return CORE_ADDR. --- gdb/gdbtk/ChangeLog | 4 ++++ gdb/gdbtk/generic/gdbtk-bp.c | 9 ++------- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 20c60b7b112..bad6af88a3e 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,5 +1,9 @@ 2003-03-06 Martin M. Hunt + * generic/gdbtk-bp.c (gdb_get_tracepoint_info): Return CORE_ADDR. + +2003-03-06 Martin M. Hunt + * generic/gdbtk-cmds.c (gdb_disassemble): Deleted. (sprintf_append_element_to_obj): Deleted. diff --git a/gdb/gdbtk/generic/gdbtk-bp.c b/gdb/gdbtk/generic/gdbtk-bp.c index 8509704bbbf..a40a21997c3 100644 --- a/gdb/gdbtk/generic/gdbtk-bp.c +++ b/gdb/gdbtk/generic/gdbtk-bp.c @@ -835,13 +835,8 @@ gdb_get_tracepoint_info (ClientData clientData, Tcl_Interp *interp, Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewIntObj (sal.line)); - { - char *tmp; - xasprintf (&tmp, "0x%s", paddr_nz (tp->address)); - Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, - Tcl_NewStringObj (tmp, -1)); - free (tmp); - } + Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, + Tcl_NewStringObj (core_addr_to_string (tp->address), -1)); Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewIntObj (tp->enabled_p)); Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, -- cgit v1.2.1