Use [gs]et_irn_n() instead of direct access to the in array
[libfirm] / ir / ana / irdom.c
index 397b93e..d5f1b5b 100644 (file)
@@ -448,6 +448,22 @@ static void init_tmp_pdom_info(ir_node *bl, tmp_dom_info *parent,
     assert(is_Block(pred));
     init_tmp_pdom_info(pred, tdi, tdi_list, used);
   }
+
+  /* Handle keep-alives. Note that the preprocessing
+     in init_construction() had already killed all
+     phantom keep-alive edges. All remaining block keep-alives
+     are really edges to endless loops.
+   */
+  if (bl == get_irg_end_block(current_ir_graph)) {
+    ir_node *end = get_irg_end(current_ir_graph);
+
+    for (i = get_irn_arity(end) - 1; i >= 0; --i) {
+      ir_node *pred = get_irn_n(end, i);
+
+      if (is_Block(pred))
+        init_tmp_pdom_info(pred, tdi, tdi_list, used);
+    }
+  }
 }
 
 static void dom_compress(tmp_dom_info *v)
@@ -516,14 +532,14 @@ static int init_construction(ir_graph *irg, irg_walk_func *pre) {
 
   /* now visit the unreachable (from End) Blocks and remove unnecessary keep-alives */
   end   = get_irg_end(irg);
-  arity = get_irn_arity(end);
+  arity = get_End_n_keepalives(end);
   if (arity) {    /* we have keep-alives */
     ir_node **in;
     int i, j;
 
     NEW_ARR_A(ir_node *, in, arity);
     for (i = j = 0; i < arity; i++) {
-      ir_node *pred = get_irn_n(end, i);
+      ir_node *pred = get_End_keepalive(end, i);
 
       if (get_irn_op(pred) == op_Block) {
         if (Block_not_block_visited(pred)) {
@@ -538,7 +554,7 @@ static int init_construction(ir_graph *irg, irg_walk_func *pre) {
     }
     if (j != arity) {
       /* we kill some Block keep-alives */
-      set_irn_in(end, j, in);
+      set_End_keepalives(end, j, in);
       set_irg_outs_inconsistent(irg);
     }
   }
@@ -717,9 +733,9 @@ void compute_postdoms(ir_graph *irg) {
     tmp_dom_info *v;
 
     /* Step 2 */
-    irn_arity = get_Block_n_cfg_outs(w->block);
+    irn_arity = get_Block_n_cfg_outs_ka(w->block);
     for (j = 0;  j < irn_arity;  j++) {
-      ir_node *succ = get_Block_cfg_out(w->block, j);
+      ir_node *succ = get_Block_cfg_out_ka(w->block, j);
       tmp_dom_info *u;
 
       if (get_Block_postdom_pre_num (succ) == -1)