target/m68k/fpu_helper.c

   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_restore_fp_status(CPUM68KState *env)
 139 {
 140     if (m68k_feature(env, M68K_FEATURE_CF_FPU)) {
 141         cf_restore_precision_mode(env);
 142     } else {
 143         m68k_restore_precision_mode(env);
 144     }
 145     restore_rounding_mode(env);
 146 }
 147
 148 void cpu_m68k_set_fpcr(CPUM68KState *env, uint32_t val)
 149 {
 150     env->fpcr = val & 0xffff;
 151     cpu_m68k_restore_fp_status(env);
 152 }
 153
 154 void HELPER(fitrunc)(CPUM68KState *env, FPReg *res, FPReg *val)
 155 {
 156     FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status);
 157     set_float_rounding_mode(float_round_to_zero, &env->fp_status);
 158     res->d = floatx80_round_to_int(val->d, &env->fp_status);
 159     set_float_rounding_mode(rounding_mode, &env->fp_status);
 160 }
 161
 162 void HELPER(set_fpcr)(CPUM68KState *env, uint32_t val)
 163 {
 164     cpu_m68k_set_fpcr(env, val);
 165 }
 166
 167 #define PREC_BEGIN(prec)                                        \
 168     do {                                                        \
 169         int old;                                                \
 170         old = get_floatx80_rounding_precision(&env->fp_status); \
 171         set_floatx80_rounding_precision(prec, &env->fp_status)  \
 172
 173 #define PREC_END()                                              \
 174         set_floatx80_rounding_precision(old, &env->fp_status);  \
 175     } while (0)
 176
 177 void HELPER(fsround)(CPUM68KState *env, FPReg *res, FPReg *val)
 178 {
 179     PREC_BEGIN(32);
 180     res->d = floatx80_round(val->d, &env->fp_status);
 181     PREC_END();
 182 }
 183
 184 void HELPER(fdround)(CPUM68KState *env, FPReg *res, FPReg *val)
 185 {
 186     PREC_BEGIN(64);
 187     res->d = floatx80_round(val->d, &env->fp_status);
 188     PREC_END();
 189 }
 190
 191 void HELPER(fsqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
 192 {
 193     res->d = floatx80_sqrt(val->d, &env->fp_status);
 194 }
 195
 196 void HELPER(fssqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
 197 {
 198     PREC_BEGIN(32);
 199     res->d = floatx80_sqrt(val->d, &env->fp_status);
 200     PREC_END();
 201 }
 202
 203 void HELPER(fdsqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
 204 {
 205     PREC_BEGIN(64);
 206     res->d = floatx80_sqrt(val->d, &env->fp_status);
 207     PREC_END();
 208 }
 209
 210 void HELPER(fabs)(CPUM68KState *env, FPReg *res, FPReg *val)
 211 {
 212     res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
 213 }
 214
 215 void HELPER(fsabs)(CPUM68KState *env, FPReg *res, FPReg *val)
 216 {
 217     PREC_BEGIN(32);
 218     res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
 219     PREC_END();
 220 }
 221
 222 void HELPER(fdabs)(CPUM68KState *env, FPReg *res, FPReg *val)
 223 {
 224     PREC_BEGIN(64);
 225     res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
 226     PREC_END();
 227 }
 228
 229 void HELPER(fneg)(CPUM68KState *env, FPReg *res, FPReg *val)
 230 {
 231     res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
 232 }
 233
 234 void HELPER(fsneg)(CPUM68KState *env, FPReg *res, FPReg *val)
 235 {
 236     PREC_BEGIN(32);
 237     res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
 238     PREC_END();
 239 }
 240
 241 void HELPER(fdneg)(CPUM68KState *env, FPReg *res, FPReg *val)
 242 {
 243     PREC_BEGIN(64);
 244     res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
 245     PREC_END();
 246 }
 247
 248 void HELPER(fadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 249 {
 250     res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
 251 }
 252
 253 void HELPER(fsadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 254 {
 255     PREC_BEGIN(32);
 256     res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
 257     PREC_END();
 258 }
 259
 260 void HELPER(fdadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 261 {
 262     PREC_BEGIN(64);
 263     res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
 264     PREC_END();
 265 }
 266
 267 void HELPER(fsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 268 {
 269     res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
 270 }
 271
 272 void HELPER(fssub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 273 {
 274     PREC_BEGIN(32);
 275     res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
 276     PREC_END();
 277 }
 278
 279 void HELPER(fdsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 280 {
 281     PREC_BEGIN(64);
 282     res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
 283     PREC_END();
 284 }
 285
 286 void HELPER(fmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 287 {
 288     res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
 289 }
 290
 291 void HELPER(fsmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 292 {
 293     PREC_BEGIN(32);
 294     res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
 295     PREC_END();
 296 }
 297
 298 void HELPER(fdmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 299 {
 300     PREC_BEGIN(64);
 301     res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
 302     PREC_END();
 303 }
 304
 305 void HELPER(fsglmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 306 {
 307     FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status);
 308     floatx80 a, b;
 309
 310     PREC_BEGIN(32);
 311     set_float_rounding_mode(float_round_to_zero, &env->fp_status);
 312     a = floatx80_round(val0->d, &env->fp_status);
 313     b = floatx80_round(val1->d, &env->fp_status);
 314     set_float_rounding_mode(rounding_mode, &env->fp_status);
 315     res->d = floatx80_mul(a, b, &env->fp_status);
 316     PREC_END();
 317 }
 318
 319 void HELPER(fdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 320 {
 321     res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
 322 }
 323
 324 void HELPER(fsdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 325 {
 326     PREC_BEGIN(32);
 327     res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
 328     PREC_END();
 329 }
 330
 331 void HELPER(fddiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 332 {
 333     PREC_BEGIN(64);
 334     res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
 335     PREC_END();
 336 }
 337
 338 void HELPER(fsgldiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 339 {
 340     FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status);
 341     floatx80 a, b;
 342
 343     PREC_BEGIN(32);
 344     set_float_rounding_mode(float_round_to_zero, &env->fp_status);
 345     a = floatx80_round(val1->d, &env->fp_status);
 346     b = floatx80_round(val0->d, &env->fp_status);
 347     set_float_rounding_mode(rounding_mode, &env->fp_status);
 348     res->d = floatx80_div(a, b, &env->fp_status);
 349     PREC_END();
 350 }
 351
 352 static int float_comp_to_cc(int float_compare)
 353 {
 354     switch (float_compare) {
 355     case float_relation_equal:
 356         return FPSR_CC_Z;
 357     case float_relation_less:
 358         return FPSR_CC_N;
 359     case float_relation_unordered:
 360         return FPSR_CC_A;
 361     case float_relation_greater:
 362         return 0;
 363     default:
 364         g_assert_not_reached();
 365     }
 366 }
 367
 368 void HELPER(fcmp)(CPUM68KState *env, FPReg *val0, FPReg *val1)
 369 {
 370     int float_compare;
 371
 372     float_compare = floatx80_compare(val1->d, val0->d, &env->fp_status);
 373     env->fpsr = (env->fpsr & ~FPSR_CC_MASK) | float_comp_to_cc(float_compare);
 374 }
 375
 376 void HELPER(ftst)(CPUM68KState *env, FPReg *val)
 377 {
 378     uint32_t cc = 0;
 379
 380     if (floatx80_is_neg(val->d)) {
 381         cc |= FPSR_CC_N;
 382     }
 383
 384     if (floatx80_is_any_nan(val->d)) {
 385         cc |= FPSR_CC_A;
 386     } else if (floatx80_is_infinity(val->d)) {
 387         cc |= FPSR_CC_I;
 388     } else if (floatx80_is_zero(val->d)) {
 389         cc |= FPSR_CC_Z;
 390     }
 391     env->fpsr = (env->fpsr & ~FPSR_CC_MASK) | cc;
 392 }
 393
 394 void HELPER(fconst)(CPUM68KState *env, FPReg *val, uint32_t offset)
 395 {
 396     val->d = fpu_rom[offset];
 397 }
 398
 399 typedef int (*float_access)(CPUM68KState *env, uint32_t addr, FPReg *fp,
 400                             uintptr_t ra);
 401
 402 static uint32_t fmovem_predec(CPUM68KState *env, uint32_t addr, uint32_t mask,
 403                               float_access access_fn)
 404 {
 405     uintptr_t ra = GETPC();
 406     int i, size;
 407
 408     for (i = 7; i >= 0; i--, mask <<= 1) {
 409         if (mask & 0x80) {
 410             size = access_fn(env, addr, &env->fregs[i], ra);
 411             if ((mask & 0xff) != 0x80) {
 412                 addr -= size;
 413             }
 414         }
 415     }
 416
 417     return addr;
 418 }
 419
 420 static uint32_t fmovem_postinc(CPUM68KState *env, uint32_t addr, uint32_t mask,
 421                                float_access access_fn)
 422 {
 423     uintptr_t ra = GETPC();
 424     int i, size;
 425
 426     for (i = 0; i < 8; i++, mask <<= 1) {
 427         if (mask & 0x80) {
 428             size = access_fn(env, addr, &env->fregs[i], ra);
 429             addr += size;
 430         }
 431     }
 432
 433     return addr;
 434 }
 435
 436 static int cpu_ld_floatx80_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 437                               uintptr_t ra)
 438 {
 439     uint32_t high;
 440     uint64_t low;
 441
 442     high = cpu_ldl_data_ra(env, addr, ra);
 443     low = cpu_ldq_data_ra(env, addr + 4, ra);
 444
 445     fp->l.upper = high >> 16;
 446     fp->l.lower = low;
 447
 448     return 12;
 449 }
 450
 451 static int cpu_st_floatx80_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 452                                uintptr_t ra)
 453 {
 454     cpu_stl_data_ra(env, addr, fp->l.upper << 16, ra);
 455     cpu_stq_data_ra(env, addr + 4, fp->l.lower, ra);
 456
 457     return 12;
 458 }
 459
 460 static int cpu_ld_float64_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 461                              uintptr_t ra)
 462 {
 463     uint64_t val;
 464
 465     val = cpu_ldq_data_ra(env, addr, ra);
 466     fp->d = float64_to_floatx80(*(float64 *)&val, &env->fp_status);
 467
 468     return 8;
 469 }
 470
 471 static int cpu_st_float64_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 472                              uintptr_t ra)
 473 {
 474     float64 val;
 475
 476     val = floatx80_to_float64(fp->d, &env->fp_status);
 477     cpu_stq_data_ra(env, addr, *(uint64_t *)&val, ra);
 478
 479     return 8;
 480 }
 481
 482 uint32_t HELPER(fmovemx_st_predec)(CPUM68KState *env, uint32_t addr,
 483                                    uint32_t mask)
 484 {
 485     return fmovem_predec(env, addr, mask, cpu_st_floatx80_ra);
 486 }
 487
 488 uint32_t HELPER(fmovemx_st_postinc)(CPUM68KState *env, uint32_t addr,
 489                                     uint32_t mask)
 490 {
 491     return fmovem_postinc(env, addr, mask, cpu_st_floatx80_ra);
 492 }
 493
 494 uint32_t HELPER(fmovemx_ld_postinc)(CPUM68KState *env, uint32_t addr,
 495                                     uint32_t mask)
 496 {
 497     return fmovem_postinc(env, addr, mask, cpu_ld_floatx80_ra);
 498 }
 499
 500 uint32_t HELPER(fmovemd_st_predec)(CPUM68KState *env, uint32_t addr,
 501                                    uint32_t mask)
 502 {
 503     return fmovem_predec(env, addr, mask, cpu_st_float64_ra);
 504 }
 505
 506 uint32_t HELPER(fmovemd_st_postinc)(CPUM68KState *env, uint32_t addr,
 507                                     uint32_t mask)
 508 {
 509     return fmovem_postinc(env, addr, mask, cpu_st_float64_ra);
 510 }
 511
 512 uint32_t HELPER(fmovemd_ld_postinc)(CPUM68KState *env, uint32_t addr,
 513                                     uint32_t mask)
 514 {
 515     return fmovem_postinc(env, addr, mask, cpu_ld_float64_ra);
 516 }
 517
 518 static void make_quotient(CPUM68KState *env, floatx80 val)
 519 {
 520     int32_t quotient;
 521     int sign;
 522
 523     if (floatx80_is_any_nan(val)) {
 524         return;
 525     }
 526
 527     quotient = floatx80_to_int32(val, &env->fp_status);
 528     sign = quotient < 0;
 529     if (sign) {
 530         quotient = -quotient;
 531     }
 532
 533     quotient = (sign << 7) | (quotient & 0x7f);
 534     env->fpsr = (env->fpsr & ~FPSR_QT_MASK) | (quotient << FPSR_QT_SHIFT);
 535 }
 536
 537 void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 538 {
 539     res->d = floatx80_mod(val1->d, val0->d, &env->fp_status);
 540
 541     make_quotient(env, res->d);
 542 }
 543
 544 void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 545 {
 546     res->d = floatx80_rem(val1->d, val0->d, &env->fp_status);
 547
 548     make_quotient(env, res->d);
 549 }
 550
 551 void HELPER(fgetexp)(CPUM68KState *env, FPReg *res, FPReg *val)
 552 {
 553     res->d = floatx80_getexp(val->d, &env->fp_status);
 554 }
 555
 556 void HELPER(fgetman)(CPUM68KState *env, FPReg *res, FPReg *val)
 557 {
 558     res->d = floatx80_getman(val->d, &env->fp_status);
 559 }
 560
 561 void HELPER(fscale)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 562 {
 563     res->d = floatx80_scale(val1->d, val0->d, &env->fp_status);
 564 }
 565
 566 void HELPER(flognp1)(CPUM68KState *env, FPReg *res, FPReg *val)
 567 {
 568     res->d = floatx80_lognp1(val->d, &env->fp_status);
 569 }
 570
 571 void HELPER(flogn)(CPUM68KState *env, FPReg *res, FPReg *val)
 572 {
 573     res->d = floatx80_logn(val->d, &env->fp_status);
 574 }
 575
 576 void HELPER(flog10)(CPUM68KState *env, FPReg *res, FPReg *val)
 577 {
 578     res->d = floatx80_log10(val->d, &env->fp_status);
 579 }
 580
 581 void HELPER(flog2)(CPUM68KState *env, FPReg *res, FPReg *val)
 582 {
 583     res->d = floatx80_log2(val->d, &env->fp_status);
 584 }
 585
 586 void HELPER(fetox)(CPUM68KState *env, FPReg *res, FPReg *val)
 587 {
 588     res->d = floatx80_etox(val->d, &env->fp_status);
 589 }
 590
 591 void HELPER(ftwotox)(CPUM68KState *env, FPReg *res, FPReg *val)
 592 {
 593     res->d = floatx80_twotox(val->d, &env->fp_status);
 594 }
 595
 596 void HELPER(ftentox)(CPUM68KState *env, FPReg *res, FPReg *val)
 597 {
 598     res->d = floatx80_tentox(val->d, &env->fp_status);
 599 }
 600
 601 void HELPER(ftan)(CPUM68KState *env, FPReg *res, FPReg *val)
 602 {
 603     res->d = floatx80_tan(val->d, &env->fp_status);
 604 }
 605
 606 void HELPER(fsin)(CPUM68KState *env, FPReg *res, FPReg *val)
 607 {
 608     res->d = floatx80_sin(val->d, &env->fp_status);
 609 }
 610
 611 void HELPER(fcos)(CPUM68KState *env, FPReg *res, FPReg *val)
 612 {
 613     res->d = floatx80_cos(val->d, &env->fp_status);
 614 }
 615
 616 void HELPER(fsincos)(CPUM68KState *env, FPReg *res0, FPReg *res1, FPReg *val)
 617 {
 618     floatx80 a = val->d;
 619     /*
 620      * If res0 and res1 specify the same floating-point data register,
 621      * the sine result is stored in the register, and the cosine
 622      * result is discarded.
 623      */
 624     res1->d = floatx80_cos(a, &env->fp_status);
 625     res0->d = floatx80_sin(a, &env->fp_status);
 626 }
 627
 628 void HELPER(fatan)(CPUM68KState *env, FPReg *res, FPReg *val)
 629 {
 630     res->d = floatx80_atan(val->d, &env->fp_status);
 631 }
 632
 633 void HELPER(fasin)(CPUM68KState *env, FPReg *res, FPReg *val)
 634 {
 635     res->d = floatx80_asin(val->d, &env->fp_status);
 636 }
 637
 638 void HELPER(facos)(CPUM68KState *env, FPReg *res, FPReg *val)
 639 {
 640     res->d = floatx80_acos(val->d, &env->fp_status);
 641 }
 642
 643 void HELPER(fatanh)(CPUM68KState *env, FPReg *res, FPReg *val)
 644 {
 645     res->d = floatx80_atanh(val->d, &env->fp_status);
 646 }
 647
 648 void HELPER(fetoxm1)(CPUM68KState *env, FPReg *res, FPReg *val)
 649 {
 650     res->d = floatx80_etoxm1(val->d, &env->fp_status);
 651 }
 652
 653 void HELPER(ftanh)(CPUM68KState *env, FPReg *res, FPReg *val)
 654 {
 655     res->d = floatx80_tanh(val->d, &env->fp_status);
 656 }
 657
 658 void HELPER(fsinh)(CPUM68KState *env, FPReg *res, FPReg *val)
 659 {
 660     res->d = floatx80_sinh(val->d, &env->fp_status);
 661 }
 662
 663 void HELPER(fcosh)(CPUM68KState *env, FPReg *res, FPReg *val)
 664 {
 665     res->d = floatx80_cosh(val->d, &env->fp_status);
 666 }