diff options
author | Keith Seitz <keiths@cygnus> | 1998-03-30 05:18:29 +0000 |
---|---|---|
committer | Keith Seitz <keiths@cygnus> | 1998-03-30 05:18:29 +0000 |
commit | c62a71b6251283f835be17928e7e7e79c6167eaa (patch) | |
tree | 9d3beafd6aebbc885ab97e58307f65a67aa00f44 /gdb/gdbtk.c | |
parent | 57a3982409fd9cd6c98a5c62a928853016017a1f (diff) | |
download | gdb-c62a71b6251283f835be17928e7e7e79c6167eaa.zip gdb-c62a71b6251283f835be17928e7e7e79c6167eaa.tar.gz gdb-c62a71b6251283f835be17928e7e7e79c6167eaa.tar.bz2 |
* gdbtk.c (gdb_get_tracepoint_info): Change formatting of address.
(tracepoint_exists): Remove code which confuses assembly traces.
Diffstat (limited to 'gdb/gdbtk.c')
-rw-r--r-- | gdb/gdbtk.c | 6 |
1 files changed, 4 insertions, 2 deletions
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 } } } |