qemu-e2k/tests/tcg/s390x/stpq.S
Ilya Leoshkevich e11e2fc6fb 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>
2023-07-24 18:44:47 +02:00

21 lines
508 B
ArmAsm

.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 */