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

decl.c (gnat_to_gnu_entity): Use case #1 for the renaming of an address. 

* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Use case #1
	for the renaming of an address.

From-SVN: r230560
This commit is contained in:
Eric Botcazou 2015-11-18 18:31:42 +00:00 committed by Eric Botcazou
parent a239279ee5
commit 482a338d01
5 changed files with 30 additions and 2 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 @@
2015-11-18 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Use case #1
for the renaming of an address.
2015-11-18 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (fold_constant_decl_in_expr) <ARRAY_REF>: If

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

@ -963,8 +963,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
function call is a constant object. Therefore, it can be the
inner object of a constant renaming and the renaming must be
fully instantiated, i.e. it cannot be a reference to (part of)
an existing object. And treat null expressions, constructors
and literals the same way. */
an existing object. And treat other rvalues (addresses, null
expressions, constructors and literals) the same way. */
tree inner = gnu_expr;
while (handled_component_p (inner) || CONVERT_EXPR_P (inner))
inner = TREE_OPERAND (inner, 0);
@ -974,6 +974,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
inner = TREE_OPERAND (inner, 1);
if ((TREE_CODE (inner) == CALL_EXPR
&& !call_is_atomic_load (inner))
|| TREE_CODE (inner) == ADDR_EXPR
|| TREE_CODE (inner) == NULL_EXPR
|| TREE_CODE (inner) == CONSTRUCTOR
|| CONSTANT_CLASS_P (inner))

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-11-18 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/renaming7.adb: New test.
* gnat.dg/renaming7_pkg.ads: New helper.
2015-11-18 Ajit Agarwal <ajitkum@xilinx.com>
PR tree-optimization/68402

12
gcc/testsuite/gnat.dg/renaming7.adb Normal file
View File

@ -0,0 +1,12 @@
-- { dg-do compile }
-- { dg-options "-O" }
with Renaming7_Pkg; use Renaming7_Pkg;
with System;
procedure Renaming7 is
C : constant System.Address := A'Address;
D : System.Address renames C;
begin
null;
end;

5
gcc/testsuite/gnat.dg/renaming7_pkg.ads Normal file
View File

@ -0,0 +1,5 @@
package Renaming7_Pkg is
A : Integer;
end Renaming7_Pkg;