tests/tcg/s390x: Test LRA

Add a small test to prevent regressions.

Signed-off-by: Ilya Leoshkevich <iii@linux.ibm.com>
Message-Id: <20230704081506.276055-11-iii@linux.ibm.com>
Signed-off-by: Thomas Huth <thuth@redhat.com>
This commit is contained in:
Ilya Leoshkevich 2023-07-04 10:12:34 +02:00 committed by Thomas Huth
parent ad85ac6a8f
commit 028dc70e18
2 changed files with 20 additions and 0 deletions

View File

@ -20,6 +20,7 @@ ASM_TESTS = \
sam \
lpsw \
lpswe-early \
lra \
ssm-early \
stosm-early \
unaligned-lowcore

19
tests/tcg/s390x/lra.S Normal file
View File

@ -0,0 +1,19 @@
.org 0x200 /* lowcore padding */
.globl _start
_start:
lgrl %r1,initial_r1
lra %r1,0(%r1)
cgrl %r1,expected_r1
jne 1f
lpswe success_psw
1:
lpswe failure_psw
.align 8
initial_r1:
.quad 0x8765432112345678
expected_r1:
.quad 0x8765432180000038 /* ASCE type exception */
success_psw:
.quad 0x2000000000000,0xfff /* see is_special_wait_psw() */
failure_psw:
.quad 0x2000000000000,0 /* disabled wait */