From bc5f45f8ffabdc8aadcdb2ceb615ab3b9d62a530 Mon Sep 17 00:00:00 2001
From: Joel Brobecker <brobecker@gnat.com>
Date: Sat, 16 Oct 2004 00:41:00 +0000
Subject: [PATCH]         * dwarf2read.c (set_cu_language): Set language to Ada
 for         DW_LANG_Ada83 and DW_LANG_Ada95.

---
 gdb/ChangeLog    | 5 +++++
 gdb/dwarf2read.c | 2 ++
 2 files changed, 7 insertions(+)

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c65ecee491..5ddba9ee5b 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 9e1bbb909c..420bea094b 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: