mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-02 00:04:30 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

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

From-SVN: r84118
This commit is contained in:
Richard Kenner 2004-07-05 15:16:10 +00:00 committed by Richard Kenner
parent ebd5a2087c
commit 2709efd88c
2 changed files with 27 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/ChangeLog
View File

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

38
gcc/tree-pretty-print.c
View File

@ -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;
}