[RFA] gdbtypes.[ch] rs6000-tdep.c--AltiVec regs types

Elena Zannoni
2002-01-11T23:20:06Z

This patch provides a builtin union type for the AltiVec registers,
so that the printing of such regs is a bit more enlightening, like:

(gdb) p $vr0
$2 = {uint128 = 0x00000064000000c80000012c00000190,
v4sf = {f = {1.40129846e-43, 2.80259693e-43, 4.20389539e-43, 5.60519386e-43}},
v4si = {f = {100, 200, 300, 400}},
v8hi = {f = {0, 100, 0, 200, 0, 300, 0, 400}},
v16qi = {f = "\0\0\0d\0\0\0È\0\0\001,\0\0\001\220"}}
(gdb) p $vr0.v4si
$3 = {f = {100, 200, 300, 400}}
(gdb) p $vr0.v4si.f[2]
$4 = 300
(gdb) p $vr0.v4si.f[2]=444
$5 = 444

Elena

2002-01-11 Elena Zannoni <ezannoni@redhat.com>

[Based on work by Jim Blandy]

* rs6000-tdep.c: Declare predifined type for AltiVec registers.
(build_builtin_type_powerpc_altivec): New function.
(rs6000_register_virtual_type): Change type of AltiVec register to
new builtin type.
(_initialize_rs6000_tdep): Create the altivec register builtin
type structure.

* gdbtypes.h (builtin_type_v16qi, builtin_type_v8hi): Export.
* gdbtypes.c (builtin_type_v16qi, builtin_type_v8hi): New SIMD
types.
(build_gdbtypes): Initialize builtin_type_v16qi and
builtin_type_v8hi.
(_initialize_gdbtypes): Register builtin_type_v16qi and
builtin_type_v8hi with gdbarch.

Index: gdbtypes.c
===================================================================
RCS file: /cvs/uberbaum/gdb/gdbtypes.c,v
retrieving revision 1.35
diff -u -p -r1.35 gdbtypes.c
--- gdbtypes.c 2001/12/20 03:26:08 1.35
+++ gdbtypes.c 2002/01/11 21:56:13
@@ -73,7 +73,9 @@ struct type *builtin_type_uint128;
struct type *builtin_type_bool;
struct type *builtin_type_v4sf;
struct type *builtin_type_v4si;
+struct type *builtin_type_v16qi;
struct type *builtin_type_v8qi;
+struct type *builtin_type_v8hi;
struct type *builtin_type_v4hi;
struct type *builtin_type_v2si;
struct type *builtin_type_ieee_single_big;
@@ -3163,8 +3165,12 @@ build_gdbtypes (void)
= init_simd_type ("__builtin_v4sf", builtin_type_float, "f", 4);
builtin_type_v4si
= init_simd_type ("__builtin_v4si", builtin_type_int32, "f", 4);
+ builtin_type_v16qi
+ = init_simd_type ("__builtin_v16qi", builtin_type_int8, "f", 16);
builtin_type_v8qi
= init_simd_type ("__builtin_v8qi", builtin_type_int8, "f", 8);
+ builtin_type_v8hi
+ = init_simd_type ("__builtin_v8hi", builtin_type_int16, "f", 8);
builtin_type_v4hi
= init_simd_type ("__builtin_v4hi", builtin_type_int16, "f", 4);
builtin_type_v2si
@@ -3252,7 +3258,9 @@ _initialize_gdbtypes (void)
register_gdbarch_swap (&builtin_type_uint128, sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_v4sf, sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_v4si, sizeof (struct type *), NULL);
+ register_gdbarch_swap (&builtin_type_v16qi, sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_v8qi, sizeof (struct type *), NULL);
+ register_gdbarch_swap (&builtin_type_v8hi, sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_v4hi, sizeof (struct type *), NULL);
register_gdbarch_swap (&builtin_type_v2si, sizeof (struct type *), NULL);
REGISTER_GDBARCH_SWAP (builtin_type_void_data_ptr);
Index: gdbtypes.h
===================================================================
RCS file: /cvs/uberbaum/gdb/gdbtypes.h,v
retrieving revision 1.21
diff -u -p -r1.21 gdbtypes.h
--- gdbtypes.h 2001/12/10 06:17:01 1.21
+++ gdbtypes.h 2002/01/11 21:56:15
@@ -946,7 +946,9 @@ extern struct type *builtin_type_uint128
/* SIMD types. We inherit these names from GCC. */
extern struct type *builtin_type_v4sf;
extern struct type *builtin_type_v4si;
+extern struct type *builtin_type_v16qi;
extern struct type *builtin_type_v8qi;
+extern struct type *builtin_type_v8hi;
extern struct type *builtin_type_v4hi;
extern struct type *builtin_type_v2si;

