X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Ftr%2Ftype_finalization.c;h=7fec33103ca6470cc2d5c68e4474c9653417d4d3;hb=e88385016800d3c56c3fa09770e9f7995c42e106;hp=aac344c34cbd5e8d7a73cb16a4e61f57278d0aa8;hpb=bb9b1067ad0ef81a20a74be5ecaf2100b63a4855;p=libfirm diff --git a/ir/tr/type_finalization.c b/ir/tr/type_finalization.c index aac344c34..7fec33103 100644 --- a/ir/tr/type_finalization.c +++ b/ir/tr/type_finalization.c @@ -34,8 +34,9 @@ DEBUG_ONLY(static firm_dbg_module_t *dbg;) -static void do_finalization(type_or_ent tore, void *env) { - ir_type *glob_tp = env; +static void do_finalization(type_or_ent tore, void *env) +{ + ir_type *glob_tp = (ir_type*)env; if (is_type(tore.typ)) { ir_type *cls = tore.typ; @@ -50,7 +51,7 @@ static void do_finalization(type_or_ent tore, void *env) { frame/global types this way. Should not made any problems. */ set_class_final(cls, 1); DB((dbg, LEVEL_1, " made final Class %s\n", - get_type_name(cls))); + get_class_name(cls))); } } else { ir_entity *ent = tore.ent; @@ -68,11 +69,11 @@ static void do_finalization(type_or_ent tore, void *env) { assert(get_entity_n_overwrittenby(ent) == 0); set_entity_final(ent, 1); DB((dbg, LEVEL_1, " made final %s::%s\n", - get_type_name(owner), get_entity_name(ent))); + get_compound_name(owner), get_entity_name(ent))); } else if (get_entity_n_overwrittenby(ent) == 0) { set_entity_final(ent, 1); DB((dbg, LEVEL_1, " made final %s::%s\n", - get_type_name(owner), get_entity_name(ent))); + get_compound_name(owner), get_entity_name(ent))); } } } /* do_finalization */ @@ -83,9 +84,10 @@ static void do_finalization(type_or_ent tore, void *env) { * After this is done, all classes and entities that are not overridden * anymore have the final property set. */ -void types_calc_finalization(void) { - if (! get_opt_closed_world()) - return; +void types_calc_finalization(void) +{ + if (! get_opt_closed_world()) + return; FIRM_DBG_REGISTER(dbg, "firm.tr.finalization");