yuzu/unicorn
1
0
Fork 0
mirror of https://github.com/yuzu-emu/unicorn.git synced 2025-01-11 06:45:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

target/m68k: implement fasin

Browse source 
Using a local m68k floatx80_asin()
[copied from previous:
Written by Andreas Grabher for Previous, NeXT Computer Emulator.]

Backports commit bc20b34e03b51725d7f008551b5f56f1da07ab6a from qemu
This commit is contained in:
Laurent Vivier 2018-03-15 16:16:48 -04:00 committed by Lioncash
parent 4c8c35da5d
commit fcacc59b65
No known key found for this signature in database
GPG key ID: 4E3C3CC1031BA9C7
5 changed files with 75 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
qemu/target/m68k/fpu_helper.c
View file

@ -634,3 +634,8 @@ void HELPER(fatan)(CPUM68KState *env, FPReg *res, FPReg *val)
{
res->d = floatx80_atan(val->d, &env->fp_status);
}
void HELPER(fasin)(CPUM68KState *env, FPReg *res, FPReg *val)
{
res->d = floatx80_asin(val->d, &env->fp_status);
}

1
qemu/target/m68k/helper.h
View file

@ -82,6 +82,7 @@ DEF_HELPER_3(fsin, void, env, fp, fp)
DEF_HELPER_3(fcos, void, env, fp, fp)
DEF_HELPER_4(fsincos, void, env, fp, fp, fp)
DEF_HELPER_3(fatan, void, env, fp, fp)
DEF_HELPER_3(fasin, void, env, fp, fp)
DEF_HELPER_3(mac_move, void, env, i32, i32)
DEF_HELPER_3(macmulf, i64, env, i32, i32)

65
qemu/target/m68k/softfloat.c
View file

@ -2167,3 +2167,68 @@ floatx80 floatx80_atan(floatx80 a, float_status *status)
return a;
}
}
/*----------------------------------------------------------------------------
| Arc sine
*----------------------------------------------------------------------------*/
floatx80 floatx80_asin(floatx80 a, float_status *status)
{
flag aSign;
int32_t aExp;
uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec;
int32_t compact;
floatx80 fp0, fp1, fp2, one;
aSig = extractFloatx80Frac(a);
aExp = extractFloatx80Exp(a);
aSign = extractFloatx80Sign(a);
if (aExp == 0x7FFF && (uint64_t) (aSig << 1)) {
return propagateFloatx80NaNOneArg(a, status);
}
if (aExp == 0 && aSig == 0) {
return packFloatx80(aSign, 0, 0);
}
compact = floatx80_make_compact(aExp, aSig);
if (compact >= 0x3FFF8000) { /* |X| >= 1 */
if (aExp == one_exp && aSig == one_sig) { /* |X| == 1 */
float_raise(float_flag_inexact, status);
a = packFloatx80(aSign, piby2_exp, pi_sig);
return floatx80_move(a, status);
} else { /* |X| > 1 */
float_raise(float_flag_invalid, status);
return floatx80_default_nan(status);
}
} /* |X| < 1 */
user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80;
one = packFloatx80(0, one_exp, one_sig);
fp0 = a;
fp1 = floatx80_sub(one, fp0, status); /* 1 - X */
fp2 = floatx80_add(one, fp0, status); /* 1 + X */
fp1 = floatx80_mul(fp2, fp1, status); /* (1+X)*(1-X) */
fp1 = floatx80_sqrt(fp1, status); /* SQRT((1+X)*(1-X)) */
fp0 = floatx80_div(fp0, fp1, status); /* X/SQRT((1+X)*(1-X)) */
status->float_rounding_mode = user_rnd_mode;
status->floatx80_rounding_precision = user_rnd_prec;
a = floatx80_atan(fp0, status); /* ATAN(X/SQRT((1+X)*(1-X))) */
float_raise(float_flag_inexact, status);
return a;
}

1
qemu/target/m68k/softfloat.h
View file

@ -38,4 +38,5 @@ floatx80 floatx80_tan(floatx80 a, float_status *status);
floatx80 floatx80_sin(floatx80 a, float_status *status);
floatx80 floatx80_cos(floatx80 a, float_status *status);
floatx80 floatx80_atan(floatx80 a, float_status *status);
floatx80 floatx80_asin(floatx80 a, float_status *status);
#endif

3
qemu/target/m68k/translate.c
View file

@ -5294,6 +5294,9 @@ DISAS_INSN(fpu)
case 0x0a: /* fatan */
gen_helper_fatan(tcg_ctx, uc->cpu_env, cpu_dest, cpu_src);
break;
case 0x0c: /* fasin */
gen_helper_fasin(tcg_ctx, uc->cpu_env, cpu_dest, cpu_src);
break;
case 0x0e: /* fsin */
gen_helper_fsin(tcg_ctx, uc->cpu_env, cpu_dest, cpu_src);
break;