}
/**
- * checks wheater a given constant IR node is NOT on the
+ * checks whether a given constant IR node is NOT on the
* constant IR graph.
*/
static int constant_on_wrong_irg(ir_node *n) {
int i;
for (i = 0; i < get_compound_ent_n_values(ent); i++) {
if (constant_on_wrong_irg(get_compound_ent_value(ent, i)))
- return 1;
+ return 1;
}
} else {
/* Might not be set if entity belongs to a description or is external allocated. */
*/
static int check_entity(entity *ent) {
int rem_vpi;
+ type *tp = get_entity_type(ent);
+ type *owner = get_entity_owner(ent);
current_ir_graph = get_const_code_irg();
if (constants_on_wrong_irg(ent)) {
}
}
+ /* Entities in global type are not dynamic or automatic allocated. */
+ if (owner == get_glob_type()) {
+ assert(get_entity_allocation(ent) != allocation_dynamic &&
+ get_entity_allocation(ent) != allocation_automatic);
+ }
+
+ if (get_entity_variability(ent) != variability_uninitialized) {
+ if (is_atomic_type(tp)) {
+ ir_node *val = get_atomic_ent_value(ent);
+ if (val)
+ assert(get_irn_mode(val) == get_type_mode(tp) &&
+ "Mode of constant in entity must match type.");
+ }
+ }
+
return no_error;
}