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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index fcbc672..037c06c 100644 (file)
--- 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 3c61f9a..4d62926 100644 (file)
--- 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 6171b1a..b7000e5 100644 (file)
--- 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;