Home
last modified time | relevance | path

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

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-stmt.cc128 gfc_add_modify (&se.pre, len, fold_convert (TREE_TYPE (len), len_tree)); in gfc_trans_label_assign()
129 gfc_add_modify (&se.pre, addr, label_tree); in gfc_trans_label_assign()
327 gfc_add_modify (&se->pre, size, tmp); in gfc_conv_elemental_dependencies()
329 gfc_add_modify (&se->pre, data, tmp); in gfc_conv_elemental_dependencies()
441 gfc_add_modify (&se.pre, sym->backend_decl, se.expr); in gfc_trans_call()
532 gfc_add_modify (&loopse.pre, count1, tmp); in gfc_trans_call()
1018 gfc_add_modify (&se.pre, stat2, in gfc_trans_lock_unlock()
1022 gfc_add_modify (&se.pre, lock_acquired2, in gfc_trans_lock_unlock()
1030 gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0)); in gfc_trans_lock_unlock()
1033 gfc_add_modify (&se.pre, lock_acquired, in gfc_trans_lock_unlock()
[all …]
H A Dtrans-expr.cc120 gfc_add_modify (&se->pre, tmp, scalar); in gfc_conv_scalar_to_descriptor()
127 gfc_add_modify (&se->pre, gfc_conv_descriptor_dtype (desc), in gfc_conv_scalar_to_descriptor()
136 gfc_add_modify (&se->post, scalar, in gfc_conv_scalar_to_descriptor()
556 gfc_add_modify (block, vptr, build_int_cst (TREE_TYPE (vptr), 0)); in gfc_reset_vptr()
566 gfc_add_modify (block, vptr, vtable); in gfc_reset_vptr()
584 gfc_add_modify (block, se_len.expr, in gfc_reset_len()
675 gfc_add_modify (block, gfc_conv_descriptor_dtype (lhs_desc), in class_array_data_assign()
687 gfc_add_modify (block, tmp, tmp2); in class_array_data_assign()
734 gfc_add_modify (&parmse->pre, ctree, in gfc_conv_derived_to_class()
748 gfc_add_modify (&parmse->pre, ctree, tmp); in gfc_conv_derived_to_class()
[all …]
H A Dtrans-array.cc280 gfc_add_modify (block, field, fold_convert (TREE_TYPE (field), value)); in gfc_conv_descriptor_data_set()
313 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_offset_set()
344 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_span_set()
481 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_stride_set()
503 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_lbound_set()
525 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_ubound_set()
1178 gfc_add_modify (pre, packed, tmp); in gfc_trans_allocate_array_storage()
1191 gfc_add_modify (&do_copying, packed, tmp); in gfc_trans_allocate_array_storage()
1349 gfc_add_modify (pre, tmp, in get_class_info_from_ss()
1359 gfc_add_modify (pre, tmp, tmp2); in get_class_info_from_ss()
[all …]
H A Dtrans-intrinsic.cc1048 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), nvec)); in conv_caf_vector_subscript_elem()
1068 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), vector)); in conv_caf_vector_subscript_elem()
1072 gfc_add_modify (block, tmp, build_int_cst (integer_type_node, kind)); in conv_caf_vector_subscript_elem()
1080 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), lower)); in conv_caf_vector_subscript_elem()
1085 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), upper)); in conv_caf_vector_subscript_elem()
1090 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), stride)); in conv_caf_vector_subscript_elem()
1259 gfc_add_modify (block, tmp2, gfc_build_addr_expr (TREE_TYPE (field), in conv_expr_ref_to_caf_ref()
1274 gfc_add_modify (block, tmp, build_int_cst (integer_type_node, in conv_expr_ref_to_caf_ref()
1298 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (tmp), tmp2)); in conv_expr_ref_to_caf_ref()
1325 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (tmp), tmp2)); in conv_expr_ref_to_caf_ref()
[all …]
H A Dtrans-decl.cc4162 gfc_add_modify (&init, GFC_DECL_STRING_LEN (sym->backend_decl), in gfc_trans_assign_aux_var()
4192 gfc_add_modify (body, var, unshare_expr (val)); in gfc_trans_vla_one_sizepos()
4407 gfc_add_modify (init, sym->ts.u.cl->backend_decl, in gfc_null_and_pass_deferred_len()
4539 gfc_add_modify (&init, proc_sym->ts.u.cl->backend_decl, in gfc_trans_deferred_vars()
4548 gfc_add_modify (&init, tmp, in gfc_trans_deferred_vars()
4972 gfc_add_modify (&init, se.expr, rhs); in gfc_trans_deferred_vars()
5611 gfc_add_modify (&caf_init_block, decl, fold_convert (TREE_TYPE (decl), in generate_coarray_sym_init()
6679 gfc_add_modify (&block, tmp, in gfc_conv_cfi_to_gfc()
6835 gfc_add_modify (&block, sym->ts.u.cl->backend_decl, tmp); in gfc_conv_cfi_to_gfc()
6851 gfc_add_modify (&block, gfc_desc, in gfc_conv_cfi_to_gfc()
[all …]
H A Dtrans-io.cc507 gfc_add_modify (block, tmp, value); in set_parameter_tree()
551 gfc_add_modify (block, tmp, se.expr); in set_parameter_value()
610 gfc_add_modify (block, tmp, se.expr); in set_parameter_value_chk()
704 gfc_add_modify (block, se.expr, in set_parameter_ref()
718 gfc_add_modify (block, tmpvar, in set_parameter_ref()
724 gfc_add_modify (postblock, se.expr, tmp); in set_parameter_ref()
863 gfc_add_modify (&se.pre, io, in set_string()
865 gfc_add_modify (&se.pre, len, GFC_DECL_STRING_LEN (se.expr)); in set_string()
879 gfc_add_modify (&se.pre, io, fold_convert (TREE_TYPE (io), se.expr)); in set_string()
880 gfc_add_modify (&se.pre, len, fold_convert (TREE_TYPE (len), in set_string()
[all …]
H A Dtrans-openmp.cc599 gfc_add_modify (&block, unshare_expr (destf), in gfc_walk_alloc_comps()
726 gfc_add_modify (&cond_block, decl, outer); in gfc_omp_clause_default_ctor()
753 gfc_add_modify (&cond_block, unshare_expr (decl), in gfc_omp_clause_default_ctor()
774 gfc_add_modify (&cond_block, unshare_expr (decl), in gfc_omp_clause_default_ctor()
838 gfc_add_modify (&block, gfc_class_vptr_get (dest), in gfc_omp_clause_copy_ctor()
845 gfc_add_modify (&cond_block, gfc_class_len_get (unshare_expr (dest)), src_len); in gfc_omp_clause_copy_ctor()
866 gfc_add_modify (&cond_block, dest_data, in gfc_omp_clause_copy_ctor()
899 gfc_add_modify (&block, dest, src); in gfc_omp_clause_copy_ctor()
915 gfc_add_modify (&cond_block, dest, fold_convert (TREE_TYPE (dest), src)); in gfc_omp_clause_copy_ctor()
944 gfc_add_modify (&cond_block, unshare_expr (dest), in gfc_omp_clause_copy_ctor()
[all …]
H A Dtrans.cc186 gfc_add_modify (pblock, var, expr); in gfc_evaluate_now_function_scope()
217 gfc_add_modify (stmtblock_t * pblock, tree lhs, tree rhs) in gfc_add_modify() function
667 gfc_add_modify (&block, tmpvar, boolean_false_node); in gfc_trans_runtime_check()
728 gfc_add_modify (&block2, res, in gfc_call_malloc()
797 gfc_add_modify (block, pointer, in gfc_allocate_using_malloc()
996 gfc_add_modify (&alloc_block, mem, fold_convert (TREE_TYPE (mem), in gfc_allocate_allocatable()
1517 gfc_add_modify (&non_null, pointer, build_int_cst (TREE_TYPE (pointer), in gfc_deallocate_with_status()
1597 gfc_add_modify (&non_null, pointer, build_int_cst (TREE_TYPE (pointer), in gfc_deallocate_with_status()
1789 gfc_add_modify (block, res, fold_convert (type, tmp)); in gfc_call_realloc()
H A Dgfc-internals.texi799 @code{gfc_add_modify}.
809 gfc_add_modify (block, var, build_int_cst (integer_type_node, 42));
844 gfc_add_modify (&se->pre, cont_var, cont_se.expr);
H A DChangeLog-20081511 Remove last argument to gfc_add_modify.
1513 gfc_add_modify.
1538 gfc_add_modify.
1541 Rename gfc_add_modify_stmt to gfc_add_modify.
1543 gfc_add_modify.
1545 gfc_add_modify.
1546 (gfc_add_modify): Remove last argument.
1549 Add prototype for gfc_add_modify.
1551 * trans-decl.c: Rename gfc_add_modify_stmt to gfc_add_modify.
H A Dtrans.h596 void gfc_add_modify (stmtblock_t *, tree, tree);
H A DChangeLog-20091001 * trans.c (gfc_add_modify): Don't access it.
1294 * trans.c (gfc_add_modify): Assignment between base type and nontarget
H A DChangeLog-2010747 (gfc_add_modify, gfc_evaluate_now): Use them.
1670 * trans.c (gfc_add_modify, gfc_build_addr_expr,
H A DChangeLog-2016382 creating custom constant tree node of zero or one. Use gfc_add_modify
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-stmt.c128 gfc_add_modify (&se.pre, len, fold_convert (TREE_TYPE (len), len_tree)); in gfc_trans_label_assign()
129 gfc_add_modify (&se.pre, addr, label_tree); in gfc_trans_label_assign()
320 gfc_add_modify (&se->pre, size, tmp); in gfc_conv_elemental_dependencies()
322 gfc_add_modify (&se->pre, data, tmp); in gfc_conv_elemental_dependencies()
423 gfc_add_modify (&se.pre, sym->backend_decl, se.expr); in gfc_trans_call()
506 gfc_add_modify (&loopse.pre, count1, tmp); in gfc_trans_call()
984 gfc_add_modify (&se.pre, stat2, in gfc_trans_lock_unlock()
988 gfc_add_modify (&se.pre, lock_acquired2, in gfc_trans_lock_unlock()
996 gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0)); in gfc_trans_lock_unlock()
999 gfc_add_modify (&se.pre, lock_acquired, in gfc_trans_lock_unlock()
[all …]
H A Dtrans-intrinsic.c1040 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), nvec)); in conv_caf_vector_subscript_elem()
1060 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), vector)); in conv_caf_vector_subscript_elem()
1064 gfc_add_modify (block, tmp, build_int_cst (integer_type_node, kind)); in conv_caf_vector_subscript_elem()
1072 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), lower)); in conv_caf_vector_subscript_elem()
1077 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), upper)); in conv_caf_vector_subscript_elem()
1082 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (field), stride)); in conv_caf_vector_subscript_elem()
1251 gfc_add_modify (block, tmp2, gfc_build_addr_expr (TREE_TYPE (field), in conv_expr_ref_to_caf_ref()
1266 gfc_add_modify (block, tmp, build_int_cst (integer_type_node, in conv_expr_ref_to_caf_ref()
1290 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (tmp), tmp2)); in conv_expr_ref_to_caf_ref()
1317 gfc_add_modify (block, tmp, fold_convert (TREE_TYPE (tmp), tmp2)); in conv_expr_ref_to_caf_ref()
[all …]
H A Dtrans-expr.c80 gfc_add_modify (&se->pre, tmp, scalar); in gfc_conv_scalar_to_descriptor()
87 gfc_add_modify (&se->pre, gfc_conv_descriptor_dtype (desc), in gfc_conv_scalar_to_descriptor()
94 gfc_add_modify (&se->post, scalar, in gfc_conv_scalar_to_descriptor()
477 gfc_add_modify (block, vptr, build_int_cst (TREE_TYPE (vptr), 0)); in gfc_reset_vptr()
487 gfc_add_modify (block, vptr, vtable); in gfc_reset_vptr()
505 gfc_add_modify (block, se_len.expr, in gfc_reset_len()
596 gfc_add_modify (block, gfc_conv_descriptor_dtype (lhs_desc), in class_array_data_assign()
608 gfc_add_modify (block, tmp, tmp2); in class_array_data_assign()
651 gfc_add_modify (&parmse->pre, ctree, in gfc_conv_derived_to_class()
665 gfc_add_modify (&parmse->pre, ctree, tmp); in gfc_conv_derived_to_class()
[all …]
H A Dtrans-array.c181 gfc_add_modify (block, t, fold_convert (TREE_TYPE (field), value)); in gfc_conv_descriptor_data_set()
231 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_offset_set()
279 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_span_set()
418 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_stride_set()
448 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_lbound_set()
478 gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); in gfc_conv_descriptor_ubound_set()
1110 gfc_add_modify (pre, packed, tmp); in gfc_trans_allocate_array_storage()
1123 gfc_add_modify (&do_copying, packed, tmp); in gfc_trans_allocate_array_storage()
1281 gfc_add_modify (pre, tmp, in get_class_info_from_ss()
1291 gfc_add_modify (pre, tmp, tmp2); in get_class_info_from_ss()
[all …]
H A Dtrans-openmp.c510 gfc_add_modify (&block, unshare_expr (destf), in gfc_walk_alloc_comps()
624 gfc_add_modify (&cond_block, decl, outer); in gfc_omp_clause_default_ctor()
651 gfc_add_modify (&cond_block, unshare_expr (decl), in gfc_omp_clause_default_ctor()
670 gfc_add_modify (&cond_block, unshare_expr (decl), in gfc_omp_clause_default_ctor()
714 gfc_add_modify (&block, dest, src); in gfc_omp_clause_copy_ctor()
730 gfc_add_modify (&cond_block, dest, src); in gfc_omp_clause_copy_ctor()
759 gfc_add_modify (&cond_block, unshare_expr (dest), in gfc_omp_clause_copy_ctor()
784 gfc_add_modify (&cond_block, unshare_expr (dest), in gfc_omp_clause_copy_ctor()
824 gfc_add_modify (&block, dest, src); in gfc_omp_clause_assign_op()
883 gfc_add_modify (&cond_block, ptr, destptr); in gfc_omp_clause_assign_op()
[all …]
H A Dtrans-io.c507 gfc_add_modify (block, tmp, value); in set_parameter_tree()
551 gfc_add_modify (block, tmp, se.expr); in set_parameter_value()
610 gfc_add_modify (block, tmp, se.expr); in set_parameter_value_chk()
704 gfc_add_modify (block, se.expr, in set_parameter_ref()
718 gfc_add_modify (block, tmpvar, in set_parameter_ref()
724 gfc_add_modify (postblock, se.expr, tmp); in set_parameter_ref()
837 gfc_add_modify (&se.pre, io, in set_string()
839 gfc_add_modify (&se.pre, len, GFC_DECL_STRING_LEN (se.expr)); in set_string()
853 gfc_add_modify (&se.pre, io, fold_convert (TREE_TYPE (io), se.expr)); in set_string()
854 gfc_add_modify (&se.pre, len, fold_convert (TREE_TYPE (len), in set_string()
[all …]
H A Dtrans.c142 gfc_add_modify (pblock, var, expr); in gfc_evaluate_now_function_scope()
173 gfc_add_modify (stmtblock_t * pblock, tree lhs, tree rhs) in gfc_add_modify() function
593 gfc_add_modify (&block, tmpvar, logical_false_node); in gfc_trans_runtime_check()
655 gfc_add_modify (&block2, res, in gfc_call_malloc()
724 gfc_add_modify (block, pointer, in gfc_allocate_using_malloc()
923 gfc_add_modify (&alloc_block, mem, fold_convert (TREE_TYPE (mem), in gfc_allocate_allocatable()
1444 gfc_add_modify (&non_null, pointer, build_int_cst (TREE_TYPE (pointer), in gfc_deallocate_with_status()
1524 gfc_add_modify (&non_null, pointer, build_int_cst (TREE_TYPE (pointer), in gfc_deallocate_with_status()
1716 gfc_add_modify (block, res, fold_convert (type, tmp)); in gfc_call_realloc()
H A Dtrans-decl.c4128 gfc_add_modify (&init, GFC_DECL_STRING_LEN (sym->backend_decl), in gfc_trans_assign_aux_var()
4158 gfc_add_modify (body, var, unshare_expr (val)); in gfc_trans_vla_one_sizepos()
4373 gfc_add_modify (init, sym->ts.u.cl->backend_decl, in gfc_null_and_pass_deferred_len()
4462 gfc_add_modify (&tmpblock, gfc_desc_ptr, in convert_CFI_desc()
4465 gfc_add_modify (&tmpblock, CFI_desc_ptr, in convert_CFI_desc()
4473 gfc_add_modify (&tmpblock, dummy_ptr, in convert_CFI_desc()
4484 gfc_add_modify (&tmpblock, sym->ts.u.cl->backend_decl, in convert_CFI_desc()
4608 gfc_add_modify (&init, proc_sym->ts.u.cl->backend_decl, in gfc_trans_deferred_vars()
4617 gfc_add_modify (&init, tmp, in gfc_trans_deferred_vars()
5037 gfc_add_modify (&init, se.expr, rhs); in gfc_trans_deferred_vars()
[all …]
H A Dtrans.h594 void gfc_add_modify (stmtblock_t *, tree, tree);
H A Dgfc-internals.texi799 @code{gfc_add_modify}.
809 gfc_add_modify (block, var, build_int_cst (integer_type_node, 42));
844 gfc_add_modify (&se->pre, cont_var, cont_se.expr);
/netbsd-src/external/gpl3/gcc/dist/gcc/
H A DChangeLog-20062545 Call gfc_add_modify instead of gfc_add_modify_expr.
2552 * fortran/trans.c (gfc_add_modify): Rename from gfc_add_modify_expr.
2554 * fortran/trans.h (gfc_add_modify): Rename from gfc_add_modify_expr.