diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2010-07-17 09:57:19 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2010-07-17 09:57:19 +0000 |
| commit | 9157ccb29f552d2cb1a0c668658503580757c4ad (patch) | |
| tree | dfe040e3cb597dd59cec2457c3fe5d55ccaf1d5a /gcc/fortran/trans.h | |
| parent | 77198d71e127a52e2b2bf9606074c7c9f68d9224 (diff) | |
| download | gcc-9157ccb29f552d2cb1a0c668658503580757c4ad.zip gcc-9157ccb29f552d2cb1a0c668658503580757c4ad.tar.gz gcc-9157ccb29f552d2cb1a0c668658503580757c4ad.tar.bz2 | |
trans-array.c (gfc_free_ss): Don't free beyond ss rank.
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.
From-SVN: r162276
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 7afd831..db782c0 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; |