mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-27 04:52:05 +08:00
1368b914e9
Now that all port tests live under testsuite/sim/*/, and none live in testsuite/ directly, flatten the structure by moving all of the dirs under testsuite/sim/ to testsuite/ directly. We need to stop passing --tool to dejagnu so that it searches all dirs and not just ones that start with "sim". Since we have no other dirs in this tree, and no plans to add any, should be fine.
66 lines
963 B
PHP
66 lines
963 B
PHP
|
|
# Write ch to the standard output
|
|
.macro outch ch
|
|
ldk $r0,\ch
|
|
sta 0x10000,$r0
|
|
.endm
|
|
|
|
# End the test with return code c
|
|
.macro exit c
|
|
ldk $r0,\c
|
|
sta 0x1fffc,$r0
|
|
.endm
|
|
|
|
# All assembler tests should start with this macro "start"
|
|
.macro start
|
|
.text
|
|
|
|
jmp __start
|
|
jmp __start
|
|
reti
|
|
|
|
.data
|
|
ccsave: .long 0
|
|
.text
|
|
|
|
# Fiddling to load $cc from the following word in program memory
|
|
loadcc:
|
|
exi $r29,$sp,0
|
|
lpmi $cc,$r29,0
|
|
add $r29,$r29,4
|
|
exi $r29,$sp,0
|
|
return
|
|
|
|
failcase:
|
|
outch 'f'
|
|
outch 'a'
|
|
outch 'i'
|
|
outch 'l'
|
|
outch '\n'
|
|
exit 1
|
|
|
|
__start:
|
|
|
|
.endm
|
|
|
|
# At the end of the test, the code should reach this macro PASS
|
|
.macro PASS
|
|
outch 'p'
|
|
outch 'a'
|
|
outch 's'
|
|
outch 's'
|
|
outch '\n'
|
|
exit 0
|
|
.endm
|
|
|
|
# Confirm that reg has value, and fail immediately if not
|
|
# Preserves all registers
|
|
.macro EXPECT reg,value
|
|
sta ccsave,$cc
|
|
call loadcc
|
|
.long \value
|
|
cmp \reg,$cc
|
|
jmpc nz,failcase
|
|
lda $cc,ccsave
|
|
.endm
|