espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-10-15 11:56:11 +08:00
Code Issues Packages Projects Releases Wiki Activity

* main.c (main): Move code that sets initial language to

Browse Source 
symfile.c.  Fixup places where command files are processed to
	be consistent in setting a default language if none has been
	previously set.
	* symfile.c (set_initial_language):  Add code moved from
	main() that sets an initial default language when a new
	symbol file is read.
	* symfile.c (symbol_file_command):  Call set_initial_language.
	* symtab.c (find_main_psymtab):  Add FIXME comment.
This commit is contained in:
Fred Fish
1992-09-19 16:55:34 +00:00
parent 5f1c39efa2
commit d75710b02c
2 changed files with 34 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
gdb/main.c
View File

@ -767,25 +767,6 @@ GDB manual (available as on-line info or a printed manual).\n", stderr);
error_pre_print = "\n";
warning_pre_print = "\nwarning: ";
/* Set the initial language. */
{
struct partial_symtab *pst = find_main_psymtab ();
enum language lang = language_unknown;
if (pst == NULL) ;
#if 0
/* A better solution would set the language when reading the psymtab.
This would win for symbol file formats that encode the langauge,
such as DWARF. But, we don't do that yet. FIXME */
else if (pst->language != language_unknown)
lang = pst->language;
#endif
else if (pst->filename != NULL)
lang = deduce_language_from_filename (pst->filename);
if (lang == language_unknown) /* Make C the default language */
lang = language_c;
set_language (lang);
}
if (corearg != NULL)
if (!setjmp (to_top_level))
core_file_command (corearg, !batch);
@ -812,19 +793,30 @@ GDB manual (available as on-line info or a printed manual).\n", stderr);
if (!homedir
|| memcmp ((char *) &homebuf, (char *) &cwdbuf, sizeof (struct stat)))
if (!inhibit_gdbinit && access (gdbinit, R_OK) == 0)
if (!setjmp (to_top_level))
source_command (gdbinit, 0);
do_cleanups (ALL_CLEANUPS);
{
/* If no language has been set yet, default to C. */
if (current_language->la_language == language_unknown)
set_language (language_c);
if (!setjmp (to_top_level))
source_command (gdbinit, 0);
}
do_cleanups (ALL_CLEANUPS);
for (i = 0; i < ncmd; i++)
if (!setjmp (to_top_level))
{
if (cmdarg[i][0] == '-' && cmdarg[i][1] == '\0')
read_command_file (stdin);
else
source_command (cmdarg[i], !batch);
do_cleanups (ALL_CLEANUPS);
}
{
/* If no language has been set yet, default to C. For consistency with
other places, we redo this each time before sourcing commands. */
if (current_language->la_language == language_unknown)
set_language (language_c);
if (!setjmp (to_top_level))
{
if (cmdarg[i][0] == '-' && cmdarg[i][1] == '\0')
read_command_file (stdin);
else
source_command (cmdarg[i], !batch);
do_cleanups (ALL_CLEANUPS);
}
}
free ((PTR)cmdarg);
/* Read in the old history after all the command files have been read. */