OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

From-SVN: r147820
This commit is contained in:
Eric Botcazou 2009-05-23 10:56:12 +00:00 committed by Eric Botcazou
parent 03049a4e40
commit 22702f9361
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
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

8
gcc/ada/gcc-interface/misc.c
View File

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