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

utils2.c (gnat_rewrite_reference): New case identical to FLOAT_EXPR. 

* gcc-interface/utils2.c (gnat_rewrite_reference) <REALPART_EXPR>: New
	case identical to FLOAT_EXPR.
	<IMAGPART_EXPR>: Likewise.

From-SVN: r231861
This commit is contained in:
Eric Botcazou 2015-12-20 10:38:09 +00:00 committed by Eric Botcazou
parent c00d5b12b0
commit 60424a41dd
5 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2015-12-20 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils2.c (gnat_rewrite_reference) <REALPART_EXPR>: New
case identical to FLOAT_EXPR.
<IMAGPART_EXPR>: Likewise.
2015-12-20 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: During

2
gcc/ada/gcc-interface/utils2.c
View File

@ -2664,6 +2664,8 @@ gnat_rewrite_reference (tree ref, rewrite_fn func, void *data, tree *init)
CASE_CONVERT:
case FLOAT_EXPR:
case FIX_TRUNC_EXPR:
case REALPART_EXPR:
case IMAGPART_EXPR:
case VIEW_CONVERT_EXPR:
result
= build1 (code, type,

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-12-20 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/complex1.adb: New test.
* gnat.dg/complex1_pkg.ads: New helper.
2015-12-19 Eric Botcazou <ebotcazou@adacore.com>
* gcc.target/sparc/20151219-1.c: New test.

10
gcc/testsuite/gnat.dg/complex1.adb Normal file
View File

@ -0,0 +1,10 @@
-- { dg-do compile }
with Ada.Numerics.Complex_types; use Ada.Numerics.Complex_types;
with Complex1_Pkg; use Complex1_Pkg;
procedure Complex1 is
Z : Complex;
begin
Coord (Z.Re, Z.Im);
end;

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

@ -0,0 +1,5 @@
package Complex1_Pkg is
procedure Coord (x,y : out Float);
end Complex1_Pkg;