7d890b4074
Signed-off-by: Max Filippov <jcmvbkbc@gmail.com> Signed-off-by: Blue Swirl <blauwirbel@gmail.com>
303 lines
5.4 KiB
ArmAsm
303 lines
5.4 KiB
ArmAsm
.include "macros.inc"
|
|
|
|
test_suite windowed
|
|
|
|
.altmacro
|
|
|
|
.macro reset_window start
|
|
movi a2, 0xff
|
|
wsr a2, windowstart
|
|
rsync
|
|
movi a2, 0
|
|
wsr a2, windowbase
|
|
rsync
|
|
movi a2, \start
|
|
wsr a2, windowstart
|
|
rsync
|
|
.endm
|
|
|
|
.macro overflow_test shift, window, probe_ok, probe_ex
|
|
set_vector window_overflow_4, 0
|
|
set_vector window_overflow_8, 0
|
|
set_vector window_overflow_12, 0
|
|
|
|
movi a2, 1 | (((1 << ((\window) / 4)) | 1) << ((\shift) / 4))
|
|
wsr a2, windowstart
|
|
reset_ps
|
|
|
|
mov a2, a\probe_ok
|
|
set_vector window_overflow_\window, 10f
|
|
1:
|
|
mov a2, a\probe_ex
|
|
test_fail
|
|
10:
|
|
rsr a2, epc1
|
|
movi a3, 1b
|
|
assert eq, a2, a3
|
|
movi a2, 2f
|
|
wsr a2, epc1
|
|
|
|
rsr a2, windowbase
|
|
movi a3, (\shift) / 4
|
|
assert eq, a2, a3
|
|
rsr a2, ps
|
|
movi a3, 0x4001f
|
|
assert eq, a2, a3
|
|
rfwo
|
|
test_fail
|
|
2:
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 0
|
|
rsr a2, windowstart
|
|
movi a3, 1 | ((1 << ((\window) / 4)) << ((\shift) / 4))
|
|
assert eq, a2, a3
|
|
rsr a2, ps
|
|
movi a3, 0x4000f
|
|
assert eq, a2, a3
|
|
.endm
|
|
|
|
.macro overflow_tests shift, window, probe
|
|
.if \probe < 15
|
|
overflow_test \shift, \window, %((\shift) - 1), \probe
|
|
overflow_tests \shift, \window, %((\probe) + 1)
|
|
.endif
|
|
.endm
|
|
|
|
.macro all_overflow_tests
|
|
.irp shift, 4, 8, 12
|
|
.irp window, 4, 8, 12
|
|
overflow_tests \shift, \window, \shift
|
|
.endr
|
|
.endr
|
|
.endm
|
|
|
|
test overflow
|
|
all_overflow_tests
|
|
test_end
|
|
|
|
|
|
.macro underflow_test window
|
|
set_vector window_underflow_4, 0
|
|
set_vector window_underflow_8, 0
|
|
set_vector window_underflow_12, 0
|
|
|
|
set_vector window_underflow_\window, 10f
|
|
|
|
reset_window 1
|
|
reset_ps
|
|
|
|
ssai 2
|
|
movi a2, 2f
|
|
slli a2, a2, 2
|
|
movi a3, (\window) / 4
|
|
src a0, a3, a2
|
|
1:
|
|
retw
|
|
test_fail
|
|
10:
|
|
rsr a2, epc1
|
|
movi a3, 1b
|
|
assert eq, a2, a3
|
|
movi a2, 2f
|
|
wsr a2, epc1
|
|
|
|
rsr a2, ps
|
|
movi a3, 0x4001f
|
|
assert eq, a2, a3
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 8 - ((\window) / 4)
|
|
rsr a2, windowstart
|
|
assert eqi, a2, 1
|
|
rfwu
|
|
2:
|
|
rsr a2, ps
|
|
movi a3, 0x4000f
|
|
assert eq, a2, a3
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 0
|
|
rsr a2, windowstart
|
|
assert bsi, a2, 0
|
|
assert bsi, a2, 8 - ((\window) / 4)
|
|
.endm
|
|
|
|
test underflow
|
|
set_vector window_overflow_4, 0
|
|
set_vector window_overflow_8, 0
|
|
set_vector window_overflow_12, 0
|
|
|
|
underflow_test 4
|
|
underflow_test 8
|
|
underflow_test 12
|
|
test_end
|
|
|
|
|
|
.macro retw_test window
|
|
reset_window %(1 | (1 << (8 - (\window) / 4)))
|
|
reset_ps
|
|
|
|
ssai 2
|
|
movi a2, 1f
|
|
slli a2, a2, 2
|
|
movi a3, (\window) / 4
|
|
src a0, a3, a2
|
|
retw
|
|
test_fail
|
|
1:
|
|
rsr a2, ps
|
|
movi a3, 0x4000f
|
|
assert eq, a2, a3
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 8 - ((\window) / 4)
|
|
rsr a2, windowstart
|
|
assert bci, a2, 0
|
|
assert bsi, a2, 8 - ((\window) / 4)
|
|
.endm
|
|
|
|
test retw
|
|
set_vector window_underflow_4, 0
|
|
set_vector window_underflow_8, 0
|
|
set_vector window_underflow_12, 0
|
|
|
|
retw_test 4
|
|
retw_test 8
|
|
retw_test 12
|
|
test_end
|
|
|
|
test movsp
|
|
set_vector kernel, 2f
|
|
|
|
reset_window 1
|
|
reset_ps
|
|
1:
|
|
movsp a2, a3
|
|
test_fail
|
|
2:
|
|
rsr a2, exccause
|
|
assert eqi, a2, 5
|
|
rsr a2, epc1
|
|
movi a3, 1b
|
|
assert eq, a2, a3
|
|
|
|
set_vector kernel, 0
|
|
|
|
reset_window 0x81
|
|
reset_ps
|
|
|
|
movsp a2, a3
|
|
test_end
|
|
|
|
test rotw
|
|
reset_window 0x4b
|
|
reset_ps
|
|
|
|
movi a3, 0x10
|
|
|
|
rotw 1
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 1
|
|
movi a3, 0x11
|
|
movi a7, 0x12
|
|
|
|
rotw 2
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 3
|
|
movi a3, 0x13
|
|
movi a7, 0x14
|
|
movi a11, 0x15
|
|
|
|
rotw 3
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 6
|
|
movi a3, 0x16
|
|
movi a7, 0x17
|
|
|
|
movi a2, 0x44
|
|
wsr a2, windowstart
|
|
rsync
|
|
|
|
movi a2, 0x10
|
|
assert eq, a2, a11
|
|
movi a11, 0x18
|
|
movi a2, 0x11
|
|
assert eq, a2, a15
|
|
movi a15, 0x19
|
|
|
|
rotw 4
|
|
movi a2, 0x12
|
|
assert eq, a2, a3
|
|
movi a2, 0x13
|
|
assert eq, a2, a7
|
|
movi a2, 0x14
|
|
assert eq, a2, a11
|
|
movi a2, 0x15
|
|
assert eq, a2, a15
|
|
|
|
movi a2, 0x5
|
|
wsr a2, windowstart
|
|
rsync
|
|
|
|
rotw -2
|
|
movi a2, 0x18
|
|
assert eq, a2, a3
|
|
movi a2, 0x19
|
|
assert eq, a2, a7
|
|
test_end
|
|
|
|
.macro callw_test window
|
|
call\window 2f
|
|
1:
|
|
test_fail
|
|
.align 4
|
|
2:
|
|
rsr a2, windowbase
|
|
assert eqi, a2, 0
|
|
rsr a2, ps
|
|
movi a3, 0x4000f | ((\window) << 14)
|
|
assert eq, a2, a3
|
|
movi a2, 1b
|
|
slli a2, a2, 2
|
|
ssai 2
|
|
movi a3, (\window) / 4
|
|
src a2, a3, a2
|
|
assert eq, a2, a\window
|
|
.endm
|
|
|
|
test callw
|
|
reset_window 0x1
|
|
reset_ps
|
|
|
|
callw_test 4
|
|
callw_test 8
|
|
callw_test 12
|
|
test_end
|
|
|
|
|
|
.macro entry_test window
|
|
reset_window 0x1
|
|
reset_ps
|
|
movi a2, 0x4000f | ((\window) << 14)
|
|
wsr a2, ps
|
|
isync
|
|
movi a3, 0x12345678
|
|
j 1f
|
|
.align 4
|
|
1:
|
|
entry a3, 0x5678
|
|
movi a2, 0x12340000
|
|
assert eq, a2, a3
|
|
rsr a2, windowbase
|
|
assert eqi, a2, (\window) / 4
|
|
rsr a2, windowstart
|
|
movi a3, 1 | (1 << ((\window) / 4))
|
|
assert eq, a2, a3
|
|
rotw -(\window) / 4
|
|
.endm
|
|
|
|
test entry
|
|
entry_test 4
|
|
entry_test 8
|
|
entry_test 12
|
|
test_end
|
|
|
|
test_suite_end
|