Index: rs6000-tdep.c
===================================================================
RCS file: /cvs/uberbaum/gdb/rs6000-tdep.c,v
retrieving revision 1.35
diff -u -p -r1.35 rs6000-tdep.c
--- rs6000-tdep.c 2002/01/06 04:50:56 1.35
+++ rs6000-tdep.c 2002/01/11 21:56:17
@@ -83,6 +83,10 @@ struct reg
unsigned char fpr; /* whether register is floating-point */
};

+/* Create some pre-defined types. */
+static struct type *builtin_type_powerpc_altivec;
+
/* Return the current architecture's gdbarch_tdep structure. */

#define TDEP gdbarch_tdep (current_gdbarch)
@@ -1530,6 +1534,52 @@ rs6000_register_raw_size (int n)
return regsize (reg, tdep->wordsize);
}

+static struct type *
+build_builtin_type_powerpc_altivec (void)
+{
+ /* Construct a type for the AltiVec registers. The type we're building
+ is this: */
+#if 0
+ union __gdb_builtin_type_powerpc_altivec
+ {
+ struct __builtin_v16qi v16qi;
+ struct __builtin_v8hi v8hi;
+ struct __builtin_v4si v4si;
+ struct __builtin_v4sf v4sf;
+ uint128_t uint128;
+ };
+#endif
+
+ struct type *t;
+ struct field *f;
+
+ f = (struct field *) xmalloc (sizeof (*f) * 5);
+ memset (f, 0, sizeof (*f) * 5);
+
+ FIELD_TYPE (f[0]) = builtin_type_int128;
+ FIELD_NAME (f[0]) = "uint128";
+
+ FIELD_TYPE (f[1]) = builtin_type_v4sf;
+ FIELD_NAME (f[1]) = "v4sf";
+
+ FIELD_TYPE (f[2]) = builtin_type_v4si;
+ FIELD_NAME (f[2]) = "v4si";
+
+ FIELD_TYPE (f[3]) = builtin_type_v8hi;
+ FIELD_NAME (f[3]) = "v8hi";
+
+ FIELD_TYPE (f[4]) = builtin_type_v16qi;
+ FIELD_NAME (f[4]) = "v16qi";
+
+ /* Build a union type with those fields. */
+ t = init_type (TYPE_CODE_UNION, 16, 0, 0, 0);
+ TYPE_NFIELDS (t) = 5;
+ TYPE_FIELDS (t) = f;
+ TYPE_TAG_NAME (t) = "__gdb_builtin_type_powerpc_altivec";
+
+ return t;
+}
+
/* Return the GDB type object for the "standard" data type
of data in register N. */

@@ -1550,7 +1600,7 @@ rs6000_register_virtual_type (int n)
return builtin_type_int64;
break;
case 16:
- return builtin_type_int128;
+ return builtin_type_powerpc_altivec;
break;
default:
return builtin_type_int32;
@@ -2653,6 +2703,8 @@ _initialize_rs6000_tdep (void)
{
register_gdbarch_init (bfd_arch_rs6000, rs6000_gdbarch_init);
register_gdbarch_init (bfd_arch_powerpc, rs6000_gdbarch_init);
+
+ builtin_type_powerpc_altivec = build_builtin_type_powerpc_altivec ();

/* Add root prefix command for "info powerpc" commands */
add_prefix_cmd ("powerpc", class_info, rs6000_info_powerpc_command,