diff options
| -rw-r--r-- | gdb/ChangeLog-gdbtk | 5 | ||||
| -rw-r--r-- | gdb/gdbtk.c | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk index 0bb53f2..0a0254f 100644 --- a/gdb/ChangeLog-gdbtk +++ b/gdb/ChangeLog-gdbtk @@ -1,3 +1,8 @@ +Sun Mar 29 21:19:46 1998 Keith Seitz <keiths@onions.cygnus.com> + + * gdbtk.c (gdb_get_tracepoint_info): Change formatting of address. + (tracepoint_exists): Remove code which confuses assembly traces. + Sat Mar 28 12:13:23 1998 Keith Seitz <keiths@onions.cygnus.com> * gdbtk.c (gdb_cmd): If argc > 2, assume that the busy and idle hooks diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index 3309154..5737fbd 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -2704,7 +2704,7 @@ gdb_get_tracepoint_info (clientData, interp, objc, objv) find_pc_partial_function (tp->address, &funcname, NULL, NULL); Tcl_ListObjAppendElement (interp, list, Tcl_NewStringObj (funcname, -1)); Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (sal.line)); - sprintf (tmp, "0x%08x", tp->address); + sprintf (tmp, "0x%lx", tp->address); Tcl_ListObjAppendElement (interp, list, Tcl_NewStringObj (tmp, -1)); Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->enabled)); Tcl_ListObjAppendElement (interp, list, Tcl_NewIntObj (tp->pass_count)); @@ -2865,11 +2865,13 @@ tracepoint_exists (char * args) { if (tp->address == sals.sals[0].pc) result = tp->number; +#if 0 + /* Why is this here? This messes up assembly traces */ else if (tp->source_file != NULL && strcmp (tp->source_file, file) == 0 && sals.sals[0].line == tp->line_number) - result = tp->number; +#endif } } } |