node_size = offsetof(type, attr) + type_op->attr_size;
res = (type *) xmalloc (node_size);
+ memset((void *)res, 0, node_size);
add_irp_type(res); /* Remember the new type global. */
res->kind = k_type;
res->name = name;
res->state = layout_undefined;
res->size = -1;
+ res->align = -1;
res->visit = 0;
res -> link = NULL;
#ifdef DEBUG_libfirm
}
/* set/get the link field */
-void *(get_type_link)(type *tp)
+void *(get_type_link)(const type *tp)
{
return __get_type_link(tp);
}
__set_type_link(tp, l);
}
-tp_op *(get_type_tpop)(type *tp) {
+tp_op *(get_type_tpop)(const type *tp) {
return __get_type_tpop(tp);
}
-ident *(get_type_tpop_nameid)(type *tp) {
+ident *(get_type_tpop_nameid)(const type *tp) {
return __get_type_tpop_nameid(tp);
}
-const char* get_type_tpop_name(type *tp) {
+const char* get_type_tpop_name(const type *tp) {
assert(tp && tp->kind == k_type);
return get_id_str(tp->type_op->name);
}
-tp_opcode (get_type_tpop_code)(type *tp) {
+tp_opcode (get_type_tpop_code)(const type *tp) {
return __get_type_tpop_code(tp);
}
-ir_mode *(get_type_mode)(type *tp) {
+ir_mode *(get_type_mode)(const type *tp) {
return __get_type_mode(tp);
}
}
}
-ident *(get_type_ident)(type *tp) {
+ident *(get_type_ident)(const type *tp) {
return __get_type_ident(tp);
}
}
/* Outputs a unique number for this node */
-long (get_type_nr)(type *tp) {
+long (get_type_nr)(const type *tp) {
return __get_type_nr(tp);
}
-const char* get_type_name(type *tp) {
+const char* get_type_name(const type *tp) {
assert(tp && tp->kind == k_type);
return (get_id_str(tp->name));
}
-int (get_type_size_bytes)(type *tp) {
+int (get_type_size_bytes)(const type *tp) {
return __get_type_size_bytes(tp);
}
-int (get_type_size_bits)(type *tp) {
+int (get_type_size_bits)(const type *tp) {
return __get_type_size_bits(tp);
}
set_type_size_bits(tp, 8*size);
}
-type_state (get_type_state)(type *tp) {
+int get_type_alignment_bytes(type *tp) {
+ int align = get_type_alignment_bits(tp);
+
+ return align < 0 ? align : (align + 7) >> 3;
+}
+
+int get_type_alignment_bits(type *tp) {
+ int align = 8;
+
+ if (tp->align > 0)
+ return tp->align;
+
+ /* alignment NOT set calculate it "on demand" */
+ if (tp->mode)
+ align = get_mode_size_bits(tp->mode);
+ else if (is_array_type(tp))
+ align = get_type_alignment_bits(get_array_element_type(tp));
+ else if (is_compound_type(tp)) {
+ int i, n = get_compound_n_members(tp);
+
+ align = 0;
+ for (i = 0; i < n; ++i) {
+ type *t = get_entity_type(get_compound_member(tp, i));
+ int a = get_type_alignment_bits(t);
+
+ if (a > align)
+ align = a;
+ }
+ }
+ else if (is_method_type(tp))
+ align = 0;
+
+ /* write back */
+ tp->align = align;
+
+ return align;
+}
+
+void
+set_type_alignment_bits(type *tp, int align) {
+ assert(tp && tp->kind == k_type);
+ /* Methods don't have an alignment. */
+ if (tp->type_op != type_method) {
+ tp->align = align;
+ }
+}
+
+void
+set_type_alignment_bytes(type *tp, int align) {
+ set_type_size_bits(tp, 8*align);
+}
+
+type_state (get_type_state)(const type *tp) {
return __get_type_state(tp);
}
tp->state = state;
}
-unsigned long (get_type_visited)(type *tp) {
+unsigned long (get_type_visited)(const type *tp) {
return __get_type_visited(tp);
}
}
/* @@@ name clash with master flag
-int (type_visited)(type *tp) {
+int (type_visited)(const type *tp) {
return __type_visited(tp);
}*/
-int (type_not_visited)(type *tp) {
+int (type_not_visited)(const type *tp) {
return __type_not_visited(tp);
}
-int (is_type)(void *thing) {
+int (is_type)(const void *thing) {
return __is_type(thing);
}
res = new_type(type_class, NULL, name);
- res->attr.ca.members = NEW_ARR_F (entity *, 1);
- res->attr.ca.subtypes = NEW_ARR_F (type *, 1);
- res->attr.ca.supertypes = NEW_ARR_F (type *, 1);
+ res->attr.ca.members = NEW_ARR_F (entity *, 0);
+ res->attr.ca.subtypes = NEW_ARR_F (type *, 0);
+ res->attr.ca.supertypes = NEW_ARR_F (type *, 0);
res->attr.ca.peculiarity = peculiarity_existent;
res->attr.ca.dfn = 0;
ARR_APP1 (entity *, clss->attr.ca.members, member);
}
-int (get_class_n_members) (type *clss) {
+int (get_class_n_members) (const type *clss) {
return __get_class_n_members(clss);
}
return -1;
}
-entity *(get_class_member) (type *clss, int pos) {
+entity *(get_class_member) (const type *clss, int pos) {
return __get_class_member(clss, pos);
}
void set_class_member (type *clss, entity *member, int pos) {
assert(clss && (clss->type_op == type_class));
assert(pos >= 0 && pos < get_class_n_members(clss));
- clss->attr.ca.members[pos+1] = member;
+ clss->attr.ca.members[pos] = member;
}
void set_class_members (type *clss, entity **members, int arity) {
int i;
assert(clss && (clss->type_op == type_class));
DEL_ARR_F(clss->attr.ca.members);
- clss->attr.ca.members = NEW_ARR_F (entity *, 1);
+ clss->attr.ca.members = NEW_ARR_F (entity *, 0);
for (i = 0; i < arity; i++) {
set_entity_owner(members[i], clss);
ARR_APP1 (entity *, clss->attr.ca.members, members[i]);
void remove_class_member(type *clss, entity *member) {
int i;
assert(clss && (clss->type_op == type_class));
- for (i = 1; i < (ARR_LEN (clss->attr.ca.members)); i++) {
+ for (i = 0; i < (ARR_LEN (clss->attr.ca.members)); i++) {
if (clss->attr.ca.members[i] == member) {
for(; i < (ARR_LEN (clss->attr.ca.members)) - 1; i++)
clss->attr.ca.members[i] = clss->attr.ca.members[i + 1];
return;
ARR_APP1 (type *, subtype->attr.ca.supertypes, clss);
}
-int get_class_n_subtypes (type *clss) {
+int get_class_n_subtypes (const type *clss) {
assert(clss && (clss->type_op == type_class));
- return (ARR_LEN (clss->attr.ca.subtypes))-1;
+ return (ARR_LEN (clss->attr.ca.subtypes));
}
type *get_class_subtype (type *clss, int pos) {
assert(clss && (clss->type_op == type_class));
assert(pos >= 0 && pos < get_class_n_subtypes(clss));
- return clss->attr.ca.subtypes[pos+1] = skip_tid(clss->attr.ca.subtypes[pos+1]);
+ return clss->attr.ca.subtypes[pos] = skip_tid(clss->attr.ca.subtypes[pos]);
}
void set_class_subtype (type *clss, type *subtype, int pos) {
assert(clss && (clss->type_op == type_class));
assert(pos >= 0 && pos < get_class_n_subtypes(clss));
- clss->attr.ca.subtypes[pos+1] = subtype;
+ clss->attr.ca.subtypes[pos] = subtype;
}
void remove_class_subtype(type *clss, type *subtype) {
int i;
assert(clss && (clss->type_op == type_class));
- for (i = 1; i < (ARR_LEN (clss->attr.ca.subtypes)); i++)
+ for (i = 0; i < (ARR_LEN (clss->attr.ca.subtypes)); i++)
if (clss->attr.ca.subtypes[i] == subtype) {
for(; i < (ARR_LEN (clss->attr.ca.subtypes))-1; i++)
clss->attr.ca.subtypes[i] = clss->attr.ca.subtypes[i+1];
return;
ARR_APP1 (type *, supertype->attr.ca.subtypes, clss);
}
-int get_class_n_supertypes (type *clss) {
+int get_class_n_supertypes (const type *clss) {
assert(clss && (clss->type_op == type_class));
- return (ARR_LEN (clss->attr.ca.supertypes))-1;
+ return (ARR_LEN (clss->attr.ca.supertypes));
}
int get_class_supertype_index(type *clss, type *super_clss) {
int i;
type *get_class_supertype (type *clss, int pos) {
assert(clss && (clss->type_op == type_class));
assert(pos >= 0 && pos < get_class_n_supertypes(clss));
- return clss->attr.ca.supertypes[pos+1] = skip_tid(clss->attr.ca.supertypes[pos+1]);
+ return clss->attr.ca.supertypes[pos] = skip_tid(clss->attr.ca.supertypes[pos]);
}
void set_class_supertype (type *clss, type *supertype, int pos) {
assert(clss && (clss->type_op == type_class));
assert(pos >= 0 && pos < get_class_n_supertypes(clss));
- clss->attr.ca.supertypes[pos+1] = supertype;
+ clss->attr.ca.supertypes[pos] = supertype;
}
void remove_class_supertype(type *clss, type *supertype) {
int i;
assert(clss && (clss->type_op == type_class));
- for (i = 1; i < (ARR_LEN (clss->attr.ca.supertypes)); i++)
+ for (i = 0; i < (ARR_LEN (clss->attr.ca.supertypes)); i++)
if (clss->attr.ca.supertypes[i] == supertype) {
for(; i < (ARR_LEN (clss->attr.ca.supertypes))-1; i++)
clss->attr.ca.supertypes[i] = clss->attr.ca.supertypes[i+1];
}
}
-char *get_peculiarity_string(peculiarity p) {
- if (p == peculiarity_description)
+const char *get_peculiarity_string(peculiarity p) {
+ switch (p) {
+ case peculiarity_description:
return "peculiarity_description";
- if (p == peculiarity_inherited)
+ case peculiarity_inherited:
return "peculiarity_inherited";
- return "peculiarity_existent";
+ default:
+ return "peculiarity_existent";
+ }
}
-peculiarity get_class_peculiarity (type *clss) {
+peculiarity get_class_peculiarity (const type *clss) {
assert(clss && (clss->type_op == type_class));
return clss->attr.ca.peculiarity;
}
+
void set_class_peculiarity (type *clss, peculiarity pec) {
assert(clss && (clss->type_op == type_class));
assert(pec != peculiarity_inherited); /* There is no inheritance of types in libFirm. */
clss->attr.ca.dfn = dfn;
}
-int get_class_dfn (type *clss)
+int get_class_dfn (const type *clss)
{
return (clss->attr.ca.dfn);
}
/* typecheck */
-int (is_class_type)(type *clss) {
+int (is_class_type)(const type *clss) {
return __is_class_type(clss);
}
type *new_type_struct (ident *name) {
type *res;
res = new_type(type_struct, NULL, name);
- res->attr.sa.members = NEW_ARR_F (entity *, 1);
+ res->attr.sa.members = NEW_ARR_F (entity *, 0);
return res;
}
type *new_d_type_struct (ident *name, dbg_info* db) {
}
/* manipulate private fields of struct */
-int get_struct_n_members (type *strct) {
+int get_struct_n_members (const type *strct) {
assert(strct && (strct->type_op == type_struct));
- return (ARR_LEN (strct->attr.sa.members))-1;
+ return (ARR_LEN (strct->attr.sa.members));
}
void add_struct_member (type *strct, entity *member) {
ARR_APP1 (entity *, strct->attr.sa.members, member);
}
-entity *get_struct_member (type *strct, int pos) {
+entity *get_struct_member (const type *strct, int pos) {
assert(strct && (strct->type_op == type_struct));
assert(pos >= 0 && pos < get_struct_n_members(strct));
- return strct->attr.sa.members[pos+1];
+ return strct->attr.sa.members[pos];
}
int get_struct_member_index(type *strct, entity *mem) {
assert(strct && (strct->type_op == type_struct));
assert(pos >= 0 && pos < get_struct_n_members(strct));
assert(get_entity_type(member)->type_op != type_method);/* @@@ lowerfirm !!*/
- strct->attr.sa.members[pos+1] = member;
+ strct->attr.sa.members[pos] = member;
}
void remove_struct_member(type *strct, entity *member) {
int i;
assert(strct && (strct->type_op == type_struct));
- for (i = 1; i < (ARR_LEN (strct->attr.sa.members)); i++)
+ for (i = 0; i < (ARR_LEN (strct->attr.sa.members)); i++)
if (strct->attr.sa.members[i] == member) {
for(; i < (ARR_LEN (strct->attr.sa.members))-1; i++)
strct->attr.sa.members[i] = strct->attr.sa.members[i+1];
}
/* typecheck */
-int (is_struct_type)(type *strct) {
+int (is_struct_type)(const type *strct) {
return __is_struct_type(strct);
}
}
/* manipulate private fields of method. */
-int get_method_n_params (type *method) {
+int get_method_n_params (const type *method) {
assert(method && (method->type_op == type_method));
return method->attr.ma.n_params;
}
/*
* Returns a type that represents the copied value arguments.
*/
-type *get_method_value_param_type(type *method)
+type *get_method_value_param_type(const type *method)
{
assert(method && (method->type_op == type_method));
return method->attr.ma.value_params;
}
-int get_method_n_ress (type *method) {
+int get_method_n_ress (const type *method) {
assert(method && (method->type_op == type_method));
return method->attr.ma.n_res;
}
/*
* Returns a type that represents the copied value results.
*/
-type *get_method_value_res_type(type *method) {
+type *get_method_value_res_type(const type *method) {
assert(method && (method->type_op == type_method));
return method->attr.ma.value_ress;
}
#undef X
}
-variadicity get_method_variadicity(type *method)
+variadicity get_method_variadicity(const type *method)
{
assert(method && (method->type_op == type_method));
return method->attr.ma.variadicity;
* of the method type plus one is returned for variadic functions.
* Non-variadic function types always return -1 here.
*/
-int get_method_first_variadic_param_index(type *method)
+int get_method_first_variadic_param_index(const type *method)
{
assert(method && (method->type_op == type_method));
}
/* typecheck */
-int (is_method_type)(type *method) {
+int (is_method_type)(const type *method) {
return __is_method_type(method);
}
res = new_type(type_union, NULL, name);
/*res->attr.ua.unioned_type = (type **) xmalloc (sizeof (type *) * n_types);
res->attr.ua.delim_names = (ident **) xmalloc (sizeof (ident *) * n_types); */
- res->attr.ua.members = NEW_ARR_F (entity *, 1);
+ res->attr.ua.members = NEW_ARR_F (entity *, 0);
return res;
}
type *new_d_type_union (ident *name, dbg_info* db) {
uni->attr.ua.delim_names[pos] = id;
}
#endif
-int get_union_n_members (type *uni) {
+int get_union_n_members (const type *uni) {
assert(uni && (uni->type_op == type_union));
- return (ARR_LEN (uni->attr.ua.members))-1;
+ return (ARR_LEN (uni->attr.ua.members));
}
void add_union_member (type *uni, entity *member) {
assert(uni && (uni->type_op == type_union));
ARR_APP1 (entity *, uni->attr.ua.members, member);
}
-entity *get_union_member (type *uni, int pos) {
+entity *get_union_member (const type *uni, int pos) {
assert(uni && (uni->type_op == type_union));
assert(pos >= 0 && pos < get_union_n_members(uni));
- return uni->attr.ua.members[pos+1];
+ return uni->attr.ua.members[pos];
}
void set_union_member (type *uni, int pos, entity *member) {
assert(uni && (uni->type_op == type_union));
assert(pos >= 0 && pos < get_union_n_members(uni));
- uni->attr.ua.members[pos+1] = member;
+ uni->attr.ua.members[pos] = member;
}
void remove_union_member(type *uni, entity *member) {
int i;
assert(uni && (uni->type_op == type_union));
- for (i = 1; i < (ARR_LEN (uni->attr.ua.members)); i++)
+ for (i = 0; i < (ARR_LEN (uni->attr.ua.members)); i++)
if (uni->attr.ua.members[i] == member) {
for(; i < (ARR_LEN (uni->attr.ua.members))-1; i++)
uni->attr.ua.members[i] = uni->attr.ua.members[i+1];
}
/* typecheck */
-int (is_union_type)(type *uni) {
+int (is_union_type)(const type *uni) {
return __is_union_type(uni);
}
current_ir_graph = rem;
res->attr.aa.element_type = element_type;
- new_entity(res, mangle_u(name, id_from_str("elem_ent", 8)), element_type);
+ new_entity(res, mangle_u(name, new_id_from_chars("elem_ent", 8)), element_type);
return res;
}
}
/* manipulate private fields of array type */
-int get_array_n_dimensions (type *array) {
+int get_array_n_dimensions (const type *array) {
assert(array && (array->type_op == type_array));
return array->attr.aa.n_dimensions;
}
new_Const(mode_Iu, new_tarval_from_long (upper_bound, mode_Iu)));
current_ir_graph = rem;
}
-int has_array_lower_bound (type *array, int dimension) {
+int has_array_lower_bound (const type *array, int dimension) {
assert(array && (array->type_op == type_array));
return (get_irn_op(array->attr.aa.lower_bound[dimension]) != op_Unknown);
}
-ir_node * get_array_lower_bound (type *array, int dimension) {
+ir_node *get_array_lower_bound (const type *array, int dimension) {
assert(array && (array->type_op == type_array));
return array->attr.aa.lower_bound[dimension];
}
-int has_array_upper_bound (type *array, int dimension) {
+long get_array_lower_bound_int (const type *array, int dimension) {
+ ir_node *node;
+ assert(array && (array->type_op == type_array));
+ node = array->attr.aa.lower_bound[dimension];
+ assert(get_irn_op(node) == op_Const);
+ return get_tarval_long(get_Const_tarval(node));
+}
+int has_array_upper_bound (const type *array, int dimension) {
assert(array && (array->type_op == type_array));
return (get_irn_op(array->attr.aa.upper_bound[dimension]) != op_Unknown);
}
-ir_node * get_array_upper_bound (type *array, int dimension) {
+ir_node * get_array_upper_bound (const type *array, int dimension) {
assert(array && (array->type_op == type_array));
return array->attr.aa.upper_bound[dimension];
}
+long get_array_upper_bound_int (const type *array, int dimension) {
+ ir_node *node;
+ assert(array && (array->type_op == type_array));
+ node = array->attr.aa.upper_bound[dimension];
+ assert(get_irn_op(node) == op_Const);
+ return get_tarval_long(get_Const_tarval(node));
+}
void set_array_order (type *array, int dimension, int order) {
assert(array && (array->type_op == type_array));
array->attr.aa.order[dimension] = order;
}
-int get_array_order (type *array, int dimension) {
+int get_array_order (const type *array, int dimension) {
assert(array && (array->type_op == type_array));
return array->attr.aa.order[dimension];
}
array->attr.aa.element_ent = ent;
array->attr.aa.element_type = get_entity_type(ent);
}
-entity *get_array_element_entity (type *array) {
+entity *get_array_element_entity (const type *array) {
assert(array && (array->type_op == type_array));
return array->attr.aa.element_ent;
}
/* typecheck */
-int (is_array_type)(type *array) {
+int (is_array_type)(const type *array) {
return __is_array_type(array);
}
}
/* manipulate fields of enumeration type. */
-int get_enumeration_n_enums (type *enumeration) {
+int get_enumeration_n_enums (const type *enumeration) {
assert(enumeration && (enumeration->type_op == type_enumeration));
return enumeration->attr.ea.n_enums;
}
assert(pos >= 0 && pos < get_enumeration_n_enums(enumeration));
enumeration->attr.ea.enumer[pos] = con;
}
-tarval *get_enumeration_enum (type *enumeration, int pos) {
+tarval *get_enumeration_enum (const type *enumeration, int pos) {
assert(enumeration && (enumeration->type_op == type_enumeration));
assert(pos >= 0 && pos < get_enumeration_n_enums(enumeration));
return enumeration->attr.ea.enumer[pos];
assert(pos >= 0 && pos < get_enumeration_n_enums(enumeration));
enumeration->attr.ea.enum_nameid[pos] = id;
}
-ident *get_enumeration_nameid (type *enumeration, int pos) {
+ident *get_enumeration_nameid (const type *enumeration, int pos) {
assert(enumeration && (enumeration->type_op == type_enumeration));
assert(pos >= 0 && pos < get_enumeration_n_enums(enumeration));
return enumeration->attr.ea.enum_nameid[pos];
}
-const char *get_enumeration_name(type *enumeration, int pos) {
+const char *get_enumeration_name(const type *enumeration, int pos) {
assert(enumeration && (enumeration->type_op == type_enumeration));
assert(pos >= 0 && pos < get_enumeration_n_enums(enumeration));
return get_id_str(enumeration->attr.ea.enum_nameid[pos]);
}
/* typecheck */
-int (is_enumeration_type)(type *enumeration) {
+int (is_enumeration_type)(const type *enumeration) {
return __is_enumeration_type(enumeration);
}
}
/* typecheck */
-int (is_pointer_type)(type *pointer) {
+int (is_pointer_type)(const type *pointer) {
return __is_pointer_type(pointer);
}
}
/* typecheck */
-int (is_primitive_type)(type *primitive) {
+int (is_primitive_type)(const type *primitive) {
return __is_primitive_type(primitive);
}
/*-----------------------------------------------------------------*/
-int (is_atomic_type)(type *tp) {
+int (is_atomic_type)(const type *tp) {
return __is_atomic_type(tp);
}
/*
* Gets the number of elements in a firm compound type.
*/
-int get_compound_n_members(type *tp)
+int get_compound_n_members(const type *tp)
{
int res = 0;
/*
* Gets the member of a firm compound type at position pos.
*/
-entity *get_compound_member(type *tp, int pos)
+entity *get_compound_member(const type *tp, int pos)
{
entity *res;
else
{
assert(0 && "need struct, union or class to get a member");
- res=NULL;
+ res = NULL;
}
return res;
}
-int is_compound_type(type *tp) {
+int is_compound_type(const type *tp) {
assert(tp && tp->kind == k_type);
return (is_class_type(tp) || is_struct_type(tp) ||
is_array_type(tp) || is_union_type(tp));
}
-
-
-#ifdef DEBUG_libfirm
-int dump_node_opcode(FILE *F, ir_node *n); /* from irdump.c */
-
-void dump_type (type *tp) {
- int i;
-
- printf("%s type %s (%ld)", get_tpop_name(get_type_tpop(tp)), get_type_name(tp), get_type_nr(tp));
-
- switch (get_type_tpop_code(tp)) {
-
- case tpo_class:
- printf("\n members: ");
- for (i = 0; i < get_class_n_members(tp); ++i) {
- entity *mem = get_class_member(tp, i);
- printf("\n (%3d) %s:\t %s",
- get_entity_offset_bits(mem), get_type_name(get_entity_type(mem)), get_entity_name(mem));
- }
- printf("\n supertypes: ");
- for (i = 0; i < get_class_n_supertypes(tp); ++i) {
- type *stp = get_class_supertype(tp, i);
- printf("\n %s", get_type_name(stp));
- }
- printf("\n subtypes: ");
- for (i = 0; i < get_class_n_subtypes(tp); ++i) {
- type *stp = get_class_subtype(tp, i);
- printf("\n %s", get_type_name(stp));
- }
-
- printf("\n peculiarity: %s", get_peculiarity_string(get_class_peculiarity(tp)));
- break;
-
- case tpo_union:
- case tpo_struct:
- printf("\n members: ");
- for (i = 0; i < get_compound_n_members(tp); ++i) {
- entity *mem = get_compound_member(tp, i);
- printf("\n (%3d) %s:\t %s",
- get_entity_offset_bits(mem), get_type_name(get_entity_type(mem)), get_entity_name(mem));
- }
- break;
-
- case tpo_pointer: {
- type *tt = get_pointer_points_to_type(tp);
-
- printf("\n points to %s (%ld)", get_type_name(tt), get_type_nr(tt));
- } break;
-
- default:
- printf(": details not implemented\n");
- }
- printf("\n\n");
-}
-#else /* DEBUG_libfirm */
-void dump_type (type *tp) {}
-#endif /* DEBUG_libfirm */
projects / libfirm / blobdiff