projects
/
libfirm
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
backend always expects outedges, assure them after place_code, optimize_graph_df
[libfirm]
/
ir
/
tr
/
type_finalization.c
diff --git
a/ir/tr/type_finalization.c
b/ir/tr/type_finalization.c
index
e8f7ca4
..
9e7f744
100644
(file)
--- a/
ir/tr/type_finalization.c
+++ b/
ir/tr/type_finalization.c
@@
-34,8
+34,9
@@
DEBUG_ONLY(static firm_dbg_module_t *dbg;)
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;
if (is_type(tore.typ)) {
ir_type *cls = tore.typ;
@@
-47,10
+48,10
@@
static void do_finalization(type_or_ent tore, void *env) {
return;
if (get_class_n_subtypes(cls) == 0) {
/* Note that we set the final property even for the
return;
if (get_class_n_subtypes(cls) == 0) {
/* Note that we set the final property even for the
- frame/
tls
types this way. Should not made any problems. */
+ frame/
global
types this way. Should not made any problems. */
set_class_final(cls, 1);
DB((dbg, LEVEL_1, " made final Class %s\n",
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;
}
} 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",
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",
} 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 */
}
}
} /* do_finalization */
@@
-83,12
+84,13
@@
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.
*/
* 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");
FIRM_DBG_REGISTER(dbg, "firm.tr.finalization");
- /* types must be visited before
it's
entities */
+ /* types must be visited before
their
entities */
type_walk(do_finalization, NULL, get_glob_type());
}
type_walk(do_finalization, NULL, get_glob_type());
}