gcc/fortran/trans-stmt.c

103   gfc_start_block (&se.pre);
128   gfc_add_modify (&se.pre, len, fold_convert (TREE_TYPE (len), len_tree));
129   gfc_add_modify (&se.pre, addr, label_tree);
131   return gfc_finish_block (&se.pre);
150   gfc_start_block (&se.pre);
155   gfc_trans_runtime_check (true, false, tmp, &se.pre, &loc,
168   gfc_add_expr_to_block (&se.pre, target);
169   return gfc_finish_block (&se.pre);
277 	  gfc_add_block_to_block (&se->pre, &parmse.pre);
317 	  tmp = gfc_trans_create_temp_array (&se->pre, &temp_post, tmp_ss,
320 	  gfc_add_modify (&se->pre, size, tmp);
322 	  gfc_add_modify (&se->pre, data, tmp);
344 	  /* parmse.pre is already added above.  */
390   gfc_start_block (&se.pre);
423 	  gfc_add_modify (&se.pre, sym->backend_decl, se.expr);
426 	gfc_add_expr_to_block (&se.pre, se.expr);
428       gfc_add_block_to_block (&se.pre, &se.post);
476       gfc_add_block_to_block (&loop.pre,  &depse.pre);
502 	  gfc_add_expr_to_block (&loopse.pre, tmp);
506 	  gfc_add_modify (&loopse.pre, count1, tmp);
509 	gfc_add_expr_to_block (&loopse.pre, loopse.expr);
511       gfc_add_block_to_block (&block, &loopse.pre);
517       gfc_add_block_to_block (&se.pre, &loop.pre);
518       gfc_add_block_to_block (&se.pre, &loop.post);
519       gfc_add_block_to_block (&se.pre, &se.post);
523   return gfc_finish_block (&se.pre);
553       gfc_start_block (&se.pre);
563       gfc_add_expr_to_block (&se.pre, tmp);
564       gfc_add_block_to_block (&se.pre, &se.post);
567       gfc_add_expr_to_block (&se.pre, tmp);
568       return gfc_finish_block (&se.pre);
587   gfc_start_block (&se.pre);
613   gfc_add_expr_to_block (&se.pre, tmp);
615   gfc_add_block_to_block (&se.pre, &se.post);
617   return gfc_finish_block (&se.pre);
632   gfc_start_block (&se.pre);
678   gfc_add_expr_to_block (&se.pre, tmp);
680   gfc_add_block_to_block (&se.pre, &se.post);
682   return gfc_finish_block (&se.pre);
717       gfc_start_block (&se.pre);
724       gfc_add_block_to_block (&se.pre, &argse1.pre);
725       gfc_add_block_to_block (&se.pre, &argse2.pre);
730       gfc_add_expr_to_block (&se.pre, tmp);
731       gfc_add_block_to_block (&se.pre, &argse1.post);
732       gfc_add_block_to_block (&se.pre, &argse2.post);
733       return gfc_finish_block (&se.pre);
761       gfc_add_expr_to_block (&argse.pre, tmp);
762       gfc_add_block_to_block (&argse.pre, &argse.post);
763       return gfc_finish_block (&argse.pre);
812       gfc_add_expr_to_block (&argse.pre, tmp);
813       gfc_add_block_to_block (&argse.pre, &argse.post);
814       return gfc_finish_block (&argse.pre);
857   gfc_start_block (&se.pre);
879 	image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl);
900 	  gfc_add_block_to_block (&se.pre, &argse.pre);
909 	      gfc_add_block_to_block (&argse.pre, &argse.pre);
933 	  gfc_add_block_to_block (&se.pre, &argse.pre);
972       gfc_add_expr_to_block (&se.pre, tmp);
981       gfc_add_expr_to_block (&se.pre, tmp);
984 	gfc_add_modify (&se.pre, stat2,
988 	gfc_add_modify (&se.pre, lock_acquired2,
992       return gfc_finish_block (&se.pre);
996     gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0));
999     gfc_add_modify (&se.pre, lock_acquired,
1003   return gfc_finish_block (&se.pre);
1034       gfc_start_block (&se.pre);
1039 	gfc_add_modify (&se.pre, argse.expr,
1044 	gfc_add_modify (&se.pre, argse.expr,
1050 	gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0));
1052       return gfc_finish_block (&se.pre);
1055   gfc_start_block (&se.pre);
1074   gfc_add_block_to_block (&se.pre, &argse.pre);
1077     image_index = gfc_caf_get_image_index (&se.pre, code->expr1, caf_decl);
1098       gfc_add_block_to_block (&se.pre, &argse.pre);
1107 	  gfc_add_block_to_block (&argse.pre, &argse.pre);
1131       gfc_add_block_to_block (&se.pre, &argse.pre);
1160   gfc_add_expr_to_block (&se.pre, tmp);
1168   gfc_add_expr_to_block (&se.pre, tmp);
1171     gfc_add_modify (&se.pre, stat2, fold_convert (TREE_TYPE (stat2), stat));
1173   return gfc_finish_block (&se.pre);
1191   gfc_start_block (&se.pre);
1250       gfc_trans_runtime_check (true, false, cond, &se.pre,
1264       gfc_add_expr_to_block (&se.pre, tmp);
1271 	gfc_add_modify (&se.pre, stat, build_int_cst (TREE_TYPE (stat), 0));
1292 	  gfc_add_expr_to_block (&se.pre, tmp);
1301 	  gfc_add_expr_to_block (&se.pre, tmp);
1303 	  gfc_add_modify (&se.pre, stat,
1358 	  gfc_add_expr_to_block (&se.pre, tmp);
1368 	  gfc_add_expr_to_block (&se.pre, tmp);
1370 	  gfc_add_modify (&se.pre, stat,
1375   return gfc_finish_block (&se.pre);
1414    are the pre side-effects produced by the translation of the
1433   gfc_start_block (&if_se.pre);
1462   gfc_add_expr_to_block (&if_se.pre, stmt);
1465   return gfc_finish_block (&if_se.pre);
1523   gfc_start_block (&se.pre);
1527   se.expr = gfc_evaluate_now (se.expr, &se.pre);
1564   gfc_add_expr_to_block (&se.pre, branch1);
1565   return gfc_finish_block (&se.pre);
1799 	  gfc_add_modify (&se.pre, desc, tmp);
1802 	  gfc_add_modify (&se.pre, gfc_class_vptr_get (desc), tmp);
1804 	    gfc_add_modify (&se.pre, gfc_class_len_get (desc),
1814 	copy_descriptor (&se.pre, desc, se.expr, rank);
1818 	  gfc_add_modify (&se.pre, desc,
1863       gfc_add_init_cleanup (block, gfc_finish_block (&se.pre), tmp);
1898 	  gfc_add_modify (&se.pre, sym->ts.u.cl->backend_decl,
1911 	    gfc_add_modify (&se.pre, desc, se.expr);
1916 	    gfc_conv_shift_descriptor_lbound (&se.pre, desc,
1927 	  gfc_conv_descriptor_span_set (&se.pre, desc, tmp);
1941       gfc_add_init_cleanup (block, gfc_finish_block (&se.pre),
1972 	  gfc_add_modify (&se.pre, sym->backend_decl,
1976 	gfc_add_modify (&se.pre, sym->backend_decl, se.expr);
1983 	  gfc_add_modify (&se.pre, tmp,
1987       gfc_add_init_cleanup (block, gfc_finish_block (&se.pre),
2046 	      gfc_add_modify (&se.pre, charlen,
2055 	  gfc_conv_descriptor_offset_set (&se.pre, desc, offset);
2082 	  gfc_add_modify (&se.pre, sym->ts.u.cl->backend_decl,
2123 	      gfc_add_modify (&se.pre, dtmp, stmp);
2127 	      gfc_add_modify (&se.pre, dtmp, stmp);
2133 		  gfc_add_modify (&se.pre, dtmp, stmp);
2140       gfc_add_modify (&se.pre, sym->backend_decl, tmp);
2142       gfc_add_init_cleanup (block, gfc_finish_block( &se.pre),
2165 	  gfc_add_modify (&se.pre, tmp, fold_convert (TREE_TYPE (tmp),
2171       gfc_add_expr_to_block (&se.pre, res);
2207       res = gfc_finish_block (&se.pre);
2237 	  gfc_add_modify (&se.pre, charlen,
2239 	  gfc_add_init_cleanup (block, gfc_finish_block (&se.pre),
2313    This helps the optimizers by avoiding the extra pre-header condition and
2516   gfc_add_block_to_block (&block, &se.pre);
2522   gfc_add_block_to_block (&block, &se.pre);
2527   gfc_add_block_to_block (&block, &se.pre);
2532   gfc_add_block_to_block (&block, &se.pre);
2804   gfc_add_block_to_block (&block, &cond.pre);
2870   gfc_add_block_to_block (&block, &se.pre);
2898 	  gfc_add_block_to_block (&block, &cse.pre);
2906 	  gfc_add_block_to_block (&block, &cse.pre);
2941 	  gfc_add_block_to_block (&block, &cse.pre);
3026   gfc_add_block_to_block (&block, &se.pre);
3165   gfc_add_block_to_block (&block, &se.pre);
3252   gfc_add_block_to_block (&block, &expr1se.pre);
3696 	  gfc_add_block_to_block (&block, &cse.pre);
3823 forall_make_variable_temp (gfc_code *c, stmtblock_t *pre, stmtblock_t *post)
3841       gfc_add_block_to_block (pre, &tse.pre);
3849 	  gfc_conv_descriptor_offset_set (pre, tse.expr, tmp);
3864 	  gfc_add_block_to_block (pre, &tse.pre);
3875       gfc_add_expr_to_block (pre, tmp);
3908 check_forall_dependencies (gfc_code *c, stmtblock_t *pre, stmtblock_t *post)
3933       forall_make_variable_temp (c, pre, post);
3954 	  forall_make_variable_temp (c, pre, post);
4268       gfc_add_block_to_block (&block, &loop.pre);
4382       gfc_add_block_to_block (&block, &loop.pre);
4451       gfc_add_block_to_block (pblock, &loop.pre);
4752       gfc_add_block_to_block (&body, &rse.pre);
4778       gfc_add_block_to_block (&body, &lse.pre);
4822       gfc_add_block_to_block (&body, &lse.pre);
4843       gfc_add_modify (&lse.pre, lse.expr, parm);
4845       gfc_add_block_to_block (&body, &lse.pre);
4908   stmtblock_t pre;
4958   gfc_start_block (&pre);
4986       gfc_add_block_to_block (&block, &se.pre);
4994       gfc_add_block_to_block (&block, &se.pre);
5002       gfc_add_block_to_block (&block, &se.pre);
5094       gfc_add_block_to_block (&body, &se.pre);
5146 	  need_temp = check_forall_dependencies(c, &pre, &post);
5251   gfc_add_block_to_block (&pre, &block);
5252   gfc_add_block_to_block (&pre, &post);
5254   return gfc_finish_block (&pre);
5344   gfc_add_block_to_block (&body1, &lse.pre);
5345   gfc_add_block_to_block (&body1, &rse.pre);
5394       gfc_add_block_to_block (&body, &loop.pre);
5612       gfc_add_block_to_block (&block, &loop.pre);
5976   gfc_add_block_to_block (&body, &cse.pre);
6005   gfc_add_block_to_block (&block, &loop.pre);
6225      be pre-evaluated in all cases.  One just has to make sure, to use the
6311       gfc_add_block_to_block (&block, &se.pre);
6478 		  gfc_add_block_to_block (&block, &se.pre);
6516 	  gfc_add_block_to_block (&block, &se_sz.pre);
6683 	 pre-evaluated expr3 expressions, because for most of them the
6684 	 scalarizer is needed which is not available in the pre-evaluation
6688 	 pre-evaluation step.  */
6761 	      gfc_add_block_to_block (&se.pre, &se_sz.pre);
6762 	      se_sz.expr = gfc_evaluate_now (se_sz.expr, &se.pre);
6763 	      gfc_add_block_to_block (&se.pre, &se_sz.post);
6812 	      gfc_add_block_to_block (&se.pre, &caf_se.pre);
6813 	      gfc_allocate_allocatable (&se.pre, se.expr, memsz,
6820 	    gfc_allocate_allocatable (&se.pre, se.expr, memsz,
6824 	    gfc_allocate_using_malloc (&se.pre, se.expr, memsz, stat);
6858 	      gfc_add_block_to_block (&block, &se_sz.pre);
6866       gfc_add_block_to_block (&block, &se.pre);
6896 		/* Although expr3 is pre-evaluated above, it may happen,
6897 		   that for arrays or in mold= cases the pre-evaluation
6948 		  gfc_add_block_to_block (&block, &se_sz.pre);
7218       gfc_start_block (&se.pre);
7292 		  gfc_add_expr_to_block (&se.pre, tmp);
7309 	      gfc_add_expr_to_block (&se.pre, tmp);
7335 		  gfc_add_expr_to_block (&se.pre, tmp);
7341 	      gfc_reset_vptr (&se.pre, al->expr);
7346 		gfc_reset_len (&se.pre, al->expr);
7354 	  gfc_add_expr_to_block (&se.pre, tmp);
7360 	  gfc_add_expr_to_block (&se.pre, tmp);
7364 	      gfc_reset_vptr (&se.pre, al->expr);
7369 		gfc_reset_len (&se.pre, al->expr);
7383 	  gfc_add_expr_to_block (&se.pre, tmp);
7386       tmp = gfc_finish_block (&se.pre);