* 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 c65ecee491b9f01cf280ce30a6d0d9cc7e5fe1e2..5ddba9ee5b195cab1be94cbcec91307f380a1774 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 9e1bbb909c19ae0ec5724ce4d0c70e4e8d26e307..420bea094bdac08565a29a5836544b3d6cb23d14 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: