xref: /openbmc/qemu/target/hexagon/gen_tcg.h (revision 587adaca)
1 /*
2  *  Copyright(c) 2019-2021 Qualcomm Innovation Center, Inc. All Rights Reserved.
3  *
4  *  This program is free software; you can redistribute it and/or modify
5  *  it under the terms of the GNU General Public License as published by
6  *  the Free Software Foundation; either version 2 of the License, or
7  *  (at your option) any later version.
8  *
9  *  This program is distributed in the hope that it will be useful,
10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  *  GNU General Public License for more details.
13  *
14  *  You should have received a copy of the GNU General Public License
15  *  along with this program; if not, see <http://www.gnu.org/licenses/>.
16  */
17 
18 #ifndef HEXAGON_GEN_TCG_H
19 #define HEXAGON_GEN_TCG_H
20 
21 /*
22  * Here is a primer to understand the tag names for load/store instructions
23  *
24  * Data types
25  *      b        signed byte                       r0 = memb(r2+#0)
26  *     ub        unsigned byte                     r0 = memub(r2+#0)
27  *      h        signed half word (16 bits)        r0 = memh(r2+#0)
28  *     uh        unsigned half word                r0 = memuh(r2+#0)
29  *      i        integer (32 bits)                 r0 = memw(r2+#0)
30  *      d        double word (64 bits)             r1:0 = memd(r2+#0)
31  *
32  * Addressing modes
33  *     _io       indirect with offset              r0 = memw(r1+#4)
34  *     _ur       absolute with register offset     r0 = memw(r1<<#4+##variable)
35  *     _rr       indirect with register offset     r0 = memw(r1+r4<<#2)
36  *     gp        global pointer relative           r0 = memw(gp+#200)
37  *     _sp       stack pointer relative            r0 = memw(r29+#12)
38  *     _ap       absolute set                      r0 = memw(r1=##variable)
39  *     _pr       post increment register           r0 = memw(r1++m1)
40  *     _pbr      post increment bit reverse        r0 = memw(r1++m1:brev)
41  *     _pi       post increment immediate          r0 = memb(r1++#1)
42  *     _pci      post increment circular immediate r0 = memw(r1++#4:circ(m0))
43  *     _pcr      post increment circular register  r0 = memw(r1++I:circ(m0))
44  */
45 
46 /* Macros for complex addressing modes */
47 #define GET_EA_ap \
48     do { \
49         fEA_IMM(UiV); \
50         tcg_gen_movi_tl(ReV, UiV); \
51     } while (0)
52 #define GET_EA_pr \
53     do { \
54         fEA_REG(RxV); \
55         fPM_M(RxV, MuV); \
56     } while (0)
57 #define GET_EA_pbr \
58     do { \
59         gen_helper_fbrev(EA, RxV); \
60         tcg_gen_add_tl(RxV, RxV, MuV); \
61     } while (0)
62 #define GET_EA_pi \
63     do { \
64         fEA_REG(RxV); \
65         fPM_I(RxV, siV); \
66     } while (0)
67 #define GET_EA_pci \
68     do { \
69         TCGv tcgv_siV = tcg_const_tl(siV); \
70         tcg_gen_mov_tl(EA, RxV); \
71         gen_helper_fcircadd(RxV, RxV, tcgv_siV, MuV, \
72                             hex_gpr[HEX_REG_CS0 + MuN]); \
73         tcg_temp_free(tcgv_siV); \
74     } while (0)
75 #define GET_EA_pcr(SHIFT) \
76     do { \
77         TCGv ireg = tcg_temp_new(); \
78         tcg_gen_mov_tl(EA, RxV); \
79         gen_read_ireg(ireg, MuV, (SHIFT)); \
80         gen_helper_fcircadd(RxV, RxV, ireg, MuV, hex_gpr[HEX_REG_CS0 + MuN]); \
81         tcg_temp_free(ireg); \
82     } while (0)
83 
84 /* Instructions with multiple definitions */
85 #define fGEN_TCG_LOAD_AP(RES, SIZE, SIGN) \
86     do { \
87         fMUST_IMMEXT(UiV); \
88         fEA_IMM(UiV); \
89         fLOAD(1, SIZE, SIGN, EA, RES); \
90         tcg_gen_movi_tl(ReV, UiV); \
91     } while (0)
92 
93 #define fGEN_TCG_L4_loadrub_ap(SHORTCODE) \
94     fGEN_TCG_LOAD_AP(RdV, 1, u)
95 #define fGEN_TCG_L4_loadrb_ap(SHORTCODE) \
96     fGEN_TCG_LOAD_AP(RdV, 1, s)
97 #define fGEN_TCG_L4_loadruh_ap(SHORTCODE) \
98     fGEN_TCG_LOAD_AP(RdV, 2, u)
99 #define fGEN_TCG_L4_loadrh_ap(SHORTCODE) \
100     fGEN_TCG_LOAD_AP(RdV, 2, s)
101 #define fGEN_TCG_L4_loadri_ap(SHORTCODE) \
102     fGEN_TCG_LOAD_AP(RdV, 4, u)
103 #define fGEN_TCG_L4_loadrd_ap(SHORTCODE) \
104     fGEN_TCG_LOAD_AP(RddV, 8, u)
105 
106 #define fGEN_TCG_L2_loadrub_pci(SHORTCODE)    SHORTCODE
107 #define fGEN_TCG_L2_loadrb_pci(SHORTCODE)     SHORTCODE
108 #define fGEN_TCG_L2_loadruh_pci(SHORTCODE)    SHORTCODE
109 #define fGEN_TCG_L2_loadrh_pci(SHORTCODE)     SHORTCODE
110 #define fGEN_TCG_L2_loadri_pci(SHORTCODE)     SHORTCODE
111 #define fGEN_TCG_L2_loadrd_pci(SHORTCODE)     SHORTCODE
112 
113 #define fGEN_TCG_LOAD_pcr(SHIFT, LOAD) \
114     do { \
115         TCGv ireg = tcg_temp_new(); \
116         tcg_gen_mov_tl(EA, RxV); \
117         gen_read_ireg(ireg, MuV, SHIFT); \
118         gen_helper_fcircadd(RxV, RxV, ireg, MuV, hex_gpr[HEX_REG_CS0 + MuN]); \
119         LOAD; \
120         tcg_temp_free(ireg); \
121     } while (0)
122 
123 #define fGEN_TCG_L2_loadrub_pcr(SHORTCODE) \
124       fGEN_TCG_LOAD_pcr(0, fLOAD(1, 1, u, EA, RdV))
125 #define fGEN_TCG_L2_loadrb_pcr(SHORTCODE) \
126       fGEN_TCG_LOAD_pcr(0, fLOAD(1, 1, s, EA, RdV))
127 #define fGEN_TCG_L2_loadruh_pcr(SHORTCODE) \
128       fGEN_TCG_LOAD_pcr(1, fLOAD(1, 2, u, EA, RdV))
129 #define fGEN_TCG_L2_loadrh_pcr(SHORTCODE) \
130       fGEN_TCG_LOAD_pcr(1, fLOAD(1, 2, s, EA, RdV))
131 #define fGEN_TCG_L2_loadri_pcr(SHORTCODE) \
132       fGEN_TCG_LOAD_pcr(2, fLOAD(1, 4, u, EA, RdV))
133 #define fGEN_TCG_L2_loadrd_pcr(SHORTCODE) \
134       fGEN_TCG_LOAD_pcr(3, fLOAD(1, 8, u, EA, RddV))
135 
136 #define fGEN_TCG_L2_loadrub_pr(SHORTCODE)      SHORTCODE
137 #define fGEN_TCG_L2_loadrub_pbr(SHORTCODE)     SHORTCODE
138 #define fGEN_TCG_L2_loadrub_pi(SHORTCODE)      SHORTCODE
139 #define fGEN_TCG_L2_loadrb_pr(SHORTCODE)       SHORTCODE
140 #define fGEN_TCG_L2_loadrb_pbr(SHORTCODE)      SHORTCODE
141 #define fGEN_TCG_L2_loadrb_pi(SHORTCODE)       SHORTCODE
142 #define fGEN_TCG_L2_loadruh_pr(SHORTCODE)      SHORTCODE
143 #define fGEN_TCG_L2_loadruh_pbr(SHORTCODE)     SHORTCODE
144 #define fGEN_TCG_L2_loadruh_pi(SHORTCODE)      SHORTCODE
145 #define fGEN_TCG_L2_loadrh_pr(SHORTCODE)       SHORTCODE
146 #define fGEN_TCG_L2_loadrh_pbr(SHORTCODE)      SHORTCODE
147 #define fGEN_TCG_L2_loadrh_pi(SHORTCODE)       SHORTCODE
148 #define fGEN_TCG_L2_loadri_pr(SHORTCODE)       SHORTCODE
149 #define fGEN_TCG_L2_loadri_pbr(SHORTCODE)      SHORTCODE
150 #define fGEN_TCG_L2_loadri_pi(SHORTCODE)       SHORTCODE
151 #define fGEN_TCG_L2_loadrd_pr(SHORTCODE)       SHORTCODE
152 #define fGEN_TCG_L2_loadrd_pbr(SHORTCODE)      SHORTCODE
153 #define fGEN_TCG_L2_loadrd_pi(SHORTCODE)       SHORTCODE
154 
155 /*
156  * These instructions load 2 bytes and places them in
157  * two halves of the destination register.
158  * The GET_EA macro determines the addressing mode.
159  * The SIGN argument determines whether to zero-extend or
160  * sign-extend.
161  */
162 #define fGEN_TCG_loadbXw2(GET_EA, SIGN) \
163     do { \
164         TCGv tmp = tcg_temp_new(); \
165         TCGv byte = tcg_temp_new(); \
166         GET_EA; \
167         fLOAD(1, 2, u, EA, tmp); \
168         tcg_gen_movi_tl(RdV, 0); \
169         for (int i = 0; i < 2; i++) { \
170             gen_set_half(i, RdV, gen_get_byte(byte, i, tmp, (SIGN))); \
171         } \
172         tcg_temp_free(tmp); \
173         tcg_temp_free(byte); \
174     } while (0)
175 
176 #define fGEN_TCG_L2_loadbzw2_io(SHORTCODE) \
177     fGEN_TCG_loadbXw2(fEA_RI(RsV, siV), false)
178 #define fGEN_TCG_L4_loadbzw2_ur(SHORTCODE) \
179     fGEN_TCG_loadbXw2(fEA_IRs(UiV, RtV, uiV), false)
180 #define fGEN_TCG_L2_loadbsw2_io(SHORTCODE) \
181     fGEN_TCG_loadbXw2(fEA_RI(RsV, siV), true)
182 #define fGEN_TCG_L4_loadbsw2_ur(SHORTCODE) \
183     fGEN_TCG_loadbXw2(fEA_IRs(UiV, RtV, uiV), true)
184 #define fGEN_TCG_L4_loadbzw2_ap(SHORTCODE) \
185     fGEN_TCG_loadbXw2(GET_EA_ap, false)
186 #define fGEN_TCG_L2_loadbzw2_pr(SHORTCODE) \
187     fGEN_TCG_loadbXw2(GET_EA_pr, false)
188 #define fGEN_TCG_L2_loadbzw2_pbr(SHORTCODE) \
189     fGEN_TCG_loadbXw2(GET_EA_pbr, false)
190 #define fGEN_TCG_L2_loadbzw2_pi(SHORTCODE) \
191     fGEN_TCG_loadbXw2(GET_EA_pi, false)
192 #define fGEN_TCG_L4_loadbsw2_ap(SHORTCODE) \
193     fGEN_TCG_loadbXw2(GET_EA_ap, true)
194 #define fGEN_TCG_L2_loadbsw2_pr(SHORTCODE) \
195     fGEN_TCG_loadbXw2(GET_EA_pr, true)
196 #define fGEN_TCG_L2_loadbsw2_pbr(SHORTCODE) \
197     fGEN_TCG_loadbXw2(GET_EA_pbr, true)
198 #define fGEN_TCG_L2_loadbsw2_pi(SHORTCODE) \
199     fGEN_TCG_loadbXw2(GET_EA_pi, true)
200 #define fGEN_TCG_L2_loadbzw2_pci(SHORTCODE) \
201     fGEN_TCG_loadbXw2(GET_EA_pci, false)
202 #define fGEN_TCG_L2_loadbsw2_pci(SHORTCODE) \
203     fGEN_TCG_loadbXw2(GET_EA_pci, true)
204 #define fGEN_TCG_L2_loadbzw2_pcr(SHORTCODE) \
205     fGEN_TCG_loadbXw2(GET_EA_pcr(1), false)
206 #define fGEN_TCG_L2_loadbsw2_pcr(SHORTCODE) \
207     fGEN_TCG_loadbXw2(GET_EA_pcr(1), true)
208 
209 /*
210  * These instructions load 4 bytes and places them in
211  * four halves of the destination register pair.
212  * The GET_EA macro determines the addressing mode.
213  * The SIGN argument determines whether to zero-extend or
214  * sign-extend.
215  */
216 #define fGEN_TCG_loadbXw4(GET_EA, SIGN) \
217     do { \
218         TCGv tmp = tcg_temp_new(); \
219         TCGv byte = tcg_temp_new(); \
220         GET_EA; \
221         fLOAD(1, 4, u, EA, tmp);  \
222         tcg_gen_movi_i64(RddV, 0); \
223         for (int i = 0; i < 4; i++) { \
224             gen_set_half_i64(i, RddV, gen_get_byte(byte, i, tmp, (SIGN)));  \
225         }  \
226         tcg_temp_free(tmp); \
227         tcg_temp_free(byte); \
228     } while (0)
229 
230 #define fGEN_TCG_L2_loadbzw4_io(SHORTCODE) \
231     fGEN_TCG_loadbXw4(fEA_RI(RsV, siV), false)
232 #define fGEN_TCG_L4_loadbzw4_ur(SHORTCODE) \
233     fGEN_TCG_loadbXw4(fEA_IRs(UiV, RtV, uiV), false)
234 #define fGEN_TCG_L2_loadbsw4_io(SHORTCODE) \
235     fGEN_TCG_loadbXw4(fEA_RI(RsV, siV), true)
236 #define fGEN_TCG_L4_loadbsw4_ur(SHORTCODE) \
237     fGEN_TCG_loadbXw4(fEA_IRs(UiV, RtV, uiV), true)
238 #define fGEN_TCG_L2_loadbzw4_pci(SHORTCODE) \
239     fGEN_TCG_loadbXw4(GET_EA_pci, false)
240 #define fGEN_TCG_L2_loadbsw4_pci(SHORTCODE) \
241     fGEN_TCG_loadbXw4(GET_EA_pci, true)
242 #define fGEN_TCG_L2_loadbzw4_pcr(SHORTCODE) \
243     fGEN_TCG_loadbXw4(GET_EA_pcr(2), false)
244 #define fGEN_TCG_L2_loadbsw4_pcr(SHORTCODE) \
245     fGEN_TCG_loadbXw4(GET_EA_pcr(2), true)
246 #define fGEN_TCG_L4_loadbzw4_ap(SHORTCODE) \
247     fGEN_TCG_loadbXw4(GET_EA_ap, false)
248 #define fGEN_TCG_L2_loadbzw4_pr(SHORTCODE) \
249     fGEN_TCG_loadbXw4(GET_EA_pr, false)
250 #define fGEN_TCG_L2_loadbzw4_pbr(SHORTCODE) \
251     fGEN_TCG_loadbXw4(GET_EA_pbr, false)
252 #define fGEN_TCG_L2_loadbzw4_pi(SHORTCODE) \
253     fGEN_TCG_loadbXw4(GET_EA_pi, false)
254 #define fGEN_TCG_L4_loadbsw4_ap(SHORTCODE) \
255     fGEN_TCG_loadbXw4(GET_EA_ap, true)
256 #define fGEN_TCG_L2_loadbsw4_pr(SHORTCODE) \
257     fGEN_TCG_loadbXw4(GET_EA_pr, true)
258 #define fGEN_TCG_L2_loadbsw4_pbr(SHORTCODE) \
259     fGEN_TCG_loadbXw4(GET_EA_pbr, true)
260 #define fGEN_TCG_L2_loadbsw4_pi(SHORTCODE) \
261     fGEN_TCG_loadbXw4(GET_EA_pi, true)
262 
263 /*
264  * These instructions load a half word, shift the destination right by 16 bits
265  * and place the loaded value in the high half word of the destination pair.
266  * The GET_EA macro determines the addressing mode.
267  */
268 #define fGEN_TCG_loadalignh(GET_EA) \
269     do { \
270         TCGv tmp = tcg_temp_new(); \
271         TCGv_i64 tmp_i64 = tcg_temp_new_i64(); \
272         GET_EA;  \
273         fLOAD(1, 2, u, EA, tmp);  \
274         tcg_gen_extu_i32_i64(tmp_i64, tmp); \
275         tcg_gen_shri_i64(RyyV, RyyV, 16); \
276         tcg_gen_deposit_i64(RyyV, RyyV, tmp_i64, 48, 16); \
277         tcg_temp_free(tmp); \
278         tcg_temp_free_i64(tmp_i64); \
279     } while (0)
280 
281 #define fGEN_TCG_L4_loadalignh_ur(SHORTCODE) \
282     fGEN_TCG_loadalignh(fEA_IRs(UiV, RtV, uiV))
283 #define fGEN_TCG_L2_loadalignh_io(SHORTCODE) \
284     fGEN_TCG_loadalignh(fEA_RI(RsV, siV))
285 #define fGEN_TCG_L2_loadalignh_pci(SHORTCODE) \
286     fGEN_TCG_loadalignh(GET_EA_pci)
287 #define fGEN_TCG_L2_loadalignh_pcr(SHORTCODE) \
288     fGEN_TCG_loadalignh(GET_EA_pcr(1))
289 #define fGEN_TCG_L4_loadalignh_ap(SHORTCODE) \
290     fGEN_TCG_loadalignh(GET_EA_ap)
291 #define fGEN_TCG_L2_loadalignh_pr(SHORTCODE) \
292     fGEN_TCG_loadalignh(GET_EA_pr)
293 #define fGEN_TCG_L2_loadalignh_pbr(SHORTCODE) \
294     fGEN_TCG_loadalignh(GET_EA_pbr)
295 #define fGEN_TCG_L2_loadalignh_pi(SHORTCODE) \
296     fGEN_TCG_loadalignh(GET_EA_pi)
297 
298 /* Same as above, but loads a byte instead of half word */
299 #define fGEN_TCG_loadalignb(GET_EA) \
300     do { \
301         TCGv tmp = tcg_temp_new(); \
302         TCGv_i64 tmp_i64 = tcg_temp_new_i64(); \
303         GET_EA;  \
304         fLOAD(1, 1, u, EA, tmp);  \
305         tcg_gen_extu_i32_i64(tmp_i64, tmp); \
306         tcg_gen_shri_i64(RyyV, RyyV, 8); \
307         tcg_gen_deposit_i64(RyyV, RyyV, tmp_i64, 56, 8); \
308         tcg_temp_free(tmp); \
309         tcg_temp_free_i64(tmp_i64); \
310     } while (0)
311 
312 #define fGEN_TCG_L2_loadalignb_io(SHORTCODE) \
313     fGEN_TCG_loadalignb(fEA_RI(RsV, siV))
314 #define fGEN_TCG_L4_loadalignb_ur(SHORTCODE) \
315     fGEN_TCG_loadalignb(fEA_IRs(UiV, RtV, uiV))
316 #define fGEN_TCG_L2_loadalignb_pci(SHORTCODE) \
317     fGEN_TCG_loadalignb(GET_EA_pci)
318 #define fGEN_TCG_L2_loadalignb_pcr(SHORTCODE) \
319     fGEN_TCG_loadalignb(GET_EA_pcr(0))
320 #define fGEN_TCG_L4_loadalignb_ap(SHORTCODE) \
321     fGEN_TCG_loadalignb(GET_EA_ap)
322 #define fGEN_TCG_L2_loadalignb_pr(SHORTCODE) \
323     fGEN_TCG_loadalignb(GET_EA_pr)
324 #define fGEN_TCG_L2_loadalignb_pbr(SHORTCODE) \
325     fGEN_TCG_loadalignb(GET_EA_pbr)
326 #define fGEN_TCG_L2_loadalignb_pi(SHORTCODE) \
327     fGEN_TCG_loadalignb(GET_EA_pi)
328 
329 /*
330  * Predicated loads
331  * Here is a primer to understand the tag names
332  *
333  * Predicate used
334  *      t        true "old" value                  if (p0) r0 = memb(r2+#0)
335  *      f        false "old" value                 if (!p0) r0 = memb(r2+#0)
336  *      tnew     true "new" value                  if (p0.new) r0 = memb(r2+#0)
337  *      fnew     false "new" value                 if (!p0.new) r0 = memb(r2+#0)
338  */
339 #define fGEN_TCG_PRED_LOAD(GET_EA, PRED, SIZE, SIGN) \
340     do { \
341         TCGv LSB = tcg_temp_local_new(); \
342         TCGLabel *label = gen_new_label(); \
343         GET_EA; \
344         PRED;  \
345         PRED_LOAD_CANCEL(LSB, EA); \
346         tcg_gen_movi_tl(RdV, 0); \
347         tcg_gen_brcondi_tl(TCG_COND_EQ, LSB, 0, label); \
348             fLOAD(1, SIZE, SIGN, EA, RdV); \
349         gen_set_label(label); \
350         tcg_temp_free(LSB); \
351     } while (0)
352 
353 #define fGEN_TCG_L2_ploadrubt_pi(SHORTCODE) \
354     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLD(PtV), 1, u)
355 #define fGEN_TCG_L2_ploadrubf_pi(SHORTCODE) \
356     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLDNOT(PtV), 1, u)
357 #define fGEN_TCG_L2_ploadrubtnew_pi(SHORTCODE) \
358     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEW(PtN), 1, u)
359 #define fGEN_TCG_L2_ploadrubfnew_pi(SHORTCODE) \
360     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEWNOT(PtN), 1, u)
361 #define fGEN_TCG_L2_ploadrbt_pi(SHORTCODE) \
362     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLD(PtV), 1, s)
363 #define fGEN_TCG_L2_ploadrbf_pi(SHORTCODE) \
364     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLDNOT(PtV), 1, s)
365 #define fGEN_TCG_L2_ploadrbtnew_pi(SHORTCODE) \
366     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEW(PtN), 1, s)
367 #define fGEN_TCG_L2_ploadrbfnew_pi(SHORTCODE) \
368     fGEN_TCG_PRED_LOAD({ fEA_REG(RxV); fPM_I(RxV, siV); }, \
369                        fLSBNEWNOT(PtN), 1, s)
370 
371 #define fGEN_TCG_L2_ploadruht_pi(SHORTCODE) \
372     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLD(PtV), 2, u)
373 #define fGEN_TCG_L2_ploadruhf_pi(SHORTCODE) \
374     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLDNOT(PtV), 2, u)
375 #define fGEN_TCG_L2_ploadruhtnew_pi(SHORTCODE) \
376     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEW(PtN), 2, u)
377 #define fGEN_TCG_L2_ploadruhfnew_pi(SHORTCODE) \
378     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEWNOT(PtN), 2, u)
379 #define fGEN_TCG_L2_ploadrht_pi(SHORTCODE) \
380     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLD(PtV), 2, s)
381 #define fGEN_TCG_L2_ploadrhf_pi(SHORTCODE) \
382     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLDNOT(PtV), 2, s)
383 #define fGEN_TCG_L2_ploadrhtnew_pi(SHORTCODE) \
384     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEW(PtN), 2, s)
385 #define fGEN_TCG_L2_ploadrhfnew_pi(SHORTCODE) \
386     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEWNOT(PtN), 2, s)
387 
388 #define fGEN_TCG_L2_ploadrit_pi(SHORTCODE) \
389     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLD(PtV), 4, u)
390 #define fGEN_TCG_L2_ploadrif_pi(SHORTCODE) \
391     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBOLDNOT(PtV), 4, u)
392 #define fGEN_TCG_L2_ploadritnew_pi(SHORTCODE) \
393     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEW(PtN), 4, u)
394 #define fGEN_TCG_L2_ploadrifnew_pi(SHORTCODE) \
395     fGEN_TCG_PRED_LOAD(GET_EA_pi, fLSBNEWNOT(PtN), 4, u)
396 
397 /* Predicated loads into a register pair */
398 #define fGEN_TCG_PRED_LOAD_PAIR(GET_EA, PRED) \
399     do { \
400         TCGv LSB = tcg_temp_local_new(); \
401         TCGLabel *label = gen_new_label(); \
402         GET_EA; \
403         PRED;  \
404         PRED_LOAD_CANCEL(LSB, EA); \
405         tcg_gen_movi_i64(RddV, 0); \
406         tcg_gen_brcondi_tl(TCG_COND_EQ, LSB, 0, label); \
407             fLOAD(1, 8, u, EA, RddV); \
408         gen_set_label(label); \
409         tcg_temp_free(LSB); \
410     } while (0)
411 
412 #define fGEN_TCG_L2_ploadrdt_pi(SHORTCODE) \
413     fGEN_TCG_PRED_LOAD_PAIR(GET_EA_pi, fLSBOLD(PtV))
414 #define fGEN_TCG_L2_ploadrdf_pi(SHORTCODE) \
415     fGEN_TCG_PRED_LOAD_PAIR(GET_EA_pi, fLSBOLDNOT(PtV))
416 #define fGEN_TCG_L2_ploadrdtnew_pi(SHORTCODE) \
417     fGEN_TCG_PRED_LOAD_PAIR(GET_EA_pi, fLSBNEW(PtN))
418 #define fGEN_TCG_L2_ploadrdfnew_pi(SHORTCODE) \
419     fGEN_TCG_PRED_LOAD_PAIR(GET_EA_pi, fLSBNEWNOT(PtN))
420 
421 /* load-locked and store-locked */
422 #define fGEN_TCG_L2_loadw_locked(SHORTCODE) \
423     SHORTCODE
424 #define fGEN_TCG_L4_loadd_locked(SHORTCODE) \
425     SHORTCODE
426 #define fGEN_TCG_S2_storew_locked(SHORTCODE) \
427     do { SHORTCODE; READ_PREG(PdV, PdN); } while (0)
428 #define fGEN_TCG_S4_stored_locked(SHORTCODE) \
429     do { SHORTCODE; READ_PREG(PdV, PdN); } while (0)
430 
431 #define fGEN_TCG_STORE(SHORTCODE) \
432     do { \
433         TCGv HALF = tcg_temp_new(); \
434         TCGv BYTE = tcg_temp_new(); \
435         SHORTCODE; \
436         tcg_temp_free(HALF); \
437         tcg_temp_free(BYTE); \
438     } while (0)
439 
440 #define fGEN_TCG_STORE_pcr(SHIFT, STORE) \
441     do { \
442         TCGv ireg = tcg_temp_new(); \
443         TCGv HALF = tcg_temp_new(); \
444         TCGv BYTE = tcg_temp_new(); \
445         tcg_gen_mov_tl(EA, RxV); \
446         gen_read_ireg(ireg, MuV, SHIFT); \
447         gen_helper_fcircadd(RxV, RxV, ireg, MuV, hex_gpr[HEX_REG_CS0 + MuN]); \
448         STORE; \
449         tcg_temp_free(ireg); \
450         tcg_temp_free(HALF); \
451         tcg_temp_free(BYTE); \
452     } while (0)
453 
454 #define fGEN_TCG_S2_storerb_pbr(SHORTCODE) \
455     fGEN_TCG_STORE(SHORTCODE)
456 #define fGEN_TCG_S2_storerb_pci(SHORTCODE) \
457     fGEN_TCG_STORE(SHORTCODE)
458 #define fGEN_TCG_S2_storerb_pcr(SHORTCODE) \
459     fGEN_TCG_STORE_pcr(0, fSTORE(1, 1, EA, fGETBYTE(0, RtV)))
460 
461 #define fGEN_TCG_S2_storerh_pbr(SHORTCODE) \
462     fGEN_TCG_STORE(SHORTCODE)
463 #define fGEN_TCG_S2_storerh_pci(SHORTCODE) \
464     fGEN_TCG_STORE(SHORTCODE)
465 #define fGEN_TCG_S2_storerh_pcr(SHORTCODE) \
466     fGEN_TCG_STORE_pcr(1, fSTORE(1, 2, EA, fGETHALF(0, RtV)))
467 
468 #define fGEN_TCG_S2_storerf_pbr(SHORTCODE) \
469     fGEN_TCG_STORE(SHORTCODE)
470 #define fGEN_TCG_S2_storerf_pci(SHORTCODE) \
471     fGEN_TCG_STORE(SHORTCODE)
472 #define fGEN_TCG_S2_storerf_pcr(SHORTCODE) \
473     fGEN_TCG_STORE_pcr(1, fSTORE(1, 2, EA, fGETHALF(1, RtV)))
474 
475 #define fGEN_TCG_S2_storeri_pbr(SHORTCODE) \
476     fGEN_TCG_STORE(SHORTCODE)
477 #define fGEN_TCG_S2_storeri_pci(SHORTCODE) \
478     fGEN_TCG_STORE(SHORTCODE)
479 #define fGEN_TCG_S2_storeri_pcr(SHORTCODE) \
480     fGEN_TCG_STORE_pcr(2, fSTORE(1, 4, EA, RtV))
481 
482 #define fGEN_TCG_S2_storerd_pbr(SHORTCODE) \
483     fGEN_TCG_STORE(SHORTCODE)
484 #define fGEN_TCG_S2_storerd_pci(SHORTCODE) \
485     fGEN_TCG_STORE(SHORTCODE)
486 #define fGEN_TCG_S2_storerd_pcr(SHORTCODE) \
487     fGEN_TCG_STORE_pcr(3, fSTORE(1, 8, EA, RttV))
488 
489 #define fGEN_TCG_S2_storerbnew_pbr(SHORTCODE) \
490     fGEN_TCG_STORE(SHORTCODE)
491 #define fGEN_TCG_S2_storerbnew_pci(SHORTCODE) \
492     fGEN_TCG_STORE(SHORTCODE)
493 #define fGEN_TCG_S2_storerbnew_pcr(SHORTCODE) \
494     fGEN_TCG_STORE_pcr(0, fSTORE(1, 1, EA, fGETBYTE(0, NtN)))
495 
496 #define fGEN_TCG_S2_storerhnew_pbr(SHORTCODE) \
497     fGEN_TCG_STORE(SHORTCODE)
498 #define fGEN_TCG_S2_storerhnew_pci(SHORTCODE) \
499     fGEN_TCG_STORE(SHORTCODE)
500 #define fGEN_TCG_S2_storerhnew_pcr(SHORTCODE) \
501     fGEN_TCG_STORE_pcr(1, fSTORE(1, 2, EA, fGETHALF(0, NtN)))
502 
503 #define fGEN_TCG_S2_storerinew_pbr(SHORTCODE) \
504     fGEN_TCG_STORE(SHORTCODE)
505 #define fGEN_TCG_S2_storerinew_pci(SHORTCODE) \
506     fGEN_TCG_STORE(SHORTCODE)
507 #define fGEN_TCG_S2_storerinew_pcr(SHORTCODE) \
508     fGEN_TCG_STORE_pcr(2, fSTORE(1, 4, EA, NtN))
509 
510 /*
511  * Mathematical operations with more than one definition require
512  * special handling
513  */
514 #define fGEN_TCG_A5_ACS(SHORTCODE) \
515     do { \
516         gen_helper_vacsh_pred(PeV, cpu_env, RxxV, RssV, RttV); \
517         gen_helper_vacsh_val(RxxV, cpu_env, RxxV, RssV, RttV); \
518     } while (0)
519 
520 /*
521  * Approximate reciprocal
522  * r3,p1 = sfrecipa(r0, r1)
523  *
524  * The helper packs the 2 32-bit results into a 64-bit value,
525  * so unpack them into the proper results.
526  */
527 #define fGEN_TCG_F2_sfrecipa(SHORTCODE) \
528     do { \
529         TCGv_i64 tmp = tcg_temp_new_i64(); \
530         gen_helper_sfrecipa(tmp, cpu_env, RsV, RtV);  \
531         tcg_gen_extrh_i64_i32(RdV, tmp); \
532         tcg_gen_extrl_i64_i32(PeV, tmp); \
533         tcg_temp_free_i64(tmp); \
534     } while (0)
535 
536 /*
537  * Approximation of the reciprocal square root
538  * r1,p0 = sfinvsqrta(r0)
539  *
540  * The helper packs the 2 32-bit results into a 64-bit value,
541  * so unpack them into the proper results.
542  */
543 #define fGEN_TCG_F2_sfinvsqrta(SHORTCODE) \
544     do { \
545         TCGv_i64 tmp = tcg_temp_new_i64(); \
546         gen_helper_sfinvsqrta(tmp, cpu_env, RsV); \
547         tcg_gen_extrh_i64_i32(RdV, tmp); \
548         tcg_gen_extrl_i64_i32(PeV, tmp); \
549         tcg_temp_free_i64(tmp); \
550     } while (0)
551 
552 /*
553  * Add or subtract with carry.
554  * Predicate register is used as an extra input and output.
555  * r5:4 = add(r1:0, r3:2, p1):carry
556  */
557 #define fGEN_TCG_A4_addp_c(SHORTCODE) \
558     do { \
559         TCGv_i64 carry = tcg_temp_new_i64(); \
560         TCGv_i64 zero = tcg_const_i64(0); \
561         tcg_gen_extu_i32_i64(carry, PxV); \
562         tcg_gen_andi_i64(carry, carry, 1); \
563         tcg_gen_add2_i64(RddV, carry, RssV, zero, carry, zero); \
564         tcg_gen_add2_i64(RddV, carry, RddV, carry, RttV, zero); \
565         tcg_gen_extrl_i64_i32(PxV, carry); \
566         gen_8bitsof(PxV, PxV); \
567         tcg_temp_free_i64(carry); \
568         tcg_temp_free_i64(zero); \
569     } while (0)
570 
571 /* r5:4 = sub(r1:0, r3:2, p1):carry */
572 #define fGEN_TCG_A4_subp_c(SHORTCODE) \
573     do { \
574         TCGv_i64 carry = tcg_temp_new_i64(); \
575         TCGv_i64 zero = tcg_const_i64(0); \
576         TCGv_i64 not_RttV = tcg_temp_new_i64(); \
577         tcg_gen_extu_i32_i64(carry, PxV); \
578         tcg_gen_andi_i64(carry, carry, 1); \
579         tcg_gen_not_i64(not_RttV, RttV); \
580         tcg_gen_add2_i64(RddV, carry, RssV, zero, carry, zero); \
581         tcg_gen_add2_i64(RddV, carry, RddV, carry, not_RttV, zero); \
582         tcg_gen_extrl_i64_i32(PxV, carry); \
583         gen_8bitsof(PxV, PxV); \
584         tcg_temp_free_i64(carry); \
585         tcg_temp_free_i64(zero); \
586         tcg_temp_free_i64(not_RttV); \
587     } while (0)
588 
589 /*
590  * Compare each of the 8 unsigned bytes
591  * The minimum is placed in each byte of the destination.
592  * Each bit of the predicate is set true if the bit from the first operand
593  * is greater than the bit from the second operand.
594  * r5:4,p1 = vminub(r1:0, r3:2)
595  */
596 #define fGEN_TCG_A6_vminub_RdP(SHORTCODE) \
597     do { \
598         TCGv left = tcg_temp_new(); \
599         TCGv right = tcg_temp_new(); \
600         TCGv tmp = tcg_temp_new(); \
601         tcg_gen_movi_tl(PeV, 0); \
602         tcg_gen_movi_i64(RddV, 0); \
603         for (int i = 0; i < 8; i++) { \
604             gen_get_byte_i64(left, i, RttV, false); \
605             gen_get_byte_i64(right, i, RssV, false); \
606             tcg_gen_setcond_tl(TCG_COND_GT, tmp, left, right); \
607             tcg_gen_deposit_tl(PeV, PeV, tmp, i, 1); \
608             tcg_gen_umin_tl(tmp, left, right); \
609             gen_set_byte_i64(i, RddV, tmp); \
610         } \
611         tcg_temp_free(left); \
612         tcg_temp_free(right); \
613         tcg_temp_free(tmp); \
614     } while (0)
615 
616 /* Floating point */
617 #define fGEN_TCG_F2_conv_sf2df(SHORTCODE) \
618     gen_helper_conv_sf2df(RddV, cpu_env, RsV)
619 #define fGEN_TCG_F2_conv_df2sf(SHORTCODE) \
620     gen_helper_conv_df2sf(RdV, cpu_env, RssV)
621 #define fGEN_TCG_F2_conv_uw2sf(SHORTCODE) \
622     gen_helper_conv_uw2sf(RdV, cpu_env, RsV)
623 #define fGEN_TCG_F2_conv_uw2df(SHORTCODE) \
624     gen_helper_conv_uw2df(RddV, cpu_env, RsV)
625 #define fGEN_TCG_F2_conv_w2sf(SHORTCODE) \
626     gen_helper_conv_w2sf(RdV, cpu_env, RsV)
627 #define fGEN_TCG_F2_conv_w2df(SHORTCODE) \
628     gen_helper_conv_w2df(RddV, cpu_env, RsV)
629 #define fGEN_TCG_F2_conv_ud2sf(SHORTCODE) \
630     gen_helper_conv_ud2sf(RdV, cpu_env, RssV)
631 #define fGEN_TCG_F2_conv_ud2df(SHORTCODE) \
632     gen_helper_conv_ud2df(RddV, cpu_env, RssV)
633 #define fGEN_TCG_F2_conv_d2sf(SHORTCODE) \
634     gen_helper_conv_d2sf(RdV, cpu_env, RssV)
635 #define fGEN_TCG_F2_conv_d2df(SHORTCODE) \
636     gen_helper_conv_d2df(RddV, cpu_env, RssV)
637 #define fGEN_TCG_F2_conv_sf2uw(SHORTCODE) \
638     gen_helper_conv_sf2uw(RdV, cpu_env, RsV)
639 #define fGEN_TCG_F2_conv_sf2w(SHORTCODE) \
640     gen_helper_conv_sf2w(RdV, cpu_env, RsV)
641 #define fGEN_TCG_F2_conv_sf2ud(SHORTCODE) \
642     gen_helper_conv_sf2ud(RddV, cpu_env, RsV)
643 #define fGEN_TCG_F2_conv_sf2d(SHORTCODE) \
644     gen_helper_conv_sf2d(RddV, cpu_env, RsV)
645 #define fGEN_TCG_F2_conv_df2uw(SHORTCODE) \
646     gen_helper_conv_df2uw(RdV, cpu_env, RssV)
647 #define fGEN_TCG_F2_conv_df2w(SHORTCODE) \
648     gen_helper_conv_df2w(RdV, cpu_env, RssV)
649 #define fGEN_TCG_F2_conv_df2ud(SHORTCODE) \
650     gen_helper_conv_df2ud(RddV, cpu_env, RssV)
651 #define fGEN_TCG_F2_conv_df2d(SHORTCODE) \
652     gen_helper_conv_df2d(RddV, cpu_env, RssV)
653 #define fGEN_TCG_F2_conv_sf2uw_chop(SHORTCODE) \
654     gen_helper_conv_sf2uw_chop(RdV, cpu_env, RsV)
655 #define fGEN_TCG_F2_conv_sf2w_chop(SHORTCODE) \
656     gen_helper_conv_sf2w_chop(RdV, cpu_env, RsV)
657 #define fGEN_TCG_F2_conv_sf2ud_chop(SHORTCODE) \
658     gen_helper_conv_sf2ud_chop(RddV, cpu_env, RsV)
659 #define fGEN_TCG_F2_conv_sf2d_chop(SHORTCODE) \
660     gen_helper_conv_sf2d_chop(RddV, cpu_env, RsV)
661 #define fGEN_TCG_F2_conv_df2uw_chop(SHORTCODE) \
662     gen_helper_conv_df2uw_chop(RdV, cpu_env, RssV)
663 #define fGEN_TCG_F2_conv_df2w_chop(SHORTCODE) \
664     gen_helper_conv_df2w_chop(RdV, cpu_env, RssV)
665 #define fGEN_TCG_F2_conv_df2ud_chop(SHORTCODE) \
666     gen_helper_conv_df2ud_chop(RddV, cpu_env, RssV)
667 #define fGEN_TCG_F2_conv_df2d_chop(SHORTCODE) \
668     gen_helper_conv_df2d_chop(RddV, cpu_env, RssV)
669 #define fGEN_TCG_F2_sfadd(SHORTCODE) \
670     gen_helper_sfadd(RdV, cpu_env, RsV, RtV)
671 #define fGEN_TCG_F2_sfsub(SHORTCODE) \
672     gen_helper_sfsub(RdV, cpu_env, RsV, RtV)
673 #define fGEN_TCG_F2_sfcmpeq(SHORTCODE) \
674     gen_helper_sfcmpeq(PdV, cpu_env, RsV, RtV)
675 #define fGEN_TCG_F2_sfcmpgt(SHORTCODE) \
676     gen_helper_sfcmpgt(PdV, cpu_env, RsV, RtV)
677 #define fGEN_TCG_F2_sfcmpge(SHORTCODE) \
678     gen_helper_sfcmpge(PdV, cpu_env, RsV, RtV)
679 #define fGEN_TCG_F2_sfcmpuo(SHORTCODE) \
680     gen_helper_sfcmpuo(PdV, cpu_env, RsV, RtV)
681 #define fGEN_TCG_F2_sfmax(SHORTCODE) \
682     gen_helper_sfmax(RdV, cpu_env, RsV, RtV)
683 #define fGEN_TCG_F2_sfmin(SHORTCODE) \
684     gen_helper_sfmin(RdV, cpu_env, RsV, RtV)
685 #define fGEN_TCG_F2_sfclass(SHORTCODE) \
686     do { \
687         TCGv imm = tcg_const_tl(uiV); \
688         gen_helper_sfclass(PdV, cpu_env, RsV, imm); \
689         tcg_temp_free(imm); \
690     } while (0)
691 #define fGEN_TCG_F2_sffixupn(SHORTCODE) \
692     gen_helper_sffixupn(RdV, cpu_env, RsV, RtV)
693 #define fGEN_TCG_F2_sffixupd(SHORTCODE) \
694     gen_helper_sffixupd(RdV, cpu_env, RsV, RtV)
695 #define fGEN_TCG_F2_sffixupr(SHORTCODE) \
696     gen_helper_sffixupr(RdV, cpu_env, RsV)
697 #define fGEN_TCG_F2_dfadd(SHORTCODE) \
698     gen_helper_dfadd(RddV, cpu_env, RssV, RttV)
699 #define fGEN_TCG_F2_dfsub(SHORTCODE) \
700     gen_helper_dfsub(RddV, cpu_env, RssV, RttV)
701 #define fGEN_TCG_F2_dfmax(SHORTCODE) \
702     gen_helper_dfmax(RddV, cpu_env, RssV, RttV)
703 #define fGEN_TCG_F2_dfmin(SHORTCODE) \
704     gen_helper_dfmin(RddV, cpu_env, RssV, RttV)
705 #define fGEN_TCG_F2_dfcmpeq(SHORTCODE) \
706     gen_helper_dfcmpeq(PdV, cpu_env, RssV, RttV)
707 #define fGEN_TCG_F2_dfcmpgt(SHORTCODE) \
708     gen_helper_dfcmpgt(PdV, cpu_env, RssV, RttV)
709 #define fGEN_TCG_F2_dfcmpge(SHORTCODE) \
710     gen_helper_dfcmpge(PdV, cpu_env, RssV, RttV)
711 #define fGEN_TCG_F2_dfcmpuo(SHORTCODE) \
712     gen_helper_dfcmpuo(PdV, cpu_env, RssV, RttV)
713 #define fGEN_TCG_F2_dfclass(SHORTCODE) \
714     do { \
715         TCGv imm = tcg_const_tl(uiV); \
716         gen_helper_dfclass(PdV, cpu_env, RssV, imm); \
717         tcg_temp_free(imm); \
718     } while (0)
719 #define fGEN_TCG_F2_sfmpy(SHORTCODE) \
720     gen_helper_sfmpy(RdV, cpu_env, RsV, RtV)
721 #define fGEN_TCG_F2_sffma(SHORTCODE) \
722     gen_helper_sffma(RxV, cpu_env, RxV, RsV, RtV)
723 #define fGEN_TCG_F2_sffma_sc(SHORTCODE) \
724     gen_helper_sffma_sc(RxV, cpu_env, RxV, RsV, RtV, PuV)
725 #define fGEN_TCG_F2_sffms(SHORTCODE) \
726     gen_helper_sffms(RxV, cpu_env, RxV, RsV, RtV)
727 #define fGEN_TCG_F2_sffma_lib(SHORTCODE) \
728     gen_helper_sffma_lib(RxV, cpu_env, RxV, RsV, RtV)
729 #define fGEN_TCG_F2_sffms_lib(SHORTCODE) \
730     gen_helper_sffms_lib(RxV, cpu_env, RxV, RsV, RtV)
731 
732 #define fGEN_TCG_F2_dfmpyfix(SHORTCODE) \
733     gen_helper_dfmpyfix(RddV, cpu_env, RssV, RttV)
734 #define fGEN_TCG_F2_dfmpyhh(SHORTCODE) \
735     gen_helper_dfmpyhh(RxxV, cpu_env, RxxV, RssV, RttV)
736 
737 #endif
738