init_tpop();
/* create an obstack and put all tarvals in a pdeq */
init_tarval_1();
+ /* Builds a basic program representation, so modes can be added. */
+ init_irprog_1();
/* initialize all modes an ir node can consist of */
init_mode();
/* initialize tarvals, and floating point arithmetic */
init_irgraph();
/* kind of obstack initialization */
firm_init_mangle();
- /* initalize all op codes an irnode can consist of */
+ /* initialize all op codes an irnode can consist of */
init_op();
/* called once for each run of this library */
init_cons(def_params.initialize_local_func);
firm_init_reassociation();
/* Builds a construct allowing to access all information to be constructed
later. */
- init_irprog();
+ 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();