* gdbtypes.c (make_reference_type): Preserve the type chain

        and set the length of all the variants of the pointer type.

2 files changed, 16 insertions, 0 deletions

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 00656aa..884b337 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 2007-05-17  Joel Brobecker  <brobecker@adacore.com>
 
+	* gdbtypes.c (make_reference_type): Preserve the type chain
+	and set the length of all the variants of the pointer type.
+
+2007-05-17  Joel Brobecker  <brobecker@adacore.com>
+
 	* gdbtypes.c (make_pointer_type): Preserve the pointer type chain
 	and set the length of all the variants of the pointer type.
 
diff --git a/gdb/gdbtypes.c b/gdb/gdbtypes.c
index f43983a..db4a85a 100644
--- a/gdb/gdbtypes.c
+++ b/gdb/gdbtypes.c
@@ -354,6 +354,7 @@ make_reference_type (struct type *type, struct type **typeptr)
 {
   struct type *ntype;	/* New type */
   struct objfile *objfile;
+  struct type *chain;
 
   ntype = TYPE_REFERENCE_TYPE (type);
 
@@ -379,7 +380,9 @@ make_reference_type (struct type *type, struct type **typeptr)
     {
       ntype = *typeptr;
       objfile = TYPE_OBJFILE (ntype);
+      chain = TYPE_CHAIN (ntype);
       smash_type (ntype);
+      TYPE_CHAIN (ntype) = chain;
       TYPE_OBJFILE (ntype) = objfile;
     }
 
@@ -395,6 +398,14 @@ make_reference_type (struct type *type, struct type **typeptr)
   if (!TYPE_REFERENCE_TYPE (type))	/* Remember it, if don't have one.  */
     TYPE_REFERENCE_TYPE (type) = ntype;
 
+  /* Update the length of all the other variants of this type.  */
+  chain = TYPE_CHAIN (ntype);
+  while (chain != ntype)
+    {
+      TYPE_LENGTH (chain) = TYPE_LENGTH (ntype);
+      chain = TYPE_CHAIN (chain);
+    }
+
   return ntype;
 }