diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2013-04-11 00:36:58 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2013-04-11 00:36:58 +0300 |
| commit | 524af0d6c72031c249aa737945fde6ac3d726ba2 (patch) | |
| tree | 3848fcd998968ff83378e8ad827c05578ce1d1fb /gcc/fortran/trans-openmp.c | |
| parent | 0ea8a6f9c72e6e8bf22a0f6da9295aed27e1ca1e (diff) | |
| download | gcc-524af0d6c72031c249aa737945fde6ac3d726ba2.zip gcc-524af0d6c72031c249aa737945fde6ac3d726ba2.tar.gz gcc-524af0d6c72031c249aa737945fde6ac3d726ba2.tar.bz2 | |
Replace enum gfc_try with bool type.
2013-04-11 Janne Blomqvist <jb@gcc.gnu.org>
* gfortran.h: Remove enum gfc_try, replace gfc_try with bool type.
* arith.c: Replace gfc_try with bool type.
* array.c: Likewise.
* check.c: Likewise.
* class.c: Likewise.
* cpp.c: Likewise.
* cpp.h: Likewise.
* data.c: Likewise.
* data.h: Likewise.
* decl.c: Likewise.
* error.c: Likewise.
* expr.c: Likewise.
* f95-lang.c: Likewise.
* interface.c: Likewise.
* intrinsic.c: Likewise.
* intrinsic.h: Likewise.
* io.c: Likewise.
* match.c: Likewise.
* match.h: Likewise.
* module.c: Likewise.
* openmp.c: Likewise.
* parse.c: Likewise.
* parse.h: Likewise.
* primary.c: Likewise.
* resolve.c: Likewise.
* scanner.c: Likewise.
* simplify.c: Likewise.
* symbol.c: Likewise.
* trans-intrinsic.c: Likewise.
* trans-openmp.c: Likewise.
* trans-stmt.c: Likewise.
* trans-types.c: Likewise.
From-SVN: r197682
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 988dea9..882927e 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -500,7 +500,7 @@ gfc_trans_omp_array_reduction (tree c, gfc_symbol *sym, locus where) tree decl, backend_decl, stmt, type, outer_decl; locus old_loc = gfc_current_locus; const char *iname; - gfc_try t; + bool t; decl = OMP_CLAUSE_DECL (c); gfc_current_locus = where; @@ -562,7 +562,7 @@ gfc_trans_omp_array_reduction (tree c, gfc_symbol *sym, locus where) ref->u.ar.type = AR_FULL; ref->u.ar.dimen = 0; t = gfc_resolve_expr (e1); - gcc_assert (t == SUCCESS); + gcc_assert (t); e2 = gfc_get_expr (); e2->expr_type = EXPR_VARIABLE; @@ -570,12 +570,12 @@ gfc_trans_omp_array_reduction (tree c, gfc_symbol *sym, locus where) e2->symtree = symtree2; e2->ts = sym->ts; t = gfc_resolve_expr (e2); - gcc_assert (t == SUCCESS); + gcc_assert (t); e3 = gfc_copy_expr (e1); e3->symtree = symtree3; t = gfc_resolve_expr (e3); - gcc_assert (t == SUCCESS); + gcc_assert (t); iname = NULL; switch (OMP_CLAUSE_REDUCTION_CODE (c)) @@ -647,7 +647,7 @@ gfc_trans_omp_array_reduction (tree c, gfc_symbol *sym, locus where) e1 = gfc_copy_expr (e1); e3 = gfc_copy_expr (e3); t = gfc_resolve_expr (e4); - gcc_assert (t == SUCCESS); + gcc_assert (t); /* Create the init statement list. */ pushlevel (); |