/*
- * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
+ * Copyright (C) 1995-2011 University of Karlsruhe. All right reserved.
*
* This file is part of libFirm.
*
res->attr.code_attr.label = (ir_label_t) -1;
}
- /* Remember entity in it's owner. */
+ /* Remember entity in its owner. */
if (owner != NULL)
add_compound_member(owner, res);
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:
m = get_irn_mode(n);
switch (get_irn_opcode(n)) {
case iro_Const:
- nn = new_rd_Const_type(dbg, irg, get_Const_tarval(n), get_Const_type(n));
+ nn = new_rd_Const(dbg, irg, get_Const_tarval(n));
break;
case iro_SymConst:
- nn = new_rd_SymConst_type(dbg, irg, 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_rd_Add(dbg, block,
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;
return initializer;
}
-ir_initializer_t *create_initializer_compound(unsigned n_entries)
+ir_initializer_t *create_initializer_compound(size_t n_entries)
{
struct obstack *obst = get_irg_obstack(get_const_code_irg());
size_t i;
size_t size = sizeof(ir_initializer_compound_t)
- + (n_entries-1) * sizeof(ir_initializer_t*);
+ + n_entries * sizeof(ir_initializer_t*)
+ - 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;
}
-unsigned get_initializer_compound_n_entries(const ir_initializer_t *initializer)
+size_t get_initializer_compound_n_entries(const ir_initializer_t *initializer)
{
assert(initializer->kind == IR_INITIALIZER_COMPOUND);
return initializer->compound.n_initializers;
}
void set_initializer_compound_value(ir_initializer_t *initializer,
- unsigned index, ir_initializer_t *value)
+ size_t index, ir_initializer_t *value)
{
assert(initializer->kind == IR_INITIALIZER_COMPOUND);
assert(index < initializer->compound.n_initializers);
}
ir_initializer_t *get_initializer_compound_value(
- const ir_initializer_t *initializer, unsigned index)
+ const ir_initializer_t *initializer, size_t index)
{
assert(initializer->kind == IR_INITIALIZER_COMPOUND);
assert(index < initializer->compound.n_initializers);
ARR_APP1(ir_entity *, overwritten->overwrittenby, ent);
}
-int get_entity_n_overwrites(const ir_entity *ent)
+size_t get_entity_n_overwrites(const ir_entity *ent)
{
if (ent->overwrites == NULL)
return 0;
return ARR_LEN(ent->overwrites);
}
-int get_entity_overwrites_index(const ir_entity *ent, ir_entity *overwritten)
+size_t get_entity_overwrites_index(const ir_entity *ent, ir_entity *overwritten)
{
- int i, n;
- n = get_entity_n_overwrites(ent);
+ size_t i;
+ size_t n = get_entity_n_overwrites(ent);
for (i = 0; i < n; ++i) {
if (get_entity_overwrites(ent, i) == overwritten)
return i;
}
- return -1;
+ return (size_t)-1;
}
-ir_entity *get_entity_overwrites(const ir_entity *ent, int pos)
+ir_entity *get_entity_overwrites(const ir_entity *ent, size_t pos)
{
assert(pos < get_entity_n_overwrites(ent));
return ent->overwrites[pos];
}
-void set_entity_overwrites(ir_entity *ent, int pos, ir_entity *overwritten)
+void set_entity_overwrites(ir_entity *ent, size_t pos, ir_entity *overwritten)
{
assert(pos < get_entity_n_overwrites(ent));
ent->overwrites[pos] = overwritten;
void remove_entity_overwrites(ir_entity *ent, ir_entity *overwritten)
{
- int i, n;
- n = get_entity_n_overwrites(ent);
+ size_t i;
+ size_t n = get_entity_n_overwrites(ent);
for (i = 0; i < n; ++i) {
if (ent->overwrites[i] == overwritten) {
for (; i < n - 1; i++)
}
-int get_entity_n_overwrittenby(const ir_entity *ent)
+size_t get_entity_n_overwrittenby(const ir_entity *ent)
{
if (ent->overwrittenby == NULL)
return 0;
return ARR_LEN(ent->overwrittenby);
}
-int get_entity_overwrittenby_index(const ir_entity *ent, ir_entity *overwrites)
+size_t get_entity_overwrittenby_index(const ir_entity *ent,
+ ir_entity *overwrites)
{
- int i, n;
- n = get_entity_n_overwrittenby(ent);
+ size_t i;
+ size_t n = get_entity_n_overwrittenby(ent);
for (i = 0; i < n; ++i) {
if (get_entity_overwrittenby(ent, i) == overwrites)
return i;
}
- return -1;
+ return (size_t)-1;
}
-ir_entity *get_entity_overwrittenby(const ir_entity *ent, int pos)
+ir_entity *get_entity_overwrittenby(const ir_entity *ent, size_t pos)
{
assert(pos < get_entity_n_overwrittenby(ent));
return ent->overwrittenby[pos];
}
-void set_entity_overwrittenby(ir_entity *ent, int pos, ir_entity *overwrites)
+void set_entity_overwrittenby(ir_entity *ent, size_t pos, ir_entity *overwrites)
{
assert(pos < get_entity_n_overwrittenby(ent));
ent->overwrittenby[pos] = overwrites;
void remove_entity_overwrittenby(ir_entity *ent, ir_entity *overwrites)
{
- int i, n;
-
- n = get_entity_n_overwrittenby(ent);
+ size_t i;
+ size_t n = get_entity_n_overwrittenby(ent);
for (i = 0; i < n; ++i) {
if (ent->overwrittenby[i] == overwrites) {
for (; i < n - 1; ++i)
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)