X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fcommon%2Ffirm.c;h=c168589967267e04185f56e29bcdb23165b007d9;hb=69c991e03a0eb1b284e6d0c41623d340a8e26d16;hp=2aefe17af153f98f11e923e14a28c7960c8bdf7b;hpb=863d31d7a5c8210432fef88b30fc3e8353131538;p=libfirm diff --git a/ir/common/firm.c b/ir/common/firm.c index 2aefe17af..c16858996 100644 --- a/ir/common/firm.c +++ b/ir/common/firm.c @@ -1,16 +1,32 @@ /* - * Project: libFIRM - * File name: ir/common/firm.c - * Purpose: Central firm functionality. - * Author: Martin Trapp, Christian Schaefer - * Modified by: Goetz Lindenmaier - * Created: - * CVS-ID: $Id$ - * Copyright: (c) 1998-2003 Universität Karlsruhe - * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. + * + * This file is part of libFirm. + * + * This file may be distributed and/or modified under the terms of the + * GNU General Public License version 2 as published by the Free Software + * Foundation and appearing in the file LICENSE.GPL included in the + * packaging of this file. + * + * Licensees holding valid libFirm Professional Edition licenses may use + * this file in accordance with the libFirm Commercial License. + * Agreement provided with the Software. + * + * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE + * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR + * PURPOSE. */ -#ifdef HAVE_CONFIG_H -# include "config.h" + +/** + * @file + * @brief Central firm functionality. + * @author Martin Trapp, Christian Schaefer, Goetz Lindenmaier + * @version $Id$ + */ +#include "config.h" + +#ifdef HAVE_FIRM_REVISION_H +# include "firm_revision.h" #endif #ifdef HAVE_STRING_H @@ -20,14 +36,11 @@ # include #endif -#ifdef WITH_LIBCORE -# include -#endif +#include "lc_opts.h" #include "ident_t.h" #include "firm.h" #include "irflag_t.h" -#include "mangle.h" /* init functions are not public */ #include "tv_t.h" #include "tpop_t.h" @@ -38,35 +51,40 @@ #include "irgraph_t.h" #include "type_t.h" #include "entity_t.h" -#include "type_identify.h" +#include "opt_inline_t.h" +#include "scalar_replace.h" #include "firmstat.h" -#include "irreflect_t.h" #include "irarch.h" #include "reassoc_t.h" +#include "funccall_t.h" #include "irhooks.h" #include "iredges_t.h" +#include "irmemory_t.h" +#include "tropt.h" #include "debugger.h" +#include "be_t.h" -#ifdef WITH_LIBCORE /* returns the firm root */ lc_opt_entry_t *firm_opt_get_root(void) { static lc_opt_entry_t *grp = NULL; - if(!grp) + if (!grp) grp = lc_opt_get_grp(lc_opt_root_grp(), "firm"); return grp; } void firm_init_options(const char *arg_prefix, int argc, const char **argv) { - /* parse any init files for firm */ - lc_opts_init("firm", firm_opt_get_root(), arg_prefix, argc, argv); + /* parse commandline */ + lc_opt_from_argv(firm_opt_get_root(), arg_prefix, argc, argv, NULL); } -#endif /* WITH_LIBCORE */ void init_firm(const firm_parameter_t *param) { 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) { @@ -93,7 +111,7 @@ void init_firm(const firm_parameter_t *param) /* create the type kinds. */ init_tpop(); /* create an obstack and put all tarvals in a pdeq */ - init_tarval_1(0l); + init_tarval_1(0l, /* support_quad_precision */0); /* Builds a basic program representation, so modes can be added. */ init_irprog_1(); /* initialize all modes an ir node can consist of */ @@ -107,24 +125,32 @@ void init_firm(const firm_parameter_t *param) /* 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_cons(def_params.initialize_local_func); /* initialize reassociation */ firm_init_reassociation(); + /* initialize function call optimization */ + firm_init_funccalls(); + /* initialize function inlining */ + firm_init_inline(); + /* initialize scalar replacement */ + firm_init_scalar_replace(); /* Builds a construct allowing to access all information to be constructed later. */ init_irprog_2(); - /* Initialize the type module ancd cr d construct some idents needed. */ + /* Initialize the type module and construct some idents needed. */ firm_init_type(def_params.builtin_dbg, def_params.cc_mask); /* initialize the entity module */ firm_init_entity(); /* allocate a hash table. */ init_type_identify(def_params.ti_if); - /* Init reflection facility. */ - firm_init_rflct(); + /* class cast optimization */ + firm_init_class_casts_opt(); + /* memory disambiguation */ + firm_init_memory_disambiguator(); /* Init architecture dependent optimizations. */ arch_dep_init(arch_dep_default_factory); - arch_dep_set_opts(arch_dep_mul_to_shift | arch_dep_div_by_const | arch_dep_mod_by_const); + arch_dep_set_opts(0); firm_archops_init(def_params.arch_op_settings); @@ -139,6 +165,8 @@ void free_firm(void) { for (i = get_irp_n_irgs() - 1; i >= 0; --i) free_ir_graph(get_irp_irg(i)); + for (i = get_irp_n_pseudo_irgs() - 1; i >= 0; --i) + free_ir_graph(get_irp_pseudo_irg(i)); free_type_entities(get_glob_type()); for (i = get_irp_n_types() - 1; i >= 0; --i) @@ -147,17 +175,24 @@ void free_firm(void) { for (i = get_irp_n_types() - 1; i >= 0; --i) free_type(get_irp_type(i)); - finish_op(); free_ir_prog(); finish_tarval(); finish_mode(); finish_tpop(); finish_ident(); + + firm_be_finish(); } /* Returns the libFirm version number. */ void firm_get_version(firm_version_t *version) { - version->major = libFirm_VERSION_MAJOR; - version->minor = libFirm_VERSION_MINOR; + version->major = libfirm_VERSION_MAJOR; + version->minor = libfirm_VERSION_MINOR; +#ifdef libfirm_VERSION_REVISION + version->revision = libfirm_VERSION_REVISION; +#else + version->revision = ""; +#endif + version->build = ""; }