diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 14:53:43 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 14:53:43 +0000 |
| commit | 42ac5ee1287b6c9931a7e67c96f05fffb9b5b022 (patch) | |
| tree | 63da9138eec8d04646f6c4ec911e766cde100919 /gcc/fortran/trans-array.h | |
| parent | 700535b75f0df9aa1cabe95da1fcf3df82ad1c01 (diff) | |
| download | gcc-42ac5ee1287b6c9931a7e67c96f05fffb9b5b022.zip gcc-42ac5ee1287b6c9931a7e67c96f05fffb9b5b022.tar.gz gcc-42ac5ee1287b6c9931a7e67c96f05fffb9b5b022.tar.bz2 | |
trans-array.h (gfc_walk_array_ref): New prototype.
* trans-array.h (gfc_walk_array_ref): New prototype.
* trans-array.c (gfc_walk_array_ref): New function, containing
all but the beginning of gfc_walk_variable_expr's code.
(gfc_walk_variable_expr): Use gfc_walk_array_ref.
From-SVN: r180144
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 73d8c40..4d737bd 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -70,6 +70,8 @@ void gfc_trans_static_array_pointer (gfc_symbol *); gfc_ss *gfc_walk_expr (gfc_expr *); /* Workhorse for gfc_walk_expr. */ gfc_ss *gfc_walk_subexpr (gfc_ss *, gfc_expr *); +/* Workhorse for gfc_walk_variable_expr. */ +gfc_ss *gfc_walk_array_ref (gfc_ss *, gfc_expr *, gfc_ref * ref); /* Walk the arguments of an elemental function. */ gfc_ss *gfc_walk_elemental_function_args (gfc_ss *, gfc_actual_arglist *, gfc_ss_type); |