| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | resolve.cc | 6314 if (e->value.compcall.base_object) in extract_compcall_passed_object()
6315 po = gfc_copy_expr (e->value.compcall.base_object); in extract_compcall_passed_object()
6341 tbp = e->value.compcall.tbp; in update_compcall_arglist()
6350 if (tbp->nopass || e->value.compcall.ignore_pass) in update_compcall_arglist()
6359 e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual, po, in update_compcall_arglist()
6436 e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual, po, in update_ppc_arglist()
6476 if (e->value.compcall.tbp->nopass && base->rank != 0) in check_typebound_baseobject()
6500 gcc_assert (!e->value.compcall.tbp->is_generic); in resolve_typebound_static()
6506 *actual = e->value.compcall.actual; in resolve_typebound_static()
6507 *target = e->value.compcall.tbp->u.specific; in resolve_typebound_static()
[all …]
|
| H A D | primary.cc | 2362 primary->value.compcall.tbp = tbp->n.tb; in gfc_match_varspec()
2363 primary->value.compcall.name = tbp->name; in gfc_match_varspec()
2364 primary->value.compcall.ignore_pass = 0; in gfc_match_varspec()
2365 primary->value.compcall.assign = 0; in gfc_match_varspec()
2366 primary->value.compcall.base_object = NULL; in gfc_match_varspec()
2374 &primary->value.compcall.actual); in gfc_match_varspec()
2380 primary->value.compcall.actual = NULL; in gfc_match_varspec()
2495 &primary->value.compcall.actual); in gfc_match_varspec()
|
| H A D | gfc-internals.texi | 501 @code{value.compcall} containing the argument list and the procedure called,
658 and the call's target procedure (@code{value.compcall.tbp}) is re-pointed to
667 nodes of type @code{EXPR_COMPCALL}. Their @code{value.compcall.actual} saves
668 the actual argument list of the call and @code{value.compcall.tbp} points to the
687 @code{value.compcall.ignore_pass} signals that even though a @code{PASS}
690 @code{value.compcall.base_object} overrides, if it is set, the base-object
694 Finally, if @code{value.compcall.assign} is set, the call was produced in
|
| H A D | interface.cc | 4517 e->value.compcall.tbp = target; in build_compcall_for_operator()
4518 e->value.compcall.name = gname ? gname : "$op"; in build_compcall_for_operator()
4519 e->value.compcall.actual = actual; in build_compcall_for_operator()
4520 e->value.compcall.base_object = base; in build_compcall_for_operator()
4521 e->value.compcall.ignore_pass = 1; in build_compcall_for_operator()
4522 e->value.compcall.assign = 0; in build_compcall_for_operator()
4731 c->expr1->value.compcall.assign = 1; in gfc_extend_assign()
|
| H A D | expr.cc | 388 q->value.compcall.actual = in gfc_copy_expr()
389 gfc_copy_actual_arglist (p->value.compcall.actual); in gfc_copy_expr()
390 q->value.compcall.tbp = p->value.compcall.tbp; in gfc_copy_expr()
491 gfc_free_actual_arglist (e->value.compcall.actual); in free_expr0()
|
| H A D | dump-parse-tree.cc | 496 fprintf (dumpfile, "%s", p->value.compcall.name); in show_compcall()
498 show_actual_arglist (p->value.compcall.actual); in show_compcall()
|
| H A D | ChangeLog-2008 | 1006 * gfortran.h (struct gfc_expr): Remove unused `derived' from compcall.
1013 primary->value.compcall.
1027 (struct gfc_expr): New members `derived' and `name' in compcall union
1153 (struct gfc_expr): New union-member `compcall' for EXPR_COMPCALL.
|
| H A D | frontend-passes.cc | 5247 WALK_SUBEXPR ((*e)->value.compcall.base_object); in gfc_expr_walker()
5248 for (a = (*e)->value.compcall.actual; a; a = a->next) in gfc_expr_walker()
|
| H A D | gfortran.h | 2591 compcall; member
|
| H A D | ChangeLog-2009 | 673 * resolve.c (check_class_members): Reset compcall.assign.
1112 members/attributes of gfc_expr.value.compcall used for type-bound
1132 * gfortran.h (gfc_expr): Optionally store base-object in compcall value
|
| H A D | trans-expr.cc | 11135 gcc_assert (!expr->value.compcall.tbp->is_generic); in gfc_expr_is_variable()
11136 func_ifc = expr->value.compcall.tbp->u.specific->n.sym; in gfc_expr_is_variable()
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | resolve.c | 6192 if (e->value.compcall.base_object) in extract_compcall_passed_object()
6193 po = gfc_copy_expr (e->value.compcall.base_object); in extract_compcall_passed_object()
6219 tbp = e->value.compcall.tbp; in update_compcall_arglist()
6228 if (tbp->nopass || e->value.compcall.ignore_pass) in update_compcall_arglist()
6237 e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual, po, in update_compcall_arglist()
6314 e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual, po, in update_ppc_arglist()
6354 if (e->value.compcall.tbp->nopass && base->rank != 0) in check_typebound_baseobject()
6378 gcc_assert (!e->value.compcall.tbp->is_generic); in resolve_typebound_static()
6384 *actual = e->value.compcall.actual; in resolve_typebound_static()
6385 *target = e->value.compcall.tbp->u.specific; in resolve_typebound_static()
[all …]
|
| H A D | primary.c | 2374 primary->value.compcall.tbp = tbp->n.tb; in gfc_match_varspec()
2375 primary->value.compcall.name = tbp->name; in gfc_match_varspec()
2376 primary->value.compcall.ignore_pass = 0; in gfc_match_varspec()
2377 primary->value.compcall.assign = 0; in gfc_match_varspec()
2378 primary->value.compcall.base_object = NULL; in gfc_match_varspec()
2386 &primary->value.compcall.actual); in gfc_match_varspec()
2392 primary->value.compcall.actual = NULL; in gfc_match_varspec()
2507 &primary->value.compcall.actual); in gfc_match_varspec()
|
| H A D | gfc-internals.texi | 501 @code{value.compcall} containing the argument list and the procedure called,
658 and the call's target procedure (@code{value.compcall.tbp}) is re-pointed to
667 nodes of type @code{EXPR_COMPCALL}. Their @code{value.compcall.actual} saves
668 the actual argument list of the call and @code{value.compcall.tbp} points to the
687 @code{value.compcall.ignore_pass} signals that even though a @code{PASS}
690 @code{value.compcall.base_object} overrides, if it is set, the base-object
694 Finally, if @code{value.compcall.assign} is set, the call was produced in
|
| H A D | interface.c | 4314 e->value.compcall.tbp = target; in build_compcall_for_operator()
4315 e->value.compcall.name = gname ? gname : "$op"; in build_compcall_for_operator()
4316 e->value.compcall.actual = actual; in build_compcall_for_operator()
4317 e->value.compcall.base_object = base; in build_compcall_for_operator()
4318 e->value.compcall.ignore_pass = 1; in build_compcall_for_operator()
4319 e->value.compcall.assign = 0; in build_compcall_for_operator()
4528 c->expr1->value.compcall.assign = 1; in gfc_extend_assign()
|
| H A D | expr.c | 387 q->value.compcall.actual = in gfc_copy_expr()
388 gfc_copy_actual_arglist (p->value.compcall.actual); in gfc_copy_expr()
389 q->value.compcall.tbp = p->value.compcall.tbp; in gfc_copy_expr()
490 gfc_free_actual_arglist (e->value.compcall.actual); in free_expr0()
|
| H A D | dump-parse-tree.c | 471 fprintf (dumpfile, "%s", p->value.compcall.name); in show_compcall()
473 show_actual_arglist (p->value.compcall.actual); in show_compcall()
|
| H A D | gfortran.h | 2302 compcall; member
|
| H A D | frontend-passes.c | 4967 WALK_SUBEXPR ((*e)->value.compcall.base_object); in gfc_expr_walker()
4968 for (a = (*e)->value.compcall.actual; a; a = a->next) in gfc_expr_walker()
|
| H A D | trans-expr.c | 10597 gcc_assert (!expr->value.compcall.tbp->is_generic); in gfc_expr_is_variable()
10598 func_ifc = expr->value.compcall.tbp->u.specific->n.sym; in gfc_expr_is_variable()
|