27940c47ff4322ef4f94011fedd3aaf908fdfe55
[libfirm] / ir / common / firm.c
1 /*
2  * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
3  *
4  * This file is part of libFirm.
5  *
6  * This file may be distributed and/or modified under the terms of the
7  * GNU General Public License version 2 as published by the Free Software
8  * Foundation and appearing in the file LICENSE.GPL included in the
9  * packaging of this file.
10  *
11  * Licensees holding valid libFirm Professional Edition licenses may use
12  * this file in accordance with the libFirm Commercial License.
13  * Agreement provided with the Software.
14  *
15  * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
16  * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
17  * PURPOSE.
18  */
19
20 /**
21  * @file
22  * @brief     Central firm functionality.
23  * @author    Martin Trapp, Christian Schaefer, Goetz Lindenmaier
24  * @version   $Id$
25  */
26 #include "config.h"
27
28 #ifdef HAVE_FIRM_REVISION_H
29 # include "firm_revision.h"
30 #endif
31
32 #include <string.h>
33 #include <stdio.h>
34
35 #include "lc_opts.h"
36
37 #include "ident_t.h"
38 #include "firm.h"
39 #include "irflag_t.h"
40 /* init functions are not public */
41 #include "tv_t.h"
42 #include "tpop_t.h"
43 #include "irprog_t.h"
44 #include "irnode_t.h"
45 #include "irmode_t.h"
46 #include "ircons_t.h"
47 #include "irgraph_t.h"
48 #include "type_t.h"
49 #include "entity_t.h"
50 #include "opt_inline_t.h"
51 #include "scalar_replace.h"
52 #include "firmstat.h"
53 #include "irarch.h"
54 #include "reassoc_t.h"
55 #include "funccall_t.h"
56 #include "irhooks.h"
57 #include "iredges_t.h"
58 #include "irmemory_t.h"
59 #include "tropt.h"
60 #include "debugger.h"
61 #include "be_t.h"
62
63 /* returns the firm root */
64 lc_opt_entry_t *firm_opt_get_root(void) {
65         static lc_opt_entry_t *grp = NULL;
66         if (!grp)
67                 grp = lc_opt_get_grp(lc_opt_root_grp(), "firm");
68         return grp;
69 }
70
71 void firm_init_options(const char *arg_prefix, int argc, const char **argv) {
72         /* parse commandline */
73         lc_opt_from_argv(firm_opt_get_root(), arg_prefix, argc, argv, NULL);
74 }
75
76 void init_firm(const firm_parameter_t *param)
77 {
78         firm_parameter_t def_params;
79         unsigned int     size;
80
81         /* for historical reasons be_init must be run first */
82         firm_be_init();
83
84         memset(&def_params, 0, sizeof(def_params));
85
86         if (param) {
87                 /* check for reasonable size */
88                 assert(param->size <= sizeof(def_params) && (param->size & 3) == 0 &&
89                                 "parameter struct not initialized ???");
90                 size = sizeof(def_params);
91                 if (param->size < size)
92                         size = param->size;
93
94                 memcpy(&def_params, param, size);
95         }
96
97         /* initialize firm flags */
98         firm_init_flags();
99         /* initialize all ident stuff */
100         init_ident(def_params.id_if, 1024);
101         /* initialize Firm hooks */
102         firm_init_hooks();
103         /* enhanced statistics, need idents and hooks */
104         firm_init_stat(def_params.enable_statistics);
105         /* Edges need hooks. */
106         init_edges();
107         /* create the type kinds. */
108         init_tpop();
109         /* create an obstack and put all tarvals in a pdeq */
110         init_tarval_1(0l, /* support_quad_precision */0);
111         /* Builds a basic program representation, so modes can be added. */
112         init_irprog_1();
113         /* initialize all modes an ir node can consist of */
114         init_mode();
115         /* initialize tarvals, and floating point arithmetic */
116         init_tarval_2();
117         /* init graph construction */
118         firm_init_irgraph();
119         /* kind of obstack initialization */
120         firm_init_mangle();
121         /* initialize all op codes an irnode can consist of */
122         init_op();
123         /* called once for each run of this library */
124         firm_init_cons(def_params.initialize_local_func);
125         /* initialize reassociation */
126         firm_init_reassociation();
127         /* initialize function call optimization */
128         firm_init_funccalls();
129         /* initialize function inlining */
130         firm_init_inline();
131         /* initialize scalar replacement */
132         firm_init_scalar_replace();
133         /* Builds a construct allowing to access all information to be constructed
134            later. */
135         init_irprog_2();
136         /* Initialize the type module and construct some idents needed. */
137         firm_init_type(def_params.builtin_dbg, def_params.cc_mask);
138         /* initialize the entity module */
139         firm_init_entity();
140         /* allocate a hash table. */
141         init_type_identify(def_params.ti_if);
142         /* class cast optimization */
143         firm_init_class_casts_opt();
144         /* memory disambiguation */
145         firm_init_memory_disambiguator();
146
147         /* Init architecture dependent optimizations. */
148         arch_dep_init(arch_dep_default_factory);
149         arch_dep_set_opts(0);
150
151 #ifdef DEBUG_libfirm
152         /* integrated debugger extension */
153         firm_init_debugger();
154 #endif
155 }
156
157 void free_firm(void) {
158         int i;
159
160         for (i = get_irp_n_irgs() - 1; i >= 0; --i)
161                 free_ir_graph(get_irp_irg(i));
162         for (i = get_irp_n_pseudo_irgs() - 1; i >= 0; --i)
163                 free_ir_graph(get_irp_pseudo_irg(i));
164
165         free_type_entities(get_glob_type());
166         for (i = get_irp_n_types() - 1; i >= 0; --i)
167                 free_type_entities(get_irp_type(i));
168
169         for (i = get_irp_n_types() - 1; i >= 0; --i)
170                 free_type(get_irp_type(i));
171
172         free_ir_prog();
173
174         finish_tarval();
175         finish_mode();
176         finish_tpop();
177         finish_ident();
178
179         firm_be_finish();
180 }
181
182 /* Returns the libFirm version number. */
183 void firm_get_version(firm_version_t *version) {
184         version->major    = libfirm_VERSION_MAJOR;
185         version->minor    = libfirm_VERSION_MINOR;
186 #ifdef libfirm_VERSION_REVISION
187         version->revision = libfirm_VERSION_REVISION;
188 #else
189         version->revision = "";
190 #endif
191         version->build    = "";
192 }