1 | /* |
2 | * m68k FPU helpers |
3 | * |
4 | * Copyright (c) 2006-2007 CodeSourcery |
5 | * Written by Paul Brook |
6 | * |
7 | * This library is free software; you can redistribute it and/or |
8 | * modify it under the terms of the GNU Lesser General Public |
9 | * License as published by the Free Software Foundation; either |
10 | * version 2.1 of the License, or (at your option) any later version. |
11 | * |
12 | * This library is distributed in the hope that it will be useful, |
13 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
15 | * Lesser General Public License for more details. |
16 | * |
17 | * You should have received a copy of the GNU Lesser General Public |
18 | * License along with this library; if not, see <http://www.gnu.org/licenses/>. |
19 | */ |
20 | |
21 | #include "qemu/osdep.h" |
22 | #include "cpu.h" |
23 | #include "exec/helper-proto.h" |
24 | #include "exec/exec-all.h" |
25 | #include "exec/cpu_ldst.h" |
26 | #include "softfloat.h" |
27 | |
28 | /* |
29 | * Undefined offsets may be different on various FPU. |
30 | * On 68040 they return 0.0 (floatx80_zero) |
31 | */ |
32 | |
33 | static const floatx80 fpu_rom[128] = { |
34 | [0x00] = make_floatx80_init(0x4000, 0xc90fdaa22168c235ULL), /* Pi */ |
35 | [0x0b] = make_floatx80_init(0x3ffd, 0x9a209a84fbcff798ULL), /* Log10(2) */ |
36 | [0x0c] = make_floatx80_init(0x4000, 0xadf85458a2bb4a9aULL), /* e */ |
37 | [0x0d] = make_floatx80_init(0x3fff, 0xb8aa3b295c17f0bcULL), /* Log2(e) */ |
38 | [0x0e] = make_floatx80_init(0x3ffd, 0xde5bd8a937287195ULL), /* Log10(e) */ |
39 | [0x0f] = make_floatx80_init(0x0000, 0x0000000000000000ULL), /* Zero */ |
40 | [0x30] = make_floatx80_init(0x3ffe, 0xb17217f7d1cf79acULL), /* ln(2) */ |
41 | [0x31] = make_floatx80_init(0x4000, 0x935d8dddaaa8ac17ULL), /* ln(10) */ |
42 | [0x32] = make_floatx80_init(0x3fff, 0x8000000000000000ULL), /* 10^0 */ |
43 | [0x33] = make_floatx80_init(0x4002, 0xa000000000000000ULL), /* 10^1 */ |
44 | [0x34] = make_floatx80_init(0x4005, 0xc800000000000000ULL), /* 10^2 */ |
45 | [0x35] = make_floatx80_init(0x400c, 0x9c40000000000000ULL), /* 10^4 */ |
46 | [0x36] = make_floatx80_init(0x4019, 0xbebc200000000000ULL), /* 10^8 */ |
47 | [0x37] = make_floatx80_init(0x4034, 0x8e1bc9bf04000000ULL), /* 10^16 */ |
48 | [0x38] = make_floatx80_init(0x4069, 0x9dc5ada82b70b59eULL), /* 10^32 */ |
49 | [0x39] = make_floatx80_init(0x40d3, 0xc2781f49ffcfa6d5ULL), /* 10^64 */ |
50 | [0x3a] = make_floatx80_init(0x41a8, 0x93ba47c980e98ce0ULL), /* 10^128 */ |
51 | [0x3b] = make_floatx80_init(0x4351, 0xaa7eebfb9df9de8eULL), /* 10^256 */ |
52 | [0x3c] = make_floatx80_init(0x46a3, 0xe319a0aea60e91c7ULL), /* 10^512 */ |
53 | [0x3d] = make_floatx80_init(0x4d48, 0xc976758681750c17ULL), /* 10^1024 */ |
54 | [0x3e] = make_floatx80_init(0x5a92, 0x9e8b3b5dc53d5de5ULL), /* 10^2048 */ |
55 | [0x3f] = make_floatx80_init(0x7525, 0xc46052028a20979bULL), /* 10^4096 */ |
56 | }; |
57 | |
58 | int32_t HELPER(reds32)(CPUM68KState *env, FPReg *val) |
59 | { |
60 | return floatx80_to_int32(val->d, &env->fp_status); |
61 | } |
62 | |
63 | float32 HELPER(redf32)(CPUM68KState *env, FPReg *val) |
64 | { |
65 | return floatx80_to_float32(val->d, &env->fp_status); |
66 | } |
67 | |
68 | void HELPER(exts32)(CPUM68KState *env, FPReg *res, int32_t val) |
69 | { |
70 | res->d = int32_to_floatx80(val, &env->fp_status); |
71 | } |
72 | |
73 | void HELPER(extf32)(CPUM68KState *env, FPReg *res, float32 val) |
74 | { |
75 | res->d = float32_to_floatx80(val, &env->fp_status); |
76 | } |
77 | |
78 | void HELPER(extf64)(CPUM68KState *env, FPReg *res, float64 val) |
79 | { |
80 | res->d = float64_to_floatx80(val, &env->fp_status); |
81 | } |
82 | |
83 | float64 HELPER(redf64)(CPUM68KState *env, FPReg *val) |
84 | { |
85 | return floatx80_to_float64(val->d, &env->fp_status); |
86 | } |
87 | |
88 | void HELPER(firound)(CPUM68KState *env, FPReg *res, FPReg *val) |
89 | { |
90 | res->d = floatx80_round_to_int(val->d, &env->fp_status); |
91 | } |
92 | |
93 | static void m68k_restore_precision_mode(CPUM68KState *env) |
94 | { |
95 | switch (env->fpcr & FPCR_PREC_MASK) { |
96 | case FPCR_PREC_X: /* extended */ |
97 | set_floatx80_rounding_precision(80, &env->fp_status); |
98 | break; |
99 | case FPCR_PREC_S: /* single */ |
100 | set_floatx80_rounding_precision(32, &env->fp_status); |
101 | break; |
102 | case FPCR_PREC_D: /* double */ |
103 | set_floatx80_rounding_precision(64, &env->fp_status); |
104 | break; |
105 | case FPCR_PREC_U: /* undefined */ |
106 | default: |
107 | break; |
108 | } |
109 | } |
110 | |
111 | static void cf_restore_precision_mode(CPUM68KState *env) |
112 | { |
113 | if (env->fpcr & FPCR_PREC_S) { /* single */ |
114 | set_floatx80_rounding_precision(32, &env->fp_status); |
115 | } else { /* double */ |
116 | set_floatx80_rounding_precision(64, &env->fp_status); |
117 | } |
118 | } |
119 | |
120 | static void restore_rounding_mode(CPUM68KState *env) |
121 | { |
122 | switch (env->fpcr & FPCR_RND_MASK) { |
123 | case FPCR_RND_N: /* round to nearest */ |
124 | set_float_rounding_mode(float_round_nearest_even, &env->fp_status); |
125 | break; |
126 | case FPCR_RND_Z: /* round to zero */ |
127 | set_float_rounding_mode(float_round_to_zero, &env->fp_status); |
128 | break; |
129 | case FPCR_RND_M: /* round toward minus infinity */ |
130 | set_float_rounding_mode(float_round_down, &env->fp_status); |
131 | break; |
132 | case FPCR_RND_P: /* round toward positive infinity */ |
133 | set_float_rounding_mode(float_round_up, &env->fp_status); |
134 | break; |
135 | } |
136 | } |
137 | |
138 | void cpu_m68k_set_fpcr(CPUM68KState *env, uint32_t val) |
139 | { |
140 | env->fpcr = val & 0xffff; |
141 | |
142 | if (m68k_feature(env, M68K_FEATURE_CF_FPU)) { |
143 | cf_restore_precision_mode(env); |
144 | } else { |
145 | m68k_restore_precision_mode(env); |
146 | } |
147 | restore_rounding_mode(env); |
148 | } |
149 | |
150 | void HELPER(fitrunc)(CPUM68KState *env, FPReg *res, FPReg *val) |
151 | { |
152 | int rounding_mode = get_float_rounding_mode(&env->fp_status); |
153 | set_float_rounding_mode(float_round_to_zero, &env->fp_status); |
154 | res->d = floatx80_round_to_int(val->d, &env->fp_status); |
155 | set_float_rounding_mode(rounding_mode, &env->fp_status); |
156 | } |
157 | |
158 | void HELPER(set_fpcr)(CPUM68KState *env, uint32_t val) |
159 | { |
160 | cpu_m68k_set_fpcr(env, val); |
161 | } |
162 | |
163 | #define PREC_BEGIN(prec) \ |
164 | do { \ |
165 | int old; \ |
166 | old = get_floatx80_rounding_precision(&env->fp_status); \ |
167 | set_floatx80_rounding_precision(prec, &env->fp_status) \ |
168 | |
169 | #define PREC_END() \ |
170 | set_floatx80_rounding_precision(old, &env->fp_status); \ |
171 | } while (0) |
172 | |
173 | void HELPER(fsround)(CPUM68KState *env, FPReg *res, FPReg *val) |
174 | { |
175 | PREC_BEGIN(32); |
176 | res->d = floatx80_round(val->d, &env->fp_status); |
177 | PREC_END(); |
178 | } |
179 | |
180 | void HELPER(fdround)(CPUM68KState *env, FPReg *res, FPReg *val) |
181 | { |
182 | PREC_BEGIN(64); |
183 | res->d = floatx80_round(val->d, &env->fp_status); |
184 | PREC_END(); |
185 | } |
186 | |
187 | void HELPER(fsqrt)(CPUM68KState *env, FPReg *res, FPReg *val) |
188 | { |
189 | res->d = floatx80_sqrt(val->d, &env->fp_status); |
190 | } |
191 | |
192 | void HELPER(fssqrt)(CPUM68KState *env, FPReg *res, FPReg *val) |
193 | { |
194 | PREC_BEGIN(32); |
195 | res->d = floatx80_sqrt(val->d, &env->fp_status); |
196 | PREC_END(); |
197 | } |
198 | |
199 | void HELPER(fdsqrt)(CPUM68KState *env, FPReg *res, FPReg *val) |
200 | { |
201 | PREC_BEGIN(64); |
202 | res->d = floatx80_sqrt(val->d, &env->fp_status); |
203 | PREC_END(); |
204 | } |
205 | |
206 | void HELPER(fabs)(CPUM68KState *env, FPReg *res, FPReg *val) |
207 | { |
208 | res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status); |
209 | } |
210 | |
211 | void HELPER(fsabs)(CPUM68KState *env, FPReg *res, FPReg *val) |
212 | { |
213 | PREC_BEGIN(32); |
214 | res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status); |
215 | PREC_END(); |
216 | } |
217 | |
218 | void HELPER(fdabs)(CPUM68KState *env, FPReg *res, FPReg *val) |
219 | { |
220 | PREC_BEGIN(64); |
221 | res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status); |
222 | PREC_END(); |
223 | } |
224 | |
225 | void HELPER(fneg)(CPUM68KState *env, FPReg *res, FPReg *val) |
226 | { |
227 | res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status); |
228 | } |
229 | |
230 | void HELPER(fsneg)(CPUM68KState *env, FPReg *res, FPReg *val) |
231 | { |
232 | PREC_BEGIN(32); |
233 | res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status); |
234 | PREC_END(); |
235 | } |
236 | |
237 | void HELPER(fdneg)(CPUM68KState *env, FPReg *res, FPReg *val) |
238 | { |
239 | PREC_BEGIN(64); |
240 | res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status); |
241 | PREC_END(); |
242 | } |
243 | |
244 | void HELPER(fadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
245 | { |
246 | res->d = floatx80_add(val0->d, val1->d, &env->fp_status); |
247 | } |
248 | |
249 | void HELPER(fsadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
250 | { |
251 | PREC_BEGIN(32); |
252 | res->d = floatx80_add(val0->d, val1->d, &env->fp_status); |
253 | PREC_END(); |
254 | } |
255 | |
256 | void HELPER(fdadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
257 | { |
258 | PREC_BEGIN(64); |
259 | res->d = floatx80_add(val0->d, val1->d, &env->fp_status); |
260 | PREC_END(); |
261 | } |
262 | |
263 | void HELPER(fsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
264 | { |
265 | res->d = floatx80_sub(val1->d, val0->d, &env->fp_status); |
266 | } |
267 | |
268 | void HELPER(fssub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
269 | { |
270 | PREC_BEGIN(32); |
271 | res->d = floatx80_sub(val1->d, val0->d, &env->fp_status); |
272 | PREC_END(); |
273 | } |
274 | |
275 | void HELPER(fdsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
276 | { |
277 | PREC_BEGIN(64); |
278 | res->d = floatx80_sub(val1->d, val0->d, &env->fp_status); |
279 | PREC_END(); |
280 | } |
281 | |
282 | void HELPER(fmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
283 | { |
284 | res->d = floatx80_mul(val0->d, val1->d, &env->fp_status); |
285 | } |
286 | |
287 | void HELPER(fsmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
288 | { |
289 | PREC_BEGIN(32); |
290 | res->d = floatx80_mul(val0->d, val1->d, &env->fp_status); |
291 | PREC_END(); |
292 | } |
293 | |
294 | void HELPER(fdmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
295 | { |
296 | PREC_BEGIN(64); |
297 | res->d = floatx80_mul(val0->d, val1->d, &env->fp_status); |
298 | PREC_END(); |
299 | } |
300 | |
301 | void HELPER(fsglmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
302 | { |
303 | int rounding_mode = get_float_rounding_mode(&env->fp_status); |
304 | floatx80 a, b; |
305 | |
306 | PREC_BEGIN(32); |
307 | set_float_rounding_mode(float_round_to_zero, &env->fp_status); |
308 | a = floatx80_round(val0->d, &env->fp_status); |
309 | b = floatx80_round(val1->d, &env->fp_status); |
310 | set_float_rounding_mode(rounding_mode, &env->fp_status); |
311 | res->d = floatx80_mul(a, b, &env->fp_status); |
312 | PREC_END(); |
313 | } |
314 | |
315 | void HELPER(fdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
316 | { |
317 | res->d = floatx80_div(val1->d, val0->d, &env->fp_status); |
318 | } |
319 | |
320 | void HELPER(fsdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
321 | { |
322 | PREC_BEGIN(32); |
323 | res->d = floatx80_div(val1->d, val0->d, &env->fp_status); |
324 | PREC_END(); |
325 | } |
326 | |
327 | void HELPER(fddiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
328 | { |
329 | PREC_BEGIN(64); |
330 | res->d = floatx80_div(val1->d, val0->d, &env->fp_status); |
331 | PREC_END(); |
332 | } |
333 | |
334 | void HELPER(fsgldiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
335 | { |
336 | int rounding_mode = get_float_rounding_mode(&env->fp_status); |
337 | floatx80 a, b; |
338 | |
339 | PREC_BEGIN(32); |
340 | set_float_rounding_mode(float_round_to_zero, &env->fp_status); |
341 | a = floatx80_round(val1->d, &env->fp_status); |
342 | b = floatx80_round(val0->d, &env->fp_status); |
343 | set_float_rounding_mode(rounding_mode, &env->fp_status); |
344 | res->d = floatx80_div(a, b, &env->fp_status); |
345 | PREC_END(); |
346 | } |
347 | |
348 | static int float_comp_to_cc(int float_compare) |
349 | { |
350 | switch (float_compare) { |
351 | case float_relation_equal: |
352 | return FPSR_CC_Z; |
353 | case float_relation_less: |
354 | return FPSR_CC_N; |
355 | case float_relation_unordered: |
356 | return FPSR_CC_A; |
357 | case float_relation_greater: |
358 | return 0; |
359 | default: |
360 | g_assert_not_reached(); |
361 | } |
362 | } |
363 | |
364 | void HELPER(fcmp)(CPUM68KState *env, FPReg *val0, FPReg *val1) |
365 | { |
366 | int float_compare; |
367 | |
368 | float_compare = floatx80_compare(val1->d, val0->d, &env->fp_status); |
369 | env->fpsr = (env->fpsr & ~FPSR_CC_MASK) | float_comp_to_cc(float_compare); |
370 | } |
371 | |
372 | void HELPER(ftst)(CPUM68KState *env, FPReg *val) |
373 | { |
374 | uint32_t cc = 0; |
375 | |
376 | if (floatx80_is_neg(val->d)) { |
377 | cc |= FPSR_CC_N; |
378 | } |
379 | |
380 | if (floatx80_is_any_nan(val->d)) { |
381 | cc |= FPSR_CC_A; |
382 | } else if (floatx80_is_infinity(val->d)) { |
383 | cc |= FPSR_CC_I; |
384 | } else if (floatx80_is_zero(val->d)) { |
385 | cc |= FPSR_CC_Z; |
386 | } |
387 | env->fpsr = (env->fpsr & ~FPSR_CC_MASK) | cc; |
388 | } |
389 | |
390 | void HELPER(fconst)(CPUM68KState *env, FPReg *val, uint32_t offset) |
391 | { |
392 | val->d = fpu_rom[offset]; |
393 | } |
394 | |
395 | typedef int (*float_access)(CPUM68KState *env, uint32_t addr, FPReg *fp, |
396 | uintptr_t ra); |
397 | |
398 | static uint32_t fmovem_predec(CPUM68KState *env, uint32_t addr, uint32_t mask, |
399 | float_access access) |
400 | { |
401 | uintptr_t ra = GETPC(); |
402 | int i, size; |
403 | |
404 | for (i = 7; i >= 0; i--, mask <<= 1) { |
405 | if (mask & 0x80) { |
406 | size = access(env, addr, &env->fregs[i], ra); |
407 | if ((mask & 0xff) != 0x80) { |
408 | addr -= size; |
409 | } |
410 | } |
411 | } |
412 | |
413 | return addr; |
414 | } |
415 | |
416 | static uint32_t fmovem_postinc(CPUM68KState *env, uint32_t addr, uint32_t mask, |
417 | float_access access) |
418 | { |
419 | uintptr_t ra = GETPC(); |
420 | int i, size; |
421 | |
422 | for (i = 0; i < 8; i++, mask <<= 1) { |
423 | if (mask & 0x80) { |
424 | size = access(env, addr, &env->fregs[i], ra); |
425 | addr += size; |
426 | } |
427 | } |
428 | |
429 | return addr; |
430 | } |
431 | |
432 | static int cpu_ld_floatx80_ra(CPUM68KState *env, uint32_t addr, FPReg *fp, |
433 | uintptr_t ra) |
434 | { |
435 | uint32_t high; |
436 | uint64_t low; |
437 | |
438 | high = cpu_ldl_data_ra(env, addr, ra); |
439 | low = cpu_ldq_data_ra(env, addr + 4, ra); |
440 | |
441 | fp->l.upper = high >> 16; |
442 | fp->l.lower = low; |
443 | |
444 | return 12; |
445 | } |
446 | |
447 | static int cpu_st_floatx80_ra(CPUM68KState *env, uint32_t addr, FPReg *fp, |
448 | uintptr_t ra) |
449 | { |
450 | cpu_stl_data_ra(env, addr, fp->l.upper << 16, ra); |
451 | cpu_stq_data_ra(env, addr + 4, fp->l.lower, ra); |
452 | |
453 | return 12; |
454 | } |
455 | |
456 | static int cpu_ld_float64_ra(CPUM68KState *env, uint32_t addr, FPReg *fp, |
457 | uintptr_t ra) |
458 | { |
459 | uint64_t val; |
460 | |
461 | val = cpu_ldq_data_ra(env, addr, ra); |
462 | fp->d = float64_to_floatx80(*(float64 *)&val, &env->fp_status); |
463 | |
464 | return 8; |
465 | } |
466 | |
467 | static int cpu_st_float64_ra(CPUM68KState *env, uint32_t addr, FPReg *fp, |
468 | uintptr_t ra) |
469 | { |
470 | float64 val; |
471 | |
472 | val = floatx80_to_float64(fp->d, &env->fp_status); |
473 | cpu_stq_data_ra(env, addr, *(uint64_t *)&val, ra); |
474 | |
475 | return 8; |
476 | } |
477 | |
478 | uint32_t HELPER(fmovemx_st_predec)(CPUM68KState *env, uint32_t addr, |
479 | uint32_t mask) |
480 | { |
481 | return fmovem_predec(env, addr, mask, cpu_st_floatx80_ra); |
482 | } |
483 | |
484 | uint32_t HELPER(fmovemx_st_postinc)(CPUM68KState *env, uint32_t addr, |
485 | uint32_t mask) |
486 | { |
487 | return fmovem_postinc(env, addr, mask, cpu_st_floatx80_ra); |
488 | } |
489 | |
490 | uint32_t HELPER(fmovemx_ld_postinc)(CPUM68KState *env, uint32_t addr, |
491 | uint32_t mask) |
492 | { |
493 | return fmovem_postinc(env, addr, mask, cpu_ld_floatx80_ra); |
494 | } |
495 | |
496 | uint32_t HELPER(fmovemd_st_predec)(CPUM68KState *env, uint32_t addr, |
497 | uint32_t mask) |
498 | { |
499 | return fmovem_predec(env, addr, mask, cpu_st_float64_ra); |
500 | } |
501 | |
502 | uint32_t HELPER(fmovemd_st_postinc)(CPUM68KState *env, uint32_t addr, |
503 | uint32_t mask) |
504 | { |
505 | return fmovem_postinc(env, addr, mask, cpu_st_float64_ra); |
506 | } |
507 | |
508 | uint32_t HELPER(fmovemd_ld_postinc)(CPUM68KState *env, uint32_t addr, |
509 | uint32_t mask) |
510 | { |
511 | return fmovem_postinc(env, addr, mask, cpu_ld_float64_ra); |
512 | } |
513 | |
514 | static void make_quotient(CPUM68KState *env, floatx80 val) |
515 | { |
516 | int32_t quotient; |
517 | int sign; |
518 | |
519 | if (floatx80_is_any_nan(val)) { |
520 | return; |
521 | } |
522 | |
523 | quotient = floatx80_to_int32(val, &env->fp_status); |
524 | sign = quotient < 0; |
525 | if (sign) { |
526 | quotient = -quotient; |
527 | } |
528 | |
529 | quotient = (sign << 7) | (quotient & 0x7f); |
530 | env->fpsr = (env->fpsr & ~FPSR_QT_MASK) | (quotient << FPSR_QT_SHIFT); |
531 | } |
532 | |
533 | void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
534 | { |
535 | res->d = floatx80_mod(val1->d, val0->d, &env->fp_status); |
536 | |
537 | make_quotient(env, res->d); |
538 | } |
539 | |
540 | void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
541 | { |
542 | res->d = floatx80_rem(val1->d, val0->d, &env->fp_status); |
543 | |
544 | make_quotient(env, res->d); |
545 | } |
546 | |
547 | void HELPER(fgetexp)(CPUM68KState *env, FPReg *res, FPReg *val) |
548 | { |
549 | res->d = floatx80_getexp(val->d, &env->fp_status); |
550 | } |
551 | |
552 | void HELPER(fgetman)(CPUM68KState *env, FPReg *res, FPReg *val) |
553 | { |
554 | res->d = floatx80_getman(val->d, &env->fp_status); |
555 | } |
556 | |
557 | void HELPER(fscale)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) |
558 | { |
559 | res->d = floatx80_scale(val1->d, val0->d, &env->fp_status); |
560 | } |
561 | |
562 | void HELPER(flognp1)(CPUM68KState *env, FPReg *res, FPReg *val) |
563 | { |
564 | res->d = floatx80_lognp1(val->d, &env->fp_status); |
565 | } |
566 | |
567 | void HELPER(flogn)(CPUM68KState *env, FPReg *res, FPReg *val) |
568 | { |
569 | res->d = floatx80_logn(val->d, &env->fp_status); |
570 | } |
571 | |
572 | void HELPER(flog10)(CPUM68KState *env, FPReg *res, FPReg *val) |
573 | { |
574 | res->d = floatx80_log10(val->d, &env->fp_status); |
575 | } |
576 | |
577 | void HELPER(flog2)(CPUM68KState *env, FPReg *res, FPReg *val) |
578 | { |
579 | res->d = floatx80_log2(val->d, &env->fp_status); |
580 | } |
581 | |
582 | void HELPER(fetox)(CPUM68KState *env, FPReg *res, FPReg *val) |
583 | { |
584 | res->d = floatx80_etox(val->d, &env->fp_status); |
585 | } |
586 | |
587 | void HELPER(ftwotox)(CPUM68KState *env, FPReg *res, FPReg *val) |
588 | { |
589 | res->d = floatx80_twotox(val->d, &env->fp_status); |
590 | } |
591 | |
592 | void HELPER(ftentox)(CPUM68KState *env, FPReg *res, FPReg *val) |
593 | { |
594 | res->d = floatx80_tentox(val->d, &env->fp_status); |
595 | } |
596 | |
597 | void HELPER(ftan)(CPUM68KState *env, FPReg *res, FPReg *val) |
598 | { |
599 | res->d = floatx80_tan(val->d, &env->fp_status); |
600 | } |
601 | |
602 | void HELPER(fsin)(CPUM68KState *env, FPReg *res, FPReg *val) |
603 | { |
604 | res->d = floatx80_sin(val->d, &env->fp_status); |
605 | } |
606 | |
607 | void HELPER(fcos)(CPUM68KState *env, FPReg *res, FPReg *val) |
608 | { |
609 | res->d = floatx80_cos(val->d, &env->fp_status); |
610 | } |
611 | |
612 | void HELPER(fsincos)(CPUM68KState *env, FPReg *res0, FPReg *res1, FPReg *val) |
613 | { |
614 | floatx80 a = val->d; |
615 | /* |
616 | * If res0 and res1 specify the same floating-point data register, |
617 | * the sine result is stored in the register, and the cosine |
618 | * result is discarded. |
619 | */ |
620 | res1->d = floatx80_cos(a, &env->fp_status); |
621 | res0->d = floatx80_sin(a, &env->fp_status); |
622 | } |
623 | |
624 | void HELPER(fatan)(CPUM68KState *env, FPReg *res, FPReg *val) |
625 | { |
626 | res->d = floatx80_atan(val->d, &env->fp_status); |
627 | } |
628 | |
629 | void HELPER(fasin)(CPUM68KState *env, FPReg *res, FPReg *val) |
630 | { |
631 | res->d = floatx80_asin(val->d, &env->fp_status); |
632 | } |
633 | |
634 | void HELPER(facos)(CPUM68KState *env, FPReg *res, FPReg *val) |
635 | { |
636 | res->d = floatx80_acos(val->d, &env->fp_status); |
637 | } |
638 | |
639 | void HELPER(fatanh)(CPUM68KState *env, FPReg *res, FPReg *val) |
640 | { |
641 | res->d = floatx80_atanh(val->d, &env->fp_status); |
642 | } |
643 | |
644 | void HELPER(ftanh)(CPUM68KState *env, FPReg *res, FPReg *val) |
645 | { |
646 | res->d = floatx80_tanh(val->d, &env->fp_status); |
647 | } |
648 | |
649 | void HELPER(fsinh)(CPUM68KState *env, FPReg *res, FPReg *val) |
650 | { |
651 | res->d = floatx80_sinh(val->d, &env->fp_status); |
652 | } |
653 | |
654 | void HELPER(fcosh)(CPUM68KState *env, FPReg *res, FPReg *val) |
655 | { |
656 | res->d = floatx80_cosh(val->d, &env->fp_status); |
657 | } |
658 | |