Home
last modified time | relevance | path

Searched refs:backend_decl (Results 1 – 25 of 47) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-decl.c321 if (lp->backend_decl) in gfc_get_label_decl()
322 return lp->backend_decl; in gfc_get_label_decl()
344 lp->backend_decl = label_decl; in gfc_get_label_decl()
641 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_finish_var_decl()
922 if (gfc_fl_struct (s->attr.flavor) && !s->backend_decl) in gfc_get_module_backend_decl()
925 s->backend_decl = gfc_get_union_type (s); in gfc_get_module_backend_decl()
927 s->backend_decl = gfc_get_derived_type (s); in gfc_get_module_backend_decl()
932 else if (s->backend_decl) in gfc_get_module_backend_decl()
938 sym->ts.u.cl->backend_decl = s->ts.u.cl->backend_decl; in gfc_get_module_backend_decl()
939 sym->backend_decl = s->backend_decl; in gfc_get_module_backend_decl()
[all …]
H A Dtrans-types.c1103 len = (cl == NULL) ? NULL_TREE : cl->backend_decl; in gfc_get_character_type()
2227 if (sym->backend_decl && !sym->attr.function) in gfc_sym_type()
2228 return TREE_TYPE (sym->backend_decl); in gfc_sym_type()
2232 && sym->ts.u.cl->backend_decl == NULL_TREE in gfc_sym_type()
2235 && sym->ns->proc_name->ts.u.cl->backend_decl != NULL_TREE) in gfc_sym_type()
2236 sym->ts.u.cl->backend_decl = sym->ns->proc_name->ts.u.cl->backend_decl; in gfc_sym_type()
2244 || !sym->ts.u.cl->backend_decl)))) in gfc_sym_type()
2267 || sym->ts.u.cl->backend_decl) in gfc_sym_type()
2386 if (from->backend_decl == NULL in gfc_copy_dt_decls_ifequal()
2390 to->backend_decl = from->backend_decl; in gfc_copy_dt_decls_ifequal()
[all …]
H A Dtarget-memory.c272 ptr = TREE_INT_CST_LOW(DECL_FIELD_OFFSET(cmp->backend_decl)) in encode_derived()
273 + TREE_INT_CST_LOW(DECL_FIELD_BIT_OFFSET(cmp->backend_decl))/8; in encode_derived()
277 size = int_size_in_bytes (TREE_TYPE (cmp->backend_decl)); in encode_derived()
565 gcc_assert (cmp->backend_decl); in gfc_interpret_derived()
566 ptr = TREE_INT_CST_LOW (DECL_FIELD_BIT_OFFSET (cmp->backend_decl)); in gfc_interpret_derived()
568 ptr = ptr/8 + TREE_INT_CST_LOW (DECL_FIELD_OFFSET (cmp->backend_decl)); in gfc_interpret_derived()
686 gcc_assert (cmp && cmp->backend_decl); in expr_to_char()
689 ptr = TREE_INT_CST_LOW(DECL_FIELD_OFFSET(cmp->backend_decl)) in expr_to_char()
690 + TREE_INT_CST_LOW(DECL_FIELD_BIT_OFFSET(cmp->backend_decl))/8; in expr_to_char()
H A Dtrans-expr.c482 vtable = vtab->backend_decl; in gfc_reset_vptr()
843 tmp = e->symtree->n.sym->backend_decl; in class_scalar_coarray_to_class()
991 else if (e->ts.u.cl->backend_decl) in gfc_conv_intrinsic_to_class()
992 tmp = e->ts.u.cl->backend_decl; in gfc_conv_intrinsic_to_class()
1011 tmp = e->ts.u.cl->backend_decl; in gfc_conv_intrinsic_to_class()
1164 tmp = e->symtree->n.sym->backend_decl; in gfc_conv_class_to_class()
2045 e->ts.u.cl->backend_decl = tmpse.expr; in gfc_get_expr_charlen()
2053 length = e->symtree->n.sym->ts.u.cl->backend_decl; in gfc_get_expr_charlen()
2062 length = r->u.c.component->ts.u.cl->backend_decl; in gfc_get_expr_charlen()
2122 caf_decl = expr->symtree->n.sym->backend_decl == NULL_TREE in gfc_get_tree_for_caf_expr()
[all …]
H A Dtrans-array.c881 tmp = expr->symtree->n.sym->backend_decl; in get_CFI_desc()
883 tmp = sym->backend_decl; in get_CFI_desc()
926 tmp = gfc_class_vptr_get (expr->symtree->n.sym->backend_decl); in gfc_get_array_span()
961 gcc_assert (TREE_STATIC (sym->backend_decl)); in gfc_trans_static_array_pointer()
963 type = TREE_TYPE (sym->backend_decl); in gfc_trans_static_array_pointer()
964 DECL_INITIAL (sym->backend_decl) = gfc_build_null_descriptor (type); in gfc_trans_static_array_pointer()
1306 vptr = vtab->backend_decl; in get_class_info_from_ss()
2223 (*clp)->backend_decl = len; in store_backend_decl()
2243 *len = e->ts.u.cl->backend_decl; in get_array_ctor_all_strlen()
2324 if (!ts->u.cl->backend_decl) in get_array_ctor_var_strlen()
[all …]
H A Dtrans-const.c179 if (!cl || cl->backend_decl) in gfc_conv_const_charlen()
184 cl->backend_decl = gfc_conv_mpz_to_tree (cl->length->value.integer, in gfc_conv_const_charlen()
186 cl->backend_decl = fold_convert (gfc_charlen_type_node, in gfc_conv_const_charlen()
187 cl->backend_decl); in gfc_conv_const_charlen()
H A Dtrans-stmt.c421 if (sym->backend_decl == NULL) in gfc_trans_call()
422 sym->backend_decl = gfc_get_symbol_decl (sym); in gfc_trans_call()
423 gfc_add_modify (&se.pre, sym->backend_decl, se.expr); in gfc_trans_call()
1762 class_decl = DECL_LANG_SPECIFIC (sym2->backend_decl) ? in trans_associate_var()
1763 GFC_DECL_SAVED_DESCRIPTOR (sym2->backend_decl) : in trans_associate_var()
1764 sym2->backend_decl; in trans_associate_var()
1773 class_decl = sym2->backend_decl; in trans_associate_var()
1790 desc = sym->backend_decl; in trans_associate_var()
1828 se.expr = sym2->backend_decl; in trans_associate_var()
1850 tmp = sym->backend_decl; in trans_associate_var()
[all …]
H A Dtrans.c2240 gcc_assert (ns->proc_name->backend_decl == NULL); in gfc_generate_module_code()
2241 ns->proc_name->backend_decl in gfc_generate_module_code()
2249 entry->namespace_decl = ns->proc_name->backend_decl; in gfc_generate_module_code()
2263 DECL_CONTEXT (n->proc_name->backend_decl) = ns->proc_name->backend_decl; in gfc_generate_module_code()
2264 gfc_module_add_decl (entry, n->proc_name->backend_decl); in gfc_generate_module_code()
2267 DECL_CONTEXT (el->sym->backend_decl) = ns->proc_name->backend_decl; in gfc_generate_module_code()
2268 gfc_module_add_decl (entry, el->sym->backend_decl); in gfc_generate_module_code()
2392 *decl = strlen ? strlen->backend_decl : NULL_TREE; in gfc_deferred_strlen()
H A Dtrans-io.c755 array = sym->backend_decl; in gfc_convert_array_to_string()
1594 decl = c->backend_decl; in nml_get_addr_expr()
1689 decl = sym ? sym->backend_decl : c->backend_decl; in transfer_namelist_element()
1755 vtable = vtab->backend_decl; in transfer_namelist_element()
1764 tmp = ts->u.cl->backend_decl; in transfer_namelist_element()
2453 if (ts->u.derived->backend_decl == NULL_TREE) in transfer_expr()
2462 field = c->backend_decl; in transfer_expr()
H A Dtrans-openmp.c1607 && sym->ns->proc_name->backend_decl == parent_decl in gfc_trans_omp_variable()
1620 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_trans_omp_variable()
1634 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_trans_omp_variable()
1688 tree decl, backend_decl, stmt, type, outer_decl; in gfc_trans_omp_array_reduction_or_udr() local
1716 backend_decl = omp_reduction_init (c, gfc_sym_type (&init_val_sym)); in gfc_trans_omp_array_reduction_or_udr()
1718 backend_decl = NULL; in gfc_trans_omp_array_reduction_or_udr()
1726 backend_decl = build_zero_cst (gfc_sym_type (&init_val_sym)); in gfc_trans_omp_array_reduction_or_udr()
1729 backend_decl = NULL_TREE; in gfc_trans_omp_array_reduction_or_udr()
1732 init_val_sym.backend_decl = backend_decl; in gfc_trans_omp_array_reduction_or_udr()
1741 outer_sym.backend_decl = outer_decl; in gfc_trans_omp_array_reduction_or_udr()
[all …]
H A Dgfortran.h1030 tree backend_decl; member
1092 tree backend_decl; member
1456 tree backend_decl; member
1640 tree backend_decl; member
H A Dtrans-intrinsic.c1199 last_component_ref_tree = expr->symtree->n.sym->backend_decl; in conv_expr_ref_to_caf_ref()
1288 tmp2 = compute_component_offset (ref->u.c.component->backend_decl, in conv_expr_ref_to_caf_ref()
1304 gfc_conv_descriptor_token (ref->u.c.component->backend_decl), 1); in conv_expr_ref_to_caf_ref()
1324 ? ref->u.c.component->backend_decl : NULL_TREE; in conv_expr_ref_to_caf_ref()
1725 array_expr->ts.u.cl->backend_decl); in gfc_conv_intrinsic_caf_get()
1726 argse.string_length = array_expr->ts.u.cl->backend_decl; in gfc_conv_intrinsic_caf_get()
7332 len = sym->ts.u.cl->backend_decl; in gfc_conv_intrinsic_len()
7875 else if (sym && sym->backend_decl) in gfc_conv_intrinsic_size()
7877 gcc_assert (GFC_CLASS_TYPE_P (TREE_TYPE (sym->backend_decl))); in gfc_conv_intrinsic_size()
7878 argse.expr = sym->backend_decl; in gfc_conv_intrinsic_size()
[all …]
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-decl.cc318 if (lp->backend_decl) in gfc_get_label_decl()
319 return lp->backend_decl; in gfc_get_label_decl()
341 lp->backend_decl = label_decl; in gfc_get_label_decl()
643 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_finish_var_decl()
927 if (gfc_fl_struct (s->attr.flavor) && !s->backend_decl) in gfc_get_module_backend_decl()
930 s->backend_decl = gfc_get_union_type (s); in gfc_get_module_backend_decl()
932 s->backend_decl = gfc_get_derived_type (s); in gfc_get_module_backend_decl()
937 else if (s->backend_decl) in gfc_get_module_backend_decl()
943 sym->ts.u.cl->backend_decl = s->ts.u.cl->backend_decl; in gfc_get_module_backend_decl()
944 sym->backend_decl = s->backend_decl; in gfc_get_module_backend_decl()
[all …]
H A Dtrans-types.cc1132 len = (cl == NULL) ? NULL_TREE : cl->backend_decl; in gfc_get_character_type()
2287 if (sym->backend_decl && !sym->attr.function) in gfc_sym_type()
2288 return TREE_TYPE (sym->backend_decl); in gfc_sym_type()
2292 && sym->ts.u.cl->backend_decl == NULL_TREE in gfc_sym_type()
2295 && sym->ns->proc_name->ts.u.cl->backend_decl != NULL_TREE) in gfc_sym_type()
2296 sym->ts.u.cl->backend_decl = sym->ns->proc_name->ts.u.cl->backend_decl; in gfc_sym_type()
2304 || !sym->ts.u.cl->backend_decl)))) in gfc_sym_type()
2332 || sym->ts.u.cl->backend_decl) in gfc_sym_type()
2452 if (from->backend_decl == NULL in gfc_copy_dt_decls_ifequal()
2456 to->backend_decl = from->backend_decl; in gfc_copy_dt_decls_ifequal()
[all …]
H A Dtarget-memory.cc271 ptr = TREE_INT_CST_LOW(DECL_FIELD_OFFSET(cmp->backend_decl)) in encode_derived()
272 + TREE_INT_CST_LOW(DECL_FIELD_BIT_OFFSET(cmp->backend_decl))/8; in encode_derived()
276 size = int_size_in_bytes (TREE_TYPE (cmp->backend_decl)); in encode_derived()
565 gcc_assert (cmp->backend_decl); in gfc_interpret_derived()
566 ptr = TREE_INT_CST_LOW (DECL_FIELD_BIT_OFFSET (cmp->backend_decl)); in gfc_interpret_derived()
568 ptr = ptr/8 + TREE_INT_CST_LOW (DECL_FIELD_OFFSET (cmp->backend_decl)); in gfc_interpret_derived()
686 gcc_assert (cmp && cmp->backend_decl); in expr_to_char()
689 ptr = TREE_INT_CST_LOW(DECL_FIELD_OFFSET(cmp->backend_decl)) in expr_to_char()
690 + TREE_INT_CST_LOW(DECL_FIELD_BIT_OFFSET(cmp->backend_decl))/8; in expr_to_char()
H A Dtrans-array.cc928 tmp = expr->symtree->n.sym->backend_decl; in get_CFI_desc()
930 tmp = sym->backend_decl; in get_CFI_desc()
985 tmp = gfc_class_vptr_get (expr->symtree->n.sym->backend_decl); in gfc_get_array_span()
1029 gcc_assert (TREE_STATIC (sym->backend_decl)); in gfc_trans_static_array_pointer()
1031 type = TREE_TYPE (sym->backend_decl); in gfc_trans_static_array_pointer()
1032 DECL_INITIAL (sym->backend_decl) = gfc_build_null_descriptor (type); in gfc_trans_static_array_pointer()
1374 vptr = vtab->backend_decl; in get_class_info_from_ss()
2319 (*clp)->backend_decl = len; in store_backend_decl()
2339 *len = e->ts.u.cl->backend_decl; in get_array_ctor_all_strlen()
2420 if (!ts->u.cl->backend_decl) in get_array_ctor_var_strlen()
[all …]
H A Dtrans-expr.cc561 vtable = vtab->backend_decl; in gfc_reset_vptr()
937 tmp = e->symtree->n.sym->backend_decl; in class_scalar_coarray_to_class()
1085 else if (e->ts.u.cl->backend_decl) in gfc_conv_intrinsic_to_class()
1086 tmp = e->ts.u.cl->backend_decl; in gfc_conv_intrinsic_to_class()
1105 tmp = e->ts.u.cl->backend_decl; in gfc_conv_intrinsic_to_class()
1258 tmp = e->symtree->n.sym->backend_decl; in gfc_conv_class_to_class()
2139 e->ts.u.cl->backend_decl = tmpse.expr; in gfc_get_expr_charlen()
2147 length = e->symtree->n.sym->ts.u.cl->backend_decl; in gfc_get_expr_charlen()
2156 length = r->u.c.component->ts.u.cl->backend_decl; in gfc_get_expr_charlen()
2216 caf_decl = expr->symtree->n.sym->backend_decl == NULL_TREE in gfc_get_tree_for_caf_expr()
[all …]
H A Dtrans-const.cc179 if (!cl || cl->backend_decl) in gfc_conv_const_charlen()
184 cl->backend_decl = gfc_conv_mpz_to_tree (cl->length->value.integer, in gfc_conv_const_charlen()
186 cl->backend_decl = fold_convert (gfc_charlen_type_node, in gfc_conv_const_charlen()
187 cl->backend_decl); in gfc_conv_const_charlen()
H A Dtrans-stmt.cc439 if (sym->backend_decl == NULL) in gfc_trans_call()
440 sym->backend_decl = gfc_get_symbol_decl (sym); in gfc_trans_call()
441 gfc_add_modify (&se.pre, sym->backend_decl, se.expr); in gfc_trans_call()
1798 class_decl = sym2->backend_decl; in trans_associate_var()
1810 class_decl = sym2->backend_decl; in trans_associate_var()
1827 desc = sym->backend_decl; in trans_associate_var()
1865 se.expr = sym2->backend_decl; in trans_associate_var()
1887 tmp = sym->backend_decl; in trans_associate_var()
1910 desc = sym->backend_decl; in trans_associate_var()
1924 GFC_DECL_PTR_ARRAY_P (sym->backend_decl) = 1; in trans_associate_var()
[all …]
H A Dtrans.cc2332 gcc_assert (ns->proc_name->backend_decl == NULL); in gfc_generate_module_code()
2333 ns->proc_name->backend_decl in gfc_generate_module_code()
2341 entry->namespace_decl = ns->proc_name->backend_decl; in gfc_generate_module_code()
2355 DECL_CONTEXT (n->proc_name->backend_decl) = ns->proc_name->backend_decl; in gfc_generate_module_code()
2356 gfc_module_add_decl (entry, n->proc_name->backend_decl); in gfc_generate_module_code()
2359 DECL_CONTEXT (el->sym->backend_decl) = ns->proc_name->backend_decl; in gfc_generate_module_code()
2360 gfc_module_add_decl (entry, el->sym->backend_decl); in gfc_generate_module_code()
2484 *decl = strlen ? strlen->backend_decl : NULL_TREE; in gfc_deferred_strlen()
H A Dtrans-io.cc754 array = sym->backend_decl; in gfc_convert_array_to_string()
1620 decl = c->backend_decl; in nml_get_addr_expr()
1715 decl = sym ? sym->backend_decl : c->backend_decl; in transfer_namelist_element()
1781 vtable = vtab->backend_decl; in transfer_namelist_element()
1790 tmp = ts->u.cl->backend_decl; in transfer_namelist_element()
2478 if (ts->u.derived->backend_decl == NULL_TREE) in transfer_expr()
2487 field = c->backend_decl; in transfer_expr()
H A Dtrans-openmp.cc1879 && sym->ns->proc_name->backend_decl == parent_decl in gfc_trans_omp_variable()
1892 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_trans_omp_variable()
1906 && (sym->ns->proc_name->backend_decl == current_function_decl in gfc_trans_omp_variable()
1974 tree decl, backend_decl, stmt, type, outer_decl; in gfc_trans_omp_array_reduction_or_udr() local
2002 backend_decl = omp_reduction_init (c, gfc_sym_type (&init_val_sym)); in gfc_trans_omp_array_reduction_or_udr()
2004 backend_decl = NULL; in gfc_trans_omp_array_reduction_or_udr()
2012 backend_decl = build_zero_cst (gfc_sym_type (&init_val_sym)); in gfc_trans_omp_array_reduction_or_udr()
2015 backend_decl = NULL_TREE; in gfc_trans_omp_array_reduction_or_udr()
2018 init_val_sym.backend_decl = backend_decl; in gfc_trans_omp_array_reduction_or_udr()
2027 outer_sym.backend_decl = outer_decl; in gfc_trans_omp_array_reduction_or_udr()
[all …]
H A Dgfortran.h1105 tree backend_decl; member
1167 tree backend_decl; member
1707 tree backend_decl; member
1894 tree backend_decl; member
H A DChangeLog-2018699 it as 'decl' rather than the symbol backend_decl.
782 the charlen backend_decl before using the VAR_P macro.
1636 charlen backend_decl of the rhs expr to ss->info->string_length
2086 backend_decl type.
2202 backend_decl for deferred length associate names that are not
2357 'length' if the symbol charlen backend_decl is an indirect ref.
2918 field as well as the backend_decl.
2923 its backend_decl.
H A Dtrans-intrinsic.cc1207 last_component_ref_tree = expr->symtree->n.sym->backend_decl; in conv_expr_ref_to_caf_ref()
1296 tmp2 = compute_component_offset (ref->u.c.component->backend_decl, in conv_expr_ref_to_caf_ref()
1312 gfc_conv_descriptor_token (ref->u.c.component->backend_decl), 1); in conv_expr_ref_to_caf_ref()
1332 ? ref->u.c.component->backend_decl : NULL_TREE; in conv_expr_ref_to_caf_ref()
1733 array_expr->ts.u.cl->backend_decl); in gfc_conv_intrinsic_caf_get()
1734 argse.string_length = array_expr->ts.u.cl->backend_decl; in gfc_conv_intrinsic_caf_get()
4321 sym->backend_decl in specific_intrinsic_symbol()
7393 len = sym->ts.u.cl->backend_decl; in gfc_conv_intrinsic_len()
7954 temp = gfc_class_data_get (sym->backend_decl); in gfc_conv_intrinsic_size()
7982 else if (sym && sym->backend_decl) in gfc_conv_intrinsic_size()
[all …]

12