Skip to content

R
riscv-gcc-1
Commit 22702f93 by Eric Botcazou Committed by Eric Botcazou
Options

* gcc-interface/misc.c (gnat_get_subrange_bounds): Fix thinko. 

From-SVN: r147820
parent 03049a4e
Showing with 10 additions and 2 deletions
gcc/ada/ChangeLog
2009-05-23 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/misc.c (gnat_get_subrange_bounds): Fix thinko.
2009-05-23 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (set_rm_size): Bypass the check for packed array
types.
......
gcc/ada/gcc-interface/misc.c
......@@ -661,8 +661,12 @@ gnat_get_subrange_bounds (const_tree gnu_type, tree *lowval, tree *highval)
{
tree min = TYPE_MIN_VALUE (gnu_type);
tree max = TYPE_MAX_VALUE (gnu_type);
*lowval = TREE_CONSTANT (min) ? min : TYPE_GCC_MIN_VALUE (gnu_type);
*highval = TREE_CONSTANT (max) ? max : TYPE_GCC_MAX_VALUE (gnu_type);
/* If the bounds aren't constant, use non-representable constant values
to get the same effect on debug info without tree sharing issues. */
*lowval
= TREE_CONSTANT (min) ? min : build_int_cstu (integer_type_node, -1);
*highval
= TREE_CONSTANT (max) ? max : build_int_cstu (integer_type_node, -1);
}
/* GNU_TYPE is a type. Determine if it should be passed by reference by
......
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