espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-23 19:50:13 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fri Aug 28 12:14:49 1998 Martin M. Hunt <hunt@cygnus.com>

Browse Source 
* gdbtk-cmds.c (gdb_loadfile): Open the file after doing
	the symtab lookup and calling symtab_to_filename(). This
	makes GDBtk work with the GDB "dir" command.
This commit is contained in:
Martin Hunt
1998-08-28 19:18:38 +00:00
parent 28278f9032
commit 973b0216f6
2 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/ChangeLog-gdbtk
View File

@ -1,3 +1,9 @@
Fri Aug 28 12:14:49 1998 Martin M. Hunt <hunt@cygnus.com>
* gdbtk-cmds.c (gdb_loadfile): Open the file after doing
the symtab lookup and calling symtab_to_filename(). This
makes GDBtk work with the GDB "dir" command.
1998-08-18 Keith Seitz <keiths@cygnus.com>
* gdbtk-hooks.c (gdbtk_add_hooks): Set selected_frame_level_changed_hook.

15
gdb/gdbtk-cmds.c
View File

@ -2581,20 +2581,21 @@ gdb_loadfile (clientData, interp, objc, objv)
file = Tcl_GetStringFromObj (objv[2], NULL);
Tcl_GetBooleanFromObj (interp, objv[3], &linenumbers);
if ((fp = fopen ( file, "r" )) == NULL)
{
Tcl_SetStringObj ( result_ptr->obj_ptr, "Can't open file for reading", -1);
return TCL_ERROR;
}
symtab = full_lookup_symtab (file);
if (!symtab)
{
Tcl_SetStringObj ( result_ptr->obj_ptr, "File not found in symtab", -1);
Tcl_SetStringObj ( result_ptr->obj_ptr, "File not found in symtab", -1);
fclose (fp);
return TCL_ERROR;
}
file = symtab_to_filename ( symtab );
if ((fp = fopen ( file, "r" )) == NULL)
{
Tcl_SetStringObj ( result_ptr->obj_ptr, "Can't open file for reading", -1);
return TCL_ERROR;
}
if (stat (file, &st) < 0)
{
catch_errors (perror_with_name_wrapper, "gdbtk: get time stamp", "",