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.

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

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);