Home
last modified time | relevance | path

Searched refs:final_expr (Results 1 – 15 of 15) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans.cc1175 gfc_expr *final_expr = NULL; in gfc_add_comp_finalizer_call() local
1187 gfc_is_finalizable (comp->ts.u.derived, &final_expr); in gfc_add_comp_finalizer_call()
1188 if (!final_expr) in gfc_add_comp_finalizer_call()
1192 gfc_conv_expr (&se, final_expr); in gfc_add_comp_finalizer_call()
1205 gfc_is_finalizable (CLASS_DATA (comp)->ts.u.derived, &final_expr); in gfc_add_comp_finalizer_call()
1235 if (!final_expr) in gfc_add_comp_finalizer_call()
1272 gfc_expr *final_expr = NULL; in gfc_add_finalizer_call() local
1281 gfc_is_finalizable (expr2->ts.u.derived, &final_expr); in gfc_add_finalizer_call()
1282 if (!final_expr) in gfc_add_finalizer_call()
1316 final_expr = gfc_copy_expr (expr); in gfc_add_finalizer_call()
[all …]
H A Dclass.cc2667 gfc_is_finalizable (gfc_symbol *derived, gfc_expr **final_expr) in gfc_is_finalizable() argument
2688 if (final_expr) in gfc_is_finalizable()
2696 *final_expr = final->initializer; in gfc_is_finalizable()
H A Dopenmp.cc83 gfc_free_expr (c->final_expr); in gfc_free_omp_clauses()
2087 && (m = gfc_match_dupl_check (!c->final_expr, "final", true, in gfc_match_omp_clauses()
2088 &c->final_expr)) != MATCH_NO) in gfc_match_omp_clauses()
6450 if (omp_clauses->final_expr) in resolve_omp_clauses()
6452 gfc_expr *expr = omp_clauses->final_expr; in resolve_omp_clauses()
H A Ddump-parse-tree.cc1471 if (omp_clauses->final_expr) in show_omp_clauses()
1474 show_expr (omp_clauses->final_expr); in show_omp_clauses()
H A Dtrans-openmp.cc3733 if (clauses->final_expr) in gfc_trans_omp_clauses()
3738 gfc_conv_expr (&se, clauses->final_expr); in gfc_trans_omp_clauses()
6221 clausesa[GFC_OMP_SPLIT_TASKLOOP].final_expr in gfc_split_omp_clauses()
6222 = code->ext.omp_clauses->final_expr; in gfc_split_omp_clauses()
H A Dgfortran.h1506 struct gfc_expr *final_expr; member
H A DChangeLog-20111954 * openmp.c (gfc_free_omp_clauses): Free also final_expr.
1977 (gfc_omp_clauses): Add final_expr and mergeable fields.
1982 * frontend-passes.c (gfc_code_walker): Also walk final_expr.
H A Dfrontend-passes.cc5640 WALK_SUBEXPR (co->ext.omp_clauses->final_expr); in gfc_code_walker()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans.c1102 gfc_expr *final_expr = NULL; in gfc_add_comp_finalizer_call() local
1114 gfc_is_finalizable (comp->ts.u.derived, &final_expr); in gfc_add_comp_finalizer_call()
1115 if (!final_expr) in gfc_add_comp_finalizer_call()
1119 gfc_conv_expr (&se, final_expr); in gfc_add_comp_finalizer_call()
1132 gfc_is_finalizable (CLASS_DATA (comp)->ts.u.derived, &final_expr); in gfc_add_comp_finalizer_call()
1162 if (!final_expr) in gfc_add_comp_finalizer_call()
1199 gfc_expr *final_expr = NULL; in gfc_add_finalizer_call() local
1208 gfc_is_finalizable (expr2->ts.u.derived, &final_expr); in gfc_add_finalizer_call()
1209 if (!final_expr) in gfc_add_finalizer_call()
1243 final_expr = gfc_copy_expr (expr); in gfc_add_finalizer_call()
[all …]
H A Dopenmp.c81 gfc_free_expr (c->final_expr); in gfc_free_omp_clauses()
1241 && c->final_expr == NULL
1242 && gfc_match ("final ( %e )", &c->final_expr) == MATCH_YES)
4208 if (omp_clauses->final_expr)
4210 gfc_expr *expr = omp_clauses->final_expr;
H A Dclass.c2655 gfc_is_finalizable (gfc_symbol *derived, gfc_expr **final_expr) in gfc_is_finalizable() argument
2676 if (final_expr) in gfc_is_finalizable()
2684 *final_expr = final->initializer; in gfc_is_finalizable()
H A Ddump-parse-tree.c1394 if (omp_clauses->final_expr) in show_omp_clauses()
1397 show_expr (omp_clauses->final_expr); in show_omp_clauses()
H A Dtrans-openmp.c3057 if (clauses->final_expr)
3062 gfc_conv_expr (&se, clauses->final_expr);
4839 clausesa[GFC_OMP_SPLIT_TASKLOOP].final_expr in gfc_split_omp_clauses()
4840 = code->ext.omp_clauses->final_expr; in gfc_split_omp_clauses()
H A Dgfortran.h1337 struct gfc_expr *final_expr; member
H A Dfrontend-passes.c5349 WALK_SUBEXPR (co->ext.omp_clauses->final_expr); in gfc_code_walker()