s390: Add testcase for the SRNMT instruction.

Patch by Maran Pakkirisamy (maranp@linux.vnet.ibm.com).
Part of fixing BZ 307113.

git-svn-id: svn://svn.valgrind.org/valgrind/trunk@13325

diff --git a/none/tests/s390x/Makefile.am b/none/tests/s390x/Makefile.am
index 1fd02a8912bb577b24156392d83ed815102112d6..af07ecceceb55dc3caaf94d7f1411601a2f0f7ee 100644 (file)
--- a/none/tests/s390x/Makefile.am
+++ b/none/tests/s390x/Makefile.am
@@ -19,7 +19,7 @@ INSN_TESTS = clc clcle cvb cvd icm lpr tcxb lam_stam xc mvst add sub mul \
             spechelper-icm-1  spechelper-icm-2 spechelper-tmll \
             spechelper-tm laa
 if BUILD_DFP_TESTS
-  INSN_TESTS += dfp-1 dfp-2 dfp-3 dfp-4 dfptest dfpext dfpconv
+  INSN_TESTS += dfp-1 dfp-2 dfp-3 dfp-4 dfptest dfpext dfpconv srnmt
 endif
 
 check_PROGRAMS = $(INSN_TESTS) \
@@ -43,7 +43,8 @@ EXTRA_DIST = \
        dfp-4.stderr.exp dfp-4.stdout.exp dfp-4.vgtest \
        dfptest.stderr.exp dfptest.stdout.exp dfptest.vgtest \
        dfpext.stderr.exp dfpext.stdout.exp dfpext.vgtest \
-       dfpconv.stderr.exp dfpconv.stdout.exp dfpconv.vgtest
+       dfpconv.stderr.exp dfpconv.stdout.exp dfpconv.vgtest \
+       srnmt.stderr.exp srnmt.stdout.exp srnmt.vgtest
 
 AM_CFLAGS    += @FLAG_M64@
 AM_CXXFLAGS  += @FLAG_M64@

diff --git a/none/tests/s390x/opcodes.h b/none/tests/s390x/opcodes.h
index 0540c9beadb4eed04f499414a9a8f5715e4218f6..f8a55e215811a6d3a716d1b50c5e66060c31749d 100644 (file)
--- a/none/tests/s390x/opcodes.h
+++ b/none/tests/s390x/opcodes.h
@@ -348,6 +348,7 @@
 #define SRK(r3,r1,r2)                   RRF_R0RR2(b9f9,r3,0,r1,r2)
 #define SRLK(r1,r3,b2,dl2,dh2)          RSY_RRRD(eb,r1,r3,b2,dl2,dh2,de)
 #define SRNMB(b2,d2)                    S_RD(b2b8,b2,d2)
+#define SRNMT(b2,d2)                    S_RD(b2b9,b2,d2)
 #define STAMY(r1,r3,b2,dl2,dh2)         RSY_AARD(eb,r1,r3,b2,dl2,dh2,9b)
 #define STCH(r1,x2,b2,dl2,dh2)          RXY_RRRD(e3,r1,x2,b2,dl2,dh2,c3)
 #define STCMY(r1,r3,b2,dl2,dh2)         RSY_RURD(eb,r1,r3,b2,dl2,dh2,2d)

diff --git a/none/tests/s390x/srnmt.c b/none/tests/s390x/srnmt.c
new file mode 100644 (file)
index 0000000..7776c86
--- /dev/null
+++ b/none/tests/s390x/srnmt.c
@@ -0,0 +1,61 @@
+#include <assert.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include "opcodes.h"
+
+#define srnmt(b,d) \
+   ({ \
+      __asm__ volatile ( "lghi 8," #b "\n\t" \
+                         SRNMT(8,d) \
+                         ::: "8"); \
+   })
+
+
+/* Like srnmt above, except it uses r0 as a base register */
+#define srnmt0(d) \
+   ({ \
+      __asm__ volatile ( SRNMT(0,d) \
+                         ::: "0"); \
+   })
+
+unsigned
+get_dfp_rounding_mode(void)
+{
+   unsigned fpc;
+
+   __asm__ volatile ("stfpc  %0\n\t" : "=m"(fpc));
+
+   return (fpc & 0x70) >> 4;
+}
+
+int main(void)
+{
+   printf("initial rounding mode = %u\n", get_dfp_rounding_mode());
+
+   /* Set basic rounding modes in various ways */
+   srnmt(1,002);  // 1 + 2 = 3
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   srnmt(2,000);
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   srnmt(0,001);
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   srnmt(0,000);
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   srnmt(7,000);
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   srnmt(0,006);
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   srnmt0(005);
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   srnmt0(004);
+   printf("rounding mode = %u\n", get_dfp_rounding_mode());
+
+   return 0;
+}

diff --git a/none/tests/s390x/srnmt.stderr.exp b/none/tests/s390x/srnmt.stderr.exp
new file mode 100644 (file)
index 0000000..139597f
--- /dev/null
+++ b/none/tests/s390x/srnmt.stderr.exp
@@ -0,0 +1,2 @@
+
+

diff --git a/none/tests/s390x/srnmt.stdout.exp b/none/tests/s390x/srnmt.stdout.exp
new file mode 100644 (file)
index 0000000..581d3f2
--- /dev/null
+++ b/none/tests/s390x/srnmt.stdout.exp
@@ -0,0 +1,9 @@
+initial rounding mode = 0
+rounding mode = 3
+rounding mode = 2
+rounding mode = 1
+rounding mode = 0
+rounding mode = 7
+rounding mode = 6
+rounding mode = 5
+rounding mode = 4

diff --git a/none/tests/s390x/srnmt.vgtest b/none/tests/s390x/srnmt.vgtest
new file mode 100644 (file)
index 0000000..cb7a448
--- /dev/null
+++ b/none/tests/s390x/srnmt.vgtest
@@ -0,0 +1,2 @@
+prog: srnmt
+prereq: test -e srnmt && ../../../tests/s390x_features s390x-dfp