[PATCH 14/14] tests/tcg/s390x: Add per.S

[Richard Henderson]

Add a small test to avoid regressions.

Signed-off-by: Richard Henderson <richard.henderson@linaro.org>
---
 tests/tcg/s390x/Makefile.softmmu-target |  1 +
 tests/tcg/s390x/per.S                   | 82 +++++++++++++++++++++++++
 2 files changed, 83 insertions(+)
 create mode 100644 tests/tcg/s390x/per.S

diff --git a/tests/tcg/s390x/Makefile.softmmu-target 
b/tests/tcg/s390x/Makefile.softmmu-target
index 1a1f088b28..80159cccf5 100644
--- a/tests/tcg/s390x/Makefile.softmmu-target
+++ b/tests/tcg/s390x/Makefile.softmmu-target
@@ -25,6 +25,7 @@ ASM_TESTS =                                                   
                 \
     lpswe-early                                                                
\
     lra                                                                        
\
     mc                                                                         
\
+    per                                                                        
\
     precise-smc-softmmu                                                        
\
     ssm-early                                                                  
\
     stosm-early                                                                
\
diff --git a/tests/tcg/s390x/per.S b/tests/tcg/s390x/per.S
new file mode 100644
index 0000000000..79e704a6ff
--- /dev/null
+++ b/tests/tcg/s390x/per.S
@@ -0,0 +1,82 @@
+       .org    0x8d
+ilc:
+       .org    0x8e
+program_interruption_code:
+       .org    0x96
+per_code:
+       .org    0x98
+per_address:
+       .org    0x150
+program_old_psw:
+       .org    0x1d0
+program_new_psw:
+       .quad   0, pgm_handler
+
+       .org    0x200                   /* exit lowcore */
+
+per_on_psw:
+       .quad   0x4000000000000000, start_per
+per_on_regs:
+       .quad   0x80000000, 0, -1       /* successful-branching everywhere */
+per_off_regs:
+       .quad   0, 0 ,0
+success_psw:
+       .quad   0x2000000000000, 0xfff  /* see is_special_wait_psw() */
+failure_psw:
+       .quad   0x2000000000000, 0      /* disabled wait */
+
+       .org    0x2000                  /* exit lowcore pages */
+
+       .globl _start
+_start:
+       lpswe   per_on_psw
+start_per:
+       lctlg   %c9, %c11, per_on_regs
+
+/* Test unconditional relative branch. */
+       larl    %r0, j1
+       larl    %r1, d1
+       lhi     %r2, 0
+j1:    j       d1
+       lpswe   failure_psw
+d1:
+
+/* Test unconditional indirect branch. */
+       larl    %r0, j2
+       larl    %r1, d2
+j2:    br      %r1
+       lpswe   failure_psw
+d2:
+
+/* Test conditional relative branch. */
+       larl    %r0, j3
+       larl    %r1, d3
+       clr     %r1, %r2        /* d3 != 0 */
+j3:    jne     d3
+       lpswe   failure_psw
+d3:
+
+/* Test conditional register branch. */
+       larl    %r0, j4
+       larl    %r1, d4
+       clr     %r1, %r2        /* d4 != 0 */
+j4:    bner    %r1
+       lpswe   failure_psw
+d4:
+
+/* Success! */
+       nop
+       lpswe   success_psw
+
+pgm_handler:
+       chhsi   program_interruption_code, 0x80 /* PER event? */
+       jne     fail
+       cli     per_code, 0x80          /* successful-branching event? */
+       jne     fail
+       clg     %r0, per_address        /* per_address == jump insn? */
+       jne     fail
+       clg     %r1, program_old_psw+8  /* psw.addr updated to dest? */
+       jne     fail
+       lpswe   program_old_psw
+fail:
+       lpswe   failure_psw
-- 
2.34.1