diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog-gdbtk | 5 | ||||
| -rw-r--r-- | gdb/gdbtk-cmds.c | 8 |
2 files changed, 11 insertions, 2 deletions
diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk index 84204ed9..b787332 100644 --- a/gdb/ChangeLog-gdbtk +++ b/gdb/ChangeLog-gdbtk @@ -1,3 +1,8 @@ +Wed Oct 28 16:19:02 1998 Martin M. Hunt <hunt@cygnus.com> + + * gdbtk-cmds.c (gdb_set_bp_addr): For callback, send full + pathname instead of just basename. + 1998-10-08 Keith Seitz <keiths@cygnus.com> * gdbtk-hooks.c (gdbtk_add_hooks): Install a hook for diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c index 00e69dd..53e027d 100644 --- a/gdb/gdbtk-cmds.c +++ b/gdb/gdbtk-cmds.c @@ -2884,7 +2884,7 @@ gdb_set_bp_addr (clientData, interp, objc, objv) int line, flags, ret, thread = -1; long addr; struct breakpoint *b; - char buf[64]; + char *filename, buf[64]; Tcl_DString cmd; if (objc != 4 && objc != 3) @@ -2937,7 +2937,11 @@ gdb_set_bp_addr (clientData, interp, objc, objv) Tcl_DStringAppendElement (&cmd, buf); sprintf (buf, "%d", b->line_number); Tcl_DStringAppendElement (&cmd, buf); - Tcl_DStringAppendElement (&cmd, b->source_file); + + filename = symtab_to_filename (sal.symtab); + if (filename == NULL) + filename = ""; + Tcl_DStringAppendElement (&cmd, filename); ret = Tcl_Eval (interp, Tcl_DStringValue (&cmd)); Tcl_DStringFree (&cmd); |