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 \
|
||||
lpsw \
|
||||
lpswe-early \
|
||||
lra \
|
||||
ssm-early \
|
||||
stosm-early \
|
||||
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