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.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 84204ed93647e2e90bb0833ebb2827a52aecd41f..b7873328229ad67b47be72812490d4fd9afaa8a2 100644 (file)
--- 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 00e69ddfa305e5b23b0b16cabbf1fd45659c6095..53e027d5133b41d226e3989662d2d78d2f4a0690 100644 (file)
--- 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);