From: Pierre Muller <muller@sourceware.org>
Date: Mon, 12 Feb 2007 15:19:31 +0000 (+0000)
Subject:  * Fix PR 2223. Recognize Pascal language marker in dwarf readers
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=fe8e67fdbb13938cd4c8004dd024167d9fff3285;p=binutils-gdb.git

 * Fix PR 2223. Recognize Pascal language marker in dwarf readers
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index fcbc6729a7a..037c06c7a0e 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+2007-02-12  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+	Fix PR pascal/2223.
+	* dwarfread.c (set_cu_language): Recognize DW_LANG_Pascal83 as
+	Pascal language marker.
+	* dwarf2read.c (set_cu_language): Likewise.
+
 2007-02-12  Corinna Vinschen  <vinschen@redhat.com>
 
 	* win32-nat.c (win32_wait): Reset terminal pgrp to GDB.
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 3c61f9a0e84..4d629264007 100644
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -6325,9 +6325,11 @@ set_cu_language (unsigned int lang, struct dwarf2_cu *cu)
     case DW_LANG_Modula2:
       cu->language = language_m2;
       break;
+    case DW_LANG_Pascal83:
+      cu->language = language_pascal;
+      break;
     case DW_LANG_Cobol74:
     case DW_LANG_Cobol85:
-    case DW_LANG_Pascal83:
     default:
       cu->language = language_minimal;
       break;
diff --git a/gdb/dwarfread.c b/gdb/dwarfread.c
index 6171b1a1c68..b7000e563d6 100644
--- a/gdb/dwarfread.c
+++ b/gdb/dwarfread.c
@@ -616,10 +616,12 @@ set_cu_language (struct dieinfo *dip)
     case LANG_FORTRAN90:
       cu_language = language_fortran;
       break;
+    case LANG_PASCAL83:
+      cu_language = language_pascal;
+      break;
     case LANG_ADA83:
     case LANG_COBOL74:
     case LANG_COBOL85:
-    case LANG_PASCAL83:
       /* We don't know anything special about these yet. */
       cu_language = language_unknown;
       break;