[RFA] Set pascal language for DWarf debug information

["Pierre Muller" <muller@ics.u-strasbg.fr>]

  Following the patch was proposed by
Jonas Maebe in bugs database reference 2223


http://sourceware.org/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&database=gdb&pr=2223
?

 I extended his proposed patch to dwarfread.c file also.

 I can see no risks associated with the given patch,
and I hope that, despite the long time since my last
RFA, it is formatted correctly.
 It is in a way, pascal specific, but as it is
not in a pascal only file, I prefer to get approval
before committing.


Pierre Muller
maintainer of pascal language support.


2007-02-05  Pierre Muller  <muller@ics.u-strasbg.fr>

        * gdb/dwarfread.c (set_cu_language): Recognize LANG_PASCAL83 as
pascal language marker.
        * gdb/dwarf2read.c (set_cu_language): Recognize DW_LANG_Pascal83
as pascal language marker.


Index: gdb/dwarf2read.c
=================================================================== RCS
file: /cvs/src/src/gdb/dwarf2read.c,v
retrieving revision 1.214
diff -u -p -r1.214 dwarf2read.c
--- gdb/dwarf2read.c    28 Jan 2007 14:42:12 -0000      1.214
+++ gdb/dwarf2read.c    5 Feb 2007 15:26:58 -0000
@@ -6325,9 +6325,11 @@ set_cu_language (unsigned int lang, stru
     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;
Index: gdb/dwarfread.c
=================================================================== RCS
file: /cvs/src/src/gdb/dwarfread.c,v
retrieving revision 1.46
diff -u -p -r1.46 dwarfread.c
--- gdb/dwarfread.c     9 Jan 2007 17:58:50 -0000       1.46
+++ gdb/dwarfread.c     5 Feb 2007 15:26:59 -0000
@@ -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;