-/**
- * Type walker, set the peculiarity of entities which graphs
- * gets removed to peculiarity_description.
- */
-static void make_entity_to_description(type_or_ent tore, void *env) {
- if (is_entity(tore.ent)) {
- ir_entity *ent = tore.ent;
-
- if ((is_Method_type(get_entity_type(ent))) &&
- (get_entity_peculiarity(ent) != peculiarity_description) &&
- (get_entity_visibility(ent) != visibility_external_allocated) ) {
- ir_entity *impl = get_SymConst_entity(get_atomic_ent_value(ent));
- if (get_entity_link(impl) != env) {
- set_entity_peculiarity(ent, peculiarity_description);
- }
- }
- }
-}
-