Line 1324... |
Line 1324... |
/* If this is the namespace of a unit which contains executable
|
/* If this is the namespace of a unit which contains executable
|
code, this points to it. */
|
code, this points to it. */
|
struct gfc_code *code;
|
struct gfc_code *code;
|
|
|
/* Points to the equivalences set up in this namespace. */
|
/* Points to the equivalences set up in this namespace. */
|
struct gfc_equiv *equiv;
|
struct gfc_equiv *equiv, *old_equiv;
|
|
|
/* Points to the equivalence groups produced by trans_common. */
|
/* Points to the equivalence groups produced by trans_common. */
|
struct gfc_equiv_list *equiv_lists;
|
struct gfc_equiv_list *equiv_lists;
|
|
|
gfc_interface *op[GFC_INTRINSIC_OPS];
|
gfc_interface *op[GFC_INTRINSIC_OPS];
|
Line 2567... |
Line 2567... |
void gfc_free_iterator (gfc_iterator *, int);
|
void gfc_free_iterator (gfc_iterator *, int);
|
void gfc_free_forall_iterator (gfc_forall_iterator *);
|
void gfc_free_forall_iterator (gfc_forall_iterator *);
|
void gfc_free_alloc_list (gfc_alloc *);
|
void gfc_free_alloc_list (gfc_alloc *);
|
void gfc_free_namelist (gfc_namelist *);
|
void gfc_free_namelist (gfc_namelist *);
|
void gfc_free_equiv (gfc_equiv *);
|
void gfc_free_equiv (gfc_equiv *);
|
|
void gfc_free_equiv_until (gfc_equiv *, gfc_equiv *);
|
void gfc_free_data (gfc_data *);
|
void gfc_free_data (gfc_data *);
|
void gfc_free_case_list (gfc_case *);
|
void gfc_free_case_list (gfc_case *);
|
|
|
/* matchexp.c -- FIXME too? */
|
/* matchexp.c -- FIXME too? */
|
gfc_expr *gfc_get_parentheses (gfc_expr *);
|
gfc_expr *gfc_get_parentheses (gfc_expr *);
|