Commit 2709efd8 by Richard Kenner Committed by Richard Kenner

tree-pretty-print.c (dump_generic_node, [...]): Properly print bounds.

	* tree-pretty-print.c (dump_generic_node, case ARRAY_TYPE): Properly
	print bounds.

From-SVN: r84118
parent ebd5a208
......@@ -5,6 +5,9 @@
2004-07-05 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* tree-pretty-print.c (dump_generic_node, case ARRAY_TYPE): Properly
print bounds.
* expr.c (expand_expr_real_1, case SWITCH_EXPR): Don't check against
bounds if bounds aren't constant.
......
......@@ -378,27 +378,37 @@ dump_generic_node (pretty_printer *buffer, tree node, int spc, int flags,
{
tree tmp;
/* Print the array type. */
dump_generic_node (buffer, TREE_TYPE (node), spc, flags, false);
/* Print the innermost component type. */
for (tmp = TREE_TYPE (node); TREE_CODE (tmp) == ARRAY_TYPE;
tmp = TREE_TYPE (tmp))
;
dump_generic_node (buffer, tmp, spc, flags, false);
/* Print the dimensions. */
tmp = node;
while (tmp && TREE_CODE (tmp) == ARRAY_TYPE)
for (tmp = node; TREE_CODE (tmp) == ARRAY_TYPE;
tmp = TREE_TYPE (tmp))
{
tree domain = TYPE_DOMAIN (tmp);
pp_character (buffer, '[');
if (TYPE_SIZE (tmp))
if (domain)
{
tree size = TYPE_SIZE (tmp);
if (TREE_CODE (size) == INTEGER_CST)
pp_wide_integer (buffer,
TREE_INT_CST_LOW (TYPE_SIZE (tmp)) /
TREE_INT_CST_LOW (TYPE_SIZE (TREE_TYPE (tmp))));
else if (TREE_CODE (size) == MULT_EXPR)
dump_generic_node (buffer, TREE_OPERAND (size, 0), spc, flags, false);
/* else punt. */
if (TYPE_MIN_VALUE (domain)
&& !integer_zerop (TYPE_MIN_VALUE (domain)))
{
dump_generic_node (buffer, TYPE_MIN_VALUE (domain),
spc, flags, false);
pp_string (buffer, " .. ");
}
if (TYPE_MAX_VALUE (domain))
dump_generic_node (buffer, TYPE_MAX_VALUE (domain),
spc, flags, false);
}
else
pp_string (buffer, "<unknown>");
pp_character (buffer, ']');
tmp = TREE_TYPE (tmp);
}
break;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment