Added support for SymConst(ofs_ent)
[libfirm] / ir / be / bemain.c
index 3f30e70..4b8c833 100644 (file)
@@ -65,6 +65,7 @@
 #include "bestat.h"
 #include "beverify.h"
 #include "beprofile.h"
+#include "be_dbgout.h"
 
 /* options visible for anyone */
 static be_options_t be_options = {
@@ -74,6 +75,7 @@ static be_options_t be_options = {
        0,                                 /* no opt profile */
        0,                                 /* disable mris */
        1,                                 /* try to omit frame pointer */
+       1,                                 /* always stabs debugging output */
        BE_VRFY_WARN,                      /* verification level: warn */
        "i44pc52.info.uni-karlsruhe.de",   /* ilp server */
        "cplex"                            /* ilp solver */
@@ -135,6 +137,7 @@ static const lc_opt_enum_int_items_t vrfy_items[] = {
 /* schedule selector options. */
 static const lc_opt_enum_int_items_t sched_select_items[] = {
        { "trivial",  BE_SCHED_SELECT_TRIVIAL  },
+       { "random",   BE_SCHED_SELECT_RANDOM },
        { "regpress", BE_SCHED_SELECT_REGPRESS },
        { "muchnik",  BE_SCHED_SELECT_MUCHNIK  },
        { "heur",     BE_SCHED_SELECT_HEUR     },
@@ -168,6 +171,7 @@ static const lc_opt_table_entry_t be_main_options[] = {
        LC_OPT_ENT_ENUM_PTR ("ra",           "register allocator",                                                  &ra_var),
        LC_OPT_ENT_ENUM_PTR ("isa",          "the instruction set architecture",                                    &isa_var),
        LC_OPT_ENT_NEGBOOL  ("noomitfp",     "do not omit frame pointer",                                           &be_options.omit_fp),
+       LC_OPT_ENT_BOOL     ("stabs",        "enable stabs debug support",                                          &be_options.stabs_debug_support),
        LC_OPT_ENT_ENUM_PTR ("vrfy",         "verify the backend irg (off, warn, assert)",                          &vrfy_var),
        LC_OPT_ENT_BOOL     ("time",         "get backend timing statistics",                                       &be_options.timing),
        LC_OPT_ENT_BOOL     ("profile",      "instrument the code for execution count profiling",                   &be_options.opt_profile),
@@ -288,12 +292,14 @@ static be_main_env_t *be_init_env(be_main_env_t *env, FILE *file_handle)
        env->phi_handler = be_phi_handler_new(env->arch_env);
        arch_env_push_irn_handler(env->arch_env, env->phi_handler);
 
+       env->db_handle = be_options.stabs_debug_support ? be_stabs_open(file_handle) : be_nulldbg_open();
        return env;
 }
 
 static void be_done_env(be_main_env_t *env)
 {
        env->arch_env->isa->impl->done(env->arch_env->isa);
+       be_dbg_close(env->db_handle);
        be_phi_handler_free(env->phi_handler);
        obstack_free(&env->obst, NULL);
 }
@@ -397,8 +403,9 @@ static void initialize_birg(be_irg_t *birg, ir_graph *irg, be_main_env_t *env)
  * and call the architecture specific code generator.
  *
  * @param file_handle   the file handle the output will be written to
+ * @param cup_name      name of the compilation unit
  */
-static void be_main_loop(FILE *file_handle, const char *asm_file_name)
+static void be_main_loop(FILE *file_handle, const char *cup_name)
 {
        int i;
        arch_isa_t *isa;
@@ -411,6 +418,8 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
        be_irg_t *birgs;
        unsigned num_birgs;
 
+       be_ra_timer_t *ra_timer;
+
 #ifdef WITH_LIBCORE
        lc_timer_t *t_abi      = NULL;
        lc_timer_t *t_codegen  = NULL;
@@ -421,7 +430,6 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
        lc_timer_t *t_emit     = NULL;
        lc_timer_t *t_other    = NULL;
        lc_timer_t *t_verify   = NULL;
-       be_ra_timer_t *ra_timer;
 
        if (be_options.timing == BE_TIME_ON) {
                t_abi      = lc_timer_register("beabi",    "be abi introduction");
@@ -440,6 +448,9 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
 
        isa = arch_env_get_isa(env.arch_env);
 
+       be_dbg_so(env.db_handle, cup_name);
+       be_dbg_types(env.db_handle);
+
        /* we might need 1 birg more for instrumentation constructor */
        num_birgs = get_irp_n_irgs();
        birgs     = alloca(sizeof(birgs[0]) * (num_birgs + 1));
@@ -456,7 +467,7 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
                Beware: '\0' is already included in sizeof(suffix)
        */
        memset(prof_filename, 0, sizeof(prof_filename));
-       strncpy(prof_filename, asm_file_name, sizeof(prof_filename) - sizeof(suffix));
+       strncpy(prof_filename, cup_name, sizeof(prof_filename) - sizeof(suffix));
        strcat(prof_filename, suffix);
 
        /*
@@ -464,7 +475,7 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
                or try to read in profile data for current translation unit.
        */
        if (be_options.opt_profile) {
-               ir_graph *prof_init_irg = be_profile_instrument(prof_filename);
+               ir_graph *prof_init_irg = be_profile_instrument(prof_filename, profile_default);
                initialize_birg(&birgs[num_birgs], prof_init_irg, &env);
                num_birgs++;
                set_method_img_section(get_irg_entity(prof_init_irg), section_constructors);
@@ -711,7 +722,7 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
 }
 
 /* Main interface to the frontend. */
-void be_main(FILE *file_handle, const char *asm_file_name)
+void be_main(FILE *file_handle, const char *cup_name)
 {
 #ifdef WITH_LIBCORE
        lc_timer_t *t = NULL;
@@ -743,7 +754,7 @@ void be_main(FILE *file_handle, const char *asm_file_name)
        set_visit_pseudo_irgs(0);
 
        be_node_init();
-       be_main_loop(file_handle, asm_file_name);
+       be_main_loop(file_handle, cup_name);
 
 #ifdef WITH_LIBCORE
        if (be_options.timing == BE_TIME_ON) {