static void replace_with_call(ir_node *node)
{
widen_builtin(node);
ir_type *const mtp = get_Builtin_type(node);
ir_builtin_kind const kind = get_Builtin_kind(node);
char const *const name = get_builtin_name(kind);
ir_type *const arg1 = get_method_param_type(mtp, 0);
char const *const machmode = get_gcc_machmode(arg1);
ident *const id = new_id_fmt("__%s%s2", name, machmode);
ir_entity *const entity
= create_compilerlib_entity(get_id_str(id), mtp);
dbg_info *const dbgi = get_irn_dbg_info(node);
ir_node *const block = get_nodes_block(node);
ir_node *const mem = get_Builtin_mem(node);
ir_graph *const irg = get_irn_irg(node);
ir_node *const callee = new_r_Address(irg, entity);
int const n_params = get_Builtin_n_params(node);
ir_node **const params = get_Builtin_param_arr(node);
ir_node *const call = new_rd_Call(dbgi, block, mem, callee, n_params, params, mtp);
ir_node *const call_mem = new_r_Proj(call, mode_M, pn_Call_M);
ir_node *const call_ress = new_r_Proj(call, mode_T, pn_Call_T_result);
ir_type *const res_type = get_method_res_type(mtp, 0);
ir_mode *const res_mode = get_type_mode(res_type);
ir_node *const call_res = new_r_Proj(call_ress, res_mode, 0);
ir_node *const in[] = {
[pn_Builtin_M] = call_mem,
[pn_Builtin_max + 1] = call_res,
};
static ident *compilerlib_name_mangle(ident *id, ir_type *mt)
{
(void)mt;
if (*target.user_label_prefix == '\0')
return id;
else {
assert (streq(target.user_label_prefix, "_"));
return new_id_fmt("_%s", id);
}
}
/**
* Create a trampoline entity for the given method.
*/
static ir_entity *create_trampoline(be_main_env_t *be, ir_entity *method)
{
ir_type *type = get_entity_type(method);
ident *old_id = get_entity_ld_ident(method);
ident *id = new_id_fmt("%s$stub", old_id);
ir_type *parent = be->pic_trampolines_type;
ir_entity *ent = new_entity(parent, old_id, type);
set_entity_ld_ident(ent, id);
set_entity_visibility(ent, ir_visibility_private);
return ent;
}
static ir_entity *create_pic_symbol(be_main_env_t *be, ir_entity *entity)
{
ident *old_id = get_entity_ld_ident(entity);
ident *id = new_id_fmt("%s$non_lazy_ptr", old_id);
ir_type *e_type = get_entity_type(entity);
ir_type *type = new_type_pointer(e_type);
ir_type *parent = be->pic_symbols_type;
ir_entity *ent = new_entity(parent, old_id, type);
set_entity_ld_ident(ent, id);
set_entity_visibility(ent, ir_visibility_private);
return ent;
}
ident *id_unique(const char *tag)
{
static unsigned unique_id = 0;
return new_id_fmt("%s.%u", tag, unique_id++);
}
/**
* @return An Address representing the function that replaces the given node.
*/
static ir_node *create_softfloat_address(const ir_node *n, const char *name)
{
ir_type *const method = get_softfloat_type(n);
/* Parameter types. */
char const *first_param = "";
char const *second_param = "";
unsigned float_types = 0;
unsigned double_types = 0;
switch (get_method_n_params(method)) {
case 2: {
ir_type *const param_type = get_method_param_type(method, 1);
ir_mode *const mode = get_type_mode(param_type);
if (mode == mode_F) {
second_param = "sf";
float_types++;
} else if (mode == mode_D) {
second_param = "df";
double_types++;
} else if (mode == mode_Iu || mode == mode_Is) {
second_param = "si";
} else if (mode == mode_Lu || mode == mode_Ls) {
second_param = "di";
}
}
/* FALLTHROUGH */
case 1: {
ir_type *const param_type = get_method_param_type(method, 0);
ir_mode *const mode = get_type_mode(param_type);
if (mode == mode_F) {
first_param = float_types > 0 ? "" : "sf";
float_types++;
} else if (mode == mode_D) {
first_param = double_types > 0 ? "" : "df";
double_types++;
} else if (mode == mode_Iu || mode == mode_Is) {
first_param = "si";
} else if (mode == mode_Lu || mode == mode_Ls) {
first_param = "di";
}
break;
}
default:
break;
}
/* Result type. */
char const *result = "";
ir_mode *const mode = is_Div(n) ? get_Div_resmode(n) : get_irn_mode(n);
if (mode == mode_F) {
result = float_types > 0 ? "" : "sf";
float_types++;
} else if (mode == mode_D) {
result = double_types > 0 ? "" : "df";
double_types++;
} else if (mode == mode_Iu || mode == mode_Hu || mode == mode_Bu ||
mode == mode_Is || mode == mode_Hs || mode == mode_Bs)
result = "si";
else if (mode == mode_Lu || mode == mode_Ls)
result = "di";
assert(float_types <= 3);
assert(double_types <= 3);
ident *const id = float_types + double_types > 1 ?
new_id_fmt("__%s%s%s%s%u", name, first_param, second_param, result, float_types + double_types) :
new_id_fmt("__%s%s%s%s", name, first_param, second_param, result);
ir_graph *const irg = get_irn_irg(n);
ir_entity *const ent = create_compilerlib_entity(id, method);
return new_r_Address(irg, ent);
}
