X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fsparc%2Fbearch_sparc.c;h=fa424b5063d795a55dc27ed1713ab17ad9bc2dba;hb=0c2e8bedc56cb9dba9b2544927a8093ddb7ee614;hp=6e6282f9a039ee9919037fbd134b4c6608293bd2;hpb=ad9464a5db0b98cb926aae609abe84db70b74291;p=libfirm diff --git a/ir/be/sparc/bearch_sparc.c b/ir/be/sparc/bearch_sparc.c index 6e6282f9a..fa424b506 100644 --- a/ir/be/sparc/bearch_sparc.c +++ b/ir/be/sparc/bearch_sparc.c @@ -20,6 +20,7 @@ /** * @file * @brief The main sparc backend driver file. + * @author Hannes Rapp, Matthias Braun * @version $Id$ */ #include "config.h" @@ -37,6 +38,7 @@ #include "irtools.h" #include "irdump.h" #include "lowering.h" +#include "lower_dw.h" #include "bitset.h" #include "debug.h" @@ -50,7 +52,6 @@ #include "../besched.h" #include "be.h" #include "../bemachine.h" -#include "../beilpsched.h" #include "../bemodule.h" #include "../beirg.h" #include "../bespillslots.h" @@ -70,7 +71,7 @@ DEBUG_ONLY(static firm_dbg_module_t *dbg = NULL;) static arch_irn_class_t sparc_classify(const ir_node *node) { (void) node; - return 0; + return arch_irn_class_none; } static ir_entity *sparc_get_frame_entity(const ir_node *node) @@ -108,19 +109,24 @@ static void sparc_set_frame_offset(ir_node *node, int offset) static int sparc_get_sp_bias(const ir_node *node) { if (is_sparc_Save(node)) { - const sparc_save_attr_t *attr = get_sparc_save_attr_const(node); - /* Note we do not retport the change of the SPARC_MIN_STACKSIZE + const sparc_attr_t *attr = get_sparc_attr_const(node); + if (get_irn_arity(node) == 3) + panic("no support for _reg variant yet"); + + /* Note we do not report the change of the SPARC_MIN_STACKSIZE * size, since we have additional magic in the emitter which * calculates that! */ - assert(attr->initial_stacksize >= SPARC_MIN_STACKSIZE); - return attr->initial_stacksize - SPARC_MIN_STACKSIZE; + assert(attr->immediate_value <= -SPARC_MIN_STACKSIZE); + return attr->immediate_value + SPARC_MIN_STACKSIZE; + } else if (is_sparc_RestoreZero(node)) { + return SP_BIAS_RESET; } return 0; } /* fill register allocator interface */ -static const arch_irn_ops_t sparc_irn_ops = { +const arch_irn_ops_t sparc_irn_ops = { sparc_classify, sparc_get_frame_entity, sparc_set_frame_offset, @@ -166,8 +172,8 @@ static void transform_Reload(ir_node *node) { ir_node *block = get_nodes_block(node); dbg_info *dbgi = get_irn_dbg_info(node); - ir_node *ptr = get_irn_n(node, be_pos_Spill_frame); - ir_node *mem = get_irn_n(node, be_pos_Reload_mem); + ir_node *ptr = get_irn_n(node, n_be_Spill_frame); + ir_node *mem = get_irn_n(node, n_be_Reload_mem); ir_mode *mode = get_irn_mode(node); ir_entity *entity = be_get_frame_entity(node); const arch_register_t *reg; @@ -195,9 +201,10 @@ static void transform_Spill(ir_node *node) { ir_node *block = get_nodes_block(node); dbg_info *dbgi = get_irn_dbg_info(node); - ir_node *ptr = get_irn_n(node, be_pos_Spill_frame); - ir_node *mem = new_NoMem(); - ir_node *val = get_irn_n(node, be_pos_Spill_val); + ir_node *ptr = get_irn_n(node, n_be_Spill_frame); + ir_graph *irg = get_irn_irg(node); + ir_node *mem = get_irg_no_mem(irg); + ir_node *val = get_irn_n(node, n_be_Spill_val); ir_mode *mode = get_irn_mode(val); ir_entity *entity = be_get_frame_entity(node); ir_node *sched_point; @@ -232,7 +239,7 @@ static void sparc_after_ra_walker(ir_node *block, void *data) static void sparc_collect_frame_entity_nodes(ir_node *node, void *data) { - be_fec_env_t *env = data; + be_fec_env_t *env = (be_fec_env_t*)data; const ir_mode *mode; int align; ir_entity *entity; @@ -277,13 +284,17 @@ static void sparc_set_frame_entity(ir_node *node, ir_entity *entity) static void sparc_after_ra(ir_graph *irg) { - be_fec_env_t *fec_env = be_new_frame_entity_coalescer(irg); + be_stack_layout_t *stack_layout = be_get_irg_stack_layout(irg); + bool at_begin = stack_layout->sp_relative ? true : false; + be_fec_env_t *fec_env = be_new_frame_entity_coalescer(irg); irg_walk_graph(irg, NULL, sparc_collect_frame_entity_nodes, fec_env); - be_assign_entities(fec_env, sparc_set_frame_entity); + be_assign_entities(fec_env, sparc_set_frame_entity, at_begin); be_free_frame_entity_coalescer(fec_env); irg_block_walk_graph(irg, NULL, sparc_after_ra_walker, NULL); + + sparc_introduce_prolog_epilog(irg); } static void sparc_init_graph(ir_graph *irg) @@ -291,14 +302,17 @@ static void sparc_init_graph(ir_graph *irg) (void) irg; } -const arch_isa_if_t sparc_isa_if; +extern const arch_isa_if_t sparc_isa_if; static sparc_isa_t sparc_isa_template = { { &sparc_isa_if, /* isa interface implementation */ - &sparc_gp_regs[REG_SP], /* stack pointer register */ - &sparc_gp_regs[REG_FRAME_POINTER], /* base pointer register */ + N_SPARC_REGISTERS, + sparc_registers, + N_SPARC_CLASSES, + sparc_reg_classes, + &sparc_registers[REG_SP], /* stack pointer register */ + &sparc_registers[REG_FRAME_POINTER],/* base pointer register */ &sparc_reg_classes[CLASS_sparc_gp], /* link pointer register class */ - -1, /* stack direction */ 3, /* power of two stack alignment for calls */ NULL, /* main environment */ @@ -328,28 +342,28 @@ static void rewrite_unsigned_float_Conv(ir_node *node) part_block(node); { - ir_node *block = get_nodes_block(node); - ir_node *unsigned_x = get_Conv_op(node); - ir_mode *mode_u = get_irn_mode(unsigned_x); - ir_mode *mode_s = find_signed_mode(mode_u); - ir_mode *mode_d = mode_D; - ir_node *signed_x = new_rd_Conv(dbgi, block, unsigned_x, mode_s); - ir_node *res = new_rd_Conv(dbgi, block, signed_x, mode_d); - ir_node *zero = new_r_Const(irg, get_mode_null(mode_s)); - ir_node *cmp = new_rd_Cmp(dbgi, block, signed_x, zero); - ir_node *proj_lt = new_r_Proj(cmp, mode_b, pn_Cmp_Lt); - ir_node *cond = new_rd_Cond(dbgi, block, proj_lt); - ir_node *proj_true = new_r_Proj(cond, mode_X, pn_Cond_true); - ir_node *proj_false = new_r_Proj(cond, mode_X, pn_Cond_false); - ir_node *in_true[1] = { proj_true }; - ir_node *in_false[1] = { proj_false }; - ir_node *true_block = new_r_Block(irg, ARRAY_SIZE(in_true), in_true); - ir_node *false_block = new_r_Block(irg, ARRAY_SIZE(in_false),in_false); - ir_node *true_jmp = new_r_Jmp(true_block); - ir_node *false_jmp = new_r_Jmp(false_block); - tarval *correction = new_tarval_from_double(4294967296., mode_d); - ir_node *c_const = new_r_Const(irg, correction); - ir_node *fadd = new_rd_Add(dbgi, true_block, res, c_const, + ir_node *block = get_nodes_block(node); + ir_node *unsigned_x = get_Conv_op(node); + ir_mode *mode_u = get_irn_mode(unsigned_x); + ir_mode *mode_s = find_signed_mode(mode_u); + ir_mode *mode_d = mode_D; + ir_node *signed_x = new_rd_Conv(dbgi, block, unsigned_x, mode_s); + ir_node *res = new_rd_Conv(dbgi, block, signed_x, mode_d); + ir_node *zero = new_r_Const(irg, get_mode_null(mode_s)); + ir_node *cmp = new_rd_Cmp(dbgi, block, signed_x, zero, + ir_relation_less); + ir_node *cond = new_rd_Cond(dbgi, block, cmp); + ir_node *proj_true = new_r_Proj(cond, mode_X, pn_Cond_true); + ir_node *proj_false = new_r_Proj(cond, mode_X, pn_Cond_false); + ir_node *in_true[1] = { proj_true }; + ir_node *in_false[1] = { proj_false }; + ir_node *true_block = new_r_Block(irg, ARRAY_SIZE(in_true), in_true); + ir_node *false_block = new_r_Block(irg, ARRAY_SIZE(in_false),in_false); + ir_node *true_jmp = new_r_Jmp(true_block); + ir_node *false_jmp = new_r_Jmp(false_block); + ir_tarval *correction = new_tarval_from_double(4294967296., mode_d); + ir_node *c_const = new_r_Const(irg, correction); + ir_node *fadd = new_rd_Add(dbgi, true_block, res, c_const, mode_d); ir_node *lower_in[2] = { true_jmp, false_jmp }; @@ -372,10 +386,10 @@ static void rewrite_unsigned_float_Conv(ir_node *node) static int sparc_rewrite_Conv(ir_node *node, void *ctx) { - (void) ctx; ir_mode *to_mode = get_irn_mode(node); ir_node *op = get_Conv_op(node); ir_mode *from_mode = get_irn_mode(op); + (void) ctx; if (mode_is_float(to_mode) && mode_is_int(from_mode) && get_mode_size_bits(from_mode) == 32 @@ -424,7 +438,6 @@ static void sparc_handle_intrinsics(void) rt_iMod.mem_proj_nr = pn_Mod_M; rt_iMod.regular_proj_nr = pn_Mod_X_regular; rt_iMod.exc_proj_nr = pn_Mod_X_except; - rt_iMod.exc_mem_proj_nr = pn_Mod_M; rt_iMod.res_proj_nr = pn_Mod_res; set_entity_visibility(rt_iMod.ent, ir_visibility_external); @@ -450,7 +463,6 @@ static void sparc_handle_intrinsics(void) rt_uMod.mem_proj_nr = pn_Mod_M; rt_uMod.regular_proj_nr = pn_Mod_X_regular; rt_uMod.exc_proj_nr = pn_Mod_X_except; - rt_uMod.exc_mem_proj_nr = pn_Mod_M; rt_uMod.res_proj_nr = pn_Mod_res; set_entity_visibility(rt_uMod.ent, ir_visibility_external); @@ -470,15 +482,8 @@ static void sparc_handle_intrinsics(void) */ static arch_env_t *sparc_init(FILE *outfile) { - static int run_once = 0; - sparc_isa_t *isa; - - if (run_once) - return NULL; - run_once = 1; - - isa = XMALLOC(sparc_isa_t); - memcpy(isa, &sparc_isa_template, sizeof(*isa)); + sparc_isa_t *isa = XMALLOC(sparc_isa_t); + *isa = sparc_isa_template; isa->constants = pmap_create(); be_emit_init(outfile); @@ -495,7 +500,7 @@ static arch_env_t *sparc_init(FILE *outfile) */ static void sparc_done(void *self) { - sparc_isa_t *isa = self; + sparc_isa_t *isa = (sparc_isa_t*)self; /* emit now all global declarations */ be_gas_emit_decls(isa->base.main_env); @@ -505,18 +510,6 @@ static void sparc_done(void *self) free(isa); } -static unsigned sparc_get_n_reg_class(void) -{ - return N_CLASSES; -} - -static const arch_register_class_t *sparc_get_reg_class(unsigned i) -{ - assert(i < N_CLASSES); - return &sparc_reg_classes[i]; -} - - /** * Get the register class which shall be used to store a value of a given mode. @@ -532,39 +525,6 @@ static const arch_register_class_t *sparc_get_reg_class_for_mode(const ir_mode * return &sparc_reg_classes[CLASS_sparc_gp]; } -static int sparc_to_appear_in_schedule(void *block_env, const ir_node *irn) -{ - (void) block_env; - - if (!is_sparc_irn(irn)) - return -1; - - return 1; -} - -list_sched_selector_t sparc_sched_selector; - -/** - * Returns the reg_pressure scheduler with to_appear_in_schedule() overloaded - */ -static const list_sched_selector_t *sparc_get_list_sched_selector( - const void *self, list_sched_selector_t *selector) -{ - (void) self; - (void) selector; - - sparc_sched_selector = trivial_selector; - sparc_sched_selector.to_appear_in_schedule = sparc_to_appear_in_schedule; - return &sparc_sched_selector; -} - -static const ilp_sched_selector_t *sparc_get_ilp_sched_selector( - const void *self) -{ - (void) self; - return NULL; -} - /** * Returns the necessary byte alignment for storing a register of given class. */ @@ -574,19 +534,54 @@ static int sparc_get_reg_class_alignment(const arch_register_class_t *cls) return get_mode_size_bytes(mode); } +static ir_node *sparc_create_set(ir_node *cond) +{ + return ir_create_cond_set(cond, mode_Iu); +} + static void sparc_lower_for_target(void) { - int i; - int n_irgs = get_irp_n_irgs(); + size_t i, n_irgs = get_irp_n_irgs(); + lower_mode_b_config_t lower_mode_b_config = { + mode_Iu, + sparc_create_set, + 0, + }; + 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_calls_with_compounds(¶ms); - /* TODO, doubleword lowering and others */ + sparc_lower_64bit(); for (i = 0; i < n_irgs; ++i) { ir_graph *irg = get_irp_irg(i); - lower_switch(irg, 256, false); + ir_lower_mode_b(irg, &lower_mode_b_config); + lower_switch(irg, 4, 256, false); } } +static int sparc_is_mux_allowed(ir_node *sel, ir_node *mux_false, + ir_node *mux_true) +{ + ir_graph *irg = get_irn_irg(sel); + ir_mode *mode = get_irn_mode(mux_true); + + if (get_irg_phase_state(irg) == phase_low) + return false; + + if (!mode_is_int(mode) && !mode_is_reference(mode) && mode != mode_b) + return false; + if (is_Const(mux_true) && is_Const_one(mux_true) && + is_Const(mux_false) && is_Const_null(mux_false)) + return true; + return false; +} + /** * Returns the libFirm configuration parameter for this backend. */ @@ -605,10 +600,11 @@ static const backend_params *sparc_get_backend_params(void) 0, /* no inline assembly */ 0, /* no support for RotL nodes */ 1, /* big endian */ - sparc_lower_for_target, /* lowering callback */ &arch_dep, /* will be set later */ - NULL, /* parameter for if conversion */ + sparc_is_mux_allowed, /* parameter for if conversion */ + 32, /* machine size */ NULL, /* float arithmetic mode */ + 128, /* size of long double */ 0, /* no trampoline support: size 0 */ 0, /* no trampoline support: align 0 */ NULL, /* no trampoline support: no trampoline builder */ @@ -617,21 +613,6 @@ static const backend_params *sparc_get_backend_params(void) return &p; } -static const be_execution_unit_t ***sparc_get_allowed_execution_units( - const ir_node *irn) -{ - (void) irn; - /* TODO */ - panic("sparc_get_allowed_execution_units not implemented yet"); -} - -static const be_machine_t *sparc_get_machine(const void *self) -{ - (void) self; - /* TODO */ - panic("sparc_get_machine not implemented yet"); -} - static ir_graph **sparc_get_backend_irg_list(const void *self, ir_graph ***irgs) { @@ -654,18 +635,13 @@ static int sparc_is_valid_clobber(const char *clobber) const arch_isa_if_t sparc_isa_if = { sparc_init, + sparc_lower_for_target, sparc_done, NULL, /* handle intrinsics */ - sparc_get_n_reg_class, - sparc_get_reg_class, sparc_get_reg_class_for_mode, NULL, - sparc_get_list_sched_selector, - sparc_get_ilp_sched_selector, sparc_get_reg_class_alignment, sparc_get_backend_params, - sparc_get_allowed_execution_units, - sparc_get_machine, sparc_get_backend_irg_list, NULL, /* mark remat */ sparc_parse_asm_constraint, @@ -677,11 +653,12 @@ const arch_isa_if_t sparc_isa_if = { sparc_prepare_graph, sparc_before_ra, sparc_after_ra, - NULL, /* finish */ + sparc_finish, sparc_emit_routine, + NULL, /* register_saved_by */ }; -BE_REGISTER_MODULE_CONSTRUCTOR(be_init_arch_sparc); +BE_REGISTER_MODULE_CONSTRUCTOR(be_init_arch_sparc) void be_init_arch_sparc(void) { be_register_isa_if("sparc", &sparc_isa_if);