Originally from:

  http://www.math.uni.wroc.pl/~hebisch/gpc/

I believe this patch was posted to gdb-patches and never reviewed.

But M2 support added set types just before GDB 6.5, and now there's

not much left of this.

---

 gdb/dwarf2read.c |    7 +++++--

 1 file changed, 5 insertions(+), 2 deletions(-)

Index: gdb-6.6.dfsg/gdb/dwarf2read.c

===================================================================

--- gdb-6.6.dfsg.orig/gdb/dwarf2read.c	2007-01-27 20:35:30.000000000 -0500

+++ gdb-6.6.dfsg/gdb/dwarf2read.c	2007-01-27 20:35:33.000000000 -0500

@@ -6300,9 +6300,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;

@@ -7496,7 +7498,8 @@ determine_prefix (struct die_info *die, 

   struct die_info *parent;

   if (cu->language != language_cplus

-      && cu->language != language_java)

+      && cu->language != language_java

+      && cu->language != language_pascal)

     return NULL;

   parent = die->parent;