X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2FTEMPLATE%2Fbearch_TEMPLATE.c;h=c0e7f56ec450af83541dc7dc106778d952a31084;hb=1d4b9ab66a4545a879ba12eecadf7fa7c2e4977f;hp=2e80f092ba461fce30f481f48a73041b23d670c2;hpb=6f37b3f5178996ef665bae4df2efac5aa5446c4a;p=libfirm diff --git a/ir/be/TEMPLATE/bearch_TEMPLATE.c b/ir/be/TEMPLATE/bearch_TEMPLATE.c index 2e80f092b..c0e7f56ec 100644 --- a/ir/be/TEMPLATE/bearch_TEMPLATE.c +++ b/ir/be/TEMPLATE/bearch_TEMPLATE.c @@ -55,7 +55,7 @@ DEBUG_ONLY(static firm_dbg_module_t *dbg = NULL;) static arch_irn_class_t TEMPLATE_classify(const ir_node *irn) { (void) irn; - return 0; + return arch_irn_class_none; } static ir_entity *TEMPLATE_get_frame_entity(const ir_node *node) @@ -85,7 +85,6 @@ static int TEMPLATE_get_sp_bias(const ir_node *irn) /* fill register allocator interface */ static const arch_irn_ops_t TEMPLATE_irn_ops = { - get_TEMPLATE_in_req, TEMPLATE_classify, TEMPLATE_get_frame_entity, TEMPLATE_set_frame_offset, @@ -102,12 +101,10 @@ static const arch_irn_ops_t TEMPLATE_irn_ops = { * Transforms the standard firm graph into * a TEMLPATE firm graph */ -static void TEMPLATE_prepare_graph(void *self) +static void TEMPLATE_prepare_graph(ir_graph *irg) { - TEMPLATE_code_gen_t *cg = self; - /* transform nodes into assembler instructions */ - TEMPLATE_transform_graph(cg); + TEMPLATE_transform_graph(irg); } @@ -115,81 +112,42 @@ static void TEMPLATE_prepare_graph(void *self) /** * Called immediatly before emit phase. */ -static void TEMPLATE_finish_irg(void *self) +static void TEMPLATE_finish_irg(ir_graph *irg) { - (void) self; + (void) irg; } -static void TEMPLATE_before_ra(void *self) +static void TEMPLATE_before_ra(ir_graph *irg) { - (void) self; + (void) irg; /* Some stuff you need to do after scheduling but before register allocation */ } -static void TEMPLATE_after_ra(void *self) +static void TEMPLATE_after_ra(ir_graph *irg) { - (void) self; + (void) irg; /* Some stuff you need to do immediatly after register allocation */ } - - -/** - * Emits the code, closes the output file and frees - * the code generator interface. - */ -static void TEMPLATE_emit_and_done(void *self) +static void TEMPLATE_init_graph(ir_graph *irg) { - TEMPLATE_code_gen_t *cg = self; - ir_graph *irg = cg->irg; - - TEMPLATE_emit_routine(irg); - - /* de-allocate code generator */ - free(cg); + (void) irg; } -static void *TEMPLATE_cg_init(ir_graph *irg); -static const arch_code_generator_if_t TEMPLATE_code_gen_if = { - TEMPLATE_cg_init, - NULL, /* get_pic_base hook */ - NULL, /* before abi introduce hook */ - TEMPLATE_prepare_graph, - NULL, /* spill hook */ - TEMPLATE_before_ra, /* before register allocation hook */ - TEMPLATE_after_ra, /* after register allocation hook */ - TEMPLATE_finish_irg, - TEMPLATE_emit_and_done -}; - -/** - * Initializes the code generator. - */ -static void *TEMPLATE_cg_init(ir_graph *irg) -{ - const arch_env_t *arch_env = be_get_irg_arch_env(irg); - TEMPLATE_isa_t *isa = (TEMPLATE_isa_t *) arch_env; - TEMPLATE_code_gen_t *cg = XMALLOC(TEMPLATE_code_gen_t); - - cg->impl = &TEMPLATE_code_gen_if; - cg->irg = irg; - cg->isa = isa; - return (arch_code_generator_t *)cg; -} - - - -const arch_isa_if_t TEMPLATE_isa_if; +extern const arch_isa_if_t TEMPLATE_isa_if; static TEMPLATE_isa_t TEMPLATE_isa_template = { { &TEMPLATE_isa_if, /* isa interface implementation */ - &TEMPLATE_gp_regs[REG_SP], /* stack pointer register */ - &TEMPLATE_gp_regs[REG_BP], /* base pointer register */ + N_TEMPLATE_REGISTERS, + TEMPLATE_registers, + N_TEMPLATE_CLASSES, + TEMPLATE_reg_classes, + &TEMPLATE_registers[REG_SP], /* stack pointer register */ + &TEMPLATE_registers[REG_BP], /* base pointer register */ &TEMPLATE_reg_classes[CLASS_TEMPLATE_gp], /* link pointer register class */ - -1, /* stack direction */ 2, /* power of two stack alignment for calls, 2^2 == 4 */ NULL, /* main environment */ 7, /* costs for a spill instruction */ @@ -203,15 +161,8 @@ static TEMPLATE_isa_t TEMPLATE_isa_template = { */ static arch_env_t *TEMPLATE_init(FILE *outfile) { - static int run_once = 0; - TEMPLATE_isa_t *isa; - - if (run_once) - return NULL; - run_once = 1; - - isa = XMALLOC(TEMPLATE_isa_t); - memcpy(isa, &TEMPLATE_isa_template, sizeof(*isa)); + TEMPLATE_isa_t *isa = XMALLOC(TEMPLATE_isa_t); + *isa = TEMPLATE_isa_template; be_emit_init(outfile); @@ -221,14 +172,12 @@ static arch_env_t *TEMPLATE_init(FILE *outfile) return &isa->base; } - - /** * Closes the output file and frees the ISA structure. */ static void TEMPLATE_done(void *self) { - TEMPLATE_isa_t *isa = self; + TEMPLATE_isa_t *isa = (TEMPLATE_isa_t*)self; /* emit now all global declarations */ be_gas_emit_decls(isa->base.main_env); @@ -237,20 +186,6 @@ static void TEMPLATE_done(void *self) free(self); } - -static unsigned TEMPLATE_get_n_reg_class(void) -{ - return N_CLASSES; -} - -static const arch_register_class_t *TEMPLATE_get_reg_class(unsigned i) -{ - assert(i < N_CLASSES); - return &TEMPLATE_reg_classes[i]; -} - - - /** * Get the register class which shall be used to store a value of a given mode. * @param self The this pointer. @@ -265,32 +200,16 @@ static const arch_register_class_t *TEMPLATE_get_reg_class_for_mode(const ir_mod return &TEMPLATE_reg_classes[CLASS_TEMPLATE_gp]; } - - -typedef struct { - be_abi_call_flags_bits_t flags; - ir_graph *irg; -} TEMPLATE_abi_env_t; - -static void *TEMPLATE_abi_init(const be_abi_call_t *call, ir_graph *irg) -{ - TEMPLATE_abi_env_t *env = XMALLOC(TEMPLATE_abi_env_t); - be_abi_call_flags_t fl = be_abi_call_get_flags(call); - env->flags = fl.bits; - env->irg = irg; - return env; -} - /** * Get the between type for that call. * @param self The callback object. * @return The between type of for that call. */ -static ir_type *TEMPLATE_get_between_type(void *self) +static ir_type *TEMPLATE_get_between_type(ir_graph *irg) { static ir_type *between_type = NULL; static ir_entity *old_bp_ent = NULL; - (void) self; + (void) irg; if (!between_type) { ir_entity *ret_addr_ent; @@ -309,39 +228,8 @@ static ir_type *TEMPLATE_get_between_type(void *self) return between_type; } -/** - * Build the prolog, return the BASE POINTER register - */ -static const arch_register_t *TEMPLATE_abi_prologue(void *self, ir_node **mem, - pmap *reg_map, int *stack_bias) -{ - TEMPLATE_abi_env_t *env = self; - const arch_env_t *arch_env = be_get_irg_arch_env(env->irg); - (void) reg_map; - (void) mem; - (void) stack_bias; - - if (env->flags.try_omit_fp) - return arch_env->sp; - return arch_env->bp; -} - -/* Build the epilog */ -static void TEMPLATE_abi_epilogue(void *self, ir_node *bl, ir_node **mem, - pmap *reg_map) -{ - (void) self; - (void) bl; - (void) mem; - (void) reg_map; -} - static const be_abi_callbacks_t TEMPLATE_abi_callbacks = { - TEMPLATE_abi_init, - free, TEMPLATE_get_between_type, - TEMPLATE_abi_prologue, - TEMPLATE_abi_epilogue, }; /** @@ -360,7 +248,6 @@ static void TEMPLATE_get_call_abi(const void *self, ir_type *method_type, (void) self; /* set abi flags for calls */ - call_flags.bits.left_to_right = 0; call_flags.bits.store_args_sequential = 1; call_flags.bits.try_omit_fp = 1; call_flags.bits.fp_free = 0; @@ -387,53 +274,10 @@ static void TEMPLATE_get_call_abi(const void *self, ir_type *method_type, mode = get_type_mode(tp); be_abi_call_res_reg(abi, 0, - mode_is_float(mode) ? &TEMPLATE_fp_regs[REG_F0] : &TEMPLATE_gp_regs[REG_R0], ABI_CONTEXT_BOTH); + mode_is_float(mode) ? &TEMPLATE_registers[REG_F0] : &TEMPLATE_registers[REG_R0], ABI_CONTEXT_BOTH); } } -static int TEMPLATE_to_appear_in_schedule(void *block_env, const ir_node *irn) -{ - (void) block_env; - - if (!is_TEMPLATE_irn(irn)) - return -1; - - return 1; -} - -/** - * Initializes the code generator interface. - */ -static const arch_code_generator_if_t *TEMPLATE_get_code_generator_if( - void *self) -{ - (void) self; - return &TEMPLATE_code_gen_if; -} - -list_sched_selector_t TEMPLATE_sched_selector; - -/** - * Returns the reg_pressure scheduler with to_appear_in_schedule() overloaded - */ -static const list_sched_selector_t *TEMPLATE_get_list_sched_selector( - const void *self, list_sched_selector_t *selector) -{ - (void) self; - (void) selector; - - TEMPLATE_sched_selector = trivial_selector; - TEMPLATE_sched_selector.to_appear_in_schedule = TEMPLATE_to_appear_in_schedule; - return &TEMPLATE_sched_selector; -} - -static const ilp_sched_selector_t *TEMPLATE_get_ilp_sched_selector( - const void *self) -{ - (void) self; - return NULL; -} - /** * Returns the necessary byte alignment for storing a register of given class. */ @@ -445,6 +289,25 @@ static int TEMPLATE_get_reg_class_alignment(const arch_register_class_t *cls) static void TEMPLATE_lower_for_target(void) { + lower_params_t params = { + 4, /* def_ptr_alignment */ + LF_COMPOUND_RETURN | LF_RETURN_HIDDEN, /* flags */ + ADD_HIDDEN_ALWAYS_IN_FRONT, /* hidden_params */ + NULL, /* find pointer type */ + NULL, /* ret_compound_in_regs */ + }; + + /* lower compound param handling */ + lower_calls_with_compounds(¶ms); +} + +static int TEMPLATE_is_mux_allowed(ir_node *sel, ir_node *mux_false, + ir_node *mux_true) +{ + (void) sel; + (void) mux_false; + (void) mux_true; + return false; } /** @@ -455,10 +318,12 @@ static const backend_params *TEMPLATE_get_backend_params(void) static backend_params p = { 0, /* no inline assembly */ 0, /* no support for Rotl nodes */ - TEMPLATE_lower_for_target, /* lowering for target */ + 0, /* 0: little-endian, 1: big-endian */ NULL, /* architecture dependent settings, will be set later */ - NULL, /* parameter for if conversion */ + TEMPLATE_is_mux_allowed, /* parameter for if conversion */ + 32, /* machine size - a 32bit CPU */ NULL, /* float arithmetic mode */ + 0, /* size of long double */ 0, /* no trampoline support: size 0 */ 0, /* no trampoline support: align 0 */ NULL, /* no trampoline support: no trampoline builder */ @@ -467,21 +332,6 @@ static const backend_params *TEMPLATE_get_backend_params(void) return &p; } -static const be_execution_unit_t ***TEMPLATE_get_allowed_execution_units( - const ir_node *irn) -{ - (void) irn; - /* TODO */ - return NULL; -} - -static const be_machine_t *TEMPLATE_get_machine(const void *self) -{ - (void) self; - /* TODO */ - return NULL; -} - static ir_graph **TEMPLATE_get_backend_irg_list(const void *self, ir_graph ***irgs) { @@ -502,28 +352,76 @@ static int TEMPLATE_is_valid_clobber(const char *clobber) return 0; } +/** + * Check if the given register is callee or caller save. + */ +static int TEMPLATE_register_saved_by(const arch_register_t *reg, int callee) +{ + if (callee) { + /* check for callee saved */ + if (reg->reg_class == &TEMPLATE_reg_classes[CLASS_TEMPLATE_gp]) { + switch (reg->index) { + case REG_GP_R7: + case REG_GP_R8: + case REG_GP_R9: + case REG_GP_R10: + case REG_GP_R11: + case REG_GP_R12: + case REG_GP_R13: + return 1; + default: + return 0; + } + } + } else { + /* check for caller saved */ + if (reg->reg_class == &TEMPLATE_reg_classes[CLASS_TEMPLATE_gp]) { + switch (reg->index) { + case REG_GP_R0: + case REG_GP_R1: + case REG_GP_R2: + case REG_GP_R3: + case REG_GP_R4: + case REG_GP_R5: + case REG_GP_R6: + return 1; + default: + return 0; + } + } else if (reg->reg_class == &TEMPLATE_reg_classes[CLASS_TEMPLATE_fp]) { + /* all FP registers are caller save */ + return 1; + } + } + return 0; +} + const arch_isa_if_t TEMPLATE_isa_if = { TEMPLATE_init, + TEMPLATE_lower_for_target, TEMPLATE_done, NULL, /* handle intrinsics */ - TEMPLATE_get_n_reg_class, - TEMPLATE_get_reg_class, TEMPLATE_get_reg_class_for_mode, TEMPLATE_get_call_abi, - TEMPLATE_get_code_generator_if, - TEMPLATE_get_list_sched_selector, - TEMPLATE_get_ilp_sched_selector, TEMPLATE_get_reg_class_alignment, TEMPLATE_get_backend_params, - TEMPLATE_get_allowed_execution_units, - TEMPLATE_get_machine, TEMPLATE_get_backend_irg_list, NULL, /* mark remat */ TEMPLATE_parse_asm_constraint, - TEMPLATE_is_valid_clobber + TEMPLATE_is_valid_clobber, + + TEMPLATE_init_graph, + NULL, /* get_pic_base */ + NULL, /* before_abi */ + TEMPLATE_prepare_graph, + TEMPLATE_before_ra, + TEMPLATE_after_ra, + TEMPLATE_finish_irg, + TEMPLATE_emit_routine, + TEMPLATE_register_saved_by, }; -BE_REGISTER_MODULE_CONSTRUCTOR(be_init_arch_TEMPLATE); +BE_REGISTER_MODULE_CONSTRUCTOR(be_init_arch_TEMPLATE) void be_init_arch_TEMPLATE(void) { be_register_isa_if("TEMPLATE", &TEMPLATE_isa_if);