later. */
init_irprog_2();
/* Constructs some idents needed. */
- init_type();
+ firm_init_type(NULL);
init_entity();
/* allocate a hash table. */
init_type_identify(def_params.ti_if);
void free_firm(void) {
int i;
- for (i = 0; i < get_irp_n_irgs(); i++)
+ for (i = get_irp_n_irgs() - 1; i >= 0; --i)
free_ir_graph(get_irp_irg(i));
- for (i = 0; i < get_irp_n_types(); i++) {
+ free_type_entities(get_glob_type());
+ for (i = get_irp_n_types() - 1; i >= 0; --i)
free_type_entities(get_irp_type(i));
+
+ for (i = get_irp_n_types() - 1; i >= 0; --i)
free_type(get_irp_type(i));
- }
- free_type_entities(get_glob_type());
free_ir_prog();
finish_tarval();