diff options
| author | Martin Hunt <hunt@redhat.com> | 1998-10-29 00:58:34 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 1998-10-29 00:58:34 +0000 |
| commit | 5c01b16e4ee720c57ec5f4fea40d994c06f8ed41 (patch) | |
| tree | 963c0a1750ca9d2fec08cae413aa08a2735609cf /gdb | |
| parent | 3afece8646c0be2ec87f0107c85c0c8d190160c4 (diff) | |
| download | gdb-5c01b16e4ee720c57ec5f4fea40d994c06f8ed41.zip gdb-5c01b16e4ee720c57ec5f4fea40d994c06f8ed41.tar.gz gdb-5c01b16e4ee720c57ec5f4fea40d994c06f8ed41.tar.bz2 | |
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.
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); |