From: Martin Hunt <hunt@redhat.com>
Date: Thu, 29 Oct 1998 00:58:34 +0000 (+0000)
Subject: Wed Oct 28 16:19:02 1998  Martin M. Hunt  <hunt@cygnus.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5c01b16e4ee720c57ec5f4fea40d994c06f8ed41;p=binutils-gdb.git

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 84204ed9364..b7873328229 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 00e69ddfa30..53e027d5133 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);