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);
/* There is only one block in main, it contains the allocation and the calls. */
/* Allocate the defined object and generate the type information. */
symconst_symbol sym = { class_prima };
- obj_size = new_SymConst(sym, symconst_size);
+ obj_size = new_SymConst(sym, symconst_type_size);
obj_o = new_Alloc(get_store(), obj_size, class_prima, heap_alloc);
set_store(new_Proj(obj_o, mode_M, 0)); /* make the changed memory visible */
obj_o = new_Proj(obj_o, mode_P, 2); /* remember the pointer to the object */
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);