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
This commit is contained in:
Richard Kenner 2001-02-06 13:12:56 +00:00 committed by Richard Kenner
parent b5d6a2ff23
commit df10e9ece3
2 changed files with 14 additions and 4 deletions

View File

@ -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.

View File

@ -447,12 +447,19 @@ 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)
{
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)
{