git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

decl.c (annotate_value): Deal specially with negative constants. 

* gcc-interface/decl.c (annotate_value) <INTEGER_CST>: Deal specially
	with negative constants.

From-SVN: r242360
This commit is contained in:
Eric Botcazou 2016-11-13 18:20:25 +00:00 committed by Eric Botcazou
parent 96826e28ef
commit c0c54de6a0
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2016-11-13 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (annotate_value) <INTEGER_CST>: Deal specially
with negative constants.
2016-11-13 Eric Botcazou <ebotcazou@adacore.com> 2016-11-13 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils2.c (gnat_protect_expr): Also protect only the * gcc-interface/utils2.c (gnat_protect_expr): Also protect only the

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

@ -8022,6 +8022,14 @@ annotate_value (tree gnu_size)
switch (TREE_CODE (gnu_size)) switch (TREE_CODE (gnu_size))
{ {
case INTEGER_CST: case INTEGER_CST:
/* For negative values, build NEGATE_EXPR of the opposite. Such values
can appear for discriminants in expressions for variants. */
if (tree_int_cst_sgn (gnu_size) < 0)
{
tree t = wide_int_to_tree (sizetype, wi::neg (gnu_size));
return annotate_value (build1 (NEGATE_EXPR, sizetype, t));
}
return TREE_OVERFLOW (gnu_size) ? No_Uint : UI_From_gnu (gnu_size); return TREE_OVERFLOW (gnu_size) ? No_Uint : UI_From_gnu (gnu_size);
case COMPONENT_REF: case COMPONENT_REF: