Lines Matching defs:pre
72 loops. The loops are added to the pre chain of the loopinfo. The post
1006 gfc_add_block_to_block (&se->pre, &tmpse.pre);
1013 gfc_add_block_to_block (&se->pre, &tmpse.pre);
1020 tmp = gfc_evaluate_now (tmp, &se->pre);
1042 gfc_trans_allocate_array_storage (stmtblock_t * pre, stmtblock_t * post,
1055 gfc_conv_descriptor_data_set (pre, desc, null_pointer_node);
1070 tmp = gfc_evaluate_now (tmp, pre);
1079 gfc_add_expr_to_block (pre,
1084 gfc_conv_descriptor_data_set (pre, desc, tmp);
1091 tmp = gfc_call_malloc (pre, NULL, size);
1092 tmp = gfc_evaluate_now (tmp, pre);
1110 gfc_add_modify (pre, packed, tmp);
1133 gfc_add_expr_to_block (pre, tmp);
1138 gfc_conv_descriptor_data_set (pre, desc, tmp);
1145 gfc_conv_descriptor_offset_set (pre, desc, gfc_index_zero_node);
1218 get_class_info_from_ss (stmtblock_t * pre, gfc_ss *ss, tree *eltype)
1281 gfc_add_modify (pre, tmp,
1291 gfc_add_modify (pre, tmp, tmp2);
1297 gfc_conv_descriptor_offset_set (pre, tmp, gfc_index_zero_node);
1311 gfc_add_modify (pre, tmp,
1324 gfc_add_modify (pre, tmp, tmp2);
1352 gfc_trans_create_temp_array (stmtblock_t * pre, stmtblock_t * post, gfc_ss * ss,
1388 class_expr = get_class_info_from_ss (pre, ss, &eltype);
1411 elemsize = gfc_evaluate_now (elemsize, pre);
1412 elemsize = gfc_resize_class_size_with_len (pre, class_expr, elemsize);
1446 pre);
1488 gfc_add_expr_to_block (pre, build1 (DECL_EXPR,
1493 gfc_add_modify (pre, tmp, gfc_get_dtype (TREE_TYPE (desc)));
1538 gfc_conv_descriptor_stride_set (pre, desc, gfc_rank_cst[n], size);
1540 gfc_conv_descriptor_lbound_set (pre, desc, gfc_rank_cst[n],
1543 gfc_conv_descriptor_ubound_set (pre, desc, gfc_rank_cst[n], to[n]);
1552 cond = gfc_evaluate_now (cond, pre);
1562 size = gfc_evaluate_now (size, pre);
1586 gfc_conv_descriptor_span_set (pre, desc, tmp);
1588 gfc_trans_allocate_array_storage (pre, post, info, size, nelem, initial,
1791 gfc_add_modify (&se->pre, tmp, se->expr);
1799 gfc_trans_string_copy (&se->pre, esize, tmp, expr->ts.kind,
1806 gfc_add_modify (&se->pre, first_len_val,
1821 (true, false, cond, &se->pre, &expr->where,
1837 gfc_add_modify (&se->pre, tmp, se->expr);
1843 gfc_add_modify (&se->pre, tmp, se->expr);
1846 gfc_add_block_to_block (pblock, &se->pre);
1900 gfc_grow_array (&loop.pre, desc, size);
1919 gfc_add_block_to_block (&loop.pre, &loop.post);
1920 tmp = gfc_finish_block (&loop.pre);
1973 gfc_add_block_to_block (pblock, &se.pre);
1978 gfc_add_block_to_block (pblock, &se.pre);
1983 gfc_add_block_to_block (pblock, &se.pre);
2258 *len = gfc_evaluate_now (se.string_length, &se.pre);
2260 gfc_add_block_to_block (block, &se.pre);
2332 gfc_add_block_to_block (block, &se.pre);
2701 gfc_trans_runtime_check (false, true, neg_len, &length_se.pre,
2713 &length_se.pre);
2714 gfc_add_block_to_block (&outer_loop->pre, &length_se.pre);
2719 const_string = get_array_ctor_strlen (&outer_loop->pre, c,
2796 gfc_trans_create_temp_array (&outer_loop->pre, &outer_loop->post, ss, type,
2804 gfc_trans_array_constructor_value (&outer_loop->pre, type, desc, c,
2814 tmp = gfc_evaluate_now (tmp, &outer_loop->pre);
2815 gfc_conv_descriptor_ubound_set (&loop->pre, desc, gfc_rank_cst[0], tmp);
2817 gfc_add_modify (&outer_loop->pre, *loop_ubound0, tmp);
2889 tmp = gfc_evaluate_now (tmp, &outer_loop->pre);
2936 /* Add the pre and post chains for all the scalar expressions in a SS chain
2981 gfc_add_block_to_block (&outer_loop->pre, &se.pre);
2991 se.expr = gfc_evaluate_now (se.expr, &outer_loop->pre);
2992 gfc_add_block_to_block (&outer_loop->pre, &se.post);
3017 gfc_add_block_to_block (&outer_loop->pre, &se.pre);
3029 &outer_loop->pre);
3047 gfc_add_block_to_block (&outer_loop->pre, &se.pre);
3065 gfc_add_block_to_block (&outer_loop->pre, &se.pre);
3081 gfc_add_block_to_block (&outer_loop->pre, &se.pre);
3123 gfc_add_block_to_block (block, &se.pre);
3177 gfc_init_block (&loop->pre);
3319 index = gfc_evaluate_now (index, &se->pre);
3343 gfc_trans_runtime_check (true, false, fault, &se->pre, where, msg,
3349 gfc_trans_runtime_check (true, false, fault, &se->pre, where, msg,
3368 gfc_trans_runtime_check (true, false, fault, &se->pre, where, msg,
3434 index = gfc_evaluate_now (index, &se->pre);
3576 se->class_vptr = gfc_evaluate_now (gfc_class_vptr_get (decl), &se->pre);
3597 gfc_add_block_to_block (&se->pre, &tmpse.pre);
3612 size = gfc_resize_class_size_with_len (&se->pre, decl, size);
3840 gfc_add_block_to_block (&se->pre, &indexse.pre);
3858 gfc_add_block_to_block (&se->pre, &tmpse.pre);
3866 gfc_trans_runtime_check (true, false, cond, &se->pre, where, msg,
3882 gfc_add_block_to_block (&se->pre, &tmpse.pre);
3890 gfc_trans_runtime_check (true, false, cond, &se->pre, where, msg,
3964 gfc_add_block_to_block (pblock, &se.pre);
4249 gfc_add_expr_to_block (&loop->pre, tmp);
4322 BLOCK: Block in which the (pre)calculation code will go.
4342 gfc_add_block_to_block (block, &se.pre);
4416 gfc_add_block_to_block (block, &se.pre);
4495 gfc_conv_ss_descriptor (&outer_loop->pre, ss,
4499 gfc_conv_section_startstride (&outer_loop->pre, ss, ss->dim[n]);
4527 gcc_assert (se.pre.head == NULL_TREE
4535 info->end[0] = gfc_evaluate_now (tmp, &outer_loop->pre);
4819 gfc_add_expr_to_block (&outer_loop->pre, tmp);
5331 info->delta[dim] = gfc_evaluate_now (loop->from[n], &outer_loop->pre);
5343 loop->to[n] = gfc_evaluate_now (tmp, &outer_loop->pre);
5396 gfc_trans_create_temp_array (&loop->pre, &loop->post, tmp_ss, tmp,
5456 info->delta[dim] = gfc_evaluate_now (tmp, &outer_loop->pre);
5678 gfc_add_block_to_block (pblock, &se.pre);
5726 gfc_add_block_to_block (pblock, &se.pre);
5789 gfc_add_block_to_block (pblock, &se.pre);
5805 gfc_add_block_to_block (pblock, &se.pre);
6051 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl,
6063 &se->pre, &set_descriptor_block, &overflow,
6070 gfc_add_modify (&se->pre, var_overflow, overflow);
6117 gfc_add_modify (&se->pre, not_prev_allocated, tmp);
6146 gfc_add_expr_to_block (&se->pre, tmp);
6167 gfc_add_expr_to_block (&se->pre,
6174 gfc_add_expr_to_block (&se->pre, set_descriptor);
6349 gfc_add_block_to_block (pblock, &se.pre);
6357 gfc_add_block_to_block (pblock, &se.pre);
6394 gfc_add_block_to_block (pblock, &se.pre);
6402 gfc_add_block_to_block (pblock, &se.pre);
6820 gfc_add_block_to_block (&init, &se.pre);
6834 gfc_add_block_to_block (&init, &se.pre);
7072 gfc_add_block_to_block (block, &start.pre);
7171 gfc_conv_string_length (expr->ts.u.cl, expr, &se->pre);
7195 gfc_add_block_to_block (&se->pre, &tse.pre);
7205 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl,
7240 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl,
7247 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl,
7255 gfc_conv_string_length (expr->ts.u.cl, expr, &se->pre);
7280 gfc_add_block_to_block (&se->pre, &tse.pre);
7291 gfc_conv_string_length (expr->ts.u.cl, expr, &se->pre);
7430 gfc_conv_ss_descriptor (&se->pre, ss, 0);
7469 gfc_add_modify (&se->pre, se->expr, desc);
7472 gfc_get_dataptr_offset (&se->pre, se->expr, desc, NULL_TREE,
7478 gfc_conv_descriptor_span_set (&se->pre, se->expr, tmp);
7524 gfc_conv_descriptor_span_set (&se->pre, se->expr, tmp);
7661 gfc_add_block_to_block (&block, &rse.pre);
7662 gfc_add_block_to_block (&block, &lse.pre);
7716 gfc_conv_section_startstride (&loop.pre, ss, n + ndim);
7722 evaluate_bound (&loop.pre, info->start, ar->start,
7745 gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl, tmp);
7801 gcc_assert (classse.pre.head == NULL_TREE
7815 gfc_conv_descriptor_span_set (&loop.pre, parm, tmp);
7830 gfc_add_modify (&loop.pre, tmp, gfc_get_dtype (parmtype));
7839 base = gfc_evaluate_now (gfc_conv_array_offset (desc), &loop.pre);
7859 stride = gfc_evaluate_now (stride, &loop.pre);
7894 gfc_conv_descriptor_lbound_set (&loop.pre, parm,
7898 gfc_conv_descriptor_ubound_set (&loop.pre, parm,
7938 gfc_conv_descriptor_stride_set (&loop.pre, parm,
7946 gfc_conv_descriptor_lbound_set (&loop.pre, parm,
7949 gfc_conv_descriptor_ubound_set (&loop.pre, parm,
7954 gfc_conv_descriptor_data_set (&loop.pre, parm,
7958 gfc_get_dataptr_offset (&loop.pre, parm, desc, offset,
7974 gfc_conv_descriptor_offset_set (&loop.pre, parm, tmp);
7980 gfc_conv_descriptor_offset_set (&loop.pre, parm,
7987 gfc_conv_descriptor_offset_set (&loop.pre, parm, gfc_index_zero_node);
8002 gfc_conv_descriptor_offset_set (&loop.pre, parm, tmp);
8008 gfc_conv_descriptor_offset_set (&loop.pre, parm, gfc_index_zero_node);
8032 gfc_add_modify (&se->pre, vtype,
8045 gfc_add_block_to_block (&se->pre, &loop.pre);
8151 get_array_ctor_strlen (&se->pre, expr->value.constructor, &tmp);
8335 gfc_add_expr_to_block (&se->pre, tmp);
8377 ptr = gfc_evaluate_now (ptr, &se->pre);
8389 gfc_conv_descriptor_data_set (&se->pre, tmp, ptr);
8401 gfc_add_modify (&se->pre, new_field, old_field);
8405 gfc_add_modify (&se->pre, new_field, old_field);
8413 gfc_add_modify (&se->pre, new_field, old_field);
8423 gfc_add_modify (&se->pre, new_field, old_field);
8426 gfc_conv_descriptor_data_set (&se->pre, new_desc, ptr);
8453 gfc_trans_runtime_check (false, true, tmp, &se->pre,
8686 gfc_add_block_to_block (&globalblock, &se.pre);
8916 gfc_add_block_to_block (&fnblock, &loop.pre);
9067 gfc_add_block_to_block (&tmpblock, &se.pre);
9426 gfc_add_block_to_block (&fnblock, &se.pre);
9794 gfc_add_block_to_block (&fnblock, &tse.pre);
9987 gfc_add_block_to_block (&block, &argse.pre);
10815 gfc_add_block_to_block (&realloc_block, &caf_se.pre);