diff options
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 <hunt@redhat.com> + * generic/gdbtk-bp.c (gdb_get_tracepoint_info): Return CORE_ADDR. + +2003-03-06 Martin M. Hunt <hunt@redhat.com> + * 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, |