* dwarf2read.c (set_cu_language): Set language to Ada for

        DW_LANG_Ada83 and DW_LANG_Ada95.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c65ecee..5ddba9e 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-15  Joel Brobecker  <brobecker@gnat.com>
+
+       * dwarf2read.c (set_cu_language): Set language to Ada for
+       DW_LANG_Ada83 and DW_LANG_Ada95.
+
 2004-10-15  Michael Chastain  <mec.gnu@mindspring.com>
 
        From Andreas Schwab <schwab@suse.de>:

diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 9e1bbb9..420bea0 100644 (file)
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -6094,6 +6094,8 @@ set_cu_language (unsigned int lang, struct dwarf2_cu *cu)
       break;
     case DW_LANG_Ada83:
     case DW_LANG_Ada95:
+      cu->language = language_ada;
+      break;
     case DW_LANG_Cobol74:
     case DW_LANG_Cobol85:
     case DW_LANG_Pascal83: