1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
/* Helpers */
#define LI(reg, val) \
mov.u reg, lo:val; \
movh DREG_TEMP_LI, up:val; \
or reg, reg, DREG_TEMP_LI; \
/* Address definitions */
#define TESTDEV_ADDR 0xf0000000
/* Register definitions */
#define DREG_RS1 %d0
#define DREG_RS2 %d1
#define DREG_CALC_RESULT %d1
#define DREG_CALC_PSW %d2
#define DREG_CORRECT_PSW %d3
#define DREG_TEMP_LI %d10
#define DREG_TEMP %d11
#define DREG_TEST_NUM %d14
#define DREG_CORRECT_RESULT %d15
#define DREG_DEV_ADDR %a15
#define EREG_RS1 %e6
#define EREG_RS1_LO %d6
#define EREG_RS1_HI %d7
#define EREG_RS2 %e8
#define EREG_RS2_LO %d8
#define EREG_RS2_HI %d9
#define EREG_CALC_RESULT %e8
#define EREG_CALC_RESULT_HI %d9
#define EREG_CALC_RESULT_LO %d8
#define EREG_CORRECT_RESULT_LO %d0
#define EREG_CORRECT_RESULT_HI %d1
/* Test case wrappers */
#define TEST_CASE(num, testreg, correct, code...) \
test_ ## num: \
code; \
LI(DREG_CORRECT_RESULT, correct) \
mov DREG_TEST_NUM, num; \
jne testreg, DREG_CORRECT_RESULT, fail \
#define TEST_CASE_E(num, correct_lo, correct_hi, code...) \
test_ ## num: \
code; \
mov DREG_TEST_NUM, num; \
LI(EREG_CORRECT_RESULT_LO, correct_lo) \
jne EREG_CALC_RESULT_LO, EREG_CORRECT_RESULT_LO, fail; \
LI(EREG_CORRECT_RESULT_HI, correct_hi) \
jne EREG_CALC_RESULT_HI, EREG_CORRECT_RESULT_HI, fail;
#define TEST_CASE_PSW(num, testreg, correct, correct_psw, code...) \
test_ ## num: \
code; \
LI(DREG_CORRECT_RESULT, correct) \
mov DREG_TEST_NUM, num; \
jne testreg, DREG_CORRECT_RESULT, fail; \
mfcr DREG_CALC_PSW, $psw; \
LI(DREG_CORRECT_PSW, correct_psw) \
mov DREG_TEST_NUM, num; \
jne DREG_CALC_PSW, DREG_CORRECT_PSW, fail;
/* Actual test case type
* e.g inst %dX, %dY -> TEST_D_D
* inst %dX, %dY, %dZ -> TEST_D_DD
* inst %eX, %dY, %dZ -> TEST_E_DD
*/
#define TEST_D_D(insn, num, result, rs1) \
TEST_CASE(num, DREG_CALC_RESULT, result, \
LI(DREG_RS1, rs1); \
insn DREG_CALC_RESULT, DREG_RS1; \
)
#define TEST_D_DD_PSW(insn, num, result, psw, rs1, rs2) \
TEST_CASE_PSW(num, DREG_CALC_RESULT, result, psw, \
LI(DREG_RS1, rs1); \
LI(DREG_RS2, rs2); \
rstv; \
insn DREG_CALC_RESULT, DREG_RS1, DREG_RS2; \
)
#define TEST_E_ED(insn, num, res_hi, res_lo, rs1_hi, rs1_lo, rs2) \
TEST_CASE_E(num, res_lo, res_hi, \
LI(EREG_RS1_LO, rs1_lo); \
LI(EREG_RS1_HI, rs1_hi); \
LI(DREG_RS2, rs2); \
insn EREG_CALC_RESULT, EREG_RS1, DREG_RS2; \
)
/* Pass/Fail handling part */
#define TEST_PASSFAIL \
j pass; \
fail: \
LI(DREG_TEMP, TESTDEV_ADDR) \
mov.a DREG_DEV_ADDR, DREG_TEMP; \
st.w [DREG_DEV_ADDR], DREG_TEST_NUM;\
debug; \
j fail; \
pass: \
LI(DREG_TEMP, TESTDEV_ADDR) \
mov.a DREG_DEV_ADDR, DREG_TEMP; \
mov DREG_TEST_NUM, 0; \
st.w [DREG_DEV_ADDR], DREG_TEST_NUM;\
debug; \
j pass;
|