* != 0 a trvrfy_error_codes code
*/
int check_entity(ir_entity *ent) {
+ int rem_vpi;
ir_type *tp = get_entity_type(ent);
ir_type *owner = get_entity_owner(ent);
ir_fprintf(stderr, "%+e not on %+F\n", ent, current_ir_graph)
);
+ rem_vpi = get_visit_pseudo_irgs();
+ set_visit_pseudo_irgs(1);
+ if ((get_entity_peculiarity(ent) == peculiarity_existent) &&
+ (get_entity_visibility(ent) != visibility_external_allocated) &&
+ (is_Method_type(get_entity_type(ent))) &&
+ (!get_entity_irg(ent) || !(is_ir_graph(get_entity_irg(ent))))) {
+ ASSERT_AND_RET_DBG(
+ 0,
+ "Method ents with pec_exist must have an irg",
+ error_existent_entity_without_irg,
+ ir_fprintf(stderr, "%+e\n", ent)
+ );
+ }
+ set_visit_pseudo_irgs(rem_vpi);
+
/* Originally, this test assumed, that only method entities have
pecularity_inherited. As I changed this, I have to test for method type before
doing the test. */