diff options
Diffstat (limited to 'gdb/gdbtk-cmds.c')
| -rw-r--r-- | gdb/gdbtk-cmds.c | 8 |
1 files changed, 6 insertions, 2 deletions
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); |