s390: Handle S390_BFP_NABS correctly for 128-bit arguments.


git-svn-id: svn://svn.valgrind.org/vex/trunk@2527 8f6e269a-dfd6-0310-a8e1-e2731360e62c
diff --git a/priv/host_s390_isel.c b/priv/host_s390_isel.c
index 0acf262..1c14749 100644
--- a/priv/host_s390_isel.c
+++ b/priv/host_s390_isel.c
@@ -1725,7 +1725,14 @@
       f15 = make_fpr(15);
 
       switch (expr->Iex.Unop.op) {
-      case Iop_NegF128:     bfpop = S390_BFP_NEG;         goto float128_opnd;
+      case Iop_NegF128:
+         if (left->tag == Iex_Unop &&
+             (left->Iex.Unop.op == Iop_AbsF32 ||
+              left->Iex.Unop.op == Iop_AbsF64))
+            bfpop = S390_BFP_NABS;
+         else
+            bfpop = S390_BFP_NEG;
+         goto float128_opnd;
       case Iop_AbsF128:     bfpop = S390_BFP_ABS;         goto float128_opnd;
       case Iop_I32StoF128:  conv = S390_BFP_I32_TO_F128;  goto convert_int;
       case Iop_I64StoF128:  conv = S390_BFP_I64_TO_F128;  goto convert_int;
@@ -2028,7 +2035,8 @@
       case Iop_NegF32:
       case Iop_NegF64:
          if (left->tag == Iex_Unop &&
-             (left->Iex.Unop.op == Iop_AbsF32 || left->Iex.Unop.op == Iop_AbsF64))
+             (left->Iex.Unop.op == Iop_AbsF32 ||
+              left->Iex.Unop.op == Iop_AbsF64))
             bfpop = S390_BFP_NABS;
          else
             bfpop = S390_BFP_NEG;