dbg_info *db)
{
ir_entity *res;
- ir_graph *rem;
assert(!id_contains_char(name, ' ') && "entity name should not contain spaces");
res->repr_class = NULL;
if (is_Method_type(type)) {
+ ir_graph *irg = get_const_code_irg();
symconst_symbol sym;
ir_mode *mode = is_Method_type(type) ? mode_P_code : mode_P_data;
sym.entity_p = res;
- rem = current_ir_graph;
- current_ir_graph = get_const_code_irg();
- set_atomic_ent_value(res, new_SymConst(mode, sym, symconst_addr_ent));
- current_ir_graph = rem;
+ set_atomic_ent_value(res, new_r_SymConst(irg, mode, sym, symconst_addr_ent));
res->linkage = IR_LINKAGE_CONSTANT;
res->attr.mtd_attr.irg_add_properties = mtp_property_inherited;
res->attr.mtd_attr.vtable_number = IR_VTABLE_NUM_NOT_SET;
return _get_entity_ld_name(ent);
}
+int entity_has_ld_ident(const ir_entity *entity)
+{
+ return entity->ld_name != NULL;
+}
+
ir_type *(get_entity_type)(const ir_entity *ent)
{
return _get_entity_type(ent);
ir_visibility get_entity_visibility(const ir_entity *entity)
{
- return entity->visibility;
+ return (ir_visibility)entity->visibility;
}
void set_entity_linkage(ir_entity *entity, ir_linkage linkage)
return new_r_Const(get_const_code_irg(), get_mode_null(mode));
}
case IR_INITIALIZER_TARVAL: {
- tarval *tv = get_initializer_tarval_value(initializer);
+ ir_tarval *tv = get_initializer_tarval_value(initializer);
return new_r_Const(get_const_code_irg(), tv);
}
case IR_INITIALIZER_CONST:
/*
* Copies a firm subgraph that complies to the restrictions for
- * constant expressions to current_block in current_ir_graph.
+ * constant expressions to block.
*/
-ir_node *copy_const_value(dbg_info *dbg, ir_node *n)
+ir_node *copy_const_value(dbg_info *dbg, ir_node *n, ir_node *block)
{
+ ir_graph *irg = get_irn_irg(block);
ir_node *nn;
ir_mode *m;
m = get_irn_mode(n);
switch (get_irn_opcode(n)) {
case iro_Const:
- nn = new_d_Const_type(dbg, get_Const_tarval(n), get_Const_type(n));
+ nn = new_rd_Const(dbg, irg, get_Const_tarval(n));
break;
case iro_SymConst:
- nn = new_d_SymConst_type(dbg, get_irn_mode(n), get_SymConst_symbol(n), get_SymConst_kind(n),
- get_SymConst_value_type(n));
+ nn = new_rd_SymConst(dbg, irg, get_irn_mode(n), get_SymConst_symbol(n), get_SymConst_kind(n));
break;
case iro_Add:
- nn = new_d_Add(dbg, copy_const_value(dbg, get_Add_left(n)),
- copy_const_value(dbg, get_Add_right(n)), m); break;
+ nn = new_rd_Add(dbg, block,
+ copy_const_value(dbg, get_Add_left(n), block),
+ copy_const_value(dbg, get_Add_right(n), block), m);
+ break;
case iro_Sub:
- nn = new_d_Sub(dbg, copy_const_value(dbg, get_Sub_left(n)),
- copy_const_value(dbg, get_Sub_right(n)), m); break;
+ nn = new_rd_Sub(dbg, block,
+ copy_const_value(dbg, get_Sub_left(n), block),
+ copy_const_value(dbg, get_Sub_right(n), block), m);
+ break;
case iro_Mul:
- nn = new_d_Mul(dbg, copy_const_value(dbg, get_Mul_left(n)),
- copy_const_value(dbg, get_Mul_right(n)), m); break;
+ nn = new_rd_Mul(dbg, block,
+ copy_const_value(dbg, get_Mul_left(n), block),
+ copy_const_value(dbg, get_Mul_right(n), block), m);
+ break;
case iro_And:
- nn = new_d_And(dbg, copy_const_value(dbg, get_And_left(n)),
- copy_const_value(dbg, get_And_right(n)), m); break;
+ nn = new_rd_And(dbg, block,
+ copy_const_value(dbg, get_And_left(n), block),
+ copy_const_value(dbg, get_And_right(n), block), m);
+ break;
case iro_Or:
- nn = new_d_Or(dbg, copy_const_value(dbg, get_Or_left(n)),
- copy_const_value(dbg, get_Or_right(n)), m); break;
+ nn = new_rd_Or(dbg, block,
+ copy_const_value(dbg, get_Or_left(n), block),
+ copy_const_value(dbg, get_Or_right(n), block), m);
+ break;
case iro_Eor:
- nn = new_d_Eor(dbg, copy_const_value(dbg, get_Eor_left(n)),
- copy_const_value(dbg, get_Eor_right(n)), m); break;
+ nn = new_rd_Eor(dbg, block,
+ copy_const_value(dbg, get_Eor_left(n), block),
+ copy_const_value(dbg, get_Eor_right(n), block), m);
+ break;
case iro_Cast:
- nn = new_d_Cast(dbg, copy_const_value(dbg, get_Cast_op(n)), get_Cast_type(n)); break;
+ nn = new_rd_Cast(dbg, block,
+ copy_const_value(dbg, get_Cast_op(n), block),
+ get_Cast_type(n));
+ break;
case iro_Conv:
- nn = new_d_Conv(dbg, copy_const_value(dbg, get_Conv_op(n)), m); break;
+ nn = new_rd_Conv(dbg, block,
+ copy_const_value(dbg, get_Conv_op(n), block), m);
+ break;
case iro_Unknown:
- nn = new_Unknown(m); break;
+ nn = new_r_Unknown(irg, m); break;
default:
panic("opcode invalid or not implemented");
}
struct obstack *obst = get_irg_obstack(get_const_code_irg());
ir_initializer_t *initializer
- = obstack_alloc(obst, sizeof(ir_initializer_const_t));
+ = (ir_initializer_t*)OALLOC(obst, ir_initializer_const_t);
initializer->kind = IR_INITIALIZER_CONST;
initializer->consti.value = value;
return initializer;
}
-ir_initializer_t *create_initializer_tarval(tarval *tv)
+ir_initializer_t *create_initializer_tarval(ir_tarval *tv)
{
struct obstack *obst = get_irg_obstack(get_const_code_irg());
ir_initializer_t *initializer
- = obstack_alloc(obst, sizeof(ir_initializer_tarval_t));
+ = (ir_initializer_t*)OALLOC(obst, ir_initializer_tarval_t);
initializer->kind = IR_INITIALIZER_TARVAL;
initializer->tarval.value = tv;
size_t size = sizeof(ir_initializer_compound_t)
+ (n_entries-1) * sizeof(ir_initializer_t*);
- ir_initializer_t *initializer = obstack_alloc(obst, size);
+ ir_initializer_t *initializer
+ = (ir_initializer_t*)obstack_alloc(obst, size);
initializer->kind = IR_INITIALIZER_COMPOUND;
initializer->compound.n_initializers = n_entries;
return skip_Id(initializer->consti.value);
}
-tarval *get_initializer_tarval_value(const ir_initializer_t *initializer)
+ir_tarval *get_initializer_tarval_value(const ir_initializer_t *initializer)
{
assert(initializer->kind == IR_INITIALIZER_TARVAL);
return initializer->tarval.value;
return _entity_not_visited(ent);
}
-unsigned get_entity_additional_properties(const ir_entity *ent)
+mtp_additional_properties get_entity_additional_properties(const ir_entity *ent)
{
ir_graph *irg;
return ent->attr.mtd_attr.irg_add_properties;
}
-void set_entity_additional_properties(ir_entity *ent, unsigned property_mask)
+void set_entity_additional_properties(ir_entity *ent, mtp_additional_properties property_mask)
{
ir_graph *irg;
if (irg)
set_irg_additional_properties(irg, property_mask);
else {
- /* do not allow to set the mtp_property_inherited flag or
- * the automatic inheritance of flags will not work */
+ /* do not allow to set the mtp_property_inherited flag or
+ * the automatic inheritance of flags will not work */
ent->attr.mtd_attr.irg_add_properties = property_mask & ~mtp_property_inherited;
}
}
-void set_entity_additional_property(ir_entity *ent, mtp_additional_property flag)
+void add_entity_additional_properties(ir_entity *ent, mtp_additional_properties properties)
{
ir_graph *irg;
/* first check, if the graph exists */
irg = get_entity_irg(ent);
if (irg)
- set_irg_additional_property(irg, flag);
+ add_irg_additional_properties(irg, properties);
else {
- unsigned mask = ent->attr.mtd_attr.irg_add_properties;
+ mtp_additional_properties mask = ent->attr.mtd_attr.irg_add_properties;
if (mask & mtp_property_inherited)
mask = get_method_additional_properties(get_entity_type(ent));
/* do not allow to set the mtp_property_inherited flag or
* the automatic inheritance of flags will not work */
- ent->attr.mtd_attr.irg_add_properties = mask | (flag & ~mtp_property_inherited);
+ ent->attr.mtd_attr.irg_add_properties = mask | (properties & ~mtp_property_inherited);
}
}
ir_allocation get_entity_allocation(const ir_entity *entity)
{
- return entity->allocation;
+ return (ir_allocation)entity->allocation;
}
void set_entity_allocation(ir_entity *entity, ir_allocation allocation)
ir_peculiarity get_entity_peculiarity(const ir_entity *entity)
{
- return entity->peculiarity;
+ return (ir_peculiarity)entity->peculiarity;
}
void set_entity_peculiarity(ir_entity *entity, ir_peculiarity peculiarity)