X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2FTEMPLATE%2Fbearch_TEMPLATE.c;h=d988b36af3fe67189338feb5545c746e1d3541b8;hb=df2faee01a5832057bb3ca0ba5f67e979c916e19;hp=8ace938a4c8b5918fcdb2c3f996ba2a5c96f4aa9;hpb=d9ebcc506768b24fb6378dc7cae91002be410eec;p=libfirm diff --git a/ir/be/TEMPLATE/bearch_TEMPLATE.c b/ir/be/TEMPLATE/bearch_TEMPLATE.c index 8ace938a4..d988b36af 100644 --- a/ir/be/TEMPLATE/bearch_TEMPLATE.c +++ b/ir/be/TEMPLATE/bearch_TEMPLATE.c @@ -20,30 +20,33 @@ /** * @file * @brief The main TEMPLATE backend driver file. - * @version $Id$ */ #include "config.h" +#include "bearch_TEMPLATE_t.h" + #include "irgwalk.h" #include "irprog.h" #include "irprintf.h" #include "ircons.h" #include "irgmod.h" +#include "lower_calls.h" +#include "lower_builtins.h" #include "bitset.h" #include "debug.h" -#include "be.h" -#include "../bearch.h" -#include "../benode.h" -#include "../belower.h" -#include "../besched.h" -#include "../beabi.h" -#include "../bemodule.h" -#include "../begnuas.h" -#include "../belistsched.h" - -#include "bearch_TEMPLATE_t.h" +#include "be_t.h" +#include "bearch.h" +#include "benode.h" +#include "belower.h" +#include "besched.h" +#include "beabi.h" +#include "bemodule.h" +#include "begnuas.h" +#include "belistsched.h" +#include "bestack.h" +#include "bespillutil.h" #include "TEMPLATE_new_nodes.h" #include "gen_TEMPLATE_regalloc_if.h" @@ -52,12 +55,6 @@ DEBUG_ONLY(static firm_dbg_module_t *dbg = NULL;) -static arch_irn_class_t TEMPLATE_classify(const ir_node *irn) -{ - (void) irn; - return arch_irn_class_none; -} - static ir_entity *TEMPLATE_get_frame_entity(const ir_node *node) { (void) node; @@ -85,11 +82,9 @@ static int TEMPLATE_get_sp_bias(const ir_node *irn) /* fill register allocator interface */ static const arch_irn_ops_t TEMPLATE_irn_ops = { - TEMPLATE_classify, TEMPLATE_get_frame_entity, TEMPLATE_set_frame_offset, TEMPLATE_get_sp_bias, - NULL, /* get_inverse */ NULL, /* get_op_estimated_cost */ NULL, /* possible_memory_operand */ NULL, /* perform_memory_operand */ @@ -114,7 +109,9 @@ static void TEMPLATE_prepare_graph(ir_graph *irg) */ static void TEMPLATE_finish_irg(ir_graph *irg) { - (void) irg; + /* fix stack entity offsets */ + be_abi_fix_stack_nodes(irg); + be_abi_fix_stack_bias(irg); } @@ -124,12 +121,6 @@ static void TEMPLATE_before_ra(ir_graph *irg) /* Some stuff you need to do after scheduling but before register allocation */ } -static void TEMPLATE_after_ra(ir_graph *irg) -{ - (void) irg; - /* Some stuff you need to do immediatly after register allocation */ -} - static void TEMPLATE_init_graph(ir_graph *irg) { (void) irg; @@ -140,81 +131,45 @@ static void TEMPLATE_init_graph(ir_graph *irg) extern const arch_isa_if_t TEMPLATE_isa_if; static TEMPLATE_isa_t TEMPLATE_isa_template = { { - &TEMPLATE_isa_if, /* isa interface implementation */ + &TEMPLATE_isa_if, /* isa interface implementation */ 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 */ + &TEMPLATE_registers[REG_SP], /* stack pointer register */ + &TEMPLATE_registers[REG_BP], /* base pointer register */ 2, /* power of two stack alignment for calls, 2^2 == 4 */ - NULL, /* main environment */ 7, /* costs for a spill instruction */ 5, /* costs for a reload instruction */ - false, /* no custom abi handling */ + true, /* custom abi handling */ }, }; -/** - * Initializes the backend ISA - */ -static arch_env_t *TEMPLATE_init(FILE *outfile) +static void TEMPLATE_init(void) { - TEMPLATE_isa_t *isa = XMALLOC(TEMPLATE_isa_t); - memcpy(isa, &TEMPLATE_isa_template, sizeof(*isa)); - - be_emit_init(outfile); - TEMPLATE_register_init(); TEMPLATE_create_opcodes(&TEMPLATE_irn_ops); - - return &isa->base; } -/** - * Closes the output file and frees the ISA structure. - */ -static void TEMPLATE_done(void *self) +static void TEMPLATE_finish(void) { - TEMPLATE_isa_t *isa = (TEMPLATE_isa_t*)self; + TEMPLATE_free_opcodes(); +} - /* emit now all global declarations */ - be_gas_emit_decls(isa->base.main_env); +static arch_env_t *TEMPLATE_begin_codegeneration(void) +{ + TEMPLATE_isa_t *isa = XMALLOC(TEMPLATE_isa_t); + *isa = TEMPLATE_isa_template; - be_emit_exit(); - free(self); + return &isa->base; } /** - * Get the register class which shall be used to store a value of a given mode. - * @param self The this pointer. - * @param mode The mode in question. - * @return A register class which can hold values of the given mode. + * Closes the output file and frees the ISA structure. */ -static const arch_register_class_t *TEMPLATE_get_reg_class_for_mode(const ir_mode *mode) +static void TEMPLATE_end_codegeneration(void *self) { - if (mode_is_float(mode)) - return &TEMPLATE_reg_classes[CLASS_TEMPLATE_fp]; - else - 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; + free(self); } /** @@ -222,11 +177,11 @@ static void *TEMPLATE_abi_init(const be_abi_call_t *call, ir_graph *irg) * @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; @@ -245,39 +200,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 = (TEMPLATE_abi_env_t*)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, }; /** @@ -286,23 +210,15 @@ static const be_abi_callbacks_t TEMPLATE_abi_callbacks = { * @param method_type The type of the method (procedure) in question. * @param abi The abi object to be modified */ -static void TEMPLATE_get_call_abi(const void *self, ir_type *method_type, - be_abi_call_t *abi) +static void TEMPLATE_get_call_abi(ir_type *method_type, be_abi_call_t *abi) { ir_type *tp; ir_mode *mode; int i, n = get_method_n_params(method_type); - be_abi_call_flags_t call_flags; - (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; - call_flags.bits.call_has_imm = 1; - - /* set stack parameter passing style */ + be_abi_call_flags_t call_flags = be_abi_call_get_flags(abi); + call_flags.call_has_imm = true; be_abi_call_set_flags(abi, call_flags, &TEMPLATE_abi_callbacks); for (i = 0; i < n; i++) { @@ -327,17 +243,12 @@ static void TEMPLATE_get_call_abi(const void *self, ir_type *method_type, } } -/** - * Returns the necessary byte alignment for storing a register of given class. - */ -static int TEMPLATE_get_reg_class_alignment(const arch_register_class_t *cls) -{ - ir_mode *mode = arch_register_class_mode(cls); - return get_mode_size_bytes(mode); -} - static void TEMPLATE_lower_for_target(void) { + lower_builtins(0, NULL); + + /* lower compound param handling */ + lower_calls_with_compounds(LF_RETURN_HIDDEN); } static int TEMPLATE_is_mux_allowed(ir_node *sel, ir_node *mux_false, @@ -358,10 +269,15 @@ static const backend_params *TEMPLATE_get_backend_params(void) 0, /* no inline assembly */ 0, /* no support for Rotl nodes */ 0, /* 0: little-endian, 1: big-endian */ - TEMPLATE_lower_for_target, /* lowering for target */ + 1, /* modulo shift efficient */ + 0, /* non-modulo shift efficient */ NULL, /* architecture dependent settings, will be set later */ TEMPLATE_is_mux_allowed, /* parameter for if conversion */ + 32, /* machine size - a 32bit CPU */ NULL, /* float arithmetic mode */ + NULL, /* long long type */ + NULL, /* unsigned long long type */ + NULL, /* long double type */ 0, /* no trampoline support: size 0 */ 0, /* no trampoline support: align 0 */ NULL, /* no trampoline support: no trampoline builder */ @@ -370,14 +286,6 @@ static const backend_params *TEMPLATE_get_backend_params(void) return &p; } -static ir_graph **TEMPLATE_get_backend_irg_list(const void *self, - ir_graph ***irgs) -{ - (void) self; - (void) irgs; - return NULL; -} - static asm_constraint_flags_t TEMPLATE_parse_asm_constraint(const char **c) { (void) c; @@ -390,30 +298,77 @@ 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_done, - NULL, /* handle intrinsics */ - TEMPLATE_get_reg_class_for_mode, - TEMPLATE_get_call_abi, - TEMPLATE_get_reg_class_alignment, + TEMPLATE_finish, TEMPLATE_get_backend_params, - TEMPLATE_get_backend_irg_list, - NULL, /* mark remat */ + TEMPLATE_lower_for_target, TEMPLATE_parse_asm_constraint, TEMPLATE_is_valid_clobber, + TEMPLATE_begin_codegeneration, + TEMPLATE_end_codegeneration, TEMPLATE_init_graph, - NULL, /* get_pic_base */ - NULL, /* before_abi */ + TEMPLATE_get_call_abi, + NULL, /* mark remat */ + NULL, /* get_pic_base */ + be_new_spill, + be_new_reload, + TEMPLATE_register_saved_by, + + NULL, /* handle intrinsics */ + NULL, /* before_abi */ TEMPLATE_prepare_graph, TEMPLATE_before_ra, - TEMPLATE_after_ra, TEMPLATE_finish_irg, TEMPLATE_emit_routine, }; -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);