diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2015-12-20 10:38:09 +0000 |
---|---|---|
committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-12-20 10:38:09 +0000 |
commit | 60424a41dd3f7c186419903b4a15736d1f685421 (patch) | |
tree | 47cd877262070a8c40bbc47ac265afa6565dd3fb /gcc | |
parent | c00d5b12b08040fe0d8ee5168b612bf125e21566 (diff) | |
download | gcc-60424a41dd3f7c186419903b4a15736d1f685421.zip gcc-60424a41dd3f7c186419903b4a15736d1f685421.tar.gz gcc-60424a41dd3f7c186419903b4a15736d1f685421.tar.bz2 |
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
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 2 | ||||
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gnat.dg/complex1.adb | 10 | ||||
-rw-r--r-- | gcc/testsuite/gnat.dg/complex1_pkg.ads | 5 |
5 files changed, 28 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1a97c93..7226214 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,11 @@ 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 layout in type_annotate_only mode, skip discriminants of derived tagged types renaming those of the parent type. diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 8af121e..feed1cb 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -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, diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b1c4833..6a3e044 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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. diff --git a/gcc/testsuite/gnat.dg/complex1.adb b/gcc/testsuite/gnat.dg/complex1.adb new file mode 100644 index 0000000..f6b1d2c --- /dev/null +++ b/gcc/testsuite/gnat.dg/complex1.adb @@ -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;
diff --git a/gcc/testsuite/gnat.dg/complex1_pkg.ads b/gcc/testsuite/gnat.dg/complex1_pkg.ads new file mode 100644 index 0000000..7d6e035 --- /dev/null +++ b/gcc/testsuite/gnat.dg/complex1_pkg.ads @@ -0,0 +1,5 @@ +package Complex1_Pkg is
+
+ procedure Coord (x,y : out Float);
+
+end Complex1_Pkg;
|