diff options
| author | Martin Hunt <hunt@redhat.com> | 2003-03-06 21:45:39 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 2003-03-06 21:45:39 +0000 |
| commit | 8e5062c0f476becd753bad5774c807697fb30931 (patch) | |
| tree | c8c3deac87c599a08b6ab9a470978bc4345bef01 | |
| parent | b131eab20172ffad254889f1ae98194b6cf51246 (diff) | |
| download | gdb-8e5062c0f476becd753bad5774c807697fb30931.tar.gz | |
2003-03-06 Martin M. Hunt <hunt@redhat.com>
* generic/gdbtk-bp.c (gdb_get_tracepoint_info): Return CORE_ADDR.
| -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, |