X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fsparc%2Fbearch_sparc.c;h=9c2fef41d34f6b69422cbee87f03df0a5a6ecf85;hb=e8cf3d720aae749ac58d2da1c1f9aff3dccfa087;hp=4a24243386e0d290b869127fdb050b9fe07e91d9;hpb=8f4eae8e91e158a775828551f39a209e4e686b0d;p=libfirm diff --git a/ir/be/sparc/bearch_sparc.c b/ir/be/sparc/bearch_sparc.c index 4a2424338..9c2fef41d 100644 --- a/ir/be/sparc/bearch_sparc.c +++ b/ir/be/sparc/bearch_sparc.c @@ -37,9 +37,14 @@ #include "iroptimize.h" #include "irtools.h" #include "irdump.h" +#include "iropt_t.h" #include "lowering.h" #include "lower_dw.h" +#include "lower_alloc.h" +#include "lower_builtins.h" #include "lower_calls.h" +#include "lower_mode_b.h" +#include "lower_softfloat.h" #include "bitset.h" #include "debug.h" @@ -47,17 +52,18 @@ #include "error.h" #include "util.h" -#include "../bearch.h" -#include "../benode.h" -#include "../belower.h" -#include "../besched.h" +#include "bearch.h" +#include "benode.h" +#include "belower.h" +#include "besched.h" #include "be.h" -#include "../bemachine.h" -#include "../bemodule.h" -#include "../beirg.h" -#include "../begnuas.h" -#include "../belistsched.h" -#include "../beflags.h" +#include "bemachine.h" +#include "bemodule.h" +#include "beirg.h" +#include "begnuas.h" +#include "belistsched.h" +#include "beflags.h" +#include "beutil.h" #include "bearch_sparc_t.h" @@ -145,12 +151,12 @@ static void sparc_prepare_graph(ir_graph *irg) static bool sparc_modifies_flags(const ir_node *node) { - return arch_irn_get_flags(node) & sparc_arch_irn_flag_modifies_flags; + return arch_get_irn_flags(node) & sparc_arch_irn_flag_modifies_flags; } static bool sparc_modifies_fp_flags(const ir_node *node) { - return arch_irn_get_flags(node) & sparc_arch_irn_flag_modifies_fp_flags; + return arch_get_irn_flags(node) & sparc_arch_irn_flag_modifies_fp_flags; } static void sparc_before_ra(ir_graph *irg) @@ -185,7 +191,8 @@ static sparc_isa_t sparc_isa_template = { 5, /* costs for a reload instruction */ true, /* custom abi handling */ }, - NULL, /* constants */ + NULL, /* constants */ + SPARC_FPU_ARCH_FPU, /* FPU architecture */ }; /** @@ -351,6 +358,10 @@ static arch_env_t *sparc_init(FILE *outfile) *isa = sparc_isa_template; isa->constants = pmap_create(); + be_gas_elf_type_char = '#'; + be_gas_object_file_format = OBJECT_FILE_FORMAT_ELF; + be_gas_elf_variant = ELF_VARIANT_SPARC; + be_emit_init(outfile); sparc_register_init(); @@ -411,34 +422,36 @@ static void sparc_lower_for_target(void) lower_mode_b_config_t lower_mode_b_config = { mode_Iu, sparc_create_set, - 0, }; + lower_calls_with_compounds(LF_RETURN_HIDDEN); + if (sparc_isa_template.fpu_arch == SPARC_FPU_ARCH_SOFTFLOAT) + lower_floating_point(); + + lower_builtins(0, NULL); + sparc_lower_64bit(); for (i = 0; i < n_irgs; ++i) { ir_graph *irg = get_irp_irg(i); ir_lower_mode_b(irg, &lower_mode_b_config); lower_switch(irg, 4, 256, false); + lower_alloc(irg, SPARC_STACK_ALIGNMENT, false, -SPARC_MIN_STACKSIZE); + } + + for (i = 0; i < n_irgs; ++i) { + ir_graph *irg = get_irp_irg(i); + /* Turn all small CopyBs into loads/stores and all bigger CopyBs into + * memcpy calls. */ + lower_CopyB(irg, 31, 32, 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; + return ir_is_optimizable_mux(sel, mux_false, mux_true); } /** @@ -483,15 +496,22 @@ static const backend_params *sparc_get_backend_params(void) irma_twos_complement, 64); ir_type *type_unsigned_long_long = new_type_primitive(mode_unsigned_long_long); - ir_mode *mode_long_double - = new_ir_mode("long double", irms_float_number, 128, 1, - irma_ieee754, 0); - ir_type *type_long_double = new_type_primitive(mode_long_double); - set_type_alignment_bytes(type_long_double, 8); - p.type_long_double = type_long_double; p.type_long_long = type_long_long; p.type_unsigned_long_long = type_unsigned_long_long; + + if (sparc_isa_template.fpu_arch == SPARC_FPU_ARCH_SOFTFLOAT) { + p.mode_float_arithmetic = NULL; + p.type_long_double = NULL; + } else { + ir_mode *mode_long_double + = new_ir_mode("long double", irms_float_number, 128, 1, + irma_ieee754, 0); + ir_type *type_long_double = new_type_primitive(mode_long_double); + + set_type_alignment_bytes(type_long_double, 8); + p.type_long_double = type_long_double; + } return &p; } @@ -515,6 +535,64 @@ static int sparc_is_valid_clobber(const char *clobber) return 0; } +/* fpu set architectures. */ +static const lc_opt_enum_int_items_t sparc_fpu_items[] = { + { "fpu", SPARC_FPU_ARCH_FPU }, + { "softfloat", SPARC_FPU_ARCH_SOFTFLOAT }, + { NULL, 0 } +}; + +static lc_opt_enum_int_var_t arch_fpu_var = { + &sparc_isa_template.fpu_arch, sparc_fpu_items +}; + +static const lc_opt_table_entry_t sparc_options[] = { + LC_OPT_ENT_ENUM_INT("fpunit", "select the floating point unit", &arch_fpu_var), + LC_OPT_LAST +}; + +static ir_node *sparc_new_spill(ir_node *value, ir_node *after) +{ + ir_node *block = get_block(after); + ir_graph *irg = get_irn_irg(value); + ir_node *frame = get_irg_frame(irg); + ir_node *mem = get_irg_no_mem(irg); + ir_mode *mode = get_irn_mode(value); + ir_node *store; + + if (mode_is_float(mode)) { + store = create_stf(NULL, block, value, frame, mem, mode, NULL, 0, true); + } else { + store = new_bd_sparc_St_imm(NULL, block, value, frame, mem, mode, NULL, + 0, true); + } + sched_add_after(after, store); + return store; +} + +static ir_node *sparc_new_reload(ir_node *value, ir_node *spill, + ir_node *before) +{ + ir_node *block = get_block(before); + ir_graph *irg = get_irn_irg(value); + ir_node *frame = get_irg_frame(irg); + ir_mode *mode = get_irn_mode(value); + ir_node *load; + ir_node *res; + + if (mode_is_float(mode)) { + load = create_ldf(NULL, block, frame, spill, mode, NULL, 0, true); + } else { + load = new_bd_sparc_Ld_imm(NULL, block, frame, spill, mode, NULL, 0, + true); + } + sched_add_before(before, load); + assert((long)pn_sparc_Ld_res == (long)pn_sparc_Ldf_res); + res = new_r_Proj(load, mode, pn_sparc_Ld_res); + + return res; +} + const arch_isa_if_t sparc_isa_if = { sparc_init, sparc_lower_for_target, @@ -537,11 +615,18 @@ const arch_isa_if_t sparc_isa_if = { sparc_finish, sparc_emit_routine, NULL, /* register_saved_by */ + sparc_new_spill, + sparc_new_reload }; BE_REGISTER_MODULE_CONSTRUCTOR(be_init_arch_sparc) void be_init_arch_sparc(void) { + lc_opt_entry_t *be_grp = lc_opt_get_grp(firm_opt_get_root(), "be"); + lc_opt_entry_t *sparc_grp = lc_opt_get_grp(be_grp, "sparc"); + + lc_opt_add_table(sparc_grp, sparc_options); + be_register_isa_if("sparc", &sparc_isa_if); FIRM_DBG_REGISTER(dbg, "firm.be.sparc.cg"); sparc_init_transform();