2002-04-24 Elena Zannoni <ezannoni@redhat.com>

         * gdbtypes.h (TYPE_FLAG_VECTOR, TYPE_VECTOR): Define.
         * gdbtypes.c (recursive_dump_type): Output the vector flag.
         * dwarf2read.c (dwarf_attr_name): Handle new attribute for
         vectors.
         (read_array_type): Record the fact that this array type is really a
         vector (i.e. are passed in by value).

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6084d5e07625a12d56d08b7f40be485b82ad4031..8045153987dadcc17865f3efae55597fbeffc178 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+2002-04-26  Elena Zannoni  <ezannoni@redhat.com>
+
+       * gdbtypes.h (TYPE_FLAG_VECTOR, TYPE_VECTOR): Define.
+       * gdbtypes.c (recursive_dump_type): Output the vector flag.
+       * dwarf2read.c (dwarf_attr_name): Handle new attribute for
+       vectors.
+       (read_array_type): Record the fact that this array type is really a
+       vector (i.e. are passed in by value).
+
 2002-04-26  Jason Thorpe  <thorpej@wasabisystems.com>
 
        * alpha-tdep.h (gdbarch_tdep): Add sigcontext_addr member.

diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index 4673f9a7dfff0b13c4562ec154ae722f48318e3f..0f05c0922fcc1c077a223e294deb589fa5a683a2 100644 (file)
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -2662,6 +2662,16 @@ read_array_type (struct die_info *die, struct objfile *objfile,
   while (ndim-- > 0)
     type = create_array_type (NULL, type, range_types[ndim]);
 
+  /* Understand Dwarf2 support for vector types (like they occur on
+     the PowerPC w/ AltiVec).  Gcc just adds another attribute to the
+     array type.  This is not part of the Dwarf2/3 standard yet, but a
+     custom vendor extension.  The main difference between a regular
+     array and the vector variant is that vectors are passed by value
+     to functions.  */
+  attr = dwarf_attr (die, DW_AT_GNU_vector);
+  if (attr)
+    TYPE_FLAGS (type) |= TYPE_FLAG_VECTOR;
+
   do_cleanups (back_to);
 
   /* Install the type in the die. */
@@ -5267,6 +5277,8 @@ dwarf_attr_name (register unsigned attr)
       return "DW_AT_body_begin";
     case DW_AT_body_end:
       return "DW_AT_body_end";
+    case DW_AT_GNU_vector:
+      return "DW_AT_GNU_vector";
     default:
       return "DW_AT_<unknown>";
     }

diff --git a/gdb/gdbtypes.c b/gdb/gdbtypes.c
index bad0ad827976e748aa640c94148f6ee500752bdc..fa01f36c50d0b019e300f84bf9a9a9edee038bf7 100644 (file)
--- a/gdb/gdbtypes.c
+++ b/gdb/gdbtypes.c
@@ -3031,6 +3031,13 @@ recursive_dump_type (struct type *type, int spaces)
     {
       puts_filtered (" TYPE_FLAG_VARARGS");
     }
+  /* This is used for things like AltiVec registers on ppc.  Gcc emits
+     an attribute for the array type, which tells whether or not we
+     have a vector, instead of a regular array.  */
+  if (TYPE_VECTOR (type))
+    {
+      puts_filtered (" TYPE_FLAG_VECTOR");
+    }
   puts_filtered ("\n");
   printfi_filtered (spaces, "nfields %d ", TYPE_NFIELDS (type));
   gdb_print_host_address (TYPE_FIELDS (type), gdb_stdout);

diff --git a/gdb/gdbtypes.h b/gdb/gdbtypes.h
index f4a2cf6a30ae2e7d149cf647dbcc5953633bf5cb..0411aaacb623f814f085ce375468bade034a93c2 100644 (file)
--- a/gdb/gdbtypes.h
+++ b/gdb/gdbtypes.h
@@ -248,6 +248,13 @@ enum type_code
 #define TYPE_FLAG_VARARGS      (1 << 11)
 #define TYPE_VARARGS(t)                ((t)->flags & TYPE_FLAG_VARARGS)
 
+/* Identify a vector type.  Gcc is handling this by adding an extra
+   attribute to the array type.  We slurp that in as a new flag of a
+   type.  This is used only in dwarf2read.c.  */
+#define TYPE_FLAG_VECTOR       (1 << 12)
+#define TYPE_VECTOR(t)         ((t)->flags & TYPE_FLAG_VECTOR)
+
+
 struct type
   {