diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:56:12 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 22:56:12 +0000 |
| commit | 84952a4e315b9d6f0a649f2973c4fa708fe79b7a (patch) | |
| tree | 77c053df35987db8b61fedf4ae58059c81a5f506 /gcc | |
| parent | 4615abe8569bedef58b8400e881cf10a49e5383c (diff) | |
| download | gcc-84952a4e315b9d6f0a649f2973c4fa708fe79b7a.zip gcc-84952a4e315b9d6f0a649f2973c4fa708fe79b7a.tar.gz gcc-84952a4e315b9d6f0a649f2973c4fa708fe79b7a.tar.bz2 | |
trans-array.c (gfc_set_vector_loop_bounds): Get loop from ss.
* trans-array.c (gfc_set_vector_loop_bounds): Get loop from ss.
Remove loop argument.
(gfc_add_loop_ss_code): Update call.
From-SVN: r180885
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 57d62be..1a43505 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2011-11-03 Mikael Morin <mikael@gcc.gnu.org> + * trans-array.c (gfc_set_vector_loop_bounds): Get loop from ss. + Remove loop argument. + (gfc_add_loop_ss_code): Update call. + +2011-11-03 Mikael Morin <mikael@gcc.gnu.org> + * trans.h (struct gfc_ss): New field loop. * trans-array.c (set_ss_loop): New function. (gfc_add_ss_to_loop): Call set_ss_loop. diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index e64767a..a305ac3 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -2162,8 +2162,9 @@ finish: loop bounds. */ static void -set_vector_loop_bounds (gfc_loopinfo * loop, gfc_ss * ss) +set_vector_loop_bounds (gfc_ss * ss) { + gfc_loopinfo *loop; gfc_array_info *info; gfc_se se; tree tmp; @@ -2173,6 +2174,7 @@ set_vector_loop_bounds (gfc_loopinfo * loop, gfc_ss * ss) int dim; info = &ss->info->data.array; + loop = ss->loop; for (n = 0; n < loop->dimen; n++) { @@ -2271,7 +2273,7 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, bool subscript, if (info->subscript[n]) gfc_add_loop_ss_code (loop, info->subscript[n], true, where); - set_vector_loop_bounds (loop, ss); + set_vector_loop_bounds (ss); break; case GFC_SS_VECTOR: |