diff options
| author | Mikael Morin <mikael.morin@sfr.fr> | 2011-09-08 17:07:01 +0200 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-09-08 15:07:01 +0000 |
| commit | 66877276157c3ac8210d943054620d509b8ff5c4 (patch) | |
| tree | 9ae771baa26cef5a7d65a963e3a74f50084b8e74 /gcc/fortran/trans-expr.c | |
| parent | 2d49bd6e23afa3364308ecd94b510e8c7567a8b2 (diff) | |
| download | gcc-66877276157c3ac8210d943054620d509b8ff5c4.zip gcc-66877276157c3ac8210d943054620d509b8ff5c4.tar.gz gcc-66877276157c3ac8210d943054620d509b8ff5c4.tar.bz2 | |
trans-array.h (gfc_get_array_ss): New prototype.
2011-09-08 Mikael Morin <mikael.morin@sfr.fr>
* trans-array.h (gfc_get_array_ss): New prototype.
* trans-array.c (gfc_get_array_ss): New function.
(gfc_walk_variable_expr, gfc_walk_function_expr,
gfc_walk_array_constructor): Re-use gfc_get_array_ss.
* trans-expr.c (gfc_trans_subarray_assign): Ditto.
* trans-intrinsic.c (gfc_walk_intrinsic_bound,
gfc_walk_intrinsic_libfunc): Ditto.
* trans-io.c (transfer_array_component): Ditto.
From-SVN: r178695
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index ea65c02..04cf4dd 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -4367,18 +4367,14 @@ gfc_trans_subarray_assign (tree dest, gfc_component * cm, gfc_expr * expr) } /* Create a SS for the destination. */ - lss = gfc_get_ss (); - lss->type = GFC_SS_COMPONENT; - lss->expr = NULL; + lss = gfc_get_array_ss (gfc_ss_terminator, NULL, cm->as->rank, + GFC_SS_COMPONENT); lss->shape = gfc_get_shape (cm->as->rank); - lss->next = gfc_ss_terminator; - lss->data.info.dimen = cm->as->rank; lss->data.info.descriptor = dest; lss->data.info.data = gfc_conv_array_data (dest); lss->data.info.offset = gfc_conv_array_offset (dest); for (n = 0; n < cm->as->rank; n++) { - lss->data.info.dim[n] = n; lss->data.info.start[n] = gfc_conv_array_lbound (dest, n); lss->data.info.stride[n] = gfc_index_one_node; |