}
/**
- * 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)) {
}
set_visit_pseudo_irgs(rem_vpi);
+ /* Originally, this test assumed, that only method entities have
+ pec_inh. As I changed this, I have to test for method type before
+ doing the test. */
if (get_entity_peculiarity(ent) == peculiarity_inherited) {
- entity *impl = get_SymConst_entity(get_atomic_ent_value(ent));
- assert(get_entity_peculiarity(impl) == peculiarity_existent &&
- "inherited entities must have constant pointing to existent entity.");
+ if (is_Method_type(get_entity_type(ent))) {
+ entity *impl = get_SymConst_entity(get_atomic_ent_value(ent));
+ assert(get_entity_peculiarity(impl) == peculiarity_existent &&
+ "inherited method entities must have constant pointing to existent entity.");
+ }
+ }
+
+ /* 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;