fpu_helper.c - qemu - FORK: QEMU emulator

fpu_helper.c (19468B)
      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 #define PREC_BEGIN(prec)                                        \
    168     do {                                                        \
    169         FloatX80RoundPrec old =                                 \
    170             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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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(floatx80_precision_s);
    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(floatx80_precision_d);
    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(floatx80_precision_s);
    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 }
	qemu FORK: QEMU emulator
	git clone https://git.neptards.moe/neptards/qemu.git
	Log \| Files \| Refs \| Submodules \| LICENSE