Lines Matching defs:pre
80 gfc_add_modify (&se->pre, tmp, scalar);
87 gfc_add_modify (&se->pre, gfc_conv_descriptor_dtype (desc),
89 gfc_conv_descriptor_data_set (&se->pre, desc, scalar);
136 gfc_add_block_to_block (&outerse->pre, &se.pre);
469 gfc_add_block_to_block (block, &se.pre);
651 gfc_add_modify (&parmse->pre, ctree,
665 gfc_add_modify (&parmse->pre, ctree, tmp);
677 gfc_add_modify (&parmse->pre, ctree, tmp);
693 gfc_add_modify (&parmse->pre, gfc_conv_descriptor_dtype (ctree),
701 gfc_conv_descriptor_data_set (&parmse->pre, ctree, parmse->expr);
711 gfc_add_modify (&parmse->pre, ctree, tmp);
771 gfc_add_expr_to_block (&parmse->pre, tmp);
774 gfc_add_block_to_block (&parmse->pre, &block);
803 gfc_add_modify (&parmse->pre, ctree, fold_convert (TREE_TYPE (ctree),
886 gfc_add_expr_to_block (&parmse->pre, tmp);
889 gfc_add_block_to_block (&parmse->pre, &block);
917 gfc_add_modify (&parmse->pre, ctree,
928 gfc_add_modify (&parmse->pre, ctree, tmp);
947 gfc_add_modify (&parmse->pre, ctree, tmp);
960 gfc_conv_shift_descriptor_lbound (&parmse->pre, parmse->expr,
968 gfc_add_modify (&parmse->pre, ctree, tmp);
971 gfc_add_modify (&parmse->pre, ctree, parmse->expr);
1023 gfc_add_modify (&parmse->pre, ctree, fold_convert (TREE_TYPE (ctree), tmp));
1031 gfc_add_modify (&parmse->pre, ctree,
1224 gfc_add_modify (&parmse->pre, ctree,
1240 /* parmse->pre may contain some preparatory instructions for the
1242 optional argument is set, therefore add parmse->pre's instructions
1244 gfc_add_block_to_block (&parmse->pre, &block);
1245 block.head = parmse->pre.head;
1246 parmse->pre.head = NULL_TREE;
1263 gfc_add_expr_to_block (&parmse->pre, tmp);
1266 gfc_add_block_to_block (&parmse->pre, &block);
1469 gfc_add_block_to_block (&ifbody, &loop.pre);
1489 gfc_add_block_to_block (&ifbody, &loop.pre);
1641 gfc_add_block_to_block (&block, &src.pre);
1819 gfc_init_block (&se->pre);
1877 gfc_add_modify (&se->pre, var, se->expr);
2001 tmp = gfc_evaluate_now (tmp, &se->pre);
2009 tmp = gfc_evaluate_now (tmp, &se->pre);
2018 tmp = gfc_evaluate_now (tmp, &se->pre);
2280 gfc_add_block_to_block (&se->pre, &base_se.pre);
2327 gfc_add_block_to_block (block, &se.pre);
2348 gfc_add_block_to_block (block, &se.pre);
2465 gfc_add_block_to_block (pblock, &se.pre);
2479 gfc_add_block_to_block (pblock, &se.pre);
2505 gfc_add_block_to_block (&se->pre, &start.pre);
2515 start.expr = gfc_evaluate_now (start.expr, &se->pre);
2540 gfc_add_block_to_block (&se->pre, &end.pre);
2545 end.expr = gfc_evaluate_now (end.expr, &se->pre);
2567 gfc_trans_runtime_check (true, false, fault, &se->pre, where, msg,
2583 gfc_trans_runtime_check (true, false, fault, &se->pre, where, msg,
3074 gfc_add_block_to_block (&se->pre, &operand.pre);
3173 tmp = gfc_evaluate_now (tmp, &se->pre);
3280 lse.expr = gfc_evaluate_now (lse.expr, &lse.pre);
3281 gfc_add_block_to_block (&se->pre, &lse.pre);
3285 gfc_add_block_to_block (&se->pre, &rse.pre);
3579 tmp = gfc_call_malloc (&se->pre, type, tmp);
3580 gfc_add_modify (&se->pre, var, tmp);
3611 gfc_add_block_to_block (&se->pre, &lse.pre);
3612 gfc_add_block_to_block (&se->pre, &rse.pre);
3641 gfc_add_expr_to_block (&se->pre, tmp);
3644 gfc_add_block_to_block (&se->pre, &rse.post);
3645 gfc_add_block_to_block (&se->pre, &lse.post);
3800 gfc_add_block_to_block (&se->pre, &lse.pre);
3805 gfc_add_block_to_block (&se->pre, &rse.pre);
4115 gfc_add_modify (&se->pre, var, base_object);
4163 tmp = gfc_evaluate_now (tmp, &se->pre);
4359 se->expr = gfc_evaluate_now (se->expr, &se->pre);
4372 se->string_length = gfc_evaluate_now (se->string_length, &se->pre);
4424 value = gfc_get_interface_mapping_array (&se->pre, sym,
4428 gfc_set_interface_mapping_bounds (&se->pre, TREE_TYPE (value), desc);
4432 value = gfc_get_interface_mapping_array (&se->pre, sym,
4446 stmtblock_t * pre, stmtblock_t * post)
4461 se.expr = gfc_evaluate_now (se.expr, &se.pre);
4462 gfc_add_block_to_block (pre, &se.pre);
4788 se->expr = gfc_evaluate_now (se->expr, &se->pre);
4843 gfc_trans_runtime_check (false, true, tmp, &parmse->pre,
4865 gfc_conv_string_length (expr->ts.u.cl, expr, &parmse->pre);
4913 gfc_conv_descriptor_offset_set (&loop.pre, tmp,
4940 gfc_add_block_to_block (&parmse->pre, &loop.pre);
5039 gfc_add_block_to_block (&parmse->post, &loop2.pre);
5067 gfc_conv_descriptor_ubound_set (&parmse->pre,
5071 gfc_conv_descriptor_lbound_set (&parmse->pre,
5075 size = gfc_evaluate_now (size, &parmse->pre);
5079 offset = gfc_evaluate_now (offset, &parmse->pre);
5090 gfc_conv_descriptor_offset_set (&parmse->pre, parmse->expr,
5111 parmse->pre();
5157 gfc_add_modify (&se->pre, cont_var,
5165 gfc_add_block_to_block (&se->pre, &(&cont_se)->pre);
5166 gfc_add_modify (&se->pre, cont_var, cont_se.expr);
5167 gfc_add_block_to_block (&se->pre, &(&cont_se)->post);
5176 gfc_add_block_to_block (&se->pre, &(&array_se)->pre);
5177 gfc_add_block_to_block (&se->pre, &(&array_se)->post);
5186 /* else_stmt = { parmse->pre(); pointer = parmse->expr; } . */
5188 gfc_add_block_to_block (&else_block, &parmse->pre);
5201 gfc_add_modify (&parmse->pre, pointer, parmse->expr);
5202 pre_stmts = gfc_finish_block (&parmse->pre);
5212 gfc_add_modify (&se->pre, present_var, tmp);
5223 gfc_add_expr_to_block (&se->pre, tmp);
5226 gfc_add_expr_to_block (&se->pre, pre_stmts);
5388 gfc_add_expr_to_block (&parmse->pre, cond);
5467 gfc_get_dataptr_offset (&parmse->pre, parmse->expr, parmse->expr,
5471 gfc_add_modify (&parmse->pre,
5482 gfc_conv_descriptor_span_set (&parmse->pre, parmse->expr, tmp);
5503 gfc_add_expr_to_block (&parmse->pre, tmp);
5512 gfc_add_modify (&parmse->pre, cfi_desc_ptr, null_pointer_node);
5518 gfc_add_expr_to_block (&parmse->pre, tmp);
5524 gfc_add_expr_to_block (&parmse->pre, tmp);
5540 by finishing the pre and post blocks and making their execution
5550 gfc_finish_block (&parmse->pre), tmp);
5551 gfc_add_expr_to_block (&parmse->pre, tmp);
6031 gfc_add_expr_to_block (&parmse.pre,
6057 gfc_add_modify (&parmse.pre, tmp, efield);
6063 gfc_add_modify (&parmse.pre, tmp, efield);
6067 gfc_add_modify (&parmse.pre, tmp,
6075 gfc_add_modify (&parmse.pre, var, tmp);
6178 gfc_add_expr_to_block (&se->pre, tmp);
6323 gfc_add_expr_to_block (&se->pre, tmp);
6457 gfc_conv_descriptor_ubound_set (&parmse.pre, tmp,
6486 gfc_add_expr_to_block (&se->pre, tmp);
6510 gfc_add_expr_to_block (&se->pre, tmp);
6570 gfc_add_block_to_block (&se->pre, &parmse.pre);
6590 parmse.expr, &se->pre);
6627 local_tmp = gfc_evaluate_now (tmp, &se->pre);
6738 gfc_trans_runtime_check (true, false, cond, &se->pre, &e->where,
6757 tmp = gfc_evaluate_now (parmse.string_length, &se->pre);
6881 gfc_add_block_to_block (&se->pre, &clobbers);
6882 gfc_finish_interface_mapping (&mapping, &se->pre, &se->post);
6926 gfc_add_block_to_block (&se->pre, &parmse.pre);
6979 gfc_add_expr_to_block (&se->pre, tmp);
7014 gfc_trans_create_temp_array (&se->pre, &se->post, se->ss,
7049 gfc_trans_create_temp_array (&se->pre, &se->post, se->ss,
7075 gfc_add_expr_to_block (&se->pre, tmp);
7088 gfc_add_modify (&se->pre, var,
7117 tmp = gfc_evaluate_now (len, &se->pre);
7119 gfc_add_modify (&se->pre, tmp,
7184 gfc_add_modify (&se->pre, tmp, se->expr);
7219 /* Add the function call to the pre chain. There is no expression. */
7220 gfc_add_expr_to_block (&se->pre, se->expr);
7235 gfc_trans_runtime_check (true, false, tmp, &se->pre, NULL,
7279 if (parmse.pre.head != NULL)
7280 gfc_add_expr_to_block (&se->pre, parmse.pre.head);
7287 gfc_add_block_to_block (&se->pre, &post);
7304 tmp2 = gfc_evaluate_now (result, &se->pre);
7307 gfc_add_expr_to_block (&se->pre, tmp);
7310 gfc_add_expr_to_block (&se->pre, tmp);
7317 gfc_add_expr_to_block (&se->pre, tmp);
7338 gfc_add_block_to_block (&se->ss->loop->pre, &se->pre);
7339 se->expr = gfc_evaluate_now (se->expr, &se->ss->loop->pre);
7355 se->expr = gfc_evaluate_now (se->expr, &se->pre);
7688 gfc_add_block_to_block (&se->pre, &lse.pre);
7689 gfc_add_block_to_block (&se->pre, &rse.pre);
7691 gfc_trans_string_copy (&se->pre, arglen, temp_vars[n], fsym->ts.kind,
7693 gfc_add_block_to_block (&se->pre, &lse.post);
7694 gfc_add_block_to_block (&se->pre, &rse.post);
7706 gfc_add_block_to_block (&se->pre, &lse.pre);
7707 gfc_add_modify (&se->pre, temp_vars[n], lse.expr);
7708 gfc_add_block_to_block (&se->pre, &lse.post);
7733 gfc_trans_string_copy (&se->pre, sym->ts.u.cl->backend_decl, tmp,
8022 gfc_add_block_to_block (&block, &loop.pre);
8052 gfc_add_block_to_block (&block, &se.pre);
8125 gfc_add_block_to_block (&block, &lbse.pre);
8260 gfc_add_block_to_block (block, &se.pre);
8335 gfc_add_block_to_block (&block, &se.pre);
8344 gfc_add_block_to_block (&block, &se.pre);
8416 gfc_add_block_to_block (&block, &se.pre);
8480 gfc_add_block_to_block (&block, &se.pre);
8660 gfc_add_block_to_block (&block, &se.pre);
8753 gfc_add_expr_to_block (&se->pre, tmp);
8956 gfc_add_modify (&se->pre, val, se->expr);
8958 gfc_add_block_to_block (&se->pre, &se->post);
9011 gfc_add_modify (&se->pre, var, se->expr);
9012 gfc_add_block_to_block (&se->pre, &se->post);
9030 gfc_add_modify (&se->pre, var, se->expr);
9051 gfc_add_modify (&se->pre, var, se->expr);
9055 gfc_add_block_to_block (&se->pre, &se->post);
9075 gfc_add_block_to_block (block, &se.pre);
9107 stmtblock_t *pre = block;
9118 pre = &rse->loop->pre;
9120 pre = &rse->pre;
9126 gfc_add_modify (&rse->pre, tmp, TREE_OPERAND (rse->expr, 0));
9131 gfc_add_modify (&rse->pre, tmp, rse->expr);
9156 gfc_add_block_to_block (block, &se.pre);
9228 gfc_add_block_to_block (block, &se.pre);
9231 gfc_add_modify (pre, lhs_vptr, fold_convert (TREE_TYPE (lhs_vptr),
9246 gfc_add_block_to_block (block, &se.pre);
9253 gfc_add_modify (pre, to_len, fold_convert (TREE_TYPE (to_len),
9323 rse->expr = gfc_evaluate_now (rse->expr, &rse->pre);
9332 gfc_add_block_to_block (block, &rse->pre);
9334 gfc_add_modify (&lse->pre, tmp, rse->expr);
9336 gfc_add_modify (&lse->pre, expr1_vptr,
9421 gfc_add_block_to_block (&block, &lse.pre);
9422 gfc_add_block_to_block (&block, &rse.pre);
9497 gfc_conv_descriptor_data_set (&lse.pre, lse.expr, null_pointer_node);
9574 gfc_add_modify (&lse.pre, desc, rse.expr);
9579 gfc_conv_descriptor_span_set (&lse.pre, desc, tmp);
9586 gfc_add_block_to_block (&block, &rse.pre);
9588 gfc_add_modify (&lse.pre, tmp, rse.expr);
9590 gfc_add_modify (&lse.pre, expr1_vptr,
9594 gfc_add_modify (&lse.pre, desc, rse.expr);
9607 gfc_add_modify (&lse.pre, desc, tmp);
9610 gfc_add_block_to_block (&block, &lse.pre);
9612 gfc_add_block_to_block (&block, &rse.pre);
9684 gfc_add_block_to_block (&block, &lower_se.pre);
9685 gfc_add_block_to_block (&block, &upper_se.pre);
9737 gfc_add_block_to_block (&block, &lbound_se.pre);
9886 gfc_add_block_to_block (&block, &lse->pre);
9893 gfc_add_block_to_block (&block, &rse->pre);
9913 cond = gfc_evaluate_now (cond, &lse->pre);
9922 tmp_var = gfc_evaluate_now (lse->expr, &lse->pre);
9930 gfc_add_block_to_block (&block, &rse->pre);
9931 gfc_add_block_to_block (&block, &lse->pre);
9960 gfc_add_block_to_block (&block, &lse->pre);
9961 gfc_add_block_to_block (&block, &rse->pre);
9970 gfc_add_block_to_block (&block, &lse->pre);
9971 gfc_add_block_to_block (&block, &rse->pre);
9981 gfc_add_block_to_block (&block, &lse->pre);
9982 gfc_add_block_to_block (&block, &rse->pre);
10161 gfc_add_block_to_block (&se->pre, &loop->pre);
10162 gfc_add_block_to_block (&se->pre, &loop->post);
10194 gfc_add_modify (&se->pre, tmp, gfc_get_dtype (TREE_TYPE (desc)));
10196 res_desc = gfc_evaluate_now (desc, &se->pre);
10197 gfc_conv_descriptor_data_set (&se->pre, res_desc, null_pointer_node);
10317 gfc_start_block (&se.pre);
10328 gfc_add_expr_to_block (&se.pre, tmp);
10365 gfc_add_block_to_block (&se.pre, &se.post);
10372 return gfc_finish_block (&se.pre);
10721 gfc_add_block_to_block (block, &caf_se.pre);
10949 gfc_add_expr_to_block (&lse->pre, tmp);
11200 string_length = gfc_evaluate_now (rse.string_length, &rse.pre);
11207 gfc_evaluate_now_function_scope (rse.string_length, &rse.pre);
11249 gfc_trans_runtime_check (true, false, cond, &loop.pre,
11263 gfc_add_expr_to_block (&lse.pre, tmp);
11272 gfc_add_expr_to_block (&lse.pre, tmp);
11301 a pre block.
11318 gfc_add_block_to_block (&block, &rse.pre);
11410 /* Add the pre blocks to the body. */
11411 gfc_add_block_to_block (&body, &rse.pre);
11412 gfc_add_block_to_block (&body, &lse.pre);
11478 gfc_add_block_to_block (&block, &loop.pre);