diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2012-01-04 13:43:35 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2012-01-04 13:43:35 +0000 |
| commit | 591823cc9aba6f6943f7204df365bf2f0ca593ca (patch) | |
| tree | 733908f9727ba2b2d2f4f2758f1cb904bd505d50 /gcc | |
| parent | f5a3d840b627810a521d15c4144cb5da721d9718 (diff) | |
| download | gcc-591823cc9aba6f6943f7204df365bf2f0ca593ca.zip gcc-591823cc9aba6f6943f7204df365bf2f0ca593ca.tar.gz gcc-591823cc9aba6f6943f7204df365bf2f0ca593ca.tar.bz2 | |
trans-expr.c (gfc_conv_expr): Move address taking...
* trans-expr.c (gfc_conv_expr): Move address taking...
(gfc_conv_expr_reference): ... here.
From-SVN: r182873
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 305646f..86de8bd 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2012-01-04 Mikael Morin <mikael@gcc.gnu.org> + + * trans-expr.c (gfc_conv_expr): Move address taking... + (gfc_conv_expr_reference): ... here. + 2012-01-04 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/49693 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 2ffa9fc..12d382d 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -5331,8 +5331,6 @@ gfc_conv_expr (gfc_se * se, gfc_expr * expr) /* Substitute a scalar expression evaluated outside the scalarization loop. */ se->expr = ss_info->data.scalar.value; - if (ss_info->type == GFC_SS_REFERENCE) - se->expr = gfc_build_addr_expr (NULL_TREE, se->expr); se->string_length = ss_info->string_length; gfc_advance_se_ss_chain (se); return; @@ -5465,6 +5463,7 @@ gfc_conv_expr_reference (gfc_se * se, gfc_expr * expr) /* Returns a reference to the scalar evaluated outside the loop for this case. */ gfc_conv_expr (se, expr); + se->expr = gfc_build_addr_expr (NULL_TREE, se->expr); return; } |