From: Joel Brobecker <brobecker@gnat.com>
Date: Sat, 16 Oct 2004 00:41:00 +0000 (+0000)
Subject:         * dwarf2read.c (set_cu_language): Set language to Ada for
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bc5f45f8ffabdc8aadcdb2ceb615ab3b9d62a530;p=binutils-gdb.git

    * 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 c65ecee491b..5ddba9ee5b1 100644
--- 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 9e1bbb909c1..420bea094bd 100644
--- 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: