* @file
* @brief Central firm functionality.
* @author Martin Trapp, Christian Schaefer, Goetz Lindenmaier
- * @version $Id$
*/
#include "config.h"
#include "debugger.h"
#include "be_t.h"
#include "irtools.h"
+#include "execfreq_t.h"
+#include "firmstat_t.h"
/* returns the firm root */
lc_opt_entry_t *firm_opt_get_root(void)
return grp;
}
-void ir_init(const firm_parameter_t *param)
+void ir_init(void)
{
- firm_parameter_t def_params;
- unsigned int size;
-
/* for historical reasons be_init must be run first */
firm_be_init();
- memset(&def_params, 0, sizeof(def_params));
-
- if (param) {
- /* check for reasonable size */
- assert(param->size <= sizeof(def_params) && (param->size & 3) == 0 &&
- "parameter struct not initialized ???");
- size = sizeof(def_params);
- if (param->size < size)
- size = param->size;
-
- memcpy(&def_params, param, size);
- }
-
/* initialize firm flags */
firm_init_flags();
/* initialize all ident stuff */
init_ident();
- /* enhanced statistics, need idents and hooks */
- if (def_params.enable_statistics != 0)
- firm_init_stat(def_params.enable_statistics);
/* Edges need hooks. */
init_edges();
/* create the type kinds. */
init_mode();
/* initialize tarvals, and floating point arithmetic */
init_tarval_2();
+ /* initialize node opcodes */
+ firm_init_op();
/* init graph construction */
firm_init_irgraph();
/* kind of obstack initialization */
firm_init_mangle();
- /* initialize all op codes an irnode can consist of */
- init_op();
- /* called once for each run of this library */
- if (def_params.initialize_local_func != NULL)
- ir_set_uninitialized_local_variable_func(
- def_params.initialize_local_func);
/* initialize reassociation */
firm_init_reassociation();
/* initialize function call optimization */
/* Builds a construct allowing to access all information to be constructed
later. */
init_irprog_2();
- /* Initialize the type module and construct some idents needed. */
- ir_init_type();
- /* initialize the entity module */
- ir_init_entity();
/* class cast optimization */
firm_init_class_casts_opt();
/* memory disambiguation */
/* Init architecture dependent optimizations. */
arch_dep_set_opts(arch_dep_none);
- init_irnode();
+ init_execfreq();
+
+ init_stat();
#ifdef DEBUG_libfirm
/* integrated debugger extension */
void ir_finish(void)
{
- size_t i;
-
- /* must iterate backwards here */
- for (i = get_irp_n_irgs(); i > 0;)
- free_ir_graph(get_irp_irg(--i));
-
- free_type_entities(get_glob_type());
- /* must iterate backwards here */
- for (i = get_irp_n_types(); i > 0;)
- free_type_entities(get_irp_type(--i));
-
- for (i = get_irp_n_types(); i > 0;)
- free_type(get_irp_type(--i));
+#ifdef DEBUG_libfirm
+ firm_finish_debugger();
+#endif
+ exit_execfreq();
+ firm_be_finish();
free_ir_prog();
-
- ir_finish_entity();
- ir_finish_type();
-
+ firm_finish_op();
finish_tarval();
finish_mode();
finish_tpop();
+ firm_finish_mangle();
finish_ident();
-
- firm_be_finish();
}
unsigned ir_get_version_major(void)