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:
parent
ad85ac6a8f
commit
028dc70e18
@ -20,6 +20,7 @@ ASM_TESTS = \
|
|||||||
sam \
|
sam \
|
||||||
lpsw \
|
lpsw \
|
||||||
lpswe-early \
|
lpswe-early \
|
||||||
|
lra \
|
||||||
ssm-early \
|
ssm-early \
|
||||||
stosm-early \
|
stosm-early \
|
||||||
unaligned-lowcore
|
unaligned-lowcore
|
||||||
|
19
tests/tcg/s390x/lra.S
Normal file
19
tests/tcg/s390x/lra.S
Normal 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 */
|
Loading…
Reference in New Issue
Block a user