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(floatx80_precision_x, &env->fp_status);
  98         break;
  99     case FPCR_PREC_S: /* single */
 100         set_floatx80_rounding_precision(floatx80_precision_s, &env->fp_status);
 101         break;
 102     case FPCR_PREC_D: /* double */
 103         set_floatx80_rounding_precision(floatx80_precision_d, &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(floatx80_precision_s, &env->fp_status);
 115     } else { /* double */
 116         set_floatx80_rounding_precision(floatx80_precision_d, &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 /* Convert host exception flags to cpu_m68k form.  */
 168 static int cpu_m68k_exceptbits_from_host(int host_bits)
 169 {
 170     int target_bits = 0;
 171
 172     if (host_bits & float_flag_invalid) {
 173         target_bits |= 0x80;
 174     }
 175     if (host_bits & float_flag_overflow) {
 176         target_bits |= 0x40;
 177     }
 178     if (host_bits & (float_flag_underflow | float_flag_output_denormal)) {
 179         target_bits |= 0x20;
 180     }
 181     if (host_bits & float_flag_divbyzero) {
 182         target_bits |= 0x10;
 183     }
 184     if (host_bits & float_flag_inexact) {
 185         target_bits |= 0x08;
 186     }
 187     return target_bits;
 188 }
 189
 190 /* Convert cpu_m68k exception flags to target form.  */
 191 static int cpu_m68k_exceptbits_to_host(int target_bits)
 192 {
 193     int host_bits = 0;
 194
 195     if (target_bits & 0x80) {
 196         host_bits |= float_flag_invalid;
 197     }
 198     if (target_bits & 0x40) {
 199         host_bits |= float_flag_overflow;
 200     }
 201     if (target_bits & 0x20) {
 202         host_bits |= float_flag_underflow;
 203     }
 204     if (target_bits & 0x10) {
 205         host_bits |= float_flag_divbyzero;
 206     }
 207     if (target_bits & 0x08) {
 208         host_bits |= float_flag_inexact;
 209     }
 210     return host_bits;
 211 }
 212
 213 uint32_t cpu_m68k_get_fpsr(CPUM68KState *env)
 214 {
 215     int host_flags = get_float_exception_flags(&env->fp_status);
 216     int target_flags = cpu_m68k_exceptbits_from_host(host_flags);
 217     int except = (env->fpsr & ~(0xf8)) | target_flags;
 218     return except;
 219 }
 220
 221 uint32_t HELPER(get_fpsr)(CPUM68KState *env)
 222 {
 223     return cpu_m68k_get_fpsr(env);
 224 }
 225
 226 void cpu_m68k_set_fpsr(CPUM68KState *env, uint32_t val)
 227 {
 228     env->fpsr = val;
 229
 230     int host_flags = cpu_m68k_exceptbits_to_host((int) env->fpsr);
 231     set_float_exception_flags(host_flags, &env->fp_status);
 232 }
 233
 234 void HELPER(set_fpsr)(CPUM68KState *env, uint32_t val)
 235 {
 236     cpu_m68k_set_fpsr(env, val);
 237 }
 238
 239 #define PREC_BEGIN(prec)                                        \
 240     do {                                                        \
 241         FloatX80RoundPrec old =                                 \
 242             get_floatx80_rounding_precision(&env->fp_status);   \
 243         set_floatx80_rounding_precision(prec, &env->fp_status)  \
 244
 245 #define PREC_END()                                              \
 246         set_floatx80_rounding_precision(old, &env->fp_status);  \
 247     } while (0)
 248
 249 void HELPER(fsround)(CPUM68KState *env, FPReg *res, FPReg *val)
 250 {
 251     PREC_BEGIN(floatx80_precision_s);
 252     res->d = floatx80_round(val->d, &env->fp_status);
 253     PREC_END();
 254 }
 255
 256 void HELPER(fdround)(CPUM68KState *env, FPReg *res, FPReg *val)
 257 {
 258     PREC_BEGIN(floatx80_precision_d);
 259     res->d = floatx80_round(val->d, &env->fp_status);
 260     PREC_END();
 261 }
 262
 263 void HELPER(fsqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
 264 {
 265     res->d = floatx80_sqrt(val->d, &env->fp_status);
 266 }
 267
 268 void HELPER(fssqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
 269 {
 270     PREC_BEGIN(floatx80_precision_s);
 271     res->d = floatx80_sqrt(val->d, &env->fp_status);
 272     PREC_END();
 273 }
 274
 275 void HELPER(fdsqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
 276 {
 277     PREC_BEGIN(floatx80_precision_d);
 278     res->d = floatx80_sqrt(val->d, &env->fp_status);
 279     PREC_END();
 280 }
 281
 282 void HELPER(fabs)(CPUM68KState *env, FPReg *res, FPReg *val)
 283 {
 284     res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
 285 }
 286
 287 void HELPER(fsabs)(CPUM68KState *env, FPReg *res, FPReg *val)
 288 {
 289     PREC_BEGIN(floatx80_precision_s);
 290     res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
 291     PREC_END();
 292 }
 293
 294 void HELPER(fdabs)(CPUM68KState *env, FPReg *res, FPReg *val)
 295 {
 296     PREC_BEGIN(floatx80_precision_d);
 297     res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
 298     PREC_END();
 299 }
 300
 301 void HELPER(fneg)(CPUM68KState *env, FPReg *res, FPReg *val)
 302 {
 303     res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
 304 }
 305
 306 void HELPER(fsneg)(CPUM68KState *env, FPReg *res, FPReg *val)
 307 {
 308     PREC_BEGIN(floatx80_precision_s);
 309     res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
 310     PREC_END();
 311 }
 312
 313 void HELPER(fdneg)(CPUM68KState *env, FPReg *res, FPReg *val)
 314 {
 315     PREC_BEGIN(floatx80_precision_d);
 316     res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
 317     PREC_END();
 318 }
 319
 320 void HELPER(fadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 321 {
 322     res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
 323 }
 324
 325 void HELPER(fsadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 326 {
 327     PREC_BEGIN(floatx80_precision_s);
 328     res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
 329     PREC_END();
 330 }
 331
 332 void HELPER(fdadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 333 {
 334     PREC_BEGIN(floatx80_precision_d);
 335     res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
 336     PREC_END();
 337 }
 338
 339 void HELPER(fsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 340 {
 341     res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
 342 }
 343
 344 void HELPER(fssub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 345 {
 346     PREC_BEGIN(floatx80_precision_s);
 347     res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
 348     PREC_END();
 349 }
 350
 351 void HELPER(fdsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 352 {
 353     PREC_BEGIN(floatx80_precision_d);
 354     res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
 355     PREC_END();
 356 }
 357
 358 void HELPER(fmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 359 {
 360     res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
 361 }
 362
 363 void HELPER(fsmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 364 {
 365     PREC_BEGIN(floatx80_precision_s);
 366     res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
 367     PREC_END();
 368 }
 369
 370 void HELPER(fdmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 371 {
 372     PREC_BEGIN(floatx80_precision_d);
 373     res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
 374     PREC_END();
 375 }
 376
 377 void HELPER(fsglmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 378 {
 379     FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status);
 380     floatx80 a, b;
 381
 382     PREC_BEGIN(floatx80_precision_s);
 383     set_float_rounding_mode(float_round_to_zero, &env->fp_status);
 384     a = floatx80_round(val0->d, &env->fp_status);
 385     b = floatx80_round(val1->d, &env->fp_status);
 386     set_float_rounding_mode(rounding_mode, &env->fp_status);
 387     res->d = floatx80_mul(a, b, &env->fp_status);
 388     PREC_END();
 389 }
 390
 391 void HELPER(fdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 392 {
 393     res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
 394 }
 395
 396 void HELPER(fsdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 397 {
 398     PREC_BEGIN(floatx80_precision_s);
 399     res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
 400     PREC_END();
 401 }
 402
 403 void HELPER(fddiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 404 {
 405     PREC_BEGIN(floatx80_precision_d);
 406     res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
 407     PREC_END();
 408 }
 409
 410 void HELPER(fsgldiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 411 {
 412     FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status);
 413     floatx80 a, b;
 414
 415     PREC_BEGIN(floatx80_precision_s);
 416     set_float_rounding_mode(float_round_to_zero, &env->fp_status);
 417     a = floatx80_round(val1->d, &env->fp_status);
 418     b = floatx80_round(val0->d, &env->fp_status);
 419     set_float_rounding_mode(rounding_mode, &env->fp_status);
 420     res->d = floatx80_div(a, b, &env->fp_status);
 421     PREC_END();
 422 }
 423
 424 static int float_comp_to_cc(FloatRelation float_compare)
 425 {
 426     switch (float_compare) {
 427     case float_relation_equal:
 428         return FPSR_CC_Z;
 429     case float_relation_less:
 430         return FPSR_CC_N;
 431     case float_relation_unordered:
 432         return FPSR_CC_A;
 433     case float_relation_greater:
 434         return 0;
 435     default:
 436         g_assert_not_reached();
 437     }
 438 }
 439
 440 void HELPER(fcmp)(CPUM68KState *env, FPReg *val0, FPReg *val1)
 441 {
 442     FloatRelation float_compare;
 443
 444     float_compare = floatx80_compare(val1->d, val0->d, &env->fp_status);
 445     env->fpsr = (env->fpsr & ~FPSR_CC_MASK) | float_comp_to_cc(float_compare);
 446 }
 447
 448 void HELPER(ftst)(CPUM68KState *env, FPReg *val)
 449 {
 450     uint32_t cc = 0;
 451
 452     if (floatx80_is_neg(val->d)) {
 453         cc |= FPSR_CC_N;
 454     }
 455
 456     if (floatx80_is_any_nan(val->d)) {
 457         cc |= FPSR_CC_A;
 458     } else if (floatx80_is_infinity(val->d)) {
 459         cc |= FPSR_CC_I;
 460     } else if (floatx80_is_zero(val->d)) {
 461         cc |= FPSR_CC_Z;
 462     }
 463     env->fpsr = (env->fpsr & ~FPSR_CC_MASK) | cc;
 464 }
 465
 466 void HELPER(fconst)(CPUM68KState *env, FPReg *val, uint32_t offset)
 467 {
 468     val->d = fpu_rom[offset];
 469 }
 470
 471 typedef int (*float_access)(CPUM68KState *env, uint32_t addr, FPReg *fp,
 472                             uintptr_t ra);
 473
 474 static uint32_t fmovem_predec(CPUM68KState *env, uint32_t addr, uint32_t mask,
 475                               float_access access_fn)
 476 {
 477     uintptr_t ra = GETPC();
 478     int i, size;
 479
 480     for (i = 7; i >= 0; i--, mask <<= 1) {
 481         if (mask & 0x80) {
 482             size = access_fn(env, addr, &env->fregs[i], ra);
 483             if ((mask & 0xff) != 0x80) {
 484                 addr -= size;
 485             }
 486         }
 487     }
 488
 489     return addr;
 490 }
 491
 492 static uint32_t fmovem_postinc(CPUM68KState *env, uint32_t addr, uint32_t mask,
 493                                float_access access_fn)
 494 {
 495     uintptr_t ra = GETPC();
 496     int i, size;
 497
 498     for (i = 0; i < 8; i++, mask <<= 1) {
 499         if (mask & 0x80) {
 500             size = access_fn(env, addr, &env->fregs[i], ra);
 501             addr += size;
 502         }
 503     }
 504
 505     return addr;
 506 }
 507
 508 static int cpu_ld_floatx80_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 509                               uintptr_t ra)
 510 {
 511     uint32_t high;
 512     uint64_t low;
 513
 514     high = cpu_ldl_data_ra(env, addr, ra);
 515     low = cpu_ldq_data_ra(env, addr + 4, ra);
 516
 517     fp->l.upper = high >> 16;
 518     fp->l.lower = low;
 519
 520     return 12;
 521 }
 522
 523 static int cpu_st_floatx80_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 524                                uintptr_t ra)
 525 {
 526     cpu_stl_data_ra(env, addr, fp->l.upper << 16, ra);
 527     cpu_stq_data_ra(env, addr + 4, fp->l.lower, ra);
 528
 529     return 12;
 530 }
 531
 532 static int cpu_ld_float64_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 533                              uintptr_t ra)
 534 {
 535     uint64_t val;
 536
 537     val = cpu_ldq_data_ra(env, addr, ra);
 538     fp->d = float64_to_floatx80(*(float64 *)&val, &env->fp_status);
 539
 540     return 8;
 541 }
 542
 543 static int cpu_st_float64_ra(CPUM68KState *env, uint32_t addr, FPReg *fp,
 544                              uintptr_t ra)
 545 {
 546     float64 val;
 547
 548     val = floatx80_to_float64(fp->d, &env->fp_status);
 549     cpu_stq_data_ra(env, addr, *(uint64_t *)&val, ra);
 550
 551     return 8;
 552 }
 553
 554 uint32_t HELPER(fmovemx_st_predec)(CPUM68KState *env, uint32_t addr,
 555                                    uint32_t mask)
 556 {
 557     return fmovem_predec(env, addr, mask, cpu_st_floatx80_ra);
 558 }
 559
 560 uint32_t HELPER(fmovemx_st_postinc)(CPUM68KState *env, uint32_t addr,
 561                                     uint32_t mask)
 562 {
 563     return fmovem_postinc(env, addr, mask, cpu_st_floatx80_ra);
 564 }
 565
 566 uint32_t HELPER(fmovemx_ld_postinc)(CPUM68KState *env, uint32_t addr,
 567                                     uint32_t mask)
 568 {
 569     return fmovem_postinc(env, addr, mask, cpu_ld_floatx80_ra);
 570 }
 571
 572 uint32_t HELPER(fmovemd_st_predec)(CPUM68KState *env, uint32_t addr,
 573                                    uint32_t mask)
 574 {
 575     return fmovem_predec(env, addr, mask, cpu_st_float64_ra);
 576 }
 577
 578 uint32_t HELPER(fmovemd_st_postinc)(CPUM68KState *env, uint32_t addr,
 579                                     uint32_t mask)
 580 {
 581     return fmovem_postinc(env, addr, mask, cpu_st_float64_ra);
 582 }
 583
 584 uint32_t HELPER(fmovemd_ld_postinc)(CPUM68KState *env, uint32_t addr,
 585                                     uint32_t mask)
 586 {
 587     return fmovem_postinc(env, addr, mask, cpu_ld_float64_ra);
 588 }
 589
 590 static void make_quotient(CPUM68KState *env, int sign, uint32_t quotient)
 591 {
 592     quotient = (sign << 7) | (quotient & 0x7f);
 593     env->fpsr = (env->fpsr & ~FPSR_QT_MASK) | (quotient << FPSR_QT_SHIFT);
 594 }
 595
 596 void HELPER(fmod)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 597 {
 598     uint64_t quotient;
 599     int sign = extractFloatx80Sign(val1->d) ^ extractFloatx80Sign(val0->d);
 600
 601     res->d = floatx80_modrem(val1->d, val0->d, true, &quotient,
 602                              &env->fp_status);
 603
 604     if (floatx80_is_any_nan(res->d)) {
 605         return;
 606     }
 607
 608     make_quotient(env, sign, quotient);
 609 }
 610
 611 void HELPER(frem)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 612 {
 613     FPReg fp_quot;
 614     floatx80 fp_rem;
 615
 616     fp_rem = floatx80_rem(val1->d, val0->d, &env->fp_status);
 617     if (!floatx80_is_any_nan(fp_rem)) {
 618         float_status fp_status = { };
 619         uint32_t quotient;
 620         int sign;
 621
 622         /* Calculate quotient directly using round to nearest mode */
 623         set_float_rounding_mode(float_round_nearest_even, &fp_status);
 624         set_floatx80_rounding_precision(
 625             get_floatx80_rounding_precision(&env->fp_status), &fp_status);
 626         fp_quot.d = floatx80_div(val1->d, val0->d, &fp_status);
 627
 628         sign = extractFloatx80Sign(fp_quot.d);
 629         quotient = floatx80_to_int32(floatx80_abs(fp_quot.d), &env->fp_status);
 630         make_quotient(env, sign, quotient);
 631     }
 632
 633     res->d = fp_rem;
 634 }
 635
 636 void HELPER(fgetexp)(CPUM68KState *env, FPReg *res, FPReg *val)
 637 {
 638     res->d = floatx80_getexp(val->d, &env->fp_status);
 639 }
 640
 641 void HELPER(fgetman)(CPUM68KState *env, FPReg *res, FPReg *val)
 642 {
 643     res->d = floatx80_getman(val->d, &env->fp_status);
 644 }
 645
 646 void HELPER(fscale)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
 647 {
 648     res->d = floatx80_scale(val1->d, val0->d, &env->fp_status);
 649 }
 650
 651 void HELPER(flognp1)(CPUM68KState *env, FPReg *res, FPReg *val)
 652 {
 653     res->d = floatx80_lognp1(val->d, &env->fp_status);
 654 }
 655
 656 void HELPER(flogn)(CPUM68KState *env, FPReg *res, FPReg *val)
 657 {
 658     res->d = floatx80_logn(val->d, &env->fp_status);
 659 }
 660
 661 void HELPER(flog10)(CPUM68KState *env, FPReg *res, FPReg *val)
 662 {
 663     res->d = floatx80_log10(val->d, &env->fp_status);
 664 }
 665
 666 void HELPER(flog2)(CPUM68KState *env, FPReg *res, FPReg *val)
 667 {
 668     res->d = floatx80_log2(val->d, &env->fp_status);
 669 }
 670
 671 void HELPER(fetox)(CPUM68KState *env, FPReg *res, FPReg *val)
 672 {
 673     res->d = floatx80_etox(val->d, &env->fp_status);
 674 }
 675
 676 void HELPER(ftwotox)(CPUM68KState *env, FPReg *res, FPReg *val)
 677 {
 678     res->d = floatx80_twotox(val->d, &env->fp_status);
 679 }
 680
 681 void HELPER(ftentox)(CPUM68KState *env, FPReg *res, FPReg *val)
 682 {
 683     res->d = floatx80_tentox(val->d, &env->fp_status);
 684 }
 685
 686 void HELPER(ftan)(CPUM68KState *env, FPReg *res, FPReg *val)
 687 {
 688     res->d = floatx80_tan(val->d, &env->fp_status);
 689 }
 690
 691 void HELPER(fsin)(CPUM68KState *env, FPReg *res, FPReg *val)
 692 {
 693     res->d = floatx80_sin(val->d, &env->fp_status);
 694 }
 695
 696 void HELPER(fcos)(CPUM68KState *env, FPReg *res, FPReg *val)
 697 {
 698     res->d = floatx80_cos(val->d, &env->fp_status);
 699 }
 700
 701 void HELPER(fsincos)(CPUM68KState *env, FPReg *res0, FPReg *res1, FPReg *val)
 702 {
 703     floatx80 a = val->d;
 704     /*
 705      * If res0 and res1 specify the same floating-point data register,
 706      * the sine result is stored in the register, and the cosine
 707      * result is discarded.
 708      */
 709     res1->d = floatx80_cos(a, &env->fp_status);
 710     res0->d = floatx80_sin(a, &env->fp_status);
 711 }
 712
 713 void HELPER(fatan)(CPUM68KState *env, FPReg *res, FPReg *val)
 714 {
 715     res->d = floatx80_atan(val->d, &env->fp_status);
 716 }
 717
 718 void HELPER(fasin)(CPUM68KState *env, FPReg *res, FPReg *val)
 719 {
 720     res->d = floatx80_asin(val->d, &env->fp_status);
 721 }
 722
 723 void HELPER(facos)(CPUM68KState *env, FPReg *res, FPReg *val)
 724 {
 725     res->d = floatx80_acos(val->d, &env->fp_status);
 726 }
 727
 728 void HELPER(fatanh)(CPUM68KState *env, FPReg *res, FPReg *val)
 729 {
 730     res->d = floatx80_atanh(val->d, &env->fp_status);
 731 }
 732
 733 void HELPER(fetoxm1)(CPUM68KState *env, FPReg *res, FPReg *val)
 734 {
 735     res->d = floatx80_etoxm1(val->d, &env->fp_status);
 736 }
 737
 738 void HELPER(ftanh)(CPUM68KState *env, FPReg *res, FPReg *val)
 739 {
 740     res->d = floatx80_tanh(val->d, &env->fp_status);
 741 }
 742
 743 void HELPER(fsinh)(CPUM68KState *env, FPReg *res, FPReg *val)
 744 {
 745     res->d = floatx80_sinh(val->d, &env->fp_status);
 746 }
 747
 748 void HELPER(fcosh)(CPUM68KState *env, FPReg *res, FPReg *val)
 749 {
 750     res->d = floatx80_cosh(val->d, &env->fp_status);
 751 }