[PATCH] Dumping Fields of A Class When -fdump-class-hierarchy

[lin zuojian <manjian2006 at gmail dot com>]

    * class.c (dump_class_hierarchy_1): dump fields after hierarchy information.

---
 gcc/cp/class.c | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/gcc/cp/class.c b/gcc/cp/class.c
index 14780e7..13579ac 100644
--- a/gcc/cp/class.c
+++ b/gcc/cp/class.c
@@ -8202,6 +8202,44 @@ dump_class_hierarchy_1 (FILE *stream, int flags, tree t)
 	   (unsigned long)(TYPE_ALIGN (CLASSTYPE_AS_BASE (t))
 			   / BITS_PER_UNIT));
   dump_class_hierarchy_r (stream, flags, TYPE_BINFO (t), TYPE_BINFO (t), 0);
+  if (TYPE_P (t))
+    {
+      enum tree_code code;
+
+      code = TREE_CODE (t);
+      if (code == RECORD_TYPE || code == UNION_TYPE)
+        {
+          tree field;
+          fprintf (stream, "fields:\n");
+          for (field = TYPE_FIELDS (t); field; field = DECL_CHAIN (field))
+            {
+              tree field_type;
+              tree field_name;
+              tree size;
+              tree bpos;
+              enum tree_code code;
+
+              code = TREE_CODE (field);
+              if (code != FIELD_DECL)
+                continue;
+              field_type = TREE_TYPE (field);
+              field_name = DECL_NAME (field);
+              size = DECL_SIZE (field);
+
+              if (DECL_FIELD_OFFSET (field))
+                bpos = bit_position (field);
+              else
+                bpos = NULL;
+              fprintf (
+                  stream, "%s %s;\n"
+                          "size: %ld, bpos: %ld\n",
+                  type_as_string (field_type, TFF_PLAIN_IDENTIFIER),
+                  field_name ? IDENTIFIER_POINTER (field_name) : "(base)",
+                  tree_to_shwi (size), bpos == NULL ? 0 : tree_to_shwi (bpos));
+            }
+        }
+    }
+
   fprintf (stream, "\n");
 }
 
-- 
1.9.1