tests/tcg/s390x: Test STPQ
Add a small test to prevent regressions. Tested-by: Thomas Huth <thuth@redhat.com> Signed-off-by: Ilya Leoshkevich <iii@linux.ibm.com> Message-Id: <20230724082032.66864-14-iii@linux.ibm.com> Signed-off-by: Thomas Huth <thuth@redhat.com>
This commit is contained in:
parent
eacfe7cbbd
commit
e11e2fc6fb
@ -27,6 +27,7 @@ ASM_TESTS = \
|
||||
mc \
|
||||
ssm-early \
|
||||
stosm-early \
|
||||
stpq \
|
||||
unaligned-lowcore
|
||||
|
||||
include $(S390X_SRC)/pgm-specification.mak
|
||||
|
20
tests/tcg/s390x/stpq.S
Normal file
20
tests/tcg/s390x/stpq.S
Normal file
@ -0,0 +1,20 @@
|
||||
.org 0x200 /* lowcore padding */
|
||||
.globl _start
|
||||
_start:
|
||||
lgrl %r0,value
|
||||
lgrl %r1,value+8
|
||||
stpq %r0,stored_value
|
||||
clc stored_value(16),value
|
||||
jne failure
|
||||
lpswe success_psw
|
||||
failure:
|
||||
lpswe failure_psw
|
||||
.align 16
|
||||
value:
|
||||
.quad 0x1234567887654321, 0x8765432112345678
|
||||
stored_value:
|
||||
.quad 0, 0
|
||||
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