X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fcommon%2Ffirm.c;h=2084a0bd76bd9b53f4fb6fda2369f806c7e16dd3;hb=0fbcef83aa6060534172bb13e71cdadb04428806;hp=a448a7f484e75c6f0740d885d90b7eee53384a0d;hpb=b0ad9fbe1e6e3ff4b3e035c18804984aa49347b9;p=libfirm diff --git a/ir/common/firm.c b/ir/common/firm.c index a448a7f48..2084a0bd7 100644 --- a/ir/common/firm.c +++ b/ir/common/firm.c @@ -1,42 +1,196 @@ -/* Copyright (C) 1998 - 2000 by Universitaet Karlsruhe -** All rights reserved. -** -** Authors: Martin Trapp, Christian Schaefer -** -*/ +/* + * 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. + */ +/** + * @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 +# include +#endif +#ifdef HAVE_STDIO_H # include -# include "ident_t.h" -# include "firm.h" -# include "mangle.h" -# include "xp_help.h" -# include "irnode_t.h" -# include "tv_t.h" - -void -init_firm (void) +#endif + +#include "lc_opts.h" + +#include "ident_t.h" +#include "firm.h" +#include "irflag_t.h" +/* init functions are not public */ +#include "tv_t.h" +#include "tpop_t.h" +#include "irprog_t.h" +#include "irnode_t.h" +#include "irmode_t.h" +#include "ircons_t.h" +#include "irgraph_t.h" +#include "type_t.h" +#include "entity_t.h" +#include "opt_inline_t.h" +#include "scalar_replace.h" +#include "firmstat.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" + +/* returns the firm root */ +lc_opt_entry_t *firm_opt_get_root(void) { + static lc_opt_entry_t *grp = NULL; + 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); +} + +void init_firm(const firm_parameter_t *param) { - /* register the character 'I' as variable for ident outputs. */ - xprintf_register ('I', ident_print); - /* register the character 'v' as variable for tarval outputs. */ - xprintf_register ('v', tarval_print); - /* register the character 'R' as variable for ir node outputs. */ - xprintf_register ('R', ir_node_print); - /* initialize all ident stuff */ - id_init (); - /* create an obstack and put alle tarvals in a pdeq */ - tarval_init_1 (); - /* initialize all modes an ir node can consist of */ - init_mode (); - /* initialize tarvals, and floating point arithmetic */ - tarval_init_2 (); - /* kind of obstack initialization */ - init_mangle (); - /* initalize all op codes an irnode can consist of */ - init_op (); - /* called once for each run of this library, empty at this moment!!! */ - init_cons (); - /* Builds a construct allowing to access all information to be constructed - later. */ - init_irprog (); + 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(def_params.id_if, 1024); + /* initialize Firm hooks */ + firm_init_hooks(); + /* enhanced statistics, need idents and hooks */ + firm_init_stat(def_params.enable_statistics); + /* Edges need hooks. */ + init_edges(); + /* create the type kinds. */ + init_tpop(); + /* create an obstack and put all tarvals in a pdeq */ + 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 */ + init_mode(); + /* initialize tarvals, and floating point arithmetic */ + init_tarval_2(); + /* 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 */ + 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 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); + /* 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(0); + + firm_archops_init(def_params.arch_op_settings); + +#ifdef DEBUG_libfirm + /* integrated debugger extension */ + firm_init_debugger(); +#endif +} + +void free_firm(void) { + int i; + + for (i = get_irp_n_irgs() - 1; i >= 0; --i) + free_ir_graph(get_irp_irg(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_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; +#ifdef libfirm_VERSION_REVISION + version->revision = libfirm_VERSION_REVISION; +#else + version->revision = ""; +#endif + version->build = ""; }