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

	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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 325670f..6d13c79 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,15 @@
+Sat Sep 19 09:52:26 1992  Fred Fish  (fnf@cygnus.com)
+
+       * main.c (main):  Move code that sets initial language to
+       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.
+
 Wed Sep 16 22:31:55 1992  K. Richard Pixley  (rich@sendai.cygnus.com)
 
        * breakpoint.c, sparc-tdep.c: comment changes.

diff --git a/gdb/main.c b/gdb/main.c
index 924aa90..b2643f5 100644 (file)
--- a/gdb/main.c
+++ b/gdb/main.c
@@ -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);
-
-  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. */
+       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 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. */