darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Wed Oct 28 16:19:02 1998 Martin M. Hunt <hunt@cygnus.com>

Browse source 
* gdbtk-cmds.c (gdb_set_bp_addr): For callback, send full
	pathname instead of just basename.
This commit is contained in:
Martin Hunt 1998-10-29 00:58:34 +00:00
parent 3afece8646
commit 5c01b16e4e
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gdb/ChangeLog-gdbtk
View file

@ -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

8
gdb/gdbtk-cmds.c
View file

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