added ir/opt include
[libfirm] / ir / be / bemain.c
index a9ff307..751c445 100644 (file)
 #include "bestat.h"
 #include "beverify.h"
 #include "beprofile.h"
+#include "beblocksched.h"
+#include "be_dbgout.h"
 
 /* options visible for anyone */
 static be_options_t be_options = {
        DUMP_NONE,                         /* dump flags */
        BE_TIME_OFF,                       /* no timing */
-       BE_SCHED_SELECT_HEUR,              /* mueller heuristic selector */
        0,                                 /* no opt profile */
-       0,                                 /* disable mris */
        1,                                 /* try to omit frame pointer */
+       0,                                 /* always stabs debugging output */
        BE_VRFY_WARN,                      /* verification level: warn */
        "i44pc52.info.uni-karlsruhe.de",   /* ilp server */
        "cplex"                            /* ilp solver */
@@ -132,17 +133,6 @@ static const lc_opt_enum_int_items_t vrfy_items[] = {
        { NULL,     0 }
 };
 
-/* 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     },
-       { "hmuchnik", BE_SCHED_SELECT_HMUCHNIK },
-       { NULL,     0 }
-};
-
 static lc_opt_enum_mask_var_t dump_var = {
        &be_options.dump_flags, dump_items
 };
@@ -159,21 +149,16 @@ static lc_opt_enum_int_var_t vrfy_var = {
        &be_options.vrfy_option, vrfy_items
 };
 
-static lc_opt_enum_int_var_t sched_select_var = {
-       &be_options.sched_select, sched_select_items
-};
-
 static const lc_opt_table_entry_t be_main_options[] = {
-       LC_OPT_ENT_STR      ("config",       "read another config file containing backend options",                 config_file, sizeof(config_file)),
-       LC_OPT_ENT_ENUM_MASK("dump",         "dump irg on several occasions",                                       &dump_var),
-       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_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),
-       LC_OPT_ENT_BOOL     ("sched.mris",   "enable mris schedule preparation",                                    &be_options.mris),
-       LC_OPT_ENT_ENUM_PTR ("sched.select", "schedule node selector (trivial, regpress, muchnik, heur, hmuchnik)", &sched_select_var),
+       LC_OPT_ENT_STR      ("config",   "read another config file containing backend options", config_file, sizeof(config_file)),
+       LC_OPT_ENT_ENUM_MASK("dump",     "dump irg on several occasions",                       &dump_var),
+       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",                              &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),
 
 #ifdef WITH_ILP
        LC_OPT_ENT_STR ("ilp.server", "the ilp server name", be_options.ilp_server, sizeof(be_options.ilp_server)),
@@ -192,9 +177,9 @@ void be_opt_register(void)
        static int run_once = 0;
 
        if (! run_once) {
-               run_once    = 1;
-               be_grp_root = lc_opt_get_grp(firm_opt_get_root(), "be");
-               be_grp_ra   = lc_opt_get_grp(be_grp_root, "ra");
+               run_once     = 1;
+               be_grp_root  = lc_opt_get_grp(firm_opt_get_root(), "be");
+               be_grp_ra    = lc_opt_get_grp(be_grp_root, "ra");
 
                lc_opt_add_table(be_grp_root, be_main_options);
 
@@ -209,6 +194,11 @@ void be_opt_register(void)
                        const arch_isa_if_t *isa = isa_items[i].value;
                        isa->register_options(be_grp_root);
                }
+
+               /* scheduler register options */
+               list_sched_register_options(be_grp_root);
+
+               be_block_schedule_register_options(be_grp_root);
        }
 #endif /* WITH_LIBCORE */
 }
@@ -289,12 +279,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);
 }
@@ -398,8 +390,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;
@@ -412,6 +405,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;
@@ -422,7 +417,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");
@@ -441,6 +435,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));
@@ -457,7 +454,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);
 
        /*
@@ -481,6 +478,9 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
                optimization_state_t state;
                const arch_code_generator_if_t *cg_if;
 
+               /* set the current graph (this is important for several firm functions) */
+               current_ir_graph = irg;
+
                /* stop and reset timers */
                BE_TIMER_ONLY(
                        LC_STOP_AND_RESET_TIMER(t_abi);
@@ -498,7 +498,7 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
                /**
                 * Create execution frequencies from profile data or estimate some
                 */
-               if(be_profile_has_data()) {
+               if (be_profile_has_data()) {
                        birg->execfreqs = be_create_execfreqs_from_profile(irg);
                } else {
                        birg->execfreqs = compute_execfreq(irg, 10);
@@ -515,9 +515,6 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
                /* some transformations need to be done before abi introduce */
                arch_code_generator_before_abi(birg->cg);
 
-               /* set the current graph (this is important for several firm functions) */
-               current_ir_graph = irg;
-
                /* reset the phi handler. */
                be_phi_handler_reset(env.phi_handler);
 
@@ -540,7 +537,7 @@ static void be_main_loop(FILE *file_handle, const char *asm_file_name)
                        Since the code generator made a lot of new nodes and skipped
                        a lot of old ones, we should do dead node elimination here.
                        Note that this requires disabling the edges here.
-                */
+               */
                edges_deactivate(irg);
                //dead_node_elimination(irg);
                edges_activate(irg);
@@ -712,7 +709,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;
@@ -744,7 +741,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) {