From 60424a41dd3f7c186419903b4a15736d1f685421 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 20 Dec 2015 10:38:09 +0000 Subject: utils2.c (gnat_rewrite_reference): New case identical to FLOAT_EXPR. * gcc-interface/utils2.c (gnat_rewrite_reference) : New case identical to FLOAT_EXPR. : Likewise. From-SVN: r231861 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/gcc-interface/utils2.c | 2 ++ gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gnat.dg/complex1.adb | 10 ++++++++++ gcc/testsuite/gnat.dg/complex1_pkg.ads | 5 +++++ 5 files changed, 28 insertions(+) create mode 100644 gcc/testsuite/gnat.dg/complex1.adb create mode 100644 gcc/testsuite/gnat.dg/complex1_pkg.ads (limited to 'gcc') 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 + * gcc-interface/utils2.c (gnat_rewrite_reference) : New + case identical to FLOAT_EXPR. + : Likewise. + +2015-12-20 Eric Botcazou + * gcc-interface/decl.c (gnat_to_gnu_entity) : 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 + + * gnat.dg/complex1.adb: New test. + * gnat.dg/complex1_pkg.ads: New helper. + 2015-12-19 Eric Botcazou * 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; -- cgit v1.1