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);
}
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);
}
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));
}
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));
}
}
}
-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);
}
}
/* 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));
}
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];
}
/* 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);
}
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));
}
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];
}
/* typecheck */
-int (is_union_type)(type *uni) {
+int (is_union_type)(const type *uni) {
return __is_union_type(uni);
}
}
/* 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];
}
-long get_array_lower_bound_int (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 (type *array, int dimension) {
+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 (type *array, int 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(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;
}
-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));
* that refers to this type. */
void free_type(type *tp);
-tp_op* get_type_tpop(type *tp);
-ident* get_type_tpop_nameid(type *tp);
-const char* get_type_tpop_name(type *tp);
-tp_opcode get_type_tpop_code(type *tp);
+tp_op* get_type_tpop(const type *tp);
+ident* get_type_tpop_nameid(const type *tp);
+const char* get_type_tpop_name(const type *tp);
+tp_opcode get_type_tpop_code(const type *tp);
-ident* get_type_ident(type *tp);
+ident* get_type_ident(const type *tp);
void set_type_ident(type *tp, ident* id);
-const char* get_type_name(type *tp);
+const char* get_type_name(const type *tp);
/** The state of the type layout. */
typedef enum {
} type_state;
/** Returns the type layout state of a type. */
-type_state get_type_state(type *tp);
+type_state get_type_state(const type *tp);
/** Sets the type layout state of a type.
*
*
* Returns NULL for all non atomic types.
*/
-ir_mode* get_type_mode(type *tp);
+ir_mode* get_type_mode(const type *tp);
/** Sets the mode of a type.
*
*/
void set_type_mode(type *tp, ir_mode* m);
-/** Returns the size of a type in bytes, retuns -1 if the size is NOT
+/** Returns the size of a type in bytes, returns -1 if the size is NOT
* a byte size, ie not dividable by 8. */
-int get_type_size_bytes(type *tp);
+int get_type_size_bytes(const type *tp);
/** Returns the size of a type in bits. */
-int get_type_size_bits(type *tp);
+int get_type_size_bits(const type *tp);
/** Sets the size of a type in bytes.
*
*/
void set_type_size_bits(type *tp, int size);
+/** Returns the alignment of a type in bytes, returns -1 if the alignment is NOT
+ * a byte size, ie not dividable by 8. Calls get_type_alignment_bits(). */
+int get_type_alignment_bytes(type *tp);
-unsigned long get_type_visited(type *tp);
+/** Returns the alignment of a type in bits. If the alignment of a type is
+ * not set, it is calculated here according to the following rules:
+ * 1.) if a type has a mode, the aligment is the mode size.
+ * 2.) compound types have the alignment of it's biggest member.
+ * 3.) array types have the alignment of its element type.
+ * 4.) method types return 0 here.
+ * 5.) all other types return 8 here (i.e. aligned at byte).
+ */
+int get_type_alignment_bits(type *tp);
+
+/** Sets the alignment of a type in bytes. */
+void set_type_alignment_bytes(type *tp, int size);
+
+/** Sets the alignment of a type in bits.
+ *
+ * For method types the alignment is always fixed.
+ * This call is legal but has no effect.
+ */
+void set_type_alignment_bits(type *tp, int size);
+
+unsigned long get_type_visited(const type *tp);
void set_type_visited(type *tp, unsigned long num);
/* Sets visited field in type to type_visited. */
void mark_type_visited(type *tp);
-/* @@@ name clash!! int type_visited(type *tp); */
-int type_not_visited(type *tp);
+/* @@@ name clash!! int type_visited(const type *tp); */
+int type_not_visited(const type *tp);
-void* get_type_link(type *tp);
+void* get_type_link(const type *tp);
void set_type_link(type *tp, void *l);
/**
* @return
* true if the thing is a type, else false
*/
-int is_type (void *thing);
+int is_type (const void *thing);
/**
* Checks whether two types are structural equal.
void add_class_member (type *clss, entity *member);
/** Returns the number of members of this class. */
-int get_class_n_members (type *clss);
+int get_class_n_members (const type *clss);
/** Returns the member at position pos, 0 <= pos < n_member */
-entity *get_class_member (type *clss, int pos);
+entity *get_class_member (const type *clss, int pos);
/** Returns index of mem in clss, -1 if not contained. */
int get_class_member_index(type *clss, entity *mem);
void add_class_subtype (type *clss, type *subtype);
/** Returns the number of subtypes */
-int get_class_n_subtypes (type *clss);
+int get_class_n_subtypes (const type *clss);
/** Gets the subtype at position pos, 0 <= pos < n_subtype. */
type *get_class_subtype (type *clss, int pos);
void add_class_supertype (type *clss, type *supertype);
/** Returns the number of supertypes */
-int get_class_n_supertypes (type *clss);
+int get_class_n_supertypes (const type *clss);
/** Returns the index of an supertype in a type. */
int get_class_supertype_index(type *clss, type *super_clss);
@@@ eventually rename to 'real' i.e., 'echt'
This serves better as opposition to description _and_ inherited.*/
} peculiarity;
-char *get_peculiarity_string(peculiarity p);
+const char *get_peculiarity_string(peculiarity p);
/* The peculiarity of the class. The enumeration peculiarity is defined
in entity.h */
-peculiarity get_class_peculiarity (type *clss);
+peculiarity get_class_peculiarity (const type *clss);
void set_class_peculiarity (type *clss, peculiarity pec);
/* Set and get a class' dfn --
@todo This is an undocumented field, subject to change! */
void set_class_dfn (type *clss, int dfn);
-int get_class_dfn (type *clss);
+int get_class_dfn (const type *clss);
/** Returns true if a type is a class type. */
-int is_class_type(type *clss);
+int is_class_type(const type *clss);
/** Returns true if low is subclass of high. */
bool is_subclass_of(type *low, type *high);
void add_struct_member (type *strct, entity *member);
/** Returns the number of members of this struct. */
-int get_struct_n_members (type *strct);
+int get_struct_n_members (const type *strct);
/** Returns the member at position pos, 0 <= pos < n_member */
-entity *get_struct_member (type *strct, int pos);
+entity *get_struct_member (const type *strct, int pos);
/** Returns index of member in strct, -1 if not contained. */
int get_struct_member_index(type *strct, entity *member);
void remove_struct_member (type *strct, entity *member);
/** Returns true if a type is a struct type. */
-int is_struct_type(type *strct);
+int is_struct_type(const type *strct);
/**
* @page method_type Representation of a method type
/* -- manipulate private fields of method. -- */
/** Returns the number of parameters of this method. */
-int get_method_n_params (type *method);
+int get_method_n_params (const type *method);
/** Returns the type of the parameter at position pos of a method. */
type *get_method_param_type(type *method, int pos);
changing the type of the corresponding entity if the representation is constructed. */
void set_method_param_type(type *method, int pos, type* tp);
/** Returns an entity that represents the copied value argument. Only necessary
- for compounds passed by value. This information is constrnewucted only on demand. */
+ for compounds passed by value. This information is constructed only on demand. */
entity *get_method_value_param_ent(type *method, int pos);
/**
* 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);
-int get_method_n_ress (type *method);
+int get_method_n_ress (const type *method);
type *get_method_res_type(type *method, int pos);
/** Sets the type of the result at position pos of a method.
Also changes the type in the pass-by-value representation by just
/** Returns an entity that represents the copied value result. Only necessary
for compounds passed by value. This information is constructed only on demand. */
entity *get_method_value_res_ent(type *method, int pos);
+
/**
* 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);
/**
* this enum flags the variadicity of methods (methods with a
const char *get_variadicity_name(variadicity vari);
/** Returns the variadicity of a method. */
-variadicity get_method_variadicity(type *method);
+variadicity get_method_variadicity(const type *method);
/** Sets the variadicity of a method. */
void set_method_variadicity(type *method, variadicity vari);
* 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);
/**
* Sets the first variadic parameter index. This allows to specify
void set_method_first_variadic_param_index(type *method, int index);
/** Returns true if a type is a method type. */
-int is_method_type (type *method);
+int is_method_type (const type *method);
/**
* @page union_type Representation of a union type.
/* --- manipulate private fields of struct --- */
/** Returns the number of unioned types of this union */
-int get_union_n_members (type *uni);
+int get_union_n_members (const type *uni);
/** Adds a new entity to a union type */
void add_union_member (type *uni, entity *member);
/** Returns the entity at position pos of a union */
-entity *get_union_member (type *uni, int pos);
+entity *get_union_member (const type *uni, int pos);
/** Overwrites a entity at position pos in a union type. */
void set_union_member (type *uni, int pos, entity *member);
void remove_union_member (type *uni, entity *member);
/** Returns true if a type is a union type. */
-int is_union_type (type *uni);
+int is_union_type (const type *uni);
/**
* @page array_type Representation of an array type
/* --- manipulate private fields of array type --- */
/** Returns the number of array dimensions of this type. */
-int get_array_n_dimensions (type *array);
+int get_array_n_dimensions (const type *array);
/** Allocates Const nodes of mode_I for the array dimensions */
void set_array_bounds_int (type *array, int dimension, int lower_bound,
void set_array_upper_bound (type *array, int dimension, ir_node *upper_bound);
void set_array_upper_bound_int (type *array, int dimension, int lower_bound);
/** returns true if lower bound != Unknown */
-int has_array_lower_bound (type *array, int dimension);
-ir_node * get_array_lower_bound (type *array, int dimension);
+int has_array_lower_bound (const type *array, int dimension);
+ir_node * get_array_lower_bound (const type *array, int dimension);
/** Works only if bound is Const node with tarval that can be converted to long. */
-long get_array_lower_bound_int (type *array, int dimension);
+long get_array_lower_bound_int (const type *array, int dimension);
/** returns true if lower bound != Unknown */
-int has_array_upper_bound (type *array, int dimension);
-ir_node * get_array_upper_bound (type *array, int dimension);
+int has_array_upper_bound (const type *array, int dimension);
+ir_node * get_array_upper_bound (const type *array, int dimension);
/** Works only if bound is Const node with tarval that can be converted to long. */
-long get_array_upper_bound_int (type *array, int dimension);
+long get_array_upper_bound_int (const type *array, int dimension);
void set_array_order (type *array, int dimension, int order);
-int get_array_order (type *array, int dimension);
+int get_array_order (const type *array, int dimension);
void set_array_element_type (type *array, type *tp);
type *get_array_element_type (type *array);
void set_array_element_entity (type *array, entity *ent);
-entity *get_array_element_entity (type *array);
+entity *get_array_element_entity (const type *array);
/** Returns true if a type is an array type. */
-int is_array_type(type *array);
+int is_array_type(const type *array);
/**
* @page enumeration_type Representation of an enumeration type
/* --- manipulate fields of enumeration type. --- */
/** Returns the number of enumeration values of this enumeration */
-int get_enumeration_n_enums (type *enumeration);
+int get_enumeration_n_enums (const type *enumeration);
/** Sets the enumeration value at a given position. */
void set_enumeration_enum (type *enumeration, int pos, tarval *con);
/** Returns the enumeration value at a given position. */
-tarval *get_enumeration_enum (type *enumeration, int pos);
+tarval *get_enumeration_enum (const type *enumeration, int pos);
/** Assign an ident to an enumeration value at a given position. */
void set_enumeration_nameid (type *enumeration, int pos, ident *id);
/** Returns the assigned ident of an enumeration value at a given position. */
-ident *get_enumeration_nameid (type *enumeration, int pos);
+ident *get_enumeration_nameid (const type *enumeration, int pos);
/** Returns the assigned name of an enumeration value at a given position. */
-const char *get_enumeration_name(type *enumeration, int pos);
+const char *get_enumeration_name(const type *enumeration, int pos);
/** Returns true if a type is a enumeration type. */
-int is_enumeration_type (type *enumeration);
+int is_enumeration_type (const type *enumeration);
/**
* @page pointer_type Representation of a pointer type
type *get_pointer_points_to_type (type *pointer);
/** Returns true if a type is a pointer type. */
-int is_pointer_type (type *pointer);
+int is_pointer_type (const type *pointer);
/** Returns the first pointer type that has as points_to tp.
* Not efficient: O(#types).
type *new_d_type_primitive (ident *name, ir_mode *mode, dbg_info* db);
/** Returns true if a type is a primitive type. */
-int is_primitive_type (type *primitive);
+int is_primitive_type (const type *primitive);
/**
* @param tp - any type
* @return true if type is primitive, pointer or enumeration
*/
-int is_atomic_type(type *tp);
+int is_atomic_type(const type *tp);
/* --- Support for compound types --- */
*
* @return Number of members in the compound type.
*/
-int get_compound_n_members(type *tp);
+int get_compound_n_members(const type *tp);
/**
* Gets the member of a firm compound type at position pos.
*
* @see get_compound_n_members() for justifaction of existence.
*/
-entity *get_compound_member(type *tp, int pos);
+entity *get_compound_member(const type *tp, int pos);
/**
* Checks whether a type is compound.
*
* @return true if the type is class, structure, union or array type.
*/
-int is_compound_type(type *tp);
+int is_compound_type(const type *tp);
/**
* debugging, (configure with --enable-debug) else returns the address
* of the type cast to long.
*/
-long get_type_nr(type *tp);
+long get_type_nr(const type *tp);
/*******************************************************************/
/** Debug aides **/
int size; /**< Size of an entity of this type. This is determined
when fixing the layout of this class. Size must be
given in bits. */
+ int align; /**< Alignment of an entity of this type. This should be
+ set according to the source language needs. If not set it's
+ calculated automatically by get_type_alignment().
+ Alignment must be given in bits. */
ir_mode *mode; /**< The mode for atomic types */
unsigned long visit; /**< visited counter for walks of the type information */
void *link; /**< holds temporary data - like in irnode_t.h */
static INLINE void __inc_master_type_visited(void) { type_visited++; }
static INLINE void *
-__get_type_link(type *tp) {
+__get_type_link(const type *tp) {
assert(tp && tp->kind == k_type);
return(tp -> link);
}
}
static INLINE tp_op*
-__get_type_tpop(type *tp) {
+__get_type_tpop(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->type_op;
}
static INLINE ident*
-__get_type_tpop_nameid(type *tp) {
+__get_type_tpop_nameid(const type *tp) {
assert(tp && tp->kind == k_type);
return get_tpop_ident(tp->type_op);
}
static INLINE tp_opcode
-__get_type_tpop_code(type *tp) {
+__get_type_tpop_code(const type *tp) {
assert(tp && tp->kind == k_type);
return get_tpop_code(tp->type_op);
}
static INLINE ir_mode *
-__get_type_mode(type *tp) {
+__get_type_mode(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->mode;
}
static INLINE ident *
-__get_type_ident(type *tp) {
+__get_type_ident(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->name;
}
}
static INLINE long
-__get_type_nr(type *tp) {
+__get_type_nr(const type *tp) {
assert(tp);
#ifdef DEBUG_libfirm
return tp->nr;
}
static INLINE int
-__get_type_size_bits(type *tp) {
+__get_type_size_bits(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->size;
}
static INLINE int
-__get_type_size_bytes(type *tp) {
+__get_type_size_bytes(const type *tp) {
int size = __get_type_size_bits(tp);
if (size < 0)
return -1;
}
static INLINE type_state
-__get_type_state(type *tp) {
+__get_type_state(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->state;
}
static INLINE unsigned long
-__get_type_visited(type *tp) {
+__get_type_visited(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->visit;
}
}
static INLINE int
-__type_visited(type *tp) {
+__type_visited(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->visit >= type_visited;
}
static INLINE int
-__type_not_visited(type *tp) {
+__type_not_visited(const type *tp) {
assert(tp && tp->kind == k_type);
return tp->visit < type_visited;
}
static INLINE int
-__is_type(void *thing) {
+__is_type(const void *thing) {
return (get_kind(thing) == k_type);
}
static INLINE int
-__is_class_type(type *clss) {
+__is_class_type(const type *clss) {
assert(clss);
return (clss->type_op == type_class);
}
static INLINE int
-__get_class_n_members (type *clss) {
+__get_class_n_members (const type *clss) {
assert(clss && (clss->type_op == type_class));
return (ARR_LEN (clss->attr.ca.members));
}
static INLINE entity *
-__get_class_member (type *clss, int pos) {
+__get_class_member (const type *clss, int pos) {
assert(clss && (clss->type_op == type_class));
- assert(pos >= 0 && pos < get_class_n_members(clss));
+ assert(pos >= 0 && pos < __get_class_n_members(clss));
return clss->attr.ca.members[pos];
}
static INLINE int
-__is_struct_type(type *strct) {
+__is_struct_type(const type *strct) {
assert(strct);
return (strct->type_op == type_struct);
}
static INLINE int
-__is_method_type(type *method) {
+__is_method_type(const type *method) {
assert(method);
return (method->type_op == type_method);
}
static INLINE int
-__is_union_type(type *uni) {
+__is_union_type(const type *uni) {
assert(uni);
return (uni->type_op == type_union);
}
static INLINE int
-__is_array_type(type *array) {
+__is_array_type(const type *array) {
assert(array);
return (array->type_op == type_array);
}
static INLINE int
-__is_enumeration_type(type *enumeration) {
+__is_enumeration_type(const type *enumeration) {
assert(enumeration);
return (enumeration->type_op == type_enumeration);
}
static INLINE int
-__is_pointer_type(type *pointer) {
+__is_pointer_type(const type *pointer) {
assert(pointer);
return (pointer->type_op == type_pointer);
}
/** Returns true if a type is a primitive type. */
static INLINE int
-__is_primitive_type(type *primitive) {
+__is_primitive_type(const type *primitive) {
assert(primitive && primitive->kind == k_type);
return (primitive->type_op == type_primitive);
}
static INLINE int
-__is_atomic_type(type *tp) {
+__is_atomic_type(const type *tp) {
assert(tp && tp->kind == k_type);
return (is_primitive_type(tp) || is_pointer_type(tp) ||
is_enumeration_type(tp));