Home
last modified time | relevance | path

Searched refs:class_ref (Results 1 – 8 of 8) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-expr.cc441 gfc_ref *ref, *class_ref, *tail = NULL, *array_ref; in gfc_find_and_cut_at_last_class_ref() local
444 class_ref = NULL; in gfc_find_and_cut_at_last_class_ref()
469 class_ref = ref; in gfc_find_and_cut_at_last_class_ref()
491 class_ref = ref; in gfc_find_and_cut_at_last_class_ref()
501 if (class_ref) in gfc_find_and_cut_at_last_class_ref()
503 tail = class_ref->next; in gfc_find_and_cut_at_last_class_ref()
504 class_ref->next = NULL; in gfc_find_and_cut_at_last_class_ref()
518 if (class_ref) in gfc_find_and_cut_at_last_class_ref()
520 gfc_free_ref_list (class_ref->next); in gfc_find_and_cut_at_last_class_ref()
521 class_ref->next = tail; in gfc_find_and_cut_at_last_class_ref()
[all …]
H A Dresolve.cc6554 get_declared_from_expr (gfc_ref **class_ref, gfc_ref **new_ref, in get_declared_from_expr() argument
6561 if (class_ref) in get_declared_from_expr()
6562 *class_ref = NULL; in get_declared_from_expr()
6576 if (class_ref) in get_declared_from_expr()
6577 *class_ref = ref; in get_declared_from_expr()
6810 gfc_ref *class_ref; in resolve_typebound_function() local
6840 get_declared_from_expr (&class_ref, NULL, e, false); in resolve_typebound_function()
6844 if (class_ref && class_ref->next) in resolve_typebound_function()
6846 gfc_free_ref_list (class_ref->next); in resolve_typebound_function()
6847 class_ref->next = NULL; in resolve_typebound_function()
[all …]
H A Dtrans-intrinsic.cc8361 tree class_ref = NULL_TREE; in gfc_conv_intrinsic_transfer() local
8414 class_ref = argse.expr; in gfc_conv_intrinsic_transfer()
8428 if (class_ref != NULL_TREE) in gfc_conv_intrinsic_transfer()
8429 tmp = gfc_class_vtab_size_get (class_ref); in gfc_conv_intrinsic_transfer()
H A DChangeLog-20103579 resolve_typebound_generic_call. Make new_ref and class_ref
3585 freeing 'class_ref->next' twice.
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-expr.c394 gfc_ref *ref, *class_ref, *tail = NULL, *array_ref; in gfc_find_and_cut_at_last_class_ref() local
397 class_ref = NULL; in gfc_find_and_cut_at_last_class_ref()
413 class_ref = ref; in gfc_find_and_cut_at_last_class_ref()
422 if (class_ref) in gfc_find_and_cut_at_last_class_ref()
424 tail = class_ref->next; in gfc_find_and_cut_at_last_class_ref()
425 class_ref->next = NULL; in gfc_find_and_cut_at_last_class_ref()
439 if (class_ref) in gfc_find_and_cut_at_last_class_ref()
441 gfc_free_ref_list (class_ref->next); in gfc_find_and_cut_at_last_class_ref()
442 class_ref->next = tail; in gfc_find_and_cut_at_last_class_ref()
829 gfc_ref *class_ref; in class_scalar_coarray_to_class() local
[all …]
H A Dresolve.c6432 get_declared_from_expr (gfc_ref **class_ref, gfc_ref **new_ref, in get_declared_from_expr() argument
6439 if (class_ref) in get_declared_from_expr()
6440 *class_ref = NULL; in get_declared_from_expr()
6454 if (class_ref) in get_declared_from_expr()
6455 *class_ref = ref; in get_declared_from_expr()
6688 gfc_ref *class_ref; in resolve_typebound_function() local
6718 get_declared_from_expr (&class_ref, NULL, e, false); in resolve_typebound_function()
6722 if (class_ref && class_ref->next) in resolve_typebound_function()
6724 gfc_free_ref_list (class_ref->next); in resolve_typebound_function()
6725 class_ref->next = NULL; in resolve_typebound_function()
[all …]
H A Dtrans-array.c3506 gfc_ref *class_ref = NULL; in build_class_array_ref() local
3537 class_ref = ref; in build_class_array_ref()
3546 if (class_ref == NULL && expr && expr->symtree->n.sym->attr.function in build_class_array_ref()
3578 else if (class_ref == NULL) in build_class_array_ref()
3593 ref = class_ref->next; in build_class_array_ref()
3594 class_ref->next = NULL; in build_class_array_ref()
3599 class_ref->next = ref; in build_class_array_ref()
H A Dtrans-intrinsic.c8277 tree class_ref = NULL_TREE; in gfc_conv_intrinsic_transfer() local
8330 class_ref = argse.expr; in gfc_conv_intrinsic_transfer()
8344 if (class_ref != NULL_TREE) in gfc_conv_intrinsic_transfer()
8345 tmp = gfc_class_vtab_size_get (class_ref); in gfc_conv_intrinsic_transfer()