Home
last modified time | relevance | path

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

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-expr.c2098 tree caf_decl; in gfc_get_tree_for_caf_expr() local
2122 caf_decl = expr->symtree->n.sym->backend_decl == NULL_TREE in gfc_get_tree_for_caf_expr()
2130 caf_decl = gfc_class_data_get (caf_decl); in gfc_get_tree_for_caf_expr()
2132 return caf_decl; in gfc_get_tree_for_caf_expr()
2139 caf_decl = gfc_class_data_get (caf_decl); in gfc_get_tree_for_caf_expr()
2141 return caf_decl; in gfc_get_tree_for_caf_expr()
2149 return caf_decl; in gfc_get_tree_for_caf_expr()
2159 if (POINTER_TYPE_P (TREE_TYPE (caf_decl))) in gfc_get_tree_for_caf_expr()
2160 caf_decl = build_fold_indirect_ref_loc (input_location, caf_decl); in gfc_get_tree_for_caf_expr()
2161 caf_decl = fold_build3_loc (input_location, COMPONENT_REF, in gfc_get_tree_for_caf_expr()
[all …]
H A Dtrans-intrinsic.c1662 tree caf_decl, token, offset, image_index, tmp; in gfc_conv_intrinsic_caf_get() local
1764 caf_decl = gfc_get_tree_for_caf_expr (array_expr); in gfc_conv_intrinsic_caf_get()
1765 if (TREE_CODE (TREE_TYPE (caf_decl)) == REFERENCE_TYPE) in gfc_conv_intrinsic_caf_get()
1766 caf_decl = build_fold_indirect_ref_loc (input_location, caf_decl); in gfc_conv_intrinsic_caf_get()
1768 caf_decl); in gfc_conv_intrinsic_caf_get()
1769 gfc_get_caf_token_offset (se, &token, NULL, caf_decl, NULL, in gfc_conv_intrinsic_caf_get()
1886 caf_decl = gfc_get_tree_for_caf_expr (array_expr); in gfc_conv_intrinsic_caf_get()
1887 if (TREE_CODE (TREE_TYPE (caf_decl)) == REFERENCE_TYPE) in gfc_conv_intrinsic_caf_get()
1888 caf_decl = build_fold_indirect_ref_loc (input_location, caf_decl); in gfc_conv_intrinsic_caf_get()
1889 image_index = gfc_caf_get_image_index (&se->pre, array_expr, caf_decl); in gfc_conv_intrinsic_caf_get()
[all …]
H A Dtrans.c1358 tree caf_type, caf_decl = pointer; in gfc_deallocate_with_status() local
1359 pointer = gfc_conv_descriptor_data_get (caf_decl); in gfc_deallocate_with_status()
1360 caf_type = TREE_TYPE (caf_decl); in gfc_deallocate_with_status()
1363 token = gfc_conv_descriptor_token (caf_decl); in gfc_deallocate_with_status()
1364 else if (DECL_LANG_SPECIFIC (caf_decl) in gfc_deallocate_with_status()
1365 && GFC_DECL_TOKEN (caf_decl) != NULL_TREE) in gfc_deallocate_with_status()
1366 token = GFC_DECL_TOKEN (caf_decl); in gfc_deallocate_with_status()
H A Dtrans-stmt.c862 tree caf_decl = gfc_get_tree_for_caf_expr (code->expr1); in gfc_trans_lock_unlock() local
875 gfc_get_caf_token_offset (&se, &token, NULL, caf_decl, NULL_TREE, in gfc_trans_lock_unlock()
879 image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl); in gfc_trans_lock_unlock()
1058 tree caf_decl = gfc_get_tree_for_caf_expr (code->expr1); in gfc_trans_event_post_wait() local
1072 gfc_get_caf_token_offset (&argse, &token, NULL, caf_decl, NULL_TREE, in gfc_trans_event_post_wait()
1077 image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl); in gfc_trans_event_post_wait()
6799 tree caf_decl, token; in gfc_trans_allocate() local
6809 caf_decl = gfc_get_tree_for_caf_expr (expr); in gfc_trans_allocate()
6810 gfc_get_caf_token_offset (&caf_se, &token, NULL, caf_decl, in gfc_trans_allocate()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-expr.cc2192 tree caf_decl; in gfc_get_tree_for_caf_expr() local
2216 caf_decl = expr->symtree->n.sym->backend_decl == NULL_TREE in gfc_get_tree_for_caf_expr()
2224 caf_decl = gfc_class_data_get (caf_decl); in gfc_get_tree_for_caf_expr()
2226 return caf_decl; in gfc_get_tree_for_caf_expr()
2233 caf_decl = gfc_class_data_get (caf_decl); in gfc_get_tree_for_caf_expr()
2235 return caf_decl; in gfc_get_tree_for_caf_expr()
2243 return caf_decl; in gfc_get_tree_for_caf_expr()
2253 if (POINTER_TYPE_P (TREE_TYPE (caf_decl))) in gfc_get_tree_for_caf_expr()
2254 caf_decl = build_fold_indirect_ref_loc (input_location, caf_decl); in gfc_get_tree_for_caf_expr()
2255 caf_decl = fold_build3_loc (input_location, COMPONENT_REF, in gfc_get_tree_for_caf_expr()
[all …]
H A Dtrans-intrinsic.cc1670 tree caf_decl, token, offset, image_index, tmp; in gfc_conv_intrinsic_caf_get() local
1772 caf_decl = gfc_get_tree_for_caf_expr (array_expr); in gfc_conv_intrinsic_caf_get()
1773 if (TREE_CODE (TREE_TYPE (caf_decl)) == REFERENCE_TYPE) in gfc_conv_intrinsic_caf_get()
1774 caf_decl = build_fold_indirect_ref_loc (input_location, caf_decl); in gfc_conv_intrinsic_caf_get()
1776 caf_decl); in gfc_conv_intrinsic_caf_get()
1777 gfc_get_caf_token_offset (se, &token, NULL, caf_decl, NULL, in gfc_conv_intrinsic_caf_get()
1894 caf_decl = gfc_get_tree_for_caf_expr (array_expr); in gfc_conv_intrinsic_caf_get()
1895 if (TREE_CODE (TREE_TYPE (caf_decl)) == REFERENCE_TYPE) in gfc_conv_intrinsic_caf_get()
1896 caf_decl = build_fold_indirect_ref_loc (input_location, caf_decl); in gfc_conv_intrinsic_caf_get()
1897 image_index = gfc_caf_get_image_index (&se->pre, array_expr, caf_decl); in gfc_conv_intrinsic_caf_get()
[all …]
H A Dtrans.cc1431 tree caf_type, caf_decl = pointer; in gfc_deallocate_with_status() local
1432 pointer = gfc_conv_descriptor_data_get (caf_decl); in gfc_deallocate_with_status()
1433 caf_type = TREE_TYPE (caf_decl); in gfc_deallocate_with_status()
1436 token = gfc_conv_descriptor_token (caf_decl); in gfc_deallocate_with_status()
1437 else if (DECL_LANG_SPECIFIC (caf_decl) in gfc_deallocate_with_status()
1438 && GFC_DECL_TOKEN (caf_decl) != NULL_TREE) in gfc_deallocate_with_status()
1439 token = GFC_DECL_TOKEN (caf_decl); in gfc_deallocate_with_status()
H A Dtrans-stmt.cc896 tree caf_decl = gfc_get_tree_for_caf_expr (code->expr1); in gfc_trans_lock_unlock() local
909 gfc_get_caf_token_offset (&se, &token, NULL, caf_decl, NULL_TREE, in gfc_trans_lock_unlock()
913 image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl); in gfc_trans_lock_unlock()
1092 tree caf_decl = gfc_get_tree_for_caf_expr (code->expr1); in gfc_trans_event_post_wait() local
1106 gfc_get_caf_token_offset (&argse, &token, NULL, caf_decl, NULL_TREE, in gfc_trans_event_post_wait()
1111 image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl); in gfc_trans_event_post_wait()
6832 tree caf_decl, token; in gfc_trans_allocate() local
6842 caf_decl = gfc_get_tree_for_caf_expr (expr); in gfc_trans_allocate()
6843 gfc_get_caf_token_offset (&caf_se, &token, NULL, caf_decl, in gfc_trans_allocate()