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-array.h | |
| 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-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index 61f7042..26d02ec 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -87,6 +87,8 @@ void gfc_add_ss_to_loop (gfc_loopinfo *, gfc_ss *); void gfc_mark_ss_chain_used (gfc_ss *, unsigned); /* Free a gfc_ss chain. */ void gfc_free_ss_chain (gfc_ss *); +/* Allocate a new array type ss. */ +gfc_ss *gfc_get_array_ss (gfc_ss *, gfc_expr *, int, gfc_ss_type); /* Calculates the lower bound and stride of array sections. */ void gfc_conv_ss_startstride (gfc_loopinfo *); |