@samitouri / QOSamiQemu
Code Commits Issues Pulls Sessions CI/CD
master
master
s 247 lines 5.2 KB
Raw
1 #include "macros.inc"
2
3 test_suite mac16
4
5 #if XCHAL_HAVE_MAC16
6
7 #define ext16(v) (((v) & 0xffff) | (((v) & 0x8000) * 0x1ffffffe))
8 #define mul16(a, b) ((ext16(a) * ext16(b)))
9
10 .macro assert_acc_value v
11 rsr a4, ACCLO
12 movi a5, (\v) & 0xffffffff
13 assert eq, a4, a5
14 rsr a4, ACCHI
15 movi a5, (\v) >> 32
16 sext a5, a5, 7
17 assert eq, a4, a5
18 .endm
19
20 .macro init_reg sr, reg, val
21 .if (\sr)
22 movi a4, \val
23 wsr a4, \reg
24 .else
25 movi \reg, \val
26 .endif
27 .endm
28
29 .macro test_mulxx mulop, comb, s, t, a, b
30 init_reg \comb & 2, \s, \a
31 init_reg \comb & 1, \t, \b
32
33 \mulop\().ll \s, \t
34 assert_acc_value mul16(\a, \b)
35
36 \mulop\().lh \s, \t
37 assert_acc_value mul16(\a, (\b >> 16))
38
39 \mulop\().hl \s, \t
40 assert_acc_value mul16((\a >> 16), \b)
41
42 \mulop\().hh \s, \t
43 assert_acc_value mul16((\a >> 16), (\b >> 16))
44 .endm
45
46 test mul_aa
47 test_mulxx mul.aa, 0, a2, a3, 0xf7315a5a, 0xa5a5137f
48 test_end
49
50 test mul_ad
51 test_mulxx mul.ad, 1, a2, m2, 0xf7315a5a, 0xa5a5137f
52 test_end
53
54 test mul_da
55 test_mulxx mul.da, 2, m1, a3, 0xf7315a5a, 0xa5a5137f
56 test_end
57
58 test mul_dd
59 test_mulxx mul.dd, 3, m0, m3, 0xf7315a5a, 0xa5a5137f
60 test_end
61
62
63 .macro init_acc iv
64 movi a4, (\iv) & 0xffffffff
65 wsr a4, ACCLO
66 movi a4, (\iv) >> 32
67 wsr a4, ACCHI
68 .endm
69
70 .macro test_mulxxx mulop, comb, s, t, a, b, iv, op
71 init_reg \comb & 2, \s, \a
72 init_reg \comb & 1, \t, \b
73
74 init_acc \iv
75 \mulop\().ll \s, \t
76 assert_acc_value (\iv \op mul16(\a, \b))
77
78 init_acc \iv
79 \mulop\().lh \s, \t
80 assert_acc_value (\iv \op mul16(\a, (\b >> 16)))
81
82 init_acc \iv
83 \mulop\().hl \s, \t
84 assert_acc_value (\iv \op mul16((\a >> 16), \b))
85
86 init_acc \iv
87 \mulop\().hh \s, \t
88 assert_acc_value (\iv \op mul16((\a >> 16), (\b >> 16)))
89 .endm
90
91
92 test mula_aa
93 test_mulxxx mula.aa, 0, a2, a3, 0xf7315a5a, 0xa5a5137f, 0xfff73155aa, +
94 test_end
95
96 test mula_ad
97 test_mulxxx mula.ad, 1, a2, m2, 0xf7315a5a, 0xa5a5137f, 0xfff73155aa, +
98 test_end
99
100 test mula_da
101 test_mulxxx mula.da, 2, m1, a3, 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, +
102 test_end
103
104 test mula_dd
105 test_mulxxx mula.dd, 3, m0, m3, 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, +
106 test_end
107
108
109 test muls_aa
110 test_mulxxx muls.aa, 0, a2, a3, 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, -
111 test_end
112
113 test muls_ad
114 test_mulxxx muls.ad, 1, a2, m2, 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, -
115 test_end
116
117 test muls_da
118 test_mulxxx muls.da, 2, m1, a3, 0xf7315a5a, 0xa5a5137f, 0xfff73155aa, -
119 test_end
120
121 test muls_dd
122 test_mulxxx muls.dd, 3, m0, m3, 0xf7315a5a, 0xa5a5137f, 0xfff73155aa, -
123 test_end
124
125 test ldinc
126 movi a2, 1f - 4
127 ldinc m0, a2
128 movi a3, 1f
129 assert eq, a2, a3
130 rsr a3, m0
131 movi a4, 0x55aa137f
132 assert eq, a3, a4
133 ldinc m1, a2
134 movi a3, 1f + 4
135 assert eq, a2, a3
136 rsr a3, m1
137 movi a4, 0x12345678
138 assert eq, a3, a4
139
140 .data
141 1: .word 0x55aa137f, 0x12345678, 0x137fa5a5
142 .text
143 test_end
144
145 test lddec
146 movi a2, 1f
147 lddec m2, a2
148 movi a3, 1f - 4
149 assert eq, a2, a3
150 rsr a3, m2
151 movi a4, 0x12345678
152 assert eq, a3, a4
153 lddec m3, a2
154 movi a3, 1f - 8
155 assert eq, a2, a3
156 rsr a3, m3
157 movi a4, 0x55aa137f
158 assert eq, a3, a4
159 .data
160 .word 0x55aa137f, 0x12345678
161 1:
162 .text
163 test_end
164
165
166 .macro test_mulxxx_ld mulop, ldop, comb, w, x, s, t, a, b, iv, op
167 init_reg \comb & 2, \s, \a
168 init_reg \comb & 1, \t, \b
169
170 init_acc \iv
171 \mulop\().ll.\ldop \w, \x, \s, \t
172 assert_acc_value (\iv \op mul16(\a, \b))
173
174 init_acc \iv
175 \mulop\().lh.\ldop \w, \x, \s, \t
176 assert_acc_value (\iv \op mul16(\a, (\b >> 16)))
177
178 init_acc \iv
179 \mulop\().hl.\ldop \w, \x, \s, \t
180 assert_acc_value (\iv \op mul16((\a >> 16), \b))
181
182 init_acc \iv
183 \mulop\().hh.\ldop \w, \x, \s, \t
184 assert_acc_value (\iv \op mul16((\a >> 16), (\b >> 16)))
185 .endm
186
187 test mula_da_ldinc
188 movi a2, 1f - 4
189 test_mulxxx_ld mula.da, ldinc, 2, m1, a2, m1, a3, \
190 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, +
191 movi a3, 1f + 12
192 assert eq, a2, a3
193 rsr a2, m1
194 movi a3, 0x12345678
195 assert eq, a2, a3
196 .data
197 1: .word 0xf7315a5a, 0xf7315a5a, 0xf7315a5a, 0x12345678
198 .text
199 test_end
200
201 test mula_dd_ldinc
202 movi a2, 1f - 4
203 test_mulxxx_ld mula.dd, ldinc, 3, m2, a2, m1, m2, \
204 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, +
205 movi a3, 1f + 12
206 assert eq, a2, a3
207 rsr a2, m2
208 movi a3, 0x12345678
209 assert eq, a2, a3
210 .data
211 1: .word 0xa5a5137f, 0xa5a5137f, 0xa5a5137f, 0x12345678
212 .text
213 test_end
214
215 test mula_da_lddec
216 movi a2, 1f
217 test_mulxxx_ld mula.da, lddec, 2, m1, a2, m1, a3, \
218 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, +
219 movi a3, 1f - 16
220 assert eq, a2, a3
221 rsr a2, m1
222 movi a3, 0x12345678
223 assert eq, a2, a3
224 .data
225 .word 0x12345678, 0xf7315a5a, 0xf7315a5a, 0xf7315a5a
226 1:
227 .text
228 test_end
229
230 test mula_dd_lddec
231 movi a2, 1f
232 test_mulxxx_ld mula.dd, lddec, 3, m2, a2, m1, m2, \
233 0xf7315a5a, 0xa5a5137f, 0x0ff73155aa, +
234 movi a3, 1f - 16
235 assert eq, a2, a3
236 rsr a2, m2
237 movi a3, 0x12345678
238 assert eq, a2, a3
239 .data
240 .word 0x12345678, 0xa5a5137f, 0xa5a5137f, 0xa5a5137f
241 1:
242 .text
243 test_end
244
245 #endif
246
247 test_suite_end