xref: /openbmc/qemu/target/m68k/fpu_helper.c (revision 992861fb) 
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     FloatRoundMode 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     FloatRoundMode 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     FloatRoundMode 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_fn)
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_fn(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_fn)
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_fn(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(fetoxm1)(CPUM68KState *env, FPReg *res, FPReg *val)
645 {
646     res->d = floatx80_etoxm1(val->d, &env->fp_status);
647 }
648 
649 void HELPER(ftanh)(CPUM68KState *env, FPReg *res, FPReg *val)
650 {
651     res->d = floatx80_tanh(val->d, &env->fp_status);
652 }
653 
654 void HELPER(fsinh)(CPUM68KState *env, FPReg *res, FPReg *val)
655 {
656     res->d = floatx80_sinh(val->d, &env->fp_status);
657 }
658 
659 void HELPER(fcosh)(CPUM68KState *env, FPReg *res, FPReg *val)
660 {
661     res->d = floatx80_cosh(val->d, &env->fp_status);
662 }
663