class_prima = new_type_class(new_id_from_str ("PRIMA_INLINE"));
/* 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);
/****************************************************************************/
add_immBlock_pred (r, x);
x = new_Cond (new_Proj(new_Cmp(new_Const (mode_Is, new_tarval_from_long (0, mode_Is)),
new_Const (mode_Is, new_tarval_from_long (0, mode_Is))),
- mode_b, Eq));
+ mode_b, pn_Cmp_Eq));
/* x = new_Cond (new_Proj(new_Cmp(new_Const (mode_Is, new_tarval_from_long (0, mode_Is)),
get_value(1, mode_Is)),
- mode_b, Eq));*/
+ mode_b, pn_Cmp_Eq));*/
f = new_Proj (x, mode_X, 0);
t = new_Proj (x, mode_X, 1);
set_value (1, get_value (2, mode_Is));
set_value (2, get_value (3, mode_Is));
a_ptr = new_simpleSel(get_store(), self, a_e);
- set_store(new_Store(get_store(), a_ptr, get_value(2, mode_Is)));
+ set_store(new_Proj(new_Store(get_store(), a_ptr, get_value(2, mode_Is)), mode_M, pn_Store_M));
x = new_Jmp ();
add_immBlock_pred(r, x);
mature_immBlock (b);
add_immBlock_pred (r, f);
/* 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);
/****************************************************************************/