diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-05-13 20:49:13 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-05-13 20:49:13 +0000 |
| commit | a513927a5b0ea35945332ceaa78d4c1f0f74548d (patch) | |
| tree | 335e16f0f2fd0f0c5c136815bc01e0d49a283422 /gcc/fortran/interface.c | |
| parent | 42657b0761ec0781663bb0d001d37fafbb23df88 (diff) | |
| download | gcc-a513927a5b0ea35945332ceaa78d4c1f0f74548d.zip gcc-a513927a5b0ea35945332ceaa78d4c1f0f74548d.tar.gz gcc-a513927a5b0ea35945332ceaa78d4c1f0f74548d.tar.bz2 | |
gfortran.h (gfc_code): Rename struct member expr to expr1.
2009-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.h (gfc_code): Rename struct member expr to expr1.
* openmp.c (resolve_omp_atomic): Update expr to expr1.
* interface.c (gfc_extend_assign): Ditto.
* trans-expr.c (gfc_conv_expr_reference, gfc_trans_assignment,
gfc_trans_init_assign): Ditto.
* dump-parse-tree.c (show_code_node): Ditto.
* trans-openmp.c (gfc_trans_omp_atomic): Ditto.
* trans-stmt.c ( gfc_trans_label_assign, gfc_trans_goto, gfc_trans_call,
gfc_trans_return, gfc_trans_pause, gfc_trans_stop, gfc_trans_if_1,
gfc_trans_arithmetic_if, gfc_trans_do_while, gfc_trans_integer_select,
gfc_trans_logical_select, gfc_trans_character_select
forall_make_variable_temp, check_forall_dependencies
gfc_trans_forall_1, gfc_trans_where_2, gfc_trans_where_3
gfc_trans_where, gfc_trans_allocate, gfc_trans_deallocate): Ditto.
* io.c (match_io_element, gfc_match_inquire): Ditto.
* resolve.c (resolve_typebound_call, resolve_ppc_call,
resolve_allocate_expr, resolve_allocate_deallocate, resolve_select,
resolve_transfer, resolve_where, gfc_resolve_assign_in_forall,
gfc_resolve_blocks, resolve_code, build_init_assign): Ditto.
* st.c (gfc_free_statement): Ditto.
* match.c (gfc_match_assignment, gfc_match_pointer_assignment,
match_arithmetic_if, gfc_match_if, gfc_match_elseif
gfc_match_stopcode, gfc_match_assign, gfc_match_goto,
gfc_match_nullify, match_typebound_call, gfc_match_call
gfc_match_select, match_simple_where, gfc_match_where
gfc_match_elsewhere, match_simple_forall, gfc_match_forall): Ditto.
* trans-io.c (gfc_trans_transfer): Ditto.
* parse.c (parse_where_block, parse_if_block): Ditto.
From-SVN: r147497
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 3c03f95..ee1f528 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -2591,7 +2591,7 @@ gfc_extend_assign (gfc_code *c, gfc_namespace *ns) gfc_expr *lhs, *rhs; gfc_symbol *sym; - lhs = c->expr; + lhs = c->expr1; rhs = c->expr2; /* Don't allow an intrinsic assignment to be replaced. */ @@ -2626,7 +2626,7 @@ gfc_extend_assign (gfc_code *c, gfc_namespace *ns) /* Replace the assignment with the call. */ c->op = EXEC_ASSIGN_CALL; c->symtree = gfc_find_sym_in_symtree (sym); - c->expr = NULL; + c->expr1 = NULL; c->expr2 = NULL; c->ext.actual = actual; |