+ be_dbg_so(env.db_handle, cup_name);
+ be_dbg_types(env.db_handle);
+
+ /* backend may provide an ordered list of irgs where code should be generated for */
+ irg_list = NEW_ARR_F(ir_graph *, 0);
+ backend_irg_list = arch_isa_get_backend_irg_list(isa, &irg_list);
+
+ /* 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));
+
+ /* 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);
+ }
+ DEL_ARR_F(irg_list);
+
+ /*
+ Get the filename for the profiling data.
+ Beware: '\0' is already included in sizeof(suffix)
+ */
+ memset(prof_filename, 0, sizeof(prof_filename));
+ strncpy(prof_filename, cup_name, sizeof(prof_filename) - sizeof(suffix));
+ strcat(prof_filename, suffix);
+
+ /*
+ Next: Either instruments all irgs with profiling code
+ 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, 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);
+ } else {
+ be_profile_read(prof_filename);
+ }