- ir_graph *irg = current_ir_graph;
- dbg_info *dbg = get_irn_dbg_info(call);
- ir_node *block = get_nodes_block(call);
- ir_node **params = get_Call_param_arr(call);
- ir_type *method = get_Call_type(call);
- ir_node *a_l = params[BINOP_Left_Low];
- ir_node *a_h = params[BINOP_Left_High];
- ir_node *b_l = params[BINOP_Right_Low];
- ir_node *b_h = params[BINOP_Right_High];
- ir_mode *l_res_mode = get_type_mode(get_method_res_type(method, 0));
- ir_mode *h_res_mode = get_type_mode(get_method_res_type(method, 1));
- int mode_bytes = get_mode_size_bytes(ia32_reg_classes[CLASS_ia32_gp].mode);
- ir_entity *ent_a = env->irg == irg ? env->ll_div_op1 : NULL;
- ir_entity *ent_b = env->irg == irg ? env->ll_div_op2 : NULL;
- ir_node *l_res, *h_res, *frame;
- ir_node *store_l, *store_h;
- ir_node *op_mem[2], *mem, *fa_mem, *fb_mem;
- ir_node *fa, *fb, *fres;
-
- /* allocate memory on frame to store args */
- if (! ent_a) {
- ent_a = env->ll_div_op1 =
- frame_alloc_area(get_irg_frame_type(irg), 2 * mode_bytes, 16, 0);
- env->irg = irg;
- }
-
- if (! ent_b) {
- ent_b = env->ll_div_op2 =
- frame_alloc_area(get_irg_frame_type(irg), 2 * mode_bytes, 16, 0);
- env->irg = irg;
- }
-
- frame = get_irg_frame(irg);
-
- /* store first arg */
- store_l = new_rd_ia32_l_Store(dbg, irg, block, frame, a_l, get_irg_no_mem(irg));
- set_ia32_frame_ent(store_l, ent_a);
- set_ia32_use_frame(store_l);
- set_ia32_ls_mode(store_l, get_irn_mode(a_l));
- op_mem[0] = store_l;
-
- store_h = new_rd_ia32_l_Store(dbg, irg, block, frame, a_h, get_irg_no_mem(irg));
- set_ia32_frame_ent(store_h, ent_a);
- add_ia32_am_offs_int(store_h, mode_bytes);
- set_ia32_use_frame(store_h);
- set_ia32_ls_mode(store_h, get_irn_mode(a_h));
- op_mem[1] = store_h;
-
- mem = new_r_Sync(irg, block, 2, op_mem);
-
- /* load first arg into FPU */
- fa = new_rd_ia32_l_vfild(dbg, irg, block, frame, mem);
- set_ia32_frame_ent(fa, ent_a);
- set_ia32_use_frame(fa);
- set_ia32_ls_mode(fa, mode_D);
- fa_mem = new_r_Proj(irg, block, fa, mode_M, pn_ia32_l_vfild_M);
- fa = new_r_Proj(irg, block, fa, mode_E, pn_ia32_l_vfild_res);
-
- /* store second arg */
- store_l = new_rd_ia32_l_Store(dbg, irg, block, frame, b_l, get_irg_no_mem(irg));
- set_ia32_frame_ent(store_l, ent_b);
- set_ia32_use_frame(store_l);
- set_ia32_ls_mode(store_l, get_irn_mode(b_l));
- op_mem[0] = store_l;
-
- store_h = new_rd_ia32_l_Store(dbg, irg, block, frame, b_h, get_irg_no_mem(irg));
- set_ia32_frame_ent(store_h, ent_b);
- add_ia32_am_offs_int(store_h, mode_bytes);
- set_ia32_use_frame(store_h);
- set_ia32_ls_mode(store_h, get_irn_mode(b_h));
- op_mem[1] = store_h;
-
- mem = new_r_Sync(irg, block, 2, op_mem);
-
- /* load second arg into FPU */
- fb = new_rd_ia32_l_vfild(dbg, irg, block, frame, mem);
- set_ia32_frame_ent(fb, ent_b);
- set_ia32_use_frame(fb);
- set_ia32_ls_mode(fb, mode_D);
- fb_mem = new_r_Proj(irg, block, fb, mode_M, pn_ia32_l_vfild_M);
- fb = new_r_Proj(irg, block, fb, mode_E, pn_ia32_l_vfild_res);
-
- op_mem[0] = fa_mem;
- op_mem[1] = fb_mem;
-
- mem = new_r_Sync(irg, block, 2, op_mem);
-
- /* perform division */
- switch (dmtp) {
- case IA32_INTRINSIC_DIV:
- fres = new_rd_ia32_l_vfdiv(dbg, irg, block, fa, fb);
- fres = new_rd_Proj(dbg, irg, block, fres, mode_E, pn_ia32_l_vfdiv_res);
- break;
- case IA32_INTRINSIC_MOD:
- fres = new_rd_ia32_l_vfprem(dbg, irg, block, fa, fb, mode_E);
- break;
- default:
- assert(0);