- owner = new_type_class (id_from_str ("MEMORY_EXAMPLE", 14));
- method = new_type_method (id_from_str("main", 4), 0, 1);
+ owner = new_type_class (new_id_from_chars ("MEMORY_EXAMPLE", 14));
+ method = new_type_method (new_id_from_chars("main", 4), 0, 1);
- ent = new_entity (owner, id_from_str ("main", 4), method);
+ ent = new_entity (owner, new_id_from_chars ("main", 4), method);
get_entity_ld_name(ent); /* To enforce name mangling for vcg graph name */
/* Generates start and end blocks and nodes and a first, initial block */
get_entity_ld_name(ent); /* To enforce name mangling for vcg graph name */
/* Generates start and end blocks and nodes and a first, initial block */
- new_entity(get_glob_type(),id_from_str("VAR_A",6),prim_t_int));
+ new_entity(get_glob_type(),new_id_from_chars("VAR_A",6),prim_t_int));
- new_entity(get_glob_type(),id_from_str("VAR_B",6),prim_t_int));
+ new_entity(get_glob_type(),new_id_from_chars("VAR_B",6),prim_t_int));
/* set VAR_A and VAR_B to constant values */
set_store (new_Proj (new_Store (get_store (), a,
new_Const (mode_Iu, new_tarval_from_long (0, mode_Is))),
/* set VAR_A and VAR_B to constant values */
set_store (new_Proj (new_Store (get_store (), a,
new_Const (mode_Iu, new_tarval_from_long (0, mode_Is))),
/* exchange the content of the two variables. Exceptions not cached. */
/* load the value and make it's effects visible. */
/* exchange the content of the two variables. Exceptions not cached. */
/* load the value and make it's effects visible. */
set_store (new_Proj (x, mode_M, 0));
x = new_Proj(x, mode_Iu, 2);
/* the same again: load the value and make it's effects visible. */
set_store (new_Proj (x, mode_M, 0));
x = new_Proj(x, mode_Iu, 2);
/* the same again: load the value and make it's effects visible. */
set_store (new_Proj (y, mode_M, 0));
y = new_Proj(y, mode_Iu, 2);
/* store the exchanged values. */
set_store (new_Proj (y, mode_M, 0));
y = new_Proj(y, mode_Iu, 2);
/* store the exchanged values. */
new_Cmp (
new_Const (mode_Iu, new_tarval_from_long (0, mode_Is)),
x),
new_Cmp (
new_Const (mode_Iu, new_tarval_from_long (0, mode_Is)),
x),
- add_in_edge (r, new_Proj (x, mode_X, 0));
+ add_immBlock_pred (r, new_Proj (x, mode_X, 0));
in[0] = new_Proj (x, mode_Iu, 2);
x = new_Return (new_Proj(x, mode_M, 0), 1, in);
}
in[0] = new_Proj (x, mode_Iu, 2);
x = new_Return (new_Proj(x, mode_M, 0), 1, in);
}
- mature_block (r);
- add_in_edge (get_irg_end_block(irg), x);
- mature_block (get_irg_end_block(irg));
+ mature_immBlock (r);
+ add_immBlock_pred (get_irg_end_block(irg), x);
+ mature_immBlock (get_irg_end_block(irg));