foreach_out_edge(block, edge) {
ir_node *succ = get_edge_src_irn(edge);
foreach_out_edge(block, edge) {
ir_node *succ = get_edge_src_irn(edge);
if (is_root(succ, block)) {
mark_root_node(env, succ);
set_irn_link(succ, root);
if (is_root(succ, block)) {
mark_root_node(env, succ);
set_irn_link(succ, root);