|  | #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 | 
|  |  | 
|  | .macro entry_overflow_test window, free, next_window | 
|  | set_vector window_overflow_4, 0 | 
|  | set_vector window_overflow_8, 0 | 
|  | set_vector window_overflow_12, 0 | 
|  | set_vector window_overflow_\next_window, 10f | 
|  |  | 
|  | movi    a2, \window | 
|  | movi    a2, \free | 
|  | movi    a2, \next_window | 
|  | reset_window %(1 | ((1 | (1 << ((\next_window) / 4))) << ((\free) / 4))) | 
|  | reset_ps | 
|  | movi    a2, 0x4000f | ((\window) << 14) | 
|  | wsr     a2, ps | 
|  | isync | 
|  | movi    a3, 0x12345678 | 
|  | j       1f | 
|  | .align  4 | 
|  | 1: | 
|  | entry   a3, 0x5678 | 
|  | test_fail | 
|  | .align  4 | 
|  | 10: | 
|  | rsr     a2, epc1 | 
|  | movi    a3, 1b | 
|  | assert  eq, a2, a3 | 
|  | movi    a2, 2f | 
|  | wsr     a2, epc1 | 
|  |  | 
|  | rsr     a2, windowbase | 
|  | movi    a3, (\free) / 4 | 
|  | assert  eq, a2, a3 | 
|  | rfwo | 
|  | 2: | 
|  | .endm | 
|  |  | 
|  | .macro all_entry_overflow_tests | 
|  | .irp window, 4, 8, 12 | 
|  | .irp next_window, 4, 8, 12 | 
|  | .irp free, 4, 8, 12 | 
|  | .if \free <= \window | 
|  | entry_overflow_test \window, \free, \next_window | 
|  | .endif | 
|  | .endr | 
|  | .endr | 
|  | .endr | 
|  | .endm | 
|  |  | 
|  | test entry_overflow | 
|  | all_entry_overflow_tests | 
|  | test_end | 
|  |  | 
|  | test_suite_end |