diff options
| author | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-19 16:23:52 +0000 |
|---|---|---|
| committer | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-19 16:23:52 +0000 |
| commit | c1977dbe89eed65b3721b9d42f4694a752e853a7 (patch) | |
| tree | 551ba2fcd23f90c6d0662b04e981e74aa6a5abd6 /gcc/fortran/symbol.c | |
| parent | dcb1b019e865f2ed8c7161b54dcf438477ab6e6b (diff) | |
| download | gcc-c1977dbe89eed65b3721b9d42f4694a752e853a7.tar.gz | |
* gfortran.h (new): Remove macro.
* array.c (gfc_append_constructor, match_array_list,
gfc_match_array_constructor): Likewise.
* bbt.c (insert, gfc_insert_bbt): Likewise.
* decl.c (var_element, top_var_list, top_val_list, gfc_match_data,
get_proc_name): Likewise.
* expr.c (gfc_copy_actual_arglist): Likewise.
* interface.c (compare_actual_formal, check_new_interface,
gfc_add_interface): Likewise.
* intrinsic.c gfc_convert_type_warn, gfc_convert_chartype):
Likewise.
* io.c (match_io_iterator, match_io_list): Likewise.
* match.c (match_forall_header): Likewise.
* matchexp.c (build_node): Likewise.
* module.c (gfc_match_use): Likewise.
* scanner.c (load_file): Likewise.
* st.c (gfc_append_code): Likewise.
* symbol.c (save_symbol_data, gfc_get_sym_tree, gfc_undo_symbols,
gfc_commit_symbols): Likewise.
* trans-common.c (build_field): Likewise.
* trans-decl.c (gfc_finish_var_decl): Likewise.
* trans-expr.c (gfc_free_interface_mapping,
gfc_get_interface_mapping_charlen, gfc_add_interface_mapping,
gfc_finish_interface_mapping,
gfc_apply_interface_mapping_to_expr): Likewise.
* trans.h (gfc_interface_sym_mapping): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@137982 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 57870c0d63e..ca1237e78d9 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -2451,7 +2451,7 @@ static void save_symbol_data (gfc_symbol *sym) { - if (sym->new || sym->old_symbol != NULL) + if (sym->gfc_new || sym->old_symbol != NULL) return; sym->old_symbol = XCNEW (gfc_symbol); @@ -2495,7 +2495,7 @@ gfc_get_sym_tree (const char *name, gfc_namespace *ns, gfc_symtree **result) p->old_symbol = NULL; p->tlink = changed_syms; p->mark = 1; - p->new = 1; + p->gfc_new = 1; changed_syms = p; st = gfc_new_symtree (&ns->sym_root, name); @@ -2643,7 +2643,7 @@ gfc_undo_symbols (void) { q = p->tlink; - if (p->new) + if (p->gfc_new) { /* Symbol was new. */ if (p->attr.in_common && p->common_block->head) @@ -2779,7 +2779,7 @@ gfc_commit_symbols (void) q = p->tlink; p->tlink = NULL; p->mark = 0; - p->new = 0; + p->gfc_new = 0; free_old_symbol (p); } changed_syms = NULL; @@ -2808,7 +2808,7 @@ gfc_commit_symbol (gfc_symbol *sym) sym->tlink = NULL; sym->mark = 0; - sym->new = 0; + sym->gfc_new = 0; free_old_symbol (sym); } |