X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Ffortran%2Fdependency.h;h=1920c558c983164b2f9c8d841469cb9c9351a40e;hb=b3154a1fe8d994ac93925dc544f36284631adba3;hp=dafb7fc7ec421afee76be3545c10fee24b2a3e90;hpb=30d4ffea3680b7c7c5f8be2f34010b056a524715;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/fortran/dependency.h b/gcc/fortran/dependency.h index dafb7fc7ec4..1920c558c98 100644 --- a/gcc/fortran/dependency.h +++ b/gcc/fortran/dependency.h @@ -1,12 +1,13 @@ /* Header for dependency analysis - Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 + Free Software Foundation, Inc. Contributed by Paul Brook This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free -Software Foundation; either version 2, or (at your option) any later +Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY @@ -15,16 +16,30 @@ FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with GCC; see the file COPYING. If not, write to the Free -Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA -02110-1301, USA. */ - - - -int gfc_check_fncall_dependency (gfc_expr *, gfc_expr *); -int gfc_check_dependency (gfc_expr *, gfc_expr *, gfc_expr **, int); +along with GCC; see the file COPYING3. If not see +. */ + +/****************************** Enums *********************************/ +typedef enum +{ + NOT_ELEMENTAL, /* Not elemental case: normal dependency check. */ + ELEM_CHECK_VARIABLE, /* Test whether variables overlap. */ + ELEM_DONT_CHECK_VARIABLE /* Test whether variables overlap only if used + in an expression. */ +} +gfc_dep_check; + + +/*********************** Functions prototypes **************************/ + +bool gfc_ref_needs_temporary_p (gfc_ref *); +bool gfc_full_array_ref_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 *, gfc_dep_check); +int gfc_check_dependency (gfc_expr *, gfc_expr *, bool); int gfc_is_same_range (gfc_array_ref *, gfc_array_ref *, int, int); -int gfc_dep_compare_expr (gfc_expr *, gfc_expr *); int gfc_expr_is_one (gfc_expr *, int); int gfc_dep_resolver(gfc_ref *, gfc_ref *); +int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *);