static const backend_params be_params = {
0, /* need dword lowering */
0, /* don't support inline assembler yet */
- 0, /* no immediate floating point mode. */
- NULL, /* no additional opcodes */
NULL, /* will be set later */
NULL, /* but yet no creator function */
NULL, /* context for create_intrinsic_fkt */
NULL, /* no if conversion settings */
- NULL /* no immediate fp mode */
+ NULL, /* no float arithmetic mode */
+ 0, /* no trampoline support: size 0 */
+ 0, /* no trampoline support: align 0 */
+ NULL, /* no trampoline support: no trampoline builder */
+ 4 /* alignment of stack parameter */
};
/* Perform schedule verification if requested. */
edges_assure(irg);
set_irg_phase_state(irg, phase_backend);
+ be_info_init_irg(irg);
dump(DUMP_INITIAL, irg, "-prepared", dump_ir_block_graph);
}
*/
static void be_main_loop(FILE *file_handle, const char *cup_name)
{
- int i;
- be_main_env_t env;
- char prof_filename[256];
static const char suffix[] = ".prof";
- be_irg_t *birgs;
- int num_birgs;
- ir_graph **irg_list, **backend_irg_list;
- arch_env_t *arch_env;
+
+ int i, num_birgs, stat_active = 0;
+ be_main_env_t env;
+ char prof_filename[256];
+ be_irg_t *birgs;
+ ir_graph **irg_list, **backend_irg_list;
+ arch_env_t *arch_env;
be_timing = (be_options.timing == BE_TIME_ON);
/* we might need 1 birg more for instrumentation constructor */
num_birgs = backend_irg_list ? ARR_LEN(backend_irg_list) : get_irp_n_irgs();
- birgs = alloca(sizeof(birgs[0]) * (num_birgs + 1));
+ birgs = ALLOCAN(be_irg_t, num_birgs + 1);
+
+ be_info_init();
/* First: initialize all birgs */
for(i = 0; i < num_birgs; ++i) {
ir_graph *irg = backend_irg_list ? backend_irg_list[i] : get_irp_irg(i);
initialize_birg(&birgs[i], irg, &env);
}
+ arch_env_handle_intrinsics(arch_env);
DEL_ARR_F(irg_list);
/*
ir_profile_read(prof_filename);
}
+#ifdef FIRM_STATISTICS
+ stat_active = stat_is_active();
+#endif /* FIRM_STATISTICS */
+
/* For all graphs */
for (i = 0; i < num_birgs; ++i) {
be_irg_t *birg = &birgs[i];
/* set the current graph (this is important for several firm functions) */
current_ir_graph = irg;
- be_sched_init_phase(irg);
-
/* reset the phi handler. */
be_phi_handler_reset();
);
#undef LC_EMIT
- be_sched_free_phase(irg);
-
be_free_birg(birg);
+
+ /* switched off due to statistics (statistic module needs all irgs) */
+#ifdef FIRM_STATISTICS
+ if (! stat_active)
+#endif /* FIRM_STATISTICS */
+ remove_irp_irg(irg);
stat_ev_ctx_pop("bemain_irg");
}
ir_profile_free();
be_done_env(&env);
+
+ be_info_free();
}
/* Main interface to the frontend. */
if (be_options.statev) {
const char *dot = strrchr(cup_name, '.');
const char *pos = dot ? dot : cup_name + strlen(cup_name);
- char *buf = alloca(pos - cup_name + 1);
+ char *buf = ALLOCAN(char, pos - cup_name + 1);
strncpy(buf, cup_name, pos - cup_name);
buf[pos - cup_name] = '\0';
/* never build code for pseudo irgs */
set_visit_pseudo_irgs(0);
- be_node_init();
-
be_main_loop(file_handle, cup_name);
if (be_options.timing == BE_TIME_ON) {