print-tree.c (print_node, [...]): Print DECL_ARG_TYPE and DECL_ARG_TYPE_AS_WRITTEN.

	* print-tree.c (print_node, case PARM_DECL):
	Print DECL_ARG_TYPE and DECL_ARG_TYPE_AS_WRITTEN.

From-SVN: r39492

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e0a23adc1ddf52290c57fb10905a7aebc4fe736c..1103350d1ae41ff584cd7f6abb30be9b13a64754 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,8 @@
 Tue Feb  6 07:54:51 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
+       * print-tree.c (print_node, case PARM_DECL):
+       Print DECL_ARG_TYPE and DECL_ARG_TYPE_AS_WRITTEN.
+
        * stor-layout.c (reference_types_internal): New variable.
        (internal_reference_types): New function.
        (layout_type, case REFERENCE_TYPE): Make Pmode if internal.

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index 662521563d60622869930b2cb878bc31a06da396..a3674468f4f7c3d5b2f6f87a0c2e837bf275bc76 100644 (file)
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -447,11 +447,18 @@ print_node (file, prefix, node, indent)
          print_rtl (file, DECL_RTL (node));
        }
 
-      if (TREE_CODE (node) == PARM_DECL && DECL_INCOMING_RTL (node) != 0)
+      if (TREE_CODE (node) == PARM_DECL)
        {
-         indent_to (file, indent + 4);
-         fprintf (file, "incoming-rtl ");
-         print_rtl (file, DECL_INCOMING_RTL (node));
+         print_node (file, "arg-type", DECL_ARG_TYPE (node), indent + 4);
+         print_node (file, "arg-type-as-written",
+                     DECL_ARG_TYPE_AS_WRITTEN (node), indent + 4);
+
+         if (DECL_INCOMING_RTL (node) != 0)
+           {
+             indent_to (file, indent + 4);
+             fprintf (file, "incoming-rtl ");
+             print_rtl (file, DECL_INCOMING_RTL (node));
+           }
        }
       else if (TREE_CODE (node) == FUNCTION_DECL
               && DECL_SAVED_INSNS (node) != 0)