/* Header for dependency analysis
|
/* Header for dependency analysis
|
Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
|
Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
Contributed by Paul Brook
|
Contributed by Paul Brook
|
|
|
This file is part of GCC.
|
This file is part of GCC.
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
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
|
the terms of the GNU General Public License as published by the Free
|
Software Foundation; either version 3, or (at your option) any later
|
Software Foundation; either version 3, or (at your option) any later
|
version.
|
version.
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
for more details.
|
for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with GCC; see the file COPYING3. If not see
|
along with GCC; see the file COPYING3. If not see
|
<http://www.gnu.org/licenses/>. */
|
<http://www.gnu.org/licenses/>. */
|
|
|
/****************************** Enums *********************************/
|
/****************************** Enums *********************************/
|
typedef enum
|
typedef enum
|
{
|
{
|
NOT_ELEMENTAL, /* Not elemental case: normal dependency check. */
|
NOT_ELEMENTAL, /* Not elemental case: normal dependency check. */
|
ELEM_CHECK_VARIABLE, /* Test whether variables overlap. */
|
ELEM_CHECK_VARIABLE, /* Test whether variables overlap. */
|
ELEM_DONT_CHECK_VARIABLE /* Test whether variables overlap only if used
|
ELEM_DONT_CHECK_VARIABLE /* Test whether variables overlap only if used
|
in an expression. */
|
in an expression. */
|
}
|
}
|
gfc_dep_check;
|
gfc_dep_check;
|
|
|
|
|
/*********************** Functions prototypes **************************/
|
/*********************** Functions prototypes **************************/
|
|
|
bool gfc_ref_needs_temporary_p (gfc_ref *);
|
bool gfc_ref_needs_temporary_p (gfc_ref *);
|
bool gfc_full_array_ref_p (gfc_ref *, bool *);
|
bool gfc_full_array_ref_p (gfc_ref *, bool *);
|
gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *);
|
gfc_expr *gfc_get_noncopying_intrinsic_argument (gfc_expr *);
|
int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *,
|
int gfc_check_fncall_dependency (gfc_expr *, sym_intent, gfc_symbol *,
|
gfc_actual_arglist *, gfc_dep_check);
|
gfc_actual_arglist *, gfc_dep_check);
|
int gfc_check_dependency (gfc_expr *, gfc_expr *, bool);
|
int gfc_check_dependency (gfc_expr *, gfc_expr *, bool);
|
int gfc_is_same_range (gfc_array_ref *, gfc_array_ref *, int, int);
|
int gfc_is_same_range (gfc_array_ref *, gfc_array_ref *, int, int);
|
int gfc_expr_is_one (gfc_expr *, int);
|
int gfc_expr_is_one (gfc_expr *, int);
|
|
|
int gfc_dep_resolver(gfc_ref *, gfc_ref *);
|
int gfc_dep_resolver(gfc_ref *, gfc_ref *);
|
int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *);
|
int gfc_are_equivalenced_arrays (gfc_expr *, gfc_expr *);
|
|
|