From 5c01b16e4ee720c57ec5f4fea40d994c06f8ed41 Mon Sep 17 00:00:00 2001 From: Martin Hunt Date: Thu, 29 Oct 1998 00:58:34 +0000 Subject: [PATCH] Wed Oct 28 16:19:02 1998 Martin M. Hunt * gdbtk-cmds.c (gdb_set_bp_addr): For callback, send full pathname instead of just basename. --- gdb/ChangeLog-gdbtk | 5 +++++ 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 + + * gdbtk-cmds.c (gdb_set_bp_addr): For callback, send full + pathname instead of just basename. + 1998-10-08 Keith Seitz * 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); -- 2.7.4