- set_opt_dead_node_elimination(1);
-
- /*** Make basic type information for primitive type int. ***/
- prim_t_int = new_type_primitive(new_id_from_chars ("int", 3), mode_Is);
-
- /*** Make type information for the class (PRIMA). ***/
- /* The type of the class */
- 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);
- /* 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);
- /* An entity for the method set_a. But first we need type information
+
+ /*** Make basic ir_type information for primitive ir_type int. ***/
+ prim_t_int = new_type_primitive(new_id_from_chars("int", 3), mode_Is);
+
+ /*** Make ir_type information for the class (PRIMA). ***/
+ /* The ir_type of the class */
+ class_prima = new_type_class(new_id_from_chars("PRIMA", 5));
+ /* We need ir_type information for pointers to the class: */
+ class_p_ptr = new_type_pointer(new_id_from_chars("class_prima_ptr", 15),
+ class_prima, mode_P);
+ /* An ir_entity for the field (a). The ir_entity constructor automatically adds
+ the ir_entity as member of the owner. */
+ a_e = new_entity(class_prima, new_id_from_chars("a", 1), prim_t_int);
+ /* An ir_entity for the method set_a. But first we need ir_type information