ir_node *self, *par1, *a_ptr;
ir_node *a_val;
+ int i;
+
init_firm ();
set_opt_constant_folding(0);
proc_main_e = new_entity ((type *)owner, id_from_str ("main", 4),
(type *)proc_main);
main_irg = new_ir_graph (proc_main_e, 4);
+ /* Remark that this irg is the main routine of the program. */
+ set_irp_main_irg(main_irg);
/* There is only one block in main, it contains the constants and the calls. */
c2 = new_Const (mode_i, tarval_from_long (mode_i, 2));
mature_block (main_irg->end_block);
printf("\nDone building the graph.\n");
- printf("Dumping the graph and a type graph.\n");
- dump_ir_block_graph (main_irg);
- dump_type_graph(main_irg);
+ irg_vrfy(main_irg);
/****************************************************************************/
mature_block (set_a_irg->end_block);
printf("\nDone building the graph.\n");
- printf("Dumping the graph and a type graph.\n");
- dump_ir_block_graph (set_a_irg);
- dump_type_graph(set_a_irg);
+ irg_vrfy(set_a_irg);
/****************************************************************************/
add_in_edge (c_irg->end_block, x);
mature_block (c_irg->end_block);
+ /* verify the graph */
+ irg_vrfy(main_irg);
+
+ for (i = 0; i < get_irp_n_irgs(); i++)
+ dead_node_elimination(get_irp_irg(i));
+
printf("\nDone building the graph.\n");
- printf("Dumping the graph and a type graph.\n");
- dump_ir_block_graph (c_irg);
- dump_type_graph(c_irg);
+
+ printf("Dumping graphs of all procedures.\n");
+
+ for (i = 0; i < get_irp_n_irgs(); i++) {
+ dump_ir_block_graph (get_irp_irg(i));
+ dump_type_graph(get_irp_irg(i));
+ }
/****************************************************************************/
printf("\nuse xvcg to view these graphs:\n");
- printf("/ben/trapp/bin/i486/xvcg GRAPHNAME\n");
+ printf("/ben/goetz/bin/xvcg GRAPHNAME\n");
return (1);
}