- updated for 6.5

[packages/gdb.git] / gdb-gpc.patch

diff --git a/gdb-gpc.patch b/gdb-gpc.patch
index d28d72ec96db1ae94d04e7768fa6a6ac6358ed01..3e3db3e3d9819014ca22e41c541c2a81d5b1eb3d 100644 (file)
--- a/gdb-gpc.patch
+++ b/gdb-gpc.patch
@@ -1,42 +1,8 @@
---- gdb-6.3/gdb/dwarf2read.c.orig      2004-10-16 02:41:00.000000000 +0200
-+++ gdb-6.3/gdb/dwarf2read.c   2005-04-29 21:08:24.974314896 +0200
-@@ -913,6 +913,8 @@
- 
- static void read_enumeration_type (struct die_info *, struct dwarf2_cu *);
- 
-+static void read_set_type (struct die_info *, struct dwarf2_cu *);
-+
- static void process_enumeration_scope (struct die_info *, struct dwarf2_cu *);
- 
- static struct type *dwarf_base_type (int, int, struct dwarf2_cu *);
-@@ -4009,6 +4011,24 @@
-   return new_prefix;
- }
- 
-+
-+static void 
-+read_set_type (struct die_info * die, struct dwarf2_cu *cu)
-+{
-+  struct type *domain_type;
-+
-+  /* Return if we've already decoded this type. */
-+  if (die->type)
-+    {
-+      return;
-+    }
-+
-+  domain_type = die_type (die, cu);
-+
-+  die->type = create_set_type (NULL, domain_type);
-+
-+}
-+
- /* Given a pointer to a die which begins an enumeration, process all
-    the dies that define the members of the enumeration, and create the
-    symbol for the enumeration type.
-@@ -6096,9 +6116,11 @@
-     case DW_LANG_Ada95:
-       cu->language = language_ada;
+--- gdb-6.5/gdb/dwarf2read.c.orig      2006-05-13 17:46:38.000000000 +0200
++++ gdb-6.5/gdb/dwarf2read.c   2006-06-22 15:59:46.254440000 +0200
+@@ -6193,9 +6193,11 @@
+     case DW_LANG_Modula2:
+       cu->language = language_m2;
        break;
 +    case DW_LANG_Pascal83:
 +      cu->language = language_pascal;
@@ -44,24 +10,6 @@
      case DW_LANG_Cobol74:
      case DW_LANG_Cobol85:
 -    case DW_LANG_Pascal83:
-     case DW_LANG_Modula2:
      default:
        cu->language = language_minimal;
-@@ -6861,6 +6883,7 @@
-       case DW_TAG_structure_type:
-       case DW_TAG_union_type:
-       case DW_TAG_enumeration_type:
-+        case DW_TAG_set_type:
-         SYMBOL_CLASS (sym) = LOC_TYPEDEF;
-         SYMBOL_DOMAIN (sym) = STRUCT_DOMAIN;
- 
-@@ -7182,6 +7205,9 @@
-     case DW_TAG_enumeration_type:
-       read_enumeration_type (die, cu);
        break;
-+    case DW_TAG_set_type:
-+      read_set_type (die, cu);
-+      break;
-     case DW_TAG_subprogram:
-     case DW_TAG_subroutine_type:
-       read_subroutine_type (die, cu);