OSDN Git Service

gcc/ada/
[pf3gnuchains/gcc-fork.git] / gcc / config / s390 / s390.md
index 66cf561..b135033 100644 (file)
   REAL_VALUE_TYPE cmp, sub;
   
   operands[1] = force_reg (<BFP:MODE>mode, operands[1]);
-  real_2expN (&cmp, GET_MODE_BITSIZE(<GPR:MODE>mode) - 1);
-  real_2expN (&sub, GET_MODE_BITSIZE(<GPR:MODE>mode));
+  real_2expN (&cmp, GET_MODE_BITSIZE(<GPR:MODE>mode) - 1, <BFP:mode>mode);
+  real_2expN (&sub, GET_MODE_BITSIZE(<GPR:MODE>mode), <BFP:mode>mode);
   
   emit_insn (gen_cmp<BFP:mode> (operands[1],
        CONST_DOUBLE_FROM_REAL_VALUE (cmp, <BFP:MODE>mode)));