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:
Ilya Leoshkevich 2023-07-24 10:16:06 +02:00 committed by Thomas Huth
parent eacfe7cbbd
commit e11e2fc6fb
2 changed files with 21 additions and 0 deletions

View File

@ -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
View 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 */