diff options
author | no-author <no-author@gcc.gnu.org> | 2005-04-15 21:00:08 +0000 |
---|---|---|
committer | no-author <no-author@gcc.gnu.org> | 2005-04-15 21:00:08 +0000 |
commit | 08810e67d6728140c6fca38ee0049899930010e6 (patch) | |
tree | e9fd76cea939888cab31d98ff114aa4295ae743d /gcc/fortran/matchexp.c | |
parent | 5b5fcc5945558d32c619dd3047ae0ee16a6edd2f (diff) |
This commit was manufactured by cvs2svn to create tagapple/gcc-5008
'apple-gcc-5008'.
git-svn-id: https://gcc.gnu.org/svn/gcc/tags/apple-gcc-5008@98212 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/matchexp.c')
-rw-r--r-- | gcc/fortran/matchexp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/matchexp.c b/gcc/fortran/matchexp.c index bde8d603dea..04fd31f3609 100644 --- a/gcc/fortran/matchexp.c +++ b/gcc/fortran/matchexp.c @@ -179,11 +179,11 @@ build_node (gfc_intrinsic_op operator, locus * where, new = gfc_get_expr (); new->expr_type = EXPR_OP; - new->operator = operator; + new->value.op.operator = operator; new->where = *where; - new->op1 = op1; - new->op2 = op2; + new->value.op.op1 = op1; + new->value.op.op2 = op2; return new; } @@ -214,7 +214,7 @@ match_level_1 (gfc_expr ** result) else { f = build_node (INTRINSIC_USER, &where, e, NULL); - f->uop = uop; + f->value.op.uop = uop; *result = f; } @@ -873,7 +873,7 @@ gfc_match_expr (gfc_expr ** result) } all = build_node (INTRINSIC_USER, &where, all, e); - all->uop = uop; + all->value.op.uop = uop; } *result = all; |