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/ada/gcc-interface/utils2.c | |
| 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/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 2 |
1 files changed, 2 insertions, 0 deletions
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, |