- assert(0 && "unsupported Set");
- }
- be_emit_finish_line_gas(env, node);
-
- /* use mov to clear target because it doesn't affect the eflags */
- be_emit_cstring(env, "\tmovl $0, %");
- be_emit_string(env, arch_register_get_name(out));
- be_emit_finish_line_gas(env, node);
-
- be_emit_cstring(env, "\tset");
- ia32_emit_cmp_suffix(env, pnc);
- be_emit_cstring(env, " %");
- be_emit_string(env, reg8bit);
- be_emit_finish_line_gas(env, node);
-}
-
-static
-void emit_ia32_CmpSet(ia32_emit_env_t *env, const ir_node *node) {
- Set_emitter(env, node, get_irn_mode(get_irn_n(node, 2)));
-}
-
-static
-void emit_ia32_PsiCondSet(ia32_emit_env_t *env, const ir_node *node) {
- Set_emitter(env, node, get_irn_mode(get_irn_n(node, 0)));
-}
-
-static
-void emit_ia32_xCmpSet(ia32_emit_env_t *env, const ir_node *node) {
- Set_emitter(env, node, get_irn_mode(get_irn_n(node, 2)));
-}
-
-static
-void emit_ia32_xCmp(ia32_emit_env_t *env, const ir_node *node) {
- int sse_pnc = -1;
- long pnc = get_ia32_pncode(node);
- long unord = pnc & pn_Cmp_Uo;
-
- assert( (pnc & ia32_pn_Cmp_Unsigned) == 0);
-
- switch (pnc) {
- case pn_Cmp_Leg: /* odered */
- sse_pnc = 7;
- break;
- case pn_Cmp_Uo: /* unordered */
- sse_pnc = 3;
- break;
- case pn_Cmp_Ue:
- case pn_Cmp_Eq: /* == */
- sse_pnc = 0;
- break;
- case pn_Cmp_Ul:
- case pn_Cmp_Lt: /* < */
- sse_pnc = 1;
- break;
- case pn_Cmp_Ule:
- case pn_Cmp_Le: /* <= */
- sse_pnc = 2;
- break;
- case pn_Cmp_Ug:
- case pn_Cmp_Gt: /* > */
- sse_pnc = 6;
- break;
- case pn_Cmp_Uge:
- case pn_Cmp_Ge: /* >= */
- sse_pnc = 5;
- break;
- case pn_Cmp_Ne:
- case pn_Cmp_Lg: /* != */
- sse_pnc = 4;
- break;
- }
-
- assert(sse_pnc >= 0 && "unsupported compare");
-
- if (unord && sse_pnc != 3) {
- /*
- We need a separate compare against unordered.
- Quick and Dirty solution:
- - get some memory on stack
- - compare
- - store result
- - compare
- - and result and stored result
- - cleanup stack
- */
- be_emit_cstring(env, "\tsubl $8, %esp");
- be_emit_finish_line_gas(env, node);
-
- be_emit_cstring(env, "\tcmpsd $3, ");
- ia32_emit_binop(env, node);
- be_emit_finish_line_gas(env, node);
-
- be_emit_cstring(env, "\tmovsd ");
- ia32_emit_dest_register(env, node, 0);
- be_emit_cstring(env, ", (%esp)");
- be_emit_finish_line_gas(env, node);
- }
-
- be_emit_cstring(env, "\tcmpsd ");
- be_emit_irprintf(env->emit, "%d, ", sse_pnc);
- ia32_emit_binop(env, node);
- be_emit_finish_line_gas(env, node);
-
- if (unord && sse_pnc != 3) {
- be_emit_cstring(env, "\tandpd (%esp), ");
- ia32_emit_dest_register(env, node, 0);
- be_emit_finish_line_gas(env, node);
-
- be_emit_cstring(env, "\taddl $8, %esp");
- be_emit_finish_line_gas(env, node);