diff options
| author | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-05 22:12:20 +0000 |
|---|---|---|
| committer | sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-05 22:12:20 +0000 |
| commit | dded0b23aa5a0244d674977a8df7ce3c3d6a8202 (patch) | |
| tree | 6fff194e6c0dfb03db079b04df84ee2e9dc134ae /gcc/fortran/dependency.h | |
| parent | 18404dab1094cff4ea6b2c792eb2ab50327619f4 (diff) | |
| download | gcc-dded0b23aa5a0244d674977a8df7ce3c3d6a8202.tar.gz | |
* dependency.c (gfc_check_dependency): Remove unused vars and nvars
arguments. Replace with an "identical" argument. A full array
reference to the same symbol is a dependency if identical is true.
* dependency.h (gfc_check_dependency): Update prototype.
* trans-array.h (gfc_check_dependency): Delete duplicate prototype.
* trans-stmt.c: #include dependency.h for gfc_check_dependency.
(gfc_trans_forall_1): Update calls to gfc_check_dependency.
(gfc_trans_where_2): Likewise. Remove unneeded variables.
(gfc_trans_where_3): New function for simple non-dependent WHEREs.
(gfc_trans_where): Call gfc_trans_where_3 to translate simple
F90-style WHERE statements without internal dependencies.
* Make-lang.in (trans-stmt.o): Depend upon dependency.h.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110625 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/dependency.h')
| -rw-r--r-- | gcc/fortran/dependency.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/dependency.h b/gcc/fortran/dependency.h index 719f444a8ca..98629583fbf 100644 --- a/gcc/fortran/dependency.h +++ b/gcc/fortran/dependency.h @@ -25,7 +25,7 @@ bool gfc_ref_needs_temporary_p (gfc_ref *); gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *); int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *, gfc_actual_arglist *); -int gfc_check_dependency (gfc_expr *, gfc_expr *, gfc_expr **, int); +int gfc_check_dependency (gfc_expr *, gfc_expr *, bool); int gfc_is_same_range (gfc_array_ref *, gfc_array_ref *, int, int); int gfc_expr_is_one (gfc_expr *, int); |