X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Ffirm%2Fbearch_firm.c;h=1f8c290f630477cb9b5f1f3e68eb9b85a1329d6c;hb=03214ca29ad177e9d428806b442a6011f70ec6fc;hp=54212fb0dd43d6a35e2ef77cdf3dd4eeaadae627;hpb=6977acc37dcd9cb20658f3b8d368ec87de1a1b68;p=libfirm diff --git a/ir/be/firm/bearch_firm.c b/ir/be/firm/bearch_firm.c index 54212fb0d..1f8c290f6 100644 --- a/ir/be/firm/bearch_firm.c +++ b/ir/be/firm/bearch_firm.c @@ -21,9 +21,11 @@ #include "irgwalk.h" #include "type.h" +#include "../be_t.h" #include "../bearch.h" #include "../besched.h" #include "../beutil.h" +#include "../beabi.h" #define N_REGS 3 @@ -38,7 +40,7 @@ typedef struct { static arch_register_t datab_regs[N_REGS]; static arch_register_class_t reg_classes[] = { - { "datab", N_REGS, datab_regs }, + { "datab", N_REGS, NULL, datab_regs }, }; static ir_op *op_push; @@ -124,10 +126,10 @@ static void *firm_init(void) { static struct obstack obst; static int inited = 0; - arch_isa_t *isa = xmalloc(sizeof(*isa)); + arch_isa_t *isa = xmalloc(sizeof(*isa)); int k; - isa->impl = &firm_isa; + isa->impl = &firm_isa; if(inited) return NULL; @@ -136,9 +138,10 @@ static void *firm_init(void) obstack_init(&obst); for(k = 0; k < N_CLASSES; ++k) { - const arch_register_class_t *cls = ®_classes[k]; + arch_register_class_t *cls = ®_classes[k]; int i; + cls->mode = mode_Is; for(i = 0; i < cls->n_regs; ++i) { int n; char buf[8]; @@ -196,6 +199,57 @@ static const arch_register_class_t *firm_get_reg_class(const void *self, int i) return ®_classes[i]; } +static const arch_register_class_t *firm_get_reg_class_for_mode(const void *self, const ir_mode *irm) +{ + return mode_is_datab(irm) ? ®_classes[CLS_DATAB] : NULL; +} + +static ir_type *firm_abi_get_between_type(void *self) { + static ir_type *between_type = NULL; + + if(!between_type) { + between_type = new_type_class(new_id_from_str("firm_be_between")); + set_type_size_bytes(between_type, 0); + } + + return between_type; +} + +static const be_abi_callbacks_t firm_abi_callbacks = { + NULL, + NULL, + firm_abi_get_between_type, + NULL, + NULL, + NULL, +}; + +static void firm_get_call_abi(const void *self, ir_type *method_type, be_abi_call_t *abi) +{ + const arch_register_class_t *cls = ®_classes[CLS_DATAB]; + int i, n; + be_abi_call_flags_t flags = { { 0, 0, 0, 0, 0 } }; + + + for(i = 0, n = get_method_n_params(method_type); i < n; ++i) { + ir_type *t = get_method_param_type(method_type, i); + if(is_Primitive_type(t)) + be_abi_call_param_reg(abi, i, &cls->regs[i]); + else + be_abi_call_param_stack(abi, i, 1, 0, 0); + } + + for(i = 0, n = get_method_n_ress(method_type); i < n; ++i) { + ir_type *t = get_method_res_type(method_type, i); + if(is_Primitive_type(t)) + be_abi_call_res_reg(abi, i, &cls->regs[i]); + } + + flags.val = 0; + be_abi_call_set_flags(abi, flags, &firm_abi_callbacks); +} + + static const arch_register_req_t firm_std_reg_req = { arch_register_req_type_normal, ®_classes[CLS_DATAB], @@ -298,12 +352,23 @@ static arch_irn_flags_t firm_get_flags(const void *self, const ir_node *irn) return res; } +static void firm_set_stack_bias(const void *self, ir_node *irn, int bias) +{ +} + +static entity *firm_get_frame_entity(const void *self, const ir_node *irn) +{ + return NULL; +} + static const arch_irn_ops_if_t firm_irn_ops_if = { firm_get_irn_reg_req, firm_set_irn_reg, firm_get_irn_reg, firm_classify, - firm_get_flags + firm_get_flags, + firm_get_frame_entity, + firm_set_stack_bias }; static const arch_irn_ops_t firm_irn_ops = { @@ -493,8 +558,8 @@ static void firm_before_ra(void *self) irg_walk_graph(cg->irg, imm_scheduler, NULL, NULL); } -static const arch_register_t *firm_get_stack_register(void *self) { - return &datab_regs[0]; +static void firm_after_ra(void *self) +{ } static void firm_codegen_done(void *self) @@ -502,24 +567,23 @@ static void firm_codegen_done(void *self) free(self); } -static void *firm_cg_init(FILE *file_handle, ir_graph *irg, const arch_env_t *env); +static void *firm_cg_init(FILE *file_handle, const be_irg_t *birg); static const arch_code_generator_if_t firm_code_gen_if = { firm_cg_init, + NULL, firm_prepare_graph, firm_before_sched, firm_before_ra, - NULL, /* lower spill */ - NULL, /* lower reload */ - firm_get_stack_register, + firm_after_ra, firm_codegen_done }; -static void *firm_cg_init(FILE *file_handle, ir_graph *irg, const arch_env_t *env) +static void *firm_cg_init(FILE *file_handle, const be_irg_t *birg) { firm_code_gen_t *cg = xmalloc(sizeof(*cg)); cg->impl = &firm_code_gen_if; - cg->irg = irg; + cg->irg = birg->irg; return cg; } @@ -533,8 +597,12 @@ static const list_sched_selector_t *firm_get_list_sched_selector(const void *sel return trivial_selector; } -static long firm_handle_call_proj(const void *self, ir_node *proj, int is_keep) { - return get_Proj_proj(proj); +/** + * Returns the necessary byte alignment for storing a register of given class. + */ +static int firm_get_reg_class_alignment(const void *self, const arch_register_class_t *cls) { + ir_mode *mode = arch_register_class_mode(cls); + return get_mode_size_bytes(mode); } #ifdef WITH_LIBCORE @@ -544,15 +612,17 @@ static void firm_register_options(lc_opt_entry_t *ent) #endif const arch_isa_if_t firm_isa = { -#ifdef WITH_LIBCORE - firm_register_options, -#endif firm_init, firm_done, firm_get_n_reg_class, firm_get_reg_class, + firm_get_reg_class_for_mode, + firm_get_call_abi, firm_get_irn_handler, firm_get_code_generator_if, firm_get_list_sched_selector, - firm_handle_call_proj + firm_get_reg_class_alignment, +#ifdef WITH_LIBCORE + firm_register_options, +#endif };