root / target-sparc / op.c @ d3c61721
History | View | Annotate | Download (16.6 kB)
1 | 7a3f1944 | bellard | /*
|
---|---|---|---|
2 | 7a3f1944 | bellard | SPARC micro operations
|
3 | 7a3f1944 | bellard | |
4 | 7a3f1944 | bellard | Copyright (C) 2003 Thomas M. Ogrisegg <tom@fnord.at>
|
5 | 7a3f1944 | bellard | |
6 | 7a3f1944 | bellard | This library is free software; you can redistribute it and/or
|
7 | 7a3f1944 | bellard | modify it under the terms of the GNU Lesser General Public
|
8 | 7a3f1944 | bellard | License as published by the Free Software Foundation; either
|
9 | 7a3f1944 | bellard | version 2 of the License, or (at your option) any later version.
|
10 | 7a3f1944 | bellard | |
11 | 7a3f1944 | bellard | This library is distributed in the hope that it will be useful,
|
12 | 7a3f1944 | bellard | but WITHOUT ANY WARRANTY; without even the implied warranty of
|
13 | 7a3f1944 | bellard | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
14 | 7a3f1944 | bellard | Lesser General Public License for more details.
|
15 | 7a3f1944 | bellard | |
16 | 7a3f1944 | bellard | You should have received a copy of the GNU Lesser General Public
|
17 | 7a3f1944 | bellard | License along with this library; if not, write to the Free Software
|
18 | 7a3f1944 | bellard | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
19 | 7a3f1944 | bellard | */
|
20 | 7a3f1944 | bellard | |
21 | 7a3f1944 | bellard | #include "exec.h" |
22 | 7a3f1944 | bellard | |
23 | cf495bcf | bellard | /*XXX*/
|
24 | 7a3f1944 | bellard | #define REGNAME g0
|
25 | 7a3f1944 | bellard | #define REG (env->gregs[0]) |
26 | 7a3f1944 | bellard | #include "op_template.h" |
27 | 7a3f1944 | bellard | #define REGNAME g1
|
28 | 7a3f1944 | bellard | #define REG (env->gregs[1]) |
29 | 7a3f1944 | bellard | #include "op_template.h" |
30 | 7a3f1944 | bellard | #define REGNAME g2
|
31 | 7a3f1944 | bellard | #define REG (env->gregs[2]) |
32 | 7a3f1944 | bellard | #include "op_template.h" |
33 | 7a3f1944 | bellard | #define REGNAME g3
|
34 | 7a3f1944 | bellard | #define REG (env->gregs[3]) |
35 | 7a3f1944 | bellard | #include "op_template.h" |
36 | 7a3f1944 | bellard | #define REGNAME g4
|
37 | 7a3f1944 | bellard | #define REG (env->gregs[4]) |
38 | 7a3f1944 | bellard | #include "op_template.h" |
39 | 7a3f1944 | bellard | #define REGNAME g5
|
40 | 7a3f1944 | bellard | #define REG (env->gregs[5]) |
41 | 7a3f1944 | bellard | #include "op_template.h" |
42 | 7a3f1944 | bellard | #define REGNAME g6
|
43 | 7a3f1944 | bellard | #define REG (env->gregs[6]) |
44 | 7a3f1944 | bellard | #include "op_template.h" |
45 | 7a3f1944 | bellard | #define REGNAME g7
|
46 | 7a3f1944 | bellard | #define REG (env->gregs[7]) |
47 | 7a3f1944 | bellard | #include "op_template.h" |
48 | 7a3f1944 | bellard | #define REGNAME i0
|
49 | 7a3f1944 | bellard | #define REG (env->regwptr[16]) |
50 | 7a3f1944 | bellard | #include "op_template.h" |
51 | 7a3f1944 | bellard | #define REGNAME i1
|
52 | 7a3f1944 | bellard | #define REG (env->regwptr[17]) |
53 | 7a3f1944 | bellard | #include "op_template.h" |
54 | 7a3f1944 | bellard | #define REGNAME i2
|
55 | 7a3f1944 | bellard | #define REG (env->regwptr[18]) |
56 | 7a3f1944 | bellard | #include "op_template.h" |
57 | 7a3f1944 | bellard | #define REGNAME i3
|
58 | 7a3f1944 | bellard | #define REG (env->regwptr[19]) |
59 | 7a3f1944 | bellard | #include "op_template.h" |
60 | 7a3f1944 | bellard | #define REGNAME i4
|
61 | 7a3f1944 | bellard | #define REG (env->regwptr[20]) |
62 | 7a3f1944 | bellard | #include "op_template.h" |
63 | 7a3f1944 | bellard | #define REGNAME i5
|
64 | 7a3f1944 | bellard | #define REG (env->regwptr[21]) |
65 | 7a3f1944 | bellard | #include "op_template.h" |
66 | 7a3f1944 | bellard | #define REGNAME i6
|
67 | 7a3f1944 | bellard | #define REG (env->regwptr[22]) |
68 | 7a3f1944 | bellard | #include "op_template.h" |
69 | 7a3f1944 | bellard | #define REGNAME i7
|
70 | 7a3f1944 | bellard | #define REG (env->regwptr[23]) |
71 | 7a3f1944 | bellard | #include "op_template.h" |
72 | 7a3f1944 | bellard | #define REGNAME l0
|
73 | 7a3f1944 | bellard | #define REG (env->regwptr[8]) |
74 | 7a3f1944 | bellard | #include "op_template.h" |
75 | 7a3f1944 | bellard | #define REGNAME l1
|
76 | 7a3f1944 | bellard | #define REG (env->regwptr[9]) |
77 | 7a3f1944 | bellard | #include "op_template.h" |
78 | 7a3f1944 | bellard | #define REGNAME l2
|
79 | 7a3f1944 | bellard | #define REG (env->regwptr[10]) |
80 | 7a3f1944 | bellard | #include "op_template.h" |
81 | 7a3f1944 | bellard | #define REGNAME l3
|
82 | 7a3f1944 | bellard | #define REG (env->regwptr[11]) |
83 | 7a3f1944 | bellard | #include "op_template.h" |
84 | 7a3f1944 | bellard | #define REGNAME l4
|
85 | 7a3f1944 | bellard | #define REG (env->regwptr[12]) |
86 | 7a3f1944 | bellard | #include "op_template.h" |
87 | 7a3f1944 | bellard | #define REGNAME l5
|
88 | 7a3f1944 | bellard | #define REG (env->regwptr[13]) |
89 | 7a3f1944 | bellard | #include "op_template.h" |
90 | 7a3f1944 | bellard | #define REGNAME l6
|
91 | 7a3f1944 | bellard | #define REG (env->regwptr[14]) |
92 | 7a3f1944 | bellard | #include "op_template.h" |
93 | 7a3f1944 | bellard | #define REGNAME l7
|
94 | 7a3f1944 | bellard | #define REG (env->regwptr[15]) |
95 | 7a3f1944 | bellard | #include "op_template.h" |
96 | 7a3f1944 | bellard | #define REGNAME o0
|
97 | 7a3f1944 | bellard | #define REG (env->regwptr[0]) |
98 | 7a3f1944 | bellard | #include "op_template.h" |
99 | 7a3f1944 | bellard | #define REGNAME o1
|
100 | 7a3f1944 | bellard | #define REG (env->regwptr[1]) |
101 | 7a3f1944 | bellard | #include "op_template.h" |
102 | 7a3f1944 | bellard | #define REGNAME o2
|
103 | 7a3f1944 | bellard | #define REG (env->regwptr[2]) |
104 | 7a3f1944 | bellard | #include "op_template.h" |
105 | 7a3f1944 | bellard | #define REGNAME o3
|
106 | 7a3f1944 | bellard | #define REG (env->regwptr[3]) |
107 | 7a3f1944 | bellard | #include "op_template.h" |
108 | 7a3f1944 | bellard | #define REGNAME o4
|
109 | 7a3f1944 | bellard | #define REG (env->regwptr[4]) |
110 | 7a3f1944 | bellard | #include "op_template.h" |
111 | 7a3f1944 | bellard | #define REGNAME o5
|
112 | 7a3f1944 | bellard | #define REG (env->regwptr[5]) |
113 | 7a3f1944 | bellard | #include "op_template.h" |
114 | 7a3f1944 | bellard | #define REGNAME o6
|
115 | 7a3f1944 | bellard | #define REG (env->regwptr[6]) |
116 | 7a3f1944 | bellard | #include "op_template.h" |
117 | 7a3f1944 | bellard | #define REGNAME o7
|
118 | 7a3f1944 | bellard | #define REG (env->regwptr[7]) |
119 | 7a3f1944 | bellard | #include "op_template.h" |
120 | e8af50a3 | bellard | |
121 | e8af50a3 | bellard | #define REGNAME f0
|
122 | e8af50a3 | bellard | #define REG (env->fpr[0]) |
123 | e8af50a3 | bellard | #include "fop_template.h" |
124 | e8af50a3 | bellard | #define REGNAME f1
|
125 | e8af50a3 | bellard | #define REG (env->fpr[1]) |
126 | e8af50a3 | bellard | #include "fop_template.h" |
127 | e8af50a3 | bellard | #define REGNAME f2
|
128 | e8af50a3 | bellard | #define REG (env->fpr[2]) |
129 | e8af50a3 | bellard | #include "fop_template.h" |
130 | e8af50a3 | bellard | #define REGNAME f3
|
131 | e8af50a3 | bellard | #define REG (env->fpr[3]) |
132 | e8af50a3 | bellard | #include "fop_template.h" |
133 | e8af50a3 | bellard | #define REGNAME f4
|
134 | e8af50a3 | bellard | #define REG (env->fpr[4]) |
135 | e8af50a3 | bellard | #include "fop_template.h" |
136 | e8af50a3 | bellard | #define REGNAME f5
|
137 | e8af50a3 | bellard | #define REG (env->fpr[5]) |
138 | e8af50a3 | bellard | #include "fop_template.h" |
139 | e8af50a3 | bellard | #define REGNAME f6
|
140 | e8af50a3 | bellard | #define REG (env->fpr[6]) |
141 | e8af50a3 | bellard | #include "fop_template.h" |
142 | e8af50a3 | bellard | #define REGNAME f7
|
143 | e8af50a3 | bellard | #define REG (env->fpr[7]) |
144 | e8af50a3 | bellard | #include "fop_template.h" |
145 | e8af50a3 | bellard | #define REGNAME f8
|
146 | e8af50a3 | bellard | #define REG (env->fpr[8]) |
147 | e8af50a3 | bellard | #include "fop_template.h" |
148 | e8af50a3 | bellard | #define REGNAME f9
|
149 | e8af50a3 | bellard | #define REG (env->fpr[9]) |
150 | e8af50a3 | bellard | #include "fop_template.h" |
151 | e8af50a3 | bellard | #define REGNAME f10
|
152 | e8af50a3 | bellard | #define REG (env->fpr[10]) |
153 | e8af50a3 | bellard | #include "fop_template.h" |
154 | e8af50a3 | bellard | #define REGNAME f11
|
155 | e8af50a3 | bellard | #define REG (env->fpr[11]) |
156 | e8af50a3 | bellard | #include "fop_template.h" |
157 | e8af50a3 | bellard | #define REGNAME f12
|
158 | e8af50a3 | bellard | #define REG (env->fpr[12]) |
159 | e8af50a3 | bellard | #include "fop_template.h" |
160 | e8af50a3 | bellard | #define REGNAME f13
|
161 | e8af50a3 | bellard | #define REG (env->fpr[13]) |
162 | e8af50a3 | bellard | #include "fop_template.h" |
163 | e8af50a3 | bellard | #define REGNAME f14
|
164 | e8af50a3 | bellard | #define REG (env->fpr[14]) |
165 | e8af50a3 | bellard | #include "fop_template.h" |
166 | e8af50a3 | bellard | #define REGNAME f15
|
167 | e8af50a3 | bellard | #define REG (env->fpr[15]) |
168 | e8af50a3 | bellard | #include "fop_template.h" |
169 | e8af50a3 | bellard | #define REGNAME f16
|
170 | e8af50a3 | bellard | #define REG (env->fpr[16]) |
171 | e8af50a3 | bellard | #include "fop_template.h" |
172 | e8af50a3 | bellard | #define REGNAME f17
|
173 | e8af50a3 | bellard | #define REG (env->fpr[17]) |
174 | e8af50a3 | bellard | #include "fop_template.h" |
175 | e8af50a3 | bellard | #define REGNAME f18
|
176 | e8af50a3 | bellard | #define REG (env->fpr[18]) |
177 | e8af50a3 | bellard | #include "fop_template.h" |
178 | e8af50a3 | bellard | #define REGNAME f19
|
179 | e8af50a3 | bellard | #define REG (env->fpr[19]) |
180 | e8af50a3 | bellard | #include "fop_template.h" |
181 | e8af50a3 | bellard | #define REGNAME f20
|
182 | e8af50a3 | bellard | #define REG (env->fpr[20]) |
183 | e8af50a3 | bellard | #include "fop_template.h" |
184 | e8af50a3 | bellard | #define REGNAME f21
|
185 | e8af50a3 | bellard | #define REG (env->fpr[21]) |
186 | e8af50a3 | bellard | #include "fop_template.h" |
187 | e8af50a3 | bellard | #define REGNAME f22
|
188 | e8af50a3 | bellard | #define REG (env->fpr[22]) |
189 | e8af50a3 | bellard | #include "fop_template.h" |
190 | e8af50a3 | bellard | #define REGNAME f23
|
191 | e8af50a3 | bellard | #define REG (env->fpr[23]) |
192 | e8af50a3 | bellard | #include "fop_template.h" |
193 | e8af50a3 | bellard | #define REGNAME f24
|
194 | e8af50a3 | bellard | #define REG (env->fpr[24]) |
195 | e8af50a3 | bellard | #include "fop_template.h" |
196 | e8af50a3 | bellard | #define REGNAME f25
|
197 | e8af50a3 | bellard | #define REG (env->fpr[25]) |
198 | e8af50a3 | bellard | #include "fop_template.h" |
199 | e8af50a3 | bellard | #define REGNAME f26
|
200 | e8af50a3 | bellard | #define REG (env->fpr[26]) |
201 | e8af50a3 | bellard | #include "fop_template.h" |
202 | e8af50a3 | bellard | #define REGNAME f27
|
203 | e8af50a3 | bellard | #define REG (env->fpr[27]) |
204 | e8af50a3 | bellard | #include "fop_template.h" |
205 | e8af50a3 | bellard | #define REGNAME f28
|
206 | e8af50a3 | bellard | #define REG (env->fpr[28]) |
207 | e8af50a3 | bellard | #include "fop_template.h" |
208 | e8af50a3 | bellard | #define REGNAME f29
|
209 | e8af50a3 | bellard | #define REG (env->fpr[29]) |
210 | e8af50a3 | bellard | #include "fop_template.h" |
211 | e8af50a3 | bellard | #define REGNAME f30
|
212 | e8af50a3 | bellard | #define REG (env->fpr[30]) |
213 | e8af50a3 | bellard | #include "fop_template.h" |
214 | e8af50a3 | bellard | #define REGNAME f31
|
215 | e8af50a3 | bellard | #define REG (env->fpr[31]) |
216 | e8af50a3 | bellard | #include "fop_template.h" |
217 | e8af50a3 | bellard | |
218 | 7a3f1944 | bellard | #define EIP (env->pc)
|
219 | 7a3f1944 | bellard | |
220 | cf495bcf | bellard | #define FLAG_SET(x) (env->psr&x)?1:0 |
221 | e8af50a3 | bellard | #define FFLAG_SET(x) ((env->fsr&x)?1:0) |
222 | cf495bcf | bellard | |
223 | 7a3f1944 | bellard | void OPPROTO op_movl_T0_0(void) |
224 | 7a3f1944 | bellard | { |
225 | cf495bcf | bellard | T0 = 0;
|
226 | 7a3f1944 | bellard | } |
227 | 7a3f1944 | bellard | |
228 | 7a3f1944 | bellard | void OPPROTO op_movl_T0_1(void) |
229 | 7a3f1944 | bellard | { |
230 | cf495bcf | bellard | T0 = 1;
|
231 | 7a3f1944 | bellard | } |
232 | 7a3f1944 | bellard | |
233 | 7a3f1944 | bellard | void OPPROTO op_movl_T0_im(void) |
234 | 7a3f1944 | bellard | { |
235 | cf495bcf | bellard | T0 = PARAM1; |
236 | 7a3f1944 | bellard | } |
237 | 7a3f1944 | bellard | |
238 | 7a3f1944 | bellard | void OPPROTO op_movl_T1_im(void) |
239 | 7a3f1944 | bellard | { |
240 | cf495bcf | bellard | T1 = PARAM1; |
241 | 7a3f1944 | bellard | } |
242 | 7a3f1944 | bellard | |
243 | 7a3f1944 | bellard | void OPPROTO op_movl_T2_im(void) |
244 | 7a3f1944 | bellard | { |
245 | cf495bcf | bellard | T2 = PARAM1; |
246 | 7a3f1944 | bellard | } |
247 | 7a3f1944 | bellard | |
248 | 7a3f1944 | bellard | void OPPROTO op_addl_T1_im(void) |
249 | 7a3f1944 | bellard | { |
250 | cf495bcf | bellard | T1 += PARAM1; |
251 | 7a3f1944 | bellard | } |
252 | 7a3f1944 | bellard | |
253 | 7a3f1944 | bellard | void OPPROTO op_addl_T1_T2(void) |
254 | 7a3f1944 | bellard | { |
255 | cf495bcf | bellard | T1 += T2; |
256 | 7a3f1944 | bellard | } |
257 | 7a3f1944 | bellard | |
258 | 7a3f1944 | bellard | void OPPROTO op_subl_T1_T2(void) |
259 | 7a3f1944 | bellard | { |
260 | cf495bcf | bellard | T1 -= T2; |
261 | 7a3f1944 | bellard | } |
262 | 7a3f1944 | bellard | |
263 | cf495bcf | bellard | void OPPROTO op_add_T1_T0(void) |
264 | 7a3f1944 | bellard | { |
265 | cf495bcf | bellard | T0 += T1; |
266 | 7a3f1944 | bellard | } |
267 | 7a3f1944 | bellard | |
268 | cf495bcf | bellard | void OPPROTO op_add_T1_T0_cc(void) |
269 | 7a3f1944 | bellard | { |
270 | cf495bcf | bellard | unsigned int src1; |
271 | cf495bcf | bellard | src1 = T0; |
272 | cf495bcf | bellard | T0 += T1; |
273 | cf495bcf | bellard | env->psr = 0;
|
274 | cf495bcf | bellard | if (!T0)
|
275 | cf495bcf | bellard | env->psr |= PSR_ZERO; |
276 | cf495bcf | bellard | if ((int) T0 < 0) |
277 | cf495bcf | bellard | env->psr |= PSR_NEG; |
278 | cf495bcf | bellard | if (T0 < src1)
|
279 | cf495bcf | bellard | env->psr |= PSR_CARRY; |
280 | cf495bcf | bellard | if (((src1 ^ T1 ^ -1) & (src1 ^ T0)) & (1 << 31)) |
281 | cf495bcf | bellard | env->psr |= PSR_OVF; |
282 | cf495bcf | bellard | FORCE_RET(); |
283 | 7a3f1944 | bellard | } |
284 | 7a3f1944 | bellard | |
285 | cf495bcf | bellard | void OPPROTO op_sub_T1_T0(void) |
286 | 7a3f1944 | bellard | { |
287 | cf495bcf | bellard | T0 -= T1; |
288 | 7a3f1944 | bellard | } |
289 | 7a3f1944 | bellard | |
290 | cf495bcf | bellard | void OPPROTO op_sub_T1_T0_cc(void) |
291 | 7a3f1944 | bellard | { |
292 | cf495bcf | bellard | unsigned int src1; |
293 | cf495bcf | bellard | |
294 | cf495bcf | bellard | src1 = T0; |
295 | cf495bcf | bellard | T0 -= T1; |
296 | cf495bcf | bellard | env->psr = 0;
|
297 | cf495bcf | bellard | if (!T0)
|
298 | cf495bcf | bellard | env->psr |= PSR_ZERO; |
299 | cf495bcf | bellard | if ((int) T0 < 0) |
300 | cf495bcf | bellard | env->psr |= PSR_NEG; |
301 | cf495bcf | bellard | if (src1 < T1)
|
302 | cf495bcf | bellard | env->psr |= PSR_CARRY; |
303 | cf495bcf | bellard | if (((src1 ^ T1) & (src1 ^ T0)) & (1 << 31)) |
304 | cf495bcf | bellard | env->psr |= PSR_OVF; |
305 | cf495bcf | bellard | FORCE_RET(); |
306 | 7a3f1944 | bellard | } |
307 | 7a3f1944 | bellard | |
308 | cf495bcf | bellard | void OPPROTO op_and_T1_T0(void) |
309 | 7a3f1944 | bellard | { |
310 | cf495bcf | bellard | T0 &= T1; |
311 | 7a3f1944 | bellard | } |
312 | 7a3f1944 | bellard | |
313 | cf495bcf | bellard | void OPPROTO op_or_T1_T0(void) |
314 | 7a3f1944 | bellard | { |
315 | cf495bcf | bellard | T0 |= T1; |
316 | 7a3f1944 | bellard | } |
317 | 7a3f1944 | bellard | |
318 | cf495bcf | bellard | void OPPROTO op_xor_T1_T0(void) |
319 | 7a3f1944 | bellard | { |
320 | cf495bcf | bellard | T0 ^= T1; |
321 | 7a3f1944 | bellard | } |
322 | 7a3f1944 | bellard | |
323 | cf495bcf | bellard | void OPPROTO op_andn_T1_T0(void) |
324 | 7a3f1944 | bellard | { |
325 | cf495bcf | bellard | T0 &= ~T1; |
326 | 7a3f1944 | bellard | } |
327 | 7a3f1944 | bellard | |
328 | cf495bcf | bellard | void OPPROTO op_orn_T1_T0(void) |
329 | 7a3f1944 | bellard | { |
330 | cf495bcf | bellard | T0 |= ~T1; |
331 | 7a3f1944 | bellard | } |
332 | 7a3f1944 | bellard | |
333 | cf495bcf | bellard | void OPPROTO op_xnor_T1_T0(void) |
334 | 7a3f1944 | bellard | { |
335 | cf495bcf | bellard | T0 ^= ~T1; |
336 | 7a3f1944 | bellard | } |
337 | 7a3f1944 | bellard | |
338 | cf495bcf | bellard | void OPPROTO op_addx_T1_T0(void) |
339 | 7a3f1944 | bellard | { |
340 | cf495bcf | bellard | T0 += T1 + ((env->psr & PSR_CARRY) ? 1 : 0); |
341 | 7a3f1944 | bellard | } |
342 | 7a3f1944 | bellard | |
343 | cf495bcf | bellard | void OPPROTO op_umul_T1_T0(void) |
344 | 7a3f1944 | bellard | { |
345 | cf495bcf | bellard | uint64_t res; |
346 | cf495bcf | bellard | res = (uint64_t) T0 *(uint64_t) T1; |
347 | cf495bcf | bellard | T0 = res & 0xffffffff;
|
348 | cf495bcf | bellard | env->y = res >> 32;
|
349 | 7a3f1944 | bellard | } |
350 | 7a3f1944 | bellard | |
351 | cf495bcf | bellard | void OPPROTO op_smul_T1_T0(void) |
352 | 7a3f1944 | bellard | { |
353 | cf495bcf | bellard | uint64_t res; |
354 | cf495bcf | bellard | res = (int64_t) ((int32_t) T0) * (int64_t) ((int32_t) T1); |
355 | cf495bcf | bellard | T0 = res & 0xffffffff;
|
356 | cf495bcf | bellard | env->y = res >> 32;
|
357 | 7a3f1944 | bellard | } |
358 | 7a3f1944 | bellard | |
359 | cf495bcf | bellard | void OPPROTO op_mulscc_T1_T0(void) |
360 | 7a3f1944 | bellard | { |
361 | 4e8b5da2 | bellard | unsigned int b1, N, V, b2, src1; |
362 | 4e8b5da2 | bellard | N = FLAG_SET(PSR_NEG); |
363 | cf495bcf | bellard | V = FLAG_SET(PSR_OVF); |
364 | 4e8b5da2 | bellard | b1 = N ^ V; |
365 | cf495bcf | bellard | b2 = T0 & 1;
|
366 | cf495bcf | bellard | T0 = (b1 << 31) | (T0 >> 1); |
367 | cf495bcf | bellard | if (!(env->y & 1)) |
368 | cf495bcf | bellard | T1 = 0;
|
369 | cf495bcf | bellard | /* do addition and update flags */
|
370 | cf495bcf | bellard | src1 = T0; |
371 | cf495bcf | bellard | T0 += T1; |
372 | cf495bcf | bellard | env->psr = 0;
|
373 | cf495bcf | bellard | if (!T0)
|
374 | cf495bcf | bellard | env->psr |= PSR_ZERO; |
375 | cf495bcf | bellard | if ((int) T0 < 0) |
376 | cf495bcf | bellard | env->psr |= PSR_NEG; |
377 | cf495bcf | bellard | if (T0 < src1)
|
378 | cf495bcf | bellard | env->psr |= PSR_CARRY; |
379 | cf495bcf | bellard | if (((src1 ^ T1 ^ -1) & (src1 ^ T0)) & (1 << 31)) |
380 | cf495bcf | bellard | env->psr |= PSR_OVF; |
381 | cf495bcf | bellard | env->y = (b2 << 31) | (env->y >> 1); |
382 | cf495bcf | bellard | FORCE_RET(); |
383 | cf495bcf | bellard | } |
384 | cf495bcf | bellard | |
385 | cf495bcf | bellard | void OPPROTO op_udiv_T1_T0(void) |
386 | cf495bcf | bellard | { |
387 | cf495bcf | bellard | uint64_t x0; |
388 | cf495bcf | bellard | uint32_t x1; |
389 | cf495bcf | bellard | |
390 | cf495bcf | bellard | x0 = T0 | ((uint64_t) (env->y) << 32);
|
391 | cf495bcf | bellard | x1 = T1; |
392 | cf495bcf | bellard | x0 = x0 / x1; |
393 | cf495bcf | bellard | if (x0 > 0xffffffff) { |
394 | cf495bcf | bellard | T0 = 0xffffffff;
|
395 | cf495bcf | bellard | T1 = 1;
|
396 | cf495bcf | bellard | } else {
|
397 | cf495bcf | bellard | T0 = x0; |
398 | cf495bcf | bellard | T1 = 0;
|
399 | cf495bcf | bellard | } |
400 | cf495bcf | bellard | FORCE_RET(); |
401 | 7a3f1944 | bellard | } |
402 | 7a3f1944 | bellard | |
403 | cf495bcf | bellard | void OPPROTO op_sdiv_T1_T0(void) |
404 | 7a3f1944 | bellard | { |
405 | cf495bcf | bellard | int64_t x0; |
406 | cf495bcf | bellard | int32_t x1; |
407 | cf495bcf | bellard | |
408 | cf495bcf | bellard | x0 = T0 | ((uint64_t) (env->y) << 32);
|
409 | cf495bcf | bellard | x1 = T1; |
410 | cf495bcf | bellard | x0 = x0 / x1; |
411 | cf495bcf | bellard | if ((int32_t) x0 != x0) {
|
412 | cf495bcf | bellard | T0 = x0 >> 63;
|
413 | cf495bcf | bellard | T1 = 1;
|
414 | cf495bcf | bellard | } else {
|
415 | cf495bcf | bellard | T0 = x0; |
416 | cf495bcf | bellard | T1 = 0;
|
417 | cf495bcf | bellard | } |
418 | cf495bcf | bellard | FORCE_RET(); |
419 | 7a3f1944 | bellard | } |
420 | 7a3f1944 | bellard | |
421 | cf495bcf | bellard | void OPPROTO op_div_cc(void) |
422 | 7a3f1944 | bellard | { |
423 | cf495bcf | bellard | env->psr = 0;
|
424 | cf495bcf | bellard | if (!T0)
|
425 | cf495bcf | bellard | env->psr |= PSR_ZERO; |
426 | cf495bcf | bellard | if ((int) T0 < 0) |
427 | cf495bcf | bellard | env->psr |= PSR_NEG; |
428 | cf495bcf | bellard | if (T1)
|
429 | cf495bcf | bellard | env->psr |= PSR_OVF; |
430 | cf495bcf | bellard | FORCE_RET(); |
431 | 7a3f1944 | bellard | } |
432 | 7a3f1944 | bellard | |
433 | cf495bcf | bellard | void OPPROTO op_subx_T1_T0(void) |
434 | 7a3f1944 | bellard | { |
435 | cf495bcf | bellard | T0 -= T1 + ((env->psr & PSR_CARRY) ? 1 : 0); |
436 | 7a3f1944 | bellard | } |
437 | 7a3f1944 | bellard | |
438 | cf495bcf | bellard | void OPPROTO op_logic_T0_cc(void) |
439 | 7a3f1944 | bellard | { |
440 | cf495bcf | bellard | env->psr = 0;
|
441 | cf495bcf | bellard | if (!T0)
|
442 | cf495bcf | bellard | env->psr |= PSR_ZERO; |
443 | cf495bcf | bellard | if ((int) T0 < 0) |
444 | cf495bcf | bellard | env->psr |= PSR_NEG; |
445 | cf495bcf | bellard | FORCE_RET(); |
446 | 7a3f1944 | bellard | } |
447 | 7a3f1944 | bellard | |
448 | cf495bcf | bellard | void OPPROTO op_set_flags(void) |
449 | 7a3f1944 | bellard | { |
450 | cf495bcf | bellard | env->psr = 0;
|
451 | cf495bcf | bellard | if (!T0)
|
452 | cf495bcf | bellard | env->psr |= PSR_ZERO; |
453 | cf495bcf | bellard | if ((unsigned int) T0 < (unsigned int) T1) |
454 | cf495bcf | bellard | env->psr |= PSR_CARRY; |
455 | cf495bcf | bellard | if ((int) T0 < (int) T1) |
456 | cf495bcf | bellard | env->psr |= PSR_OVF; |
457 | cf495bcf | bellard | if ((int) T0 < 0) |
458 | cf495bcf | bellard | env->psr |= PSR_NEG; |
459 | cf495bcf | bellard | FORCE_RET(); |
460 | 7a3f1944 | bellard | } |
461 | 7a3f1944 | bellard | |
462 | cf495bcf | bellard | void OPPROTO op_sll(void) |
463 | 7a3f1944 | bellard | { |
464 | cf495bcf | bellard | T0 <<= T1; |
465 | 7a3f1944 | bellard | } |
466 | 7a3f1944 | bellard | |
467 | cf495bcf | bellard | void OPPROTO op_srl(void) |
468 | 7a3f1944 | bellard | { |
469 | cf495bcf | bellard | T0 >>= T1; |
470 | 7a3f1944 | bellard | } |
471 | 7a3f1944 | bellard | |
472 | cf495bcf | bellard | void OPPROTO op_sra(void) |
473 | 7a3f1944 | bellard | { |
474 | cf495bcf | bellard | T0 = ((int32_t) T0) >> T1; |
475 | 7a3f1944 | bellard | } |
476 | 7a3f1944 | bellard | |
477 | e8af50a3 | bellard | /* Load and store */
|
478 | e8af50a3 | bellard | #define MEMSUFFIX _raw
|
479 | e8af50a3 | bellard | #include "op_mem.h" |
480 | e8af50a3 | bellard | #if !defined(CONFIG_USER_ONLY)
|
481 | e8af50a3 | bellard | #define MEMSUFFIX _user
|
482 | e8af50a3 | bellard | #include "op_mem.h" |
483 | e8af50a3 | bellard | |
484 | e8af50a3 | bellard | #define MEMSUFFIX _kernel
|
485 | e8af50a3 | bellard | #include "op_mem.h" |
486 | e8af50a3 | bellard | #endif
|
487 | e8af50a3 | bellard | |
488 | e8af50a3 | bellard | void OPPROTO op_ldfsr(void) |
489 | e8af50a3 | bellard | { |
490 | e8af50a3 | bellard | env->fsr = *((uint32_t *) &FT0); |
491 | 8d5f07fa | bellard | helper_ldfsr(); |
492 | e8af50a3 | bellard | } |
493 | e8af50a3 | bellard | |
494 | e8af50a3 | bellard | void OPPROTO op_stfsr(void) |
495 | e8af50a3 | bellard | { |
496 | e8af50a3 | bellard | *((uint32_t *) &FT0) = env->fsr; |
497 | e8af50a3 | bellard | } |
498 | e8af50a3 | bellard | |
499 | cf495bcf | bellard | void OPPROTO op_wry(void) |
500 | 7a3f1944 | bellard | { |
501 | cf495bcf | bellard | env->y = T0; |
502 | 7a3f1944 | bellard | } |
503 | 7a3f1944 | bellard | |
504 | cf495bcf | bellard | void OPPROTO op_rdy(void) |
505 | 7a3f1944 | bellard | { |
506 | cf495bcf | bellard | T0 = env->y; |
507 | 7a3f1944 | bellard | } |
508 | 7a3f1944 | bellard | |
509 | e8af50a3 | bellard | void OPPROTO op_rdwim(void) |
510 | cf495bcf | bellard | { |
511 | e8af50a3 | bellard | T0 = env->wim; |
512 | e8af50a3 | bellard | } |
513 | e8af50a3 | bellard | |
514 | e8af50a3 | bellard | void OPPROTO op_wrwim(void) |
515 | e8af50a3 | bellard | { |
516 | e8af50a3 | bellard | env->wim = T0; |
517 | e8af50a3 | bellard | FORCE_RET(); |
518 | e8af50a3 | bellard | } |
519 | e8af50a3 | bellard | |
520 | e8af50a3 | bellard | void OPPROTO op_rdpsr(void) |
521 | e8af50a3 | bellard | { |
522 | e8af50a3 | bellard | T0 = GET_PSR(env); |
523 | e8af50a3 | bellard | } |
524 | e8af50a3 | bellard | |
525 | e8af50a3 | bellard | void OPPROTO op_wrpsr(void) |
526 | e8af50a3 | bellard | { |
527 | e80cfcfc | bellard | PUT_PSR(env,T0); |
528 | e8af50a3 | bellard | FORCE_RET(); |
529 | e8af50a3 | bellard | } |
530 | e8af50a3 | bellard | |
531 | e8af50a3 | bellard | void OPPROTO op_rdtbr(void) |
532 | e8af50a3 | bellard | { |
533 | e8af50a3 | bellard | T0 = env->tbr; |
534 | e8af50a3 | bellard | } |
535 | cf495bcf | bellard | |
536 | e8af50a3 | bellard | void OPPROTO op_wrtbr(void) |
537 | 7a3f1944 | bellard | { |
538 | e8af50a3 | bellard | env->tbr = T0; |
539 | e8af50a3 | bellard | FORCE_RET(); |
540 | 7a3f1944 | bellard | } |
541 | 7a3f1944 | bellard | |
542 | e8af50a3 | bellard | void OPPROTO op_rett(void) |
543 | cf495bcf | bellard | { |
544 | e8af50a3 | bellard | helper_rett(); |
545 | e8af50a3 | bellard | FORCE_RET(); |
546 | cf495bcf | bellard | } |
547 | 7a3f1944 | bellard | |
548 | e8af50a3 | bellard | void raise_exception(int tt) |
549 | e8af50a3 | bellard | { |
550 | e8af50a3 | bellard | env->exception_index = tt; |
551 | e8af50a3 | bellard | cpu_loop_exit(); |
552 | e8af50a3 | bellard | } |
553 | e8af50a3 | bellard | |
554 | cf495bcf | bellard | /* XXX: use another pointer for %iN registers to avoid slow wrapping
|
555 | cf495bcf | bellard | handling ? */
|
556 | cf495bcf | bellard | void OPPROTO op_save(void) |
557 | 7a3f1944 | bellard | { |
558 | cf495bcf | bellard | int cwp;
|
559 | cf495bcf | bellard | cwp = (env->cwp - 1) & (NWINDOWS - 1); |
560 | cf495bcf | bellard | if (env->wim & (1 << cwp)) { |
561 | cf495bcf | bellard | raise_exception(TT_WIN_OVF); |
562 | cf495bcf | bellard | } |
563 | cf495bcf | bellard | set_cwp(cwp); |
564 | cf495bcf | bellard | FORCE_RET(); |
565 | 7a3f1944 | bellard | } |
566 | 7a3f1944 | bellard | |
567 | cf495bcf | bellard | void OPPROTO op_restore(void) |
568 | 7a3f1944 | bellard | { |
569 | cf495bcf | bellard | int cwp;
|
570 | cf495bcf | bellard | cwp = (env->cwp + 1) & (NWINDOWS - 1); |
571 | cf495bcf | bellard | if (env->wim & (1 << cwp)) { |
572 | cf495bcf | bellard | raise_exception(TT_WIN_UNF); |
573 | cf495bcf | bellard | } |
574 | cf495bcf | bellard | set_cwp(cwp); |
575 | cf495bcf | bellard | FORCE_RET(); |
576 | 7a3f1944 | bellard | } |
577 | 7a3f1944 | bellard | |
578 | cf495bcf | bellard | void OPPROTO op_exception(void) |
579 | 7a3f1944 | bellard | { |
580 | cf495bcf | bellard | env->exception_index = PARAM1; |
581 | cf495bcf | bellard | cpu_loop_exit(); |
582 | 7a3f1944 | bellard | } |
583 | 7a3f1944 | bellard | |
584 | cf495bcf | bellard | void OPPROTO op_trap_T0(void) |
585 | 7a3f1944 | bellard | { |
586 | cf495bcf | bellard | env->exception_index = TT_TRAP + (T0 & 0x7f);
|
587 | cf495bcf | bellard | cpu_loop_exit(); |
588 | 7a3f1944 | bellard | } |
589 | 7a3f1944 | bellard | |
590 | cf495bcf | bellard | void OPPROTO op_trapcc_T0(void) |
591 | 7a3f1944 | bellard | { |
592 | cf495bcf | bellard | if (T2) {
|
593 | cf495bcf | bellard | env->exception_index = TT_TRAP + (T0 & 0x7f);
|
594 | cf495bcf | bellard | cpu_loop_exit(); |
595 | cf495bcf | bellard | } |
596 | cf495bcf | bellard | FORCE_RET(); |
597 | 7a3f1944 | bellard | } |
598 | 7a3f1944 | bellard | |
599 | e80cfcfc | bellard | void OPPROTO op_trap_ifnofpu(void) |
600 | e80cfcfc | bellard | { |
601 | e80cfcfc | bellard | if (!env->psref) {
|
602 | e80cfcfc | bellard | env->exception_index = TT_NFPU_INSN; |
603 | e80cfcfc | bellard | cpu_loop_exit(); |
604 | e80cfcfc | bellard | } |
605 | e80cfcfc | bellard | FORCE_RET(); |
606 | e80cfcfc | bellard | } |
607 | e80cfcfc | bellard | |
608 | e80cfcfc | bellard | void OPPROTO op_fpexception_im(void) |
609 | e8af50a3 | bellard | { |
610 | e80cfcfc | bellard | env->exception_index = TT_FP_EXCP; |
611 | e80cfcfc | bellard | env->fsr &= ~FSR_FTT_MASK; |
612 | e80cfcfc | bellard | env->fsr |= PARAM1; |
613 | e8af50a3 | bellard | cpu_loop_exit(); |
614 | e80cfcfc | bellard | FORCE_RET(); |
615 | e80cfcfc | bellard | } |
616 | e80cfcfc | bellard | |
617 | e80cfcfc | bellard | void OPPROTO op_debug(void) |
618 | e80cfcfc | bellard | { |
619 | e80cfcfc | bellard | helper_debug(); |
620 | e8af50a3 | bellard | } |
621 | e8af50a3 | bellard | |
622 | cf495bcf | bellard | void OPPROTO op_exit_tb(void) |
623 | 7a3f1944 | bellard | { |
624 | cf495bcf | bellard | EXIT_TB(); |
625 | 7a3f1944 | bellard | } |
626 | 7a3f1944 | bellard | |
627 | cf495bcf | bellard | void OPPROTO op_eval_be(void) |
628 | 7a3f1944 | bellard | { |
629 | cf495bcf | bellard | T2 = (env->psr & PSR_ZERO); |
630 | 7a3f1944 | bellard | } |
631 | 7a3f1944 | bellard | |
632 | cf495bcf | bellard | void OPPROTO op_eval_ble(void) |
633 | 7a3f1944 | bellard | { |
634 | 612b477d | bellard | unsigned int Z = FLAG_SET(PSR_ZERO), N = FLAG_SET(PSR_NEG), V = FLAG_SET(PSR_OVF); |
635 | 612b477d | bellard | |
636 | cf495bcf | bellard | T2 = Z | (N ^ V); |
637 | 7a3f1944 | bellard | } |
638 | 7a3f1944 | bellard | |
639 | cf495bcf | bellard | void OPPROTO op_eval_bl(void) |
640 | 7a3f1944 | bellard | { |
641 | 612b477d | bellard | unsigned int N = FLAG_SET(PSR_NEG), V = FLAG_SET(PSR_OVF); |
642 | 612b477d | bellard | |
643 | cf495bcf | bellard | T2 = N ^ V; |
644 | 7a3f1944 | bellard | } |
645 | 7a3f1944 | bellard | |
646 | cf495bcf | bellard | void OPPROTO op_eval_bleu(void) |
647 | 7a3f1944 | bellard | { |
648 | 612b477d | bellard | unsigned int Z = FLAG_SET(PSR_ZERO), C = FLAG_SET(PSR_CARRY); |
649 | 612b477d | bellard | |
650 | cf495bcf | bellard | T2 = C | Z; |
651 | 7a3f1944 | bellard | } |
652 | 7a3f1944 | bellard | |
653 | cf495bcf | bellard | void OPPROTO op_eval_bcs(void) |
654 | 7a3f1944 | bellard | { |
655 | cf495bcf | bellard | T2 = (env->psr & PSR_CARRY); |
656 | 7a3f1944 | bellard | } |
657 | 7a3f1944 | bellard | |
658 | cf495bcf | bellard | void OPPROTO op_eval_bvs(void) |
659 | 7a3f1944 | bellard | { |
660 | cf495bcf | bellard | T2 = (env->psr & PSR_OVF); |
661 | 7a3f1944 | bellard | } |
662 | 7a3f1944 | bellard | |
663 | cf495bcf | bellard | void OPPROTO op_eval_bneg(void) |
664 | 7a3f1944 | bellard | { |
665 | cf495bcf | bellard | T2 = (env->psr & PSR_NEG); |
666 | 7a3f1944 | bellard | } |
667 | 7a3f1944 | bellard | |
668 | cf495bcf | bellard | void OPPROTO op_eval_bne(void) |
669 | 7a3f1944 | bellard | { |
670 | cf495bcf | bellard | T2 = !(env->psr & PSR_ZERO); |
671 | 7a3f1944 | bellard | } |
672 | 7a3f1944 | bellard | |
673 | cf495bcf | bellard | void OPPROTO op_eval_bg(void) |
674 | 7a3f1944 | bellard | { |
675 | 612b477d | bellard | unsigned int Z = FLAG_SET(PSR_ZERO), N = FLAG_SET(PSR_NEG), V = FLAG_SET(PSR_OVF); |
676 | 612b477d | bellard | |
677 | cf495bcf | bellard | T2 = !(Z | (N ^ V)); |
678 | 7a3f1944 | bellard | } |
679 | 7a3f1944 | bellard | |
680 | cf495bcf | bellard | void OPPROTO op_eval_bge(void) |
681 | 7a3f1944 | bellard | { |
682 | 612b477d | bellard | unsigned int N = FLAG_SET(PSR_NEG), V = FLAG_SET(PSR_OVF); |
683 | 612b477d | bellard | |
684 | cf495bcf | bellard | T2 = !(N ^ V); |
685 | 7a3f1944 | bellard | } |
686 | 7a3f1944 | bellard | |
687 | cf495bcf | bellard | void OPPROTO op_eval_bgu(void) |
688 | 7a3f1944 | bellard | { |
689 | 612b477d | bellard | unsigned int Z = FLAG_SET(PSR_ZERO), C = FLAG_SET(PSR_CARRY); |
690 | 612b477d | bellard | |
691 | cf495bcf | bellard | T2 = !(C | Z); |
692 | 7a3f1944 | bellard | } |
693 | 7a3f1944 | bellard | |
694 | cf495bcf | bellard | void OPPROTO op_eval_bcc(void) |
695 | 7a3f1944 | bellard | { |
696 | cf495bcf | bellard | T2 = !(env->psr & PSR_CARRY); |
697 | 7a3f1944 | bellard | } |
698 | 7a3f1944 | bellard | |
699 | cf495bcf | bellard | void OPPROTO op_eval_bpos(void) |
700 | cf495bcf | bellard | { |
701 | cf495bcf | bellard | T2 = !(env->psr & PSR_NEG); |
702 | cf495bcf | bellard | } |
703 | cf495bcf | bellard | |
704 | cf495bcf | bellard | void OPPROTO op_eval_bvc(void) |
705 | cf495bcf | bellard | { |
706 | cf495bcf | bellard | T2 = !(env->psr & PSR_OVF); |
707 | cf495bcf | bellard | } |
708 | cf495bcf | bellard | |
709 | e8af50a3 | bellard | /* FCC1:FCC0: 0 =, 1 <, 2 >, 3 u */
|
710 | e8af50a3 | bellard | |
711 | e8af50a3 | bellard | void OPPROTO op_eval_fbne(void) |
712 | e8af50a3 | bellard | { |
713 | e8af50a3 | bellard | // !0
|
714 | e8af50a3 | bellard | T2 = (env->fsr & (FSR_FCC1 | FSR_FCC0)); /* L or G or U */
|
715 | e8af50a3 | bellard | } |
716 | e8af50a3 | bellard | |
717 | e8af50a3 | bellard | void OPPROTO op_eval_fblg(void) |
718 | e8af50a3 | bellard | { |
719 | e8af50a3 | bellard | // 1 or 2
|
720 | e8af50a3 | bellard | T2 = FFLAG_SET(FSR_FCC0) ^ FFLAG_SET(FSR_FCC1); |
721 | e8af50a3 | bellard | } |
722 | e8af50a3 | bellard | |
723 | e8af50a3 | bellard | void OPPROTO op_eval_fbul(void) |
724 | e8af50a3 | bellard | { |
725 | e8af50a3 | bellard | // 1 or 3
|
726 | e8af50a3 | bellard | T2 = FFLAG_SET(FSR_FCC0); |
727 | e8af50a3 | bellard | } |
728 | e8af50a3 | bellard | |
729 | e8af50a3 | bellard | void OPPROTO op_eval_fbl(void) |
730 | e8af50a3 | bellard | { |
731 | e8af50a3 | bellard | // 1
|
732 | e8af50a3 | bellard | T2 = FFLAG_SET(FSR_FCC0) & !FFLAG_SET(FSR_FCC1); |
733 | e8af50a3 | bellard | } |
734 | e8af50a3 | bellard | |
735 | e8af50a3 | bellard | void OPPROTO op_eval_fbug(void) |
736 | e8af50a3 | bellard | { |
737 | e8af50a3 | bellard | // 2 or 3
|
738 | e8af50a3 | bellard | T2 = FFLAG_SET(FSR_FCC1); |
739 | e8af50a3 | bellard | } |
740 | e8af50a3 | bellard | |
741 | e8af50a3 | bellard | void OPPROTO op_eval_fbg(void) |
742 | e8af50a3 | bellard | { |
743 | e8af50a3 | bellard | // 2
|
744 | e8af50a3 | bellard | T2 = !FFLAG_SET(FSR_FCC0) & FFLAG_SET(FSR_FCC1); |
745 | e8af50a3 | bellard | } |
746 | e8af50a3 | bellard | |
747 | e8af50a3 | bellard | void OPPROTO op_eval_fbu(void) |
748 | e8af50a3 | bellard | { |
749 | e8af50a3 | bellard | // 3
|
750 | e8af50a3 | bellard | T2 = FFLAG_SET(FSR_FCC0) & FFLAG_SET(FSR_FCC1); |
751 | e8af50a3 | bellard | } |
752 | e8af50a3 | bellard | |
753 | e8af50a3 | bellard | void OPPROTO op_eval_fbe(void) |
754 | e8af50a3 | bellard | { |
755 | e8af50a3 | bellard | // 0
|
756 | e8af50a3 | bellard | T2 = !FFLAG_SET(FSR_FCC0) & !FFLAG_SET(FSR_FCC1); |
757 | e8af50a3 | bellard | } |
758 | e8af50a3 | bellard | |
759 | e8af50a3 | bellard | void OPPROTO op_eval_fbue(void) |
760 | e8af50a3 | bellard | { |
761 | e8af50a3 | bellard | // 0 or 3
|
762 | e8af50a3 | bellard | T2 = !(FFLAG_SET(FSR_FCC1) ^ FFLAG_SET(FSR_FCC0)); |
763 | e8af50a3 | bellard | } |
764 | e8af50a3 | bellard | |
765 | e8af50a3 | bellard | void OPPROTO op_eval_fbge(void) |
766 | e8af50a3 | bellard | { |
767 | e8af50a3 | bellard | // 0 or 2
|
768 | e8af50a3 | bellard | T2 = !FFLAG_SET(FSR_FCC0); |
769 | e8af50a3 | bellard | } |
770 | e8af50a3 | bellard | |
771 | e8af50a3 | bellard | void OPPROTO op_eval_fbuge(void) |
772 | e8af50a3 | bellard | { |
773 | e8af50a3 | bellard | // !1
|
774 | e8af50a3 | bellard | T2 = !(FFLAG_SET(FSR_FCC0) & !FFLAG_SET(FSR_FCC1)); |
775 | e8af50a3 | bellard | } |
776 | e8af50a3 | bellard | |
777 | e8af50a3 | bellard | void OPPROTO op_eval_fble(void) |
778 | e8af50a3 | bellard | { |
779 | e8af50a3 | bellard | // 0 or 1
|
780 | e8af50a3 | bellard | T2 = !FFLAG_SET(FSR_FCC1); |
781 | e8af50a3 | bellard | } |
782 | e8af50a3 | bellard | |
783 | e8af50a3 | bellard | void OPPROTO op_eval_fbule(void) |
784 | e8af50a3 | bellard | { |
785 | e8af50a3 | bellard | // !2
|
786 | e8af50a3 | bellard | T2 = !(!FFLAG_SET(FSR_FCC0) & FFLAG_SET(FSR_FCC1)); |
787 | e8af50a3 | bellard | } |
788 | e8af50a3 | bellard | |
789 | e8af50a3 | bellard | void OPPROTO op_eval_fbo(void) |
790 | e8af50a3 | bellard | { |
791 | e8af50a3 | bellard | // !3
|
792 | e8af50a3 | bellard | T2 = !(FFLAG_SET(FSR_FCC0) & FFLAG_SET(FSR_FCC1)); |
793 | e8af50a3 | bellard | } |
794 | e8af50a3 | bellard | |
795 | cf495bcf | bellard | void OPPROTO op_movl_T2_0(void) |
796 | cf495bcf | bellard | { |
797 | cf495bcf | bellard | T2 = 0;
|
798 | cf495bcf | bellard | } |
799 | cf495bcf | bellard | |
800 | cf495bcf | bellard | void OPPROTO op_movl_T2_1(void) |
801 | cf495bcf | bellard | { |
802 | cf495bcf | bellard | T2 = 1;
|
803 | cf495bcf | bellard | } |
804 | cf495bcf | bellard | |
805 | cf495bcf | bellard | void OPPROTO op_jmp_im(void) |
806 | cf495bcf | bellard | { |
807 | cf495bcf | bellard | env->pc = PARAM1; |
808 | cf495bcf | bellard | } |
809 | cf495bcf | bellard | |
810 | cf495bcf | bellard | void OPPROTO op_movl_npc_im(void) |
811 | cf495bcf | bellard | { |
812 | cf495bcf | bellard | env->npc = PARAM1; |
813 | cf495bcf | bellard | } |
814 | 7a3f1944 | bellard | |
815 | cf495bcf | bellard | void OPPROTO op_movl_npc_T0(void) |
816 | 7a3f1944 | bellard | { |
817 | cf495bcf | bellard | env->npc = T0; |
818 | 7a3f1944 | bellard | } |
819 | 7a3f1944 | bellard | |
820 | cf495bcf | bellard | void OPPROTO op_next_insn(void) |
821 | 7a3f1944 | bellard | { |
822 | cf495bcf | bellard | env->pc = env->npc; |
823 | cf495bcf | bellard | env->npc = env->npc + 4;
|
824 | 7a3f1944 | bellard | } |
825 | 7a3f1944 | bellard | |
826 | 72cbca10 | bellard | void OPPROTO op_branch(void) |
827 | 72cbca10 | bellard | { |
828 | 72cbca10 | bellard | env->npc = PARAM3; /* XXX: optimize */
|
829 | 72cbca10 | bellard | JUMP_TB(op_branch, PARAM1, 0, PARAM2);
|
830 | 72cbca10 | bellard | } |
831 | 72cbca10 | bellard | |
832 | 72cbca10 | bellard | void OPPROTO op_branch2(void) |
833 | 7a3f1944 | bellard | { |
834 | cf495bcf | bellard | if (T2) {
|
835 | 72cbca10 | bellard | env->npc = PARAM2 + 4;
|
836 | 72cbca10 | bellard | JUMP_TB(op_branch2, PARAM1, 0, PARAM2);
|
837 | cf495bcf | bellard | } else {
|
838 | 72cbca10 | bellard | env->npc = PARAM3 + 4;
|
839 | 72cbca10 | bellard | JUMP_TB(op_branch2, PARAM1, 1, PARAM3);
|
840 | 72cbca10 | bellard | } |
841 | 72cbca10 | bellard | FORCE_RET(); |
842 | 72cbca10 | bellard | } |
843 | 72cbca10 | bellard | |
844 | 72cbca10 | bellard | void OPPROTO op_branch_a(void) |
845 | 72cbca10 | bellard | { |
846 | 72cbca10 | bellard | if (T2) {
|
847 | 72cbca10 | bellard | env->npc = PARAM2; /* XXX: optimize */
|
848 | 72cbca10 | bellard | JUMP_TB(op_generic_branch_a, PARAM1, 0, PARAM3);
|
849 | 72cbca10 | bellard | } else {
|
850 | 72cbca10 | bellard | env->npc = PARAM3 + 8; /* XXX: optimize */ |
851 | 72cbca10 | bellard | JUMP_TB(op_generic_branch_a, PARAM1, 1, PARAM3 + 4); |
852 | cf495bcf | bellard | } |
853 | cf495bcf | bellard | FORCE_RET(); |
854 | 7a3f1944 | bellard | } |
855 | 7a3f1944 | bellard | |
856 | 72cbca10 | bellard | void OPPROTO op_generic_branch(void) |
857 | 7a3f1944 | bellard | { |
858 | cf495bcf | bellard | if (T2) {
|
859 | cf495bcf | bellard | env->npc = PARAM1; |
860 | cf495bcf | bellard | } else {
|
861 | 72cbca10 | bellard | env->npc = PARAM2; |
862 | cf495bcf | bellard | } |
863 | cf495bcf | bellard | FORCE_RET(); |
864 | 7a3f1944 | bellard | } |
865 | 72cbca10 | bellard | |
866 | 658138bc | bellard | void OPPROTO op_flush_T0(void) |
867 | 658138bc | bellard | { |
868 | 658138bc | bellard | helper_flush(T0); |
869 | 658138bc | bellard | } |
870 | e8af50a3 | bellard | |
871 | e8af50a3 | bellard | void OPPROTO op_fnegs(void) |
872 | e8af50a3 | bellard | { |
873 | e8af50a3 | bellard | FT0 = -FT1; |
874 | e8af50a3 | bellard | } |
875 | e8af50a3 | bellard | |
876 | e8af50a3 | bellard | void OPPROTO op_fabss(void) |
877 | e8af50a3 | bellard | { |
878 | e8af50a3 | bellard | do_fabss(); |
879 | e8af50a3 | bellard | } |
880 | e8af50a3 | bellard | |
881 | e8af50a3 | bellard | void OPPROTO op_fsqrts(void) |
882 | e8af50a3 | bellard | { |
883 | e8af50a3 | bellard | do_fsqrts(); |
884 | e8af50a3 | bellard | } |
885 | e8af50a3 | bellard | |
886 | e8af50a3 | bellard | void OPPROTO op_fsqrtd(void) |
887 | e8af50a3 | bellard | { |
888 | e8af50a3 | bellard | do_fsqrtd(); |
889 | e8af50a3 | bellard | } |
890 | e8af50a3 | bellard | |
891 | e8af50a3 | bellard | void OPPROTO op_fmuls(void) |
892 | e8af50a3 | bellard | { |
893 | e8af50a3 | bellard | FT0 *= FT1; |
894 | e8af50a3 | bellard | } |
895 | e8af50a3 | bellard | |
896 | e8af50a3 | bellard | void OPPROTO op_fmuld(void) |
897 | e8af50a3 | bellard | { |
898 | e8af50a3 | bellard | DT0 *= DT1; |
899 | e8af50a3 | bellard | } |
900 | e8af50a3 | bellard | |
901 | e8af50a3 | bellard | void OPPROTO op_fsmuld(void) |
902 | e8af50a3 | bellard | { |
903 | e8af50a3 | bellard | DT0 = FT0 * FT1; |
904 | e8af50a3 | bellard | } |
905 | e8af50a3 | bellard | |
906 | e8af50a3 | bellard | void OPPROTO op_fadds(void) |
907 | e8af50a3 | bellard | { |
908 | e8af50a3 | bellard | FT0 += FT1; |
909 | e8af50a3 | bellard | } |
910 | e8af50a3 | bellard | |
911 | e8af50a3 | bellard | void OPPROTO op_faddd(void) |
912 | e8af50a3 | bellard | { |
913 | e8af50a3 | bellard | DT0 += DT1; |
914 | e8af50a3 | bellard | } |
915 | e8af50a3 | bellard | |
916 | e8af50a3 | bellard | void OPPROTO op_fsubs(void) |
917 | e8af50a3 | bellard | { |
918 | e8af50a3 | bellard | FT0 -= FT1; |
919 | e8af50a3 | bellard | } |
920 | e8af50a3 | bellard | |
921 | e8af50a3 | bellard | void OPPROTO op_fsubd(void) |
922 | e8af50a3 | bellard | { |
923 | e8af50a3 | bellard | DT0 -= DT1; |
924 | e8af50a3 | bellard | } |
925 | e8af50a3 | bellard | |
926 | e8af50a3 | bellard | void OPPROTO op_fdivs(void) |
927 | e8af50a3 | bellard | { |
928 | e8af50a3 | bellard | FT0 /= FT1; |
929 | e8af50a3 | bellard | } |
930 | e8af50a3 | bellard | |
931 | e8af50a3 | bellard | void OPPROTO op_fdivd(void) |
932 | e8af50a3 | bellard | { |
933 | e8af50a3 | bellard | DT0 /= DT1; |
934 | e8af50a3 | bellard | } |
935 | e8af50a3 | bellard | |
936 | e8af50a3 | bellard | void OPPROTO op_fcmps(void) |
937 | e8af50a3 | bellard | { |
938 | e8af50a3 | bellard | do_fcmps(); |
939 | e8af50a3 | bellard | } |
940 | e8af50a3 | bellard | |
941 | e8af50a3 | bellard | void OPPROTO op_fcmpd(void) |
942 | e8af50a3 | bellard | { |
943 | e8af50a3 | bellard | do_fcmpd(); |
944 | e8af50a3 | bellard | } |
945 | e8af50a3 | bellard | |
946 | a0c4cb4a | bellard | #ifdef USE_INT_TO_FLOAT_HELPERS
|
947 | e8af50a3 | bellard | void OPPROTO op_fitos(void) |
948 | e8af50a3 | bellard | { |
949 | a0c4cb4a | bellard | do_fitos(); |
950 | e8af50a3 | bellard | } |
951 | e8af50a3 | bellard | |
952 | a0c4cb4a | bellard | void OPPROTO op_fitod(void) |
953 | e8af50a3 | bellard | { |
954 | a0c4cb4a | bellard | do_fitod(); |
955 | a0c4cb4a | bellard | } |
956 | a0c4cb4a | bellard | #else
|
957 | a0c4cb4a | bellard | void OPPROTO op_fitos(void) |
958 | a0c4cb4a | bellard | { |
959 | a0c4cb4a | bellard | FT0 = (float) *((int32_t *)&FT1);
|
960 | e8af50a3 | bellard | } |
961 | e8af50a3 | bellard | |
962 | e8af50a3 | bellard | void OPPROTO op_fitod(void) |
963 | e8af50a3 | bellard | { |
964 | e8af50a3 | bellard | DT0 = (double) *((int32_t *)&FT1);
|
965 | e8af50a3 | bellard | } |
966 | a0c4cb4a | bellard | #endif
|
967 | a0c4cb4a | bellard | |
968 | a0c4cb4a | bellard | void OPPROTO op_fdtos(void) |
969 | a0c4cb4a | bellard | { |
970 | a0c4cb4a | bellard | FT0 = (float) DT1;
|
971 | a0c4cb4a | bellard | } |
972 | e8af50a3 | bellard | |
973 | e8af50a3 | bellard | void OPPROTO op_fstod(void) |
974 | e8af50a3 | bellard | { |
975 | e8af50a3 | bellard | DT0 = (double) FT1;
|
976 | e8af50a3 | bellard | } |
977 | e8af50a3 | bellard | |
978 | e8af50a3 | bellard | void OPPROTO op_fstoi(void) |
979 | e8af50a3 | bellard | { |
980 | e8af50a3 | bellard | *((int32_t *)&FT0) = (int32_t) FT1; |
981 | e8af50a3 | bellard | } |
982 | e8af50a3 | bellard | |
983 | e8af50a3 | bellard | void OPPROTO op_fdtoi(void) |
984 | e8af50a3 | bellard | { |
985 | e8af50a3 | bellard | *((int32_t *)&FT0) = (int32_t) DT1; |
986 | e8af50a3 | bellard | } |
987 | e8af50a3 | bellard | |
988 | e8af50a3 | bellard | void OPPROTO op_ld_asi()
|
989 | e8af50a3 | bellard | { |
990 | e8af50a3 | bellard | helper_ld_asi(PARAM1, PARAM2, PARAM3); |
991 | e8af50a3 | bellard | } |
992 | e8af50a3 | bellard | |
993 | e8af50a3 | bellard | void OPPROTO op_st_asi()
|
994 | e8af50a3 | bellard | { |
995 | e8af50a3 | bellard | helper_st_asi(PARAM1, PARAM2, PARAM3); |
996 | e8af50a3 | bellard | } |