diff options
| author | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-17 09:57:19 +0000 |
|---|---|---|
| committer | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-07-17 09:57:19 +0000 |
| commit | 540a8975b511546901446f43b79d46e52690b4f3 (patch) | |
| tree | dfe040e3cb597dd59cec2457c3fe5d55ccaf1d5a /gcc/fortran/trans.h | |
| parent | cb885d9b457451ef64ec3dc093ef6c78545fb199 (diff) | |
| download | gcc-540a8975b511546901446f43b79d46e52690b4f3.tar.gz | |
2010-07-17 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_free_ss): Don't free beyond ss rank.
Access subscript through the "dim" field index.
(gfc_trans_create_temp_array): Access ss info through the "dim" field
index.
(gfc_conv_array_index_offset): Ditto.
(gfc_conv_loop_setup): Ditto.
(gfc_conv_expr_descriptor): Ditto.
(gfc_conv_ss_startstride): Ditto. Update call to
gfc_conv_section_startstride.
(gfc_conv_section_startstride): Set values along the array dimension.
Get array dimension directly from the argument.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162276 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 7afd831cd51..db782c0a0ff 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -114,8 +114,8 @@ typedef struct gfc_ss_info tree stride[GFC_MAX_DIMENSIONS]; tree delta[GFC_MAX_DIMENSIONS]; - /* Translation from scalarizer dimensions to actual dimensions. - actual = dim[scalarizer] */ + /* Translation from loop dimensions to actual dimensions. + actual_dim = dim[loop_dim] */ int dim[GFC_MAX_DIMENSIONS]; } gfc_ss_info; |