2003-03-06 Martin M. Hunt <hunt@redhat.com>

	* generic/gdbtk-bp.c (gdb_get_tracepoint_info): Return CORE_ADDR.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 20c60b7..bad6af8 100644 (file)
--- 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 8509704..a40a219 100644 (file)
--- 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,