class_prima = new_type_class(new_id_from_chars ("PRIMA", 5));
/* We need type information for pointers to the class: */
class_p_ptr = new_type_pointer (new_id_from_chars("class_prima_ptr", 15),
- class_prima);
+ class_prima, mode_P);
/* An entity for the field (a). The entity constructor automatically adds
the entity as member of the owner. */
a_e = new_entity(class_prima, new_id_from_chars ("a", 1), prim_t_int);
mature_immBlock (get_irg_end_block(main_irg));
irg_vrfy(main_irg);
- finalize_cons (main_irg);
+ irg_finalize_cons (main_irg);
/****************************************************************************/
/* verify the graph */
irg_vrfy(set_a_irg);
- finalize_cons (set_a_irg);
+ irg_finalize_cons (set_a_irg);
/****************************************************************************/
/* Select the entity and load the value */
a_ptr = new_simpleSel(get_store(), self, a_e);
- a_val = new_Load(get_store(), a_ptr);
+ a_val = new_Load(get_store(), a_ptr, mode_Is);
set_store(new_Proj(a_val, mode_M, 0));
a_val = new_Proj(a_val, mode_Is, 2);
/* verify the graph */
irg_vrfy(c_irg);
- finalize_cons (c_irg);
+ irg_finalize_cons (c_irg);
/****************************************************************************/
dump_all_ir_graphs(dump_ir_graph_w_types, "");
dump_all_ir_graphs(dump_ir_block_graph_w_types, "");
dump_all_ir_graphs(dump_type_graph, "");
+ dump_all_ir_graphs(dump_graph_as_text, "");
dump_all_types("");
dump_class_hierarchy (true, "");
entity **free_methods;
int arr_len;
- cgana(&arr_len, &free_methods, 0);
+ cgana(&arr_len, &free_methods);
cg_construct(arr_len, free_methods);
- interprocedural_view = 1;
+ set_interprocedural_view(true);
dump_ir_graph(main_irg, "");
dump_ir_block_graph(main_irg, "");
dump_ir_graph_w_types(main_irg, "");