X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fcommon%2Ffirm.c;h=4ec38078d4385b9e7e55269dd52d6ce6f18fc541;hb=8940e28146a93b189ad4e6a6ed409ebf5631eacf;hp=624221508afefa606bf5a79c7320a24b6b76f2d5;hpb=142873c8bdc04104d37067a96ab1969094325593;p=libfirm diff --git a/ir/common/firm.c b/ir/common/firm.c index 624221508..4ec38078d 100644 --- a/ir/common/firm.c +++ b/ir/common/firm.c @@ -1,207 +1,149 @@ /* - * 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. + * This file is part of libFirm. + * Copyright (C) 2012 University of Karlsruhe. */ -/* Ini file in local directory */ -#define LOCAL_INI_FILE "firm.ini" - -/* Includes to determine user's home directory */ -#ifdef _WIN32 -#include -#define HOME_DIR_INI_FILE LOCAL_INI_FILE -#else -#include -#include -#define HOME_DIR_INI_FILE ".firmrc" -#endif - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -#ifdef HAVE_STRING_H -# include -#endif - -# include +/** + * @file + * @brief Central firm functionality. + * @author Martin Trapp, Christian Schaefer, Goetz Lindenmaier + */ +#include "config.h" -#ifdef WITH_LIBCORE -#include +#ifdef HAVE_FIRM_REVISION_H +# include "firm_revision.h" #endif -# 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" -# 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 "type_identify.h" -# include "firmstat.h" -# include "irreflect_t.h" -# include "irarch.h" -# include "reassoc_t.h" -# include "irhooks.h" -# include "iredges_t.h" -# include "debugger.h" - -#ifdef WITH_LIBCORE +#include +#include + +#include "lc_opts.h" + +#include "ident_t.h" +#include "firm.h" +#include "irflag_t.h" +#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 "firmstat.h" +#include "irarch.h" +#include "irhooks.h" +#include "iredges_t.h" +#include "irmemory_t.h" +#include "opt_init.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) { static lc_opt_entry_t *grp = NULL; - if(!grp) + if (!grp) grp = lc_opt_get_grp(lc_opt_root_grp(), "firm"); return grp; } -#endif -void -init_firm(const firm_parameter_t *param) +void ir_init(void) { - firm_parameter_t def_params; - unsigned int size; - - 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); - } + /* for historical reasons be_init must be run first */ + firm_be_init(); /* 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); - /* 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 */ - init_cons(def_params.initialize_local_func); - /* initialize reassociation */ - firm_init_reassociation(); - /* 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. */ - 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(); - - /* 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); - - firm_archops_init(def_params.arch_op_settings); - -#ifndef NDEBUG - /* integrated debugger extension */ - firm_init_debugger(); -#endif - -#ifdef WITH_LIBCORE - { - FILE *f; - -#ifdef _WIN32 - char path[MAX_PATH]; - SHGetFolderPath(NULL, CSIDL_LOCAL_APPDATA, NULL, 0, path); - strncat(path, "\\", sizeof(path)); -#else - char path[512]; - strcpy(path, getpwuid(getuid())->pw_dir); - strncat(path, "/", sizeof(path)); + /* initialize all ident stuff */ + init_ident(); + /* 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(); + /* initialize node opcodes */ + firm_init_op(); + /* init graph construction */ + firm_init_irgraph(); + /* kind of obstack initialization */ + firm_init_mangle(); + /* 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(); + /* memory disambiguation */ + firm_init_memory_disambiguator(); + firm_init_loop_opt(); + + /* Init architecture dependent optimizations. */ + arch_dep_set_opts(arch_dep_none); + + init_execfreq(); + + init_stat(); + +#ifdef DEBUG_libfirm + /* integrated debugger extension */ + firm_init_debugger(); #endif +} - strncat(path, HOME_DIR_INI_FILE, sizeof(path)); - - /* Process ini file in user's home. */ - f = fopen(path, "rt"); - if(f) { - lc_opt_from_file(path, f, NULL); - fclose(f); - } - - /* Process ini file in current directory. */ - f = fopen(LOCAL_INI_FILE, "rt"); - if(f) { - lc_opt_from_file(LOCAL_INI_FILE, f, NULL); - fclose(f); - } - - /* process arguments from the command line */ - lc_opt_from_argv(firm_opt_get_root(), def_params.arg_prefix, def_params.argc, def_params.argv, NULL); - } +void ir_finish(void) +{ +#ifdef DEBUG_libfirm + firm_finish_debugger(); #endif + exit_execfreq(); + firm_be_finish(); + + free_ir_prog(); + firm_finish_op(); + finish_tarval(); + finish_mode(); + finish_tpop(); + firm_finish_mangle(); + finish_ident(); } -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)); +unsigned ir_get_version_major(void) +{ + return libfirm_VERSION_MAJOR; +} - finish_op(); - free_ir_prog(); +unsigned ir_get_version_minor(void) +{ + return libfirm_VERSION_MINOR; +} - finish_tarval(); - finish_mode(); - finish_tpop(); - finish_ident(); +const char *ir_get_version_revision(void) +{ +#ifdef libfirm_VERSION_REVISION + return libfirm_VERSION_REVISION; +#else + return ""; +#endif } -/* Returns the libFirm version number. */ -void firm_get_version(firm_version_t *version) { - version->major = libFirm_VERSION_MAJOR; - version->minor = libFirm_VERSION_MINOR; +const char *ir_get_version_build(void) +{ + return ""; }