diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2008-08-23 23:04:01 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2008-08-23 23:04:01 +0200 |
| commit | d4b7d0f0520f0f91874b1404b53bd6519affe559 (patch) | |
| tree | bd962221be72af567e44311a383658a3085306b7 /gcc/fortran/decl.c | |
| parent | 00fc23337d06089d5662383e2f6bdea105055894 (diff) | |
| download | gcc-d4b7d0f0520f0f91874b1404b53bd6519affe559.zip gcc-d4b7d0f0520f0f91874b1404b53bd6519affe559.tar.gz gcc-d4b7d0f0520f0f91874b1404b53bd6519affe559.tar.bz2 | |
gfortran.h (gfc_component): Add field "symbol_attribute attr"...
2008-08-23 Janus Weil <janus@gcc.gnu.org>
* gfortran.h (gfc_component): Add field "symbol_attribute attr", remove
fields "pointer", "allocatable", "dimension", "access".
Remove functions "gfc_set_component_attr" and "gfc_get_component_attr".
* interface.c (gfc_compare_derived_types): Ditto.
* trans-array.c (gfc_array_allocate,structure_alloc_comps): Ditto.
* trans-expr.c (gfc_conv_component_ref,gfc_trans_subcomponent_assign,
gfc_conv_structure): Ditto.
* symbol.c (gfc_find_component,free_components,gfc_set_component_attr,
gfc_get_component_attr,verify_bind_c_derived_type,
generate_isocbinding_symbol): Ditto.
* decl.c (build_struct): Ditto.
* dump-parse-tree.c (show_components): Ditto.
* trans-stmt.c (gfc_trans_deallocate): Ditto.
* expr.c (gfc_check_assign,gfc_check_pointer_assign,
gfc_default_initializer): Ditto.
* module.c (mio_component): Ditto.
* trans-types.c (copy_dt_decls_ifequal,gfc_get_derived_type): Ditto.
* resolve.c (has_default_initializer,resolve_structure_cons,
gfc_iso_c_func_interface,find_array_spec,resolve_ref,
resolve_deallocate_expr,resolve_allocate_expr,resolve_fl_derived,
resolve_equivalence_derived): Ditto.
* trans-io.c (transfer_expr): Ditto.
* parse.c (parse_derived): Ditto.
* dependency.c (gfc_check_dependency): Ditto.
* primary.c (gfc_variable_attr): Ditto.
From-SVN: r139524
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 04d25cc..ab4a64f 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1403,19 +1403,19 @@ build_struct (const char *name, gfc_charlen *cl, gfc_expr **init, c->ts = current_ts; c->ts.cl = cl; - gfc_set_component_attr (c, ¤t_attr); + c->attr = current_attr; c->initializer = *init; *init = NULL; c->as = *as; if (c->as != NULL) - c->dimension = 1; + c->attr.dimension = 1; *as = NULL; /* Should this ever get more complicated, combine with similar section in add_init_expr_to_sym into a separate function. */ - if (c->ts.type == BT_CHARACTER && !c->pointer && c->initializer && c->ts.cl + if (c->ts.type == BT_CHARACTER && !c->attr.pointer && c->initializer && c->ts.cl && c->ts.cl->length && c->ts.cl->length->expr_type == EXPR_CONSTANT) { int len; @@ -1461,9 +1461,9 @@ build_struct (const char *name, gfc_charlen *cl, gfc_expr **init, } /* Check array components. */ - if (!c->dimension) + if (!c->attr.dimension) { - if (c->allocatable) + if (c->attr.allocatable) { gfc_error ("Allocatable component at %C must be an array"); return FAILURE; @@ -1472,7 +1472,7 @@ build_struct (const char *name, gfc_charlen *cl, gfc_expr **init, return SUCCESS; } - if (c->pointer) + if (c->attr.pointer) { if (c->as->type != AS_DEFERRED) { @@ -1481,7 +1481,7 @@ build_struct (const char *name, gfc_charlen *cl, gfc_expr **init, return FAILURE; } } - else if (c->allocatable) + else if (c->attr.allocatable) { if (c->as->type != AS_DEFERRED) { |