Searched refs:vptr_expr (Results 1 – 5 of 5) sorted by relevance
1346 gfc_expr *vptr_expr; in gfc_add_finalizer_call() local1348 vptr_expr = gfc_copy_expr (expr); in gfc_add_finalizer_call()1349 gfc_add_vptr_component (vptr_expr); in gfc_add_finalizer_call()1353 gfc_conv_expr (&se, vptr_expr); in gfc_add_finalizer_call()1354 gfc_free_expr (vptr_expr); in gfc_add_finalizer_call()
9647 gfc_expr * vptr_expr; in trans_class_vptr_len_assignment() local9683 vptr_expr = gfc_find_and_cut_at_last_class_ref (le); in trans_class_vptr_len_assignment()9684 if (vptr_expr != NULL && gfc_expr_attr (vptr_expr).class_ok) in trans_class_vptr_len_assignment()9687 if (UNLIMITED_POLY (vptr_expr) in trans_class_vptr_len_assignment()9688 || (vptr_expr->ts.type == BT_DERIVED in trans_class_vptr_len_assignment()9689 && vptr_expr->ts.u.derived->attr.unlimited_polymorphic)) in trans_class_vptr_len_assignment()9690 to_len = trans_get_upoly_len (block, vptr_expr); in trans_class_vptr_len_assignment()9691 gfc_add_vptr_component (vptr_expr); in trans_class_vptr_len_assignment()9695 vptr_expr = gfc_lval_expr_from_sym (gfc_find_vtab (&le->ts)); in trans_class_vptr_len_assignment()9697 gfc_conv_expr (&se, vptr_expr); in trans_class_vptr_len_assignment()[all …]
680 * trans-expr.c (trans_class_vptr_len_assignment): 'vptr_expr'
1273 gfc_expr *vptr_expr; in gfc_add_finalizer_call() local1275 vptr_expr = gfc_copy_expr (expr); in gfc_add_finalizer_call()1276 gfc_add_vptr_component (vptr_expr); in gfc_add_finalizer_call()1280 gfc_conv_expr (&se, vptr_expr); in gfc_add_finalizer_call()1281 gfc_free_expr (vptr_expr); in gfc_add_finalizer_call()
9104 gfc_expr * vptr_expr; in trans_class_vptr_len_assignment() local9140 vptr_expr = gfc_find_and_cut_at_last_class_ref (le); in trans_class_vptr_len_assignment()9141 if (vptr_expr != NULL && gfc_expr_attr (vptr_expr).class_ok) in trans_class_vptr_len_assignment()9144 if (UNLIMITED_POLY (vptr_expr) in trans_class_vptr_len_assignment()9145 || (vptr_expr->ts.type == BT_DERIVED in trans_class_vptr_len_assignment()9146 && vptr_expr->ts.u.derived->attr.unlimited_polymorphic)) in trans_class_vptr_len_assignment()9147 to_len = trans_get_upoly_len (block, vptr_expr); in trans_class_vptr_len_assignment()9148 gfc_add_vptr_component (vptr_expr); in trans_class_vptr_len_assignment()9152 vptr_expr = gfc_lval_expr_from_sym (gfc_find_vtab (&le->ts)); in trans_class_vptr_len_assignment()9154 gfc_conv_expr (&se, vptr_expr); in trans_class_vptr_len_assignment()[all …]