OpenE2K
/
qemu-e2k
13
4
Fork 0
Code Issues 4 Pull Requests Projects 2 Releases Activity

softfloat: Introduce Floatx80RoundPrec 

Use an enumeration instead of raw 32/64/80 values.

Reviewed-by: Alex Bennée <alex.bennee@linaro.org>
Signed-off-by: Richard Henderson <richard.henderson@linaro.org>
This commit is contained in:
Richard Henderson 2020-11-21 09:33:36 -08:00
parent d6e1f0cd59
commit 8da5f1dbb0
9 changed files with 182 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
fpu/softfloat.c
View File

@ -4342,10 +4342,10 @@ void normalizeFloatx80Subnormal(uint64_t aSig, int32_t *zExpPtr,
| a subnormal number, and the underflow and inexact exceptions are raised if | a subnormal number, and the underflow and inexact exceptions are raised if
| the abstract input cannot be represented exactly as a subnormal extended | the abstract input cannot be represented exactly as a subnormal extended
| double-precision floating-point number. | double-precision floating-point number.
| If `roundingPrecision' is 32 or 64, the result is rounded to the same | If `roundingPrecision' is floatx80_precision_s or floatx80_precision_d,
| number of bits as single or double precision, respectively. Otherwise, the | the result is rounded to the same number of bits as single or double
| result is rounded to the full precision of the extended double-precision | precision, respectively. Otherwise, the result is rounded to the full
| format. | precision of the extended double-precision format.
| The input significand must be normalized or smaller. If the input | The input significand must be normalized or smaller. If the input
| significand is not normalized, `zExp' must be 0; in that case, the result | significand is not normalized, `zExp' must be 0; in that case, the result
| returned is a subnormal number, and it must not require rounding. The | returned is a subnormal number, and it must not require rounding. The
@ -4353,27 +4353,29 @@ void normalizeFloatx80Subnormal(uint64_t aSig, int32_t *zExpPtr,
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 roundAndPackFloatx80(int8_t roundingPrecision, bool zSign, floatx80 roundAndPackFloatx80(FloatX80RoundPrec roundingPrecision, bool zSign,
int32_t zExp, uint64_t zSig0, uint64_t zSig1, int32_t zExp, uint64_t zSig0, uint64_t zSig1,
float_status *status) float_status *status)
{ {
int8_t roundingMode; FloatRoundMode roundingMode;
bool roundNearestEven, increment, isTiny; bool roundNearestEven, increment, isTiny;
int64_t roundIncrement, roundMask, roundBits; int64_t roundIncrement, roundMask, roundBits;
roundingMode = status->float_rounding_mode; roundingMode = status->float_rounding_mode;
roundNearestEven = ( roundingMode == float_round_nearest_even ); roundNearestEven = ( roundingMode == float_round_nearest_even );
if ( roundingPrecision == 80 ) goto precision80; switch (roundingPrecision) {
if ( roundingPrecision == 64 ) { case floatx80_precision_x:
goto precision80;
case floatx80_precision_d:
roundIncrement = UINT64_C(0x0000000000000400); roundIncrement = UINT64_C(0x0000000000000400);
roundMask = UINT64_C(0x00000000000007FF); roundMask = UINT64_C(0x00000000000007FF);
} break;
else if ( roundingPrecision == 32 ) { case floatx80_precision_s:
roundIncrement = UINT64_C(0x0000008000000000); roundIncrement = UINT64_C(0x0000008000000000);
roundMask = UINT64_C(0x000000FFFFFFFFFF); roundMask = UINT64_C(0x000000FFFFFFFFFF);
} break;
else { default:
goto precision80; g_assert_not_reached();
} }
zSig0 |= ( zSig1 != 0 ); zSig0 |= ( zSig1 != 0 );
switch (roundingMode) { switch (roundingMode) {
@ -4550,7 +4552,7 @@ floatx80 roundAndPackFloatx80(int8_t roundingPrecision, bool zSign,
| normalized. | normalized.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 normalizeRoundAndPackFloatx80(int8_t roundingPrecision, floatx80 normalizeRoundAndPackFloatx80(FloatX80RoundPrec roundingPrecision,
bool zSign, int32_t zExp, bool zSign, int32_t zExp,
uint64_t zSig0, uint64_t zSig1, uint64_t zSig0, uint64_t zSig1,
float_status *status) float_status *status)
@ -6203,7 +6205,7 @@ floatx80 floatx80_modrem(floatx80 a, floatx80 b, bool mod, uint64_t *quotient,
} }
return return
normalizeRoundAndPackFloatx80( normalizeRoundAndPackFloatx80(
80, zSign, bExp + expDiff, aSig0, aSig1, status); floatx80_precision_x, zSign, bExp + expDiff, aSig0, aSig1, status);
} }

5
include/fpu/softfloat-helpers.h
View File

@ -69,7 +69,7 @@ static inline void set_float_exception_flags(int val, float_status *status)
status->float_exception_flags = val; status->float_exception_flags = val;
} }
static inline void set_floatx80_rounding_precision(int val, static inline void set_floatx80_rounding_precision(FloatX80RoundPrec val,
float_status *status) float_status *status)
{ {
status->floatx80_rounding_precision = val; status->floatx80_rounding_precision = val;
@ -120,7 +120,8 @@ static inline int get_float_exception_flags(float_status *status)
return status->float_exception_flags; return status->float_exception_flags;
} }
static inline int get_floatx80_rounding_precision(float_status *status) static inline FloatX80RoundPrec
get_floatx80_rounding_precision(float_status *status)
{ {
return status->floatx80_rounding_precision; return status->floatx80_rounding_precision;
} }

10
include/fpu/softfloat-types.h
View File

@ -154,6 +154,14 @@ enum {
float_flag_output_denormal = 128 float_flag_output_denormal = 128
}; };
/*
* Rounding precision for floatx80.
*/
typedef enum __attribute__((__packed__)) {
floatx80_precision_x,
floatx80_precision_d,
floatx80_precision_s,
} FloatX80RoundPrec;
/* /*
* Floating Point Status. Individual architectures may maintain * Floating Point Status. Individual architectures may maintain
@ -165,7 +173,7 @@ enum {
typedef struct float_status { typedef struct float_status {
FloatRoundMode float_rounding_mode; FloatRoundMode float_rounding_mode;
uint8_t float_exception_flags; uint8_t float_exception_flags;
signed char floatx80_rounding_precision; FloatX80RoundPrec floatx80_rounding_precision;
bool tininess_before_rounding; bool tininess_before_rounding;
/* should denormalised results go to zero and set the inexact flag? */ /* should denormalised results go to zero and set the inexact flag? */
bool flush_to_zero; bool flush_to_zero;

4
include/fpu/softfloat.h
View File

@ -1152,7 +1152,7 @@ floatx80 propagateFloatx80NaN(floatx80 a, floatx80 b, float_status *status);
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 roundAndPackFloatx80(int8_t roundingPrecision, bool zSign, floatx80 roundAndPackFloatx80(FloatX80RoundPrec roundingPrecision, bool zSign,
int32_t zExp, uint64_t zSig0, uint64_t zSig1, int32_t zExp, uint64_t zSig0, uint64_t zSig1,
float_status *status); float_status *status);
@ -1165,7 +1165,7 @@ floatx80 roundAndPackFloatx80(int8_t roundingPrecision, bool zSign,
| normalized. | normalized.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 normalizeRoundAndPackFloatx80(int8_t roundingPrecision, floatx80 normalizeRoundAndPackFloatx80(FloatX80RoundPrec roundingPrecision,
bool zSign, int32_t zExp, bool zSign, int32_t zExp,
uint64_t zSig0, uint64_t zSig1, uint64_t zSig0, uint64_t zSig1,
float_status *status); float_status *status);

15
linux-user/arm/nwfpe/fpa11.c
View File

@ -97,35 +97,36 @@ void SetRoundingMode(const unsigned int opcode)
void SetRoundingPrecision(const unsigned int opcode) void SetRoundingPrecision(const unsigned int opcode)
{ {
int rounding_precision; FloatX80RoundPrec rounding_precision;
FPA11 *fpa11 = GET_FPA11(); FPA11 *fpa11 = GET_FPA11();
#ifdef MAINTAIN_FPCR #ifdef MAINTAIN_FPCR
fpa11->fpcr &= ~MASK_ROUNDING_PRECISION; fpa11->fpcr &= ~MASK_ROUNDING_PRECISION;
#endif #endif
switch (opcode & MASK_ROUNDING_PRECISION) switch (opcode & MASK_ROUNDING_PRECISION) {
{
case ROUND_SINGLE: case ROUND_SINGLE:
rounding_precision = 32; rounding_precision = floatx80_precision_s;
#ifdef MAINTAIN_FPCR #ifdef MAINTAIN_FPCR
fpa11->fpcr |= ROUND_SINGLE; fpa11->fpcr |= ROUND_SINGLE;
#endif #endif
break; break;
case ROUND_DOUBLE: case ROUND_DOUBLE:
rounding_precision = 64; rounding_precision = floatx80_precision_d;
#ifdef MAINTAIN_FPCR #ifdef MAINTAIN_FPCR
fpa11->fpcr |= ROUND_DOUBLE; fpa11->fpcr |= ROUND_DOUBLE;
#endif #endif
break; break;
case ROUND_EXTENDED: case ROUND_EXTENDED:
rounding_precision = 80; rounding_precision = floatx80_precision_x;
#ifdef MAINTAIN_FPCR #ifdef MAINTAIN_FPCR
fpa11->fpcr |= ROUND_EXTENDED; fpa11->fpcr |= ROUND_EXTENDED;
#endif #endif
break; break;
default: rounding_precision = 80; default:
rounding_precision = floatx80_precision_x;
break;
} }
set_floatx80_rounding_precision(rounding_precision, &fpa11->fp_status); set_floatx80_rounding_precision(rounding_precision, &fpa11->fp_status);
} }

79
target/i386/tcg/fpu_helper.c
View File

@ -673,38 +673,40 @@ uint32_t helper_fnstcw(CPUX86State *env)
void update_fp_status(CPUX86State *env) void update_fp_status(CPUX86State *env)
{ {
int rnd_type; FloatRoundMode rnd_mode;
FloatX80RoundPrec rnd_prec;
/* set rounding mode */ /* set rounding mode */
switch (env->fpuc & FPU_RC_MASK) { switch (env->fpuc & FPU_RC_MASK) {
default: default:
case FPU_RC_NEAR: case FPU_RC_NEAR:
rnd_type = float_round_nearest_even; rnd_mode = float_round_nearest_even;
break; break;
case FPU_RC_DOWN: case FPU_RC_DOWN:
rnd_type = float_round_down; rnd_mode = float_round_down;
break; break;
case FPU_RC_UP: case FPU_RC_UP:
rnd_type = float_round_up; rnd_mode = float_round_up;
break; break;
case FPU_RC_CHOP: case FPU_RC_CHOP:
rnd_type = float_round_to_zero; rnd_mode = float_round_to_zero;
break; break;
} }
set_float_rounding_mode(rnd_type, &env->fp_status); set_float_rounding_mode(rnd_mode, &env->fp_status);
switch ((env->fpuc >> 8) & 3) { switch ((env->fpuc >> 8) & 3) {
case 0: case 0:
rnd_type = 32; rnd_prec = floatx80_precision_s;
break; break;
case 2: case 2:
rnd_type = 64; rnd_prec = floatx80_precision_d;
break; break;
case 3: case 3:
default: default:
rnd_type = 80; rnd_prec = floatx80_precision_x;
break; break;
} }
set_floatx80_rounding_precision(rnd_type, &env->fp_status); set_floatx80_rounding_precision(rnd_prec, &env->fp_status);
} }
void helper_fldcw(CPUX86State *env, uint32_t val) void helper_fldcw(CPUX86State *env, uint32_t val)
@ -1074,7 +1076,8 @@ void helper_f2xm1(CPUX86State *env)
&sig2); &sig2);
/* This result is inexact. */ /* This result is inexact. */
sig1 |= 1; sig1 |= 1;
ST0 = normalizeRoundAndPackFloatx80(80, sign, exp, sig0, sig1, ST0 = normalizeRoundAndPackFloatx80(floatx80_precision_x,
sign, exp, sig0, sig1,
&env->fp_status); &env->fp_status);
} }
} else { } else {
@ -1083,9 +1086,10 @@ void helper_f2xm1(CPUX86State *env)
int32_t n, aexp, bexp; int32_t n, aexp, bexp;
uint64_t asig0, asig1, asig2, bsig0, bsig1; uint64_t asig0, asig1, asig2, bsig0, bsig1;
FloatRoundMode save_mode = env->fp_status.float_rounding_mode; FloatRoundMode save_mode = env->fp_status.float_rounding_mode;
signed char save_prec = env->fp_status.floatx80_rounding_precision; FloatX80RoundPrec save_prec =
env->fp_status.floatx80_rounding_precision;
env->fp_status.float_rounding_mode = float_round_nearest_even; env->fp_status.float_rounding_mode = float_round_nearest_even;
env->fp_status.floatx80_rounding_precision = 80; env->fp_status.floatx80_rounding_precision = floatx80_precision_x;
/* Find the nearest multiple of 1/32 to the argument. */ /* Find the nearest multiple of 1/32 to the argument. */
tmp = floatx80_scalbn(ST0, 5, &env->fp_status); tmp = floatx80_scalbn(ST0, 5, &env->fp_status);
@ -1183,7 +1187,8 @@ void helper_f2xm1(CPUX86State *env)
env->fp_status.float_rounding_mode = save_mode; env->fp_status.float_rounding_mode = save_mode;
/* This result is inexact. */ /* This result is inexact. */
asig1 |= 1; asig1 |= 1;
ST0 = normalizeRoundAndPackFloatx80(80, asign, aexp, asig0, asig1, ST0 = normalizeRoundAndPackFloatx80(floatx80_precision_x,
asign, aexp, asig0, asig1,
&env->fp_status); &env->fp_status);
} }
@ -1301,8 +1306,9 @@ void helper_fpatan(CPUX86State *env)
* division is exact, the result of fpatan is still inexact * division is exact, the result of fpatan is still inexact
* (and underflowing where appropriate). * (and underflowing where appropriate).
*/ */
signed char save_prec = env->fp_status.floatx80_rounding_precision; FloatX80RoundPrec save_prec =
env->fp_status.floatx80_rounding_precision = 80; env->fp_status.floatx80_rounding_precision;
env->fp_status.floatx80_rounding_precision = floatx80_precision_x;
ST1 = floatx80_div(ST1, ST0, &env->fp_status); ST1 = floatx80_div(ST1, ST0, &env->fp_status);
env->fp_status.floatx80_rounding_precision = save_prec; env->fp_status.floatx80_rounding_precision = save_prec;
if (!floatx80_is_zero(ST1) && if (!floatx80_is_zero(ST1) &&
@ -1321,7 +1327,8 @@ void helper_fpatan(CPUX86State *env)
if (exp == 0) { if (exp == 0) {
normalizeFloatx80Subnormal(sig, &exp, &sig); normalizeFloatx80Subnormal(sig, &exp, &sig);
} }
ST1 = normalizeRoundAndPackFloatx80(80, sign, exp, sig - 1, ST1 = normalizeRoundAndPackFloatx80(floatx80_precision_x,
sign, exp, sig - 1,
-1, &env->fp_status); -1, &env->fp_status);
} }
} else { } else {
@ -1377,9 +1384,10 @@ void helper_fpatan(CPUX86State *env)
uint64_t azsig2, azsig3, axsig0, axsig1; uint64_t azsig2, azsig3, axsig0, axsig1;
floatx80 x8; floatx80 x8;
FloatRoundMode save_mode = env->fp_status.float_rounding_mode; FloatRoundMode save_mode = env->fp_status.float_rounding_mode;
signed char save_prec = env->fp_status.floatx80_rounding_precision; FloatX80RoundPrec save_prec =
env->fp_status.floatx80_rounding_precision;
env->fp_status.float_rounding_mode = float_round_nearest_even; env->fp_status.float_rounding_mode = float_round_nearest_even;
env->fp_status.floatx80_rounding_precision = 80; env->fp_status.floatx80_rounding_precision = floatx80_precision_x;
if (arg0_exp == 0) { if (arg0_exp == 0) {
normalizeFloatx80Subnormal(arg0_sig, &arg0_exp, &arg0_sig); normalizeFloatx80Subnormal(arg0_sig, &arg0_exp, &arg0_sig);
@ -1448,7 +1456,8 @@ void helper_fpatan(CPUX86State *env)
* Split x as x = t + y, where t = n/8 is the nearest * Split x as x = t + y, where t = n/8 is the nearest
* multiple of 1/8 to x. * multiple of 1/8 to x.
*/ */
x8 = normalizeRoundAndPackFloatx80(80, false, xexp + 3, xsig0, x8 = normalizeRoundAndPackFloatx80(floatx80_precision_x,
false, xexp + 3, xsig0,
xsig1, &env->fp_status); xsig1, &env->fp_status);
n = floatx80_to_int32(x8, &env->fp_status); n = floatx80_to_int32(x8, &env->fp_status);
if (n == 0) { if (n == 0) {
@ -1569,7 +1578,7 @@ void helper_fpatan(CPUX86State *env)
/* Compute z^2. */ /* Compute z^2. */
mul128To256(zsig0, zsig1, zsig0, zsig1, mul128To256(zsig0, zsig1, zsig0, zsig1,
&z2sig0, &z2sig1, &z2sig2, &z2sig3); &z2sig0, &z2sig1, &z2sig2, &z2sig3);
z2 = normalizeRoundAndPackFloatx80(80, false, z2 = normalizeRoundAndPackFloatx80(floatx80_precision_x, false,
zexp + zexp - 0x3ffe, zexp + zexp - 0x3ffe,
z2sig0, z2sig1, z2sig0, z2sig1,
&env->fp_status); &env->fp_status);
@ -1689,7 +1698,7 @@ void helper_fpatan(CPUX86State *env)
} }
/* This result is inexact. */ /* This result is inexact. */
rsig1 |= 1; rsig1 |= 1;
ST1 = normalizeRoundAndPackFloatx80(80, rsign, rexp, ST1 = normalizeRoundAndPackFloatx80(floatx80_precision_x, rsign, rexp,
rsig0, rsig1, &env->fp_status); rsig0, rsig1, &env->fp_status);
} }
@ -1890,7 +1899,8 @@ static void helper_fyl2x_common(CPUX86State *env, floatx80 arg, int32_t *exp,
*/ */
mul128To256(tsig0, tsig1, tsig0, tsig1, mul128To256(tsig0, tsig1, tsig0, tsig1,
&t2sig0, &t2sig1, &t2sig2, &t2sig3); &t2sig0, &t2sig1, &t2sig2, &t2sig3);
t2 = normalizeRoundAndPackFloatx80(80, false, texp + texp - 0x3ffe, t2 = normalizeRoundAndPackFloatx80(floatx80_precision_x, false,
texp + texp - 0x3ffe,
t2sig0, t2sig1, &env->fp_status); t2sig0, t2sig1, &env->fp_status);
/* Compute the lower parts of the polynomial expansion. */ /* Compute the lower parts of the polynomial expansion. */
@ -2004,15 +2014,17 @@ void helper_fyl2xp1(CPUX86State *env)
exp += arg1_exp - 0x3ffe; exp += arg1_exp - 0x3ffe;
/* This result is inexact. */ /* This result is inexact. */
sig1 |= 1; sig1 |= 1;
ST1 = normalizeRoundAndPackFloatx80(80, arg0_sign ^ arg1_sign, exp, ST1 = normalizeRoundAndPackFloatx80(floatx80_precision_x,
arg0_sign ^ arg1_sign, exp,
sig0, sig1, &env->fp_status); sig0, sig1, &env->fp_status);
} else { } else {
int32_t aexp; int32_t aexp;
uint64_t asig0, asig1, asig2; uint64_t asig0, asig1, asig2;
FloatRoundMode save_mode = env->fp_status.float_rounding_mode; FloatRoundMode save_mode = env->fp_status.float_rounding_mode;
signed char save_prec = env->fp_status.floatx80_rounding_precision; FloatX80RoundPrec save_prec =
env->fp_status.floatx80_rounding_precision;
env->fp_status.float_rounding_mode = float_round_nearest_even; env->fp_status.float_rounding_mode = float_round_nearest_even;
env->fp_status.floatx80_rounding_precision = 80; env->fp_status.floatx80_rounding_precision = floatx80_precision_x;
helper_fyl2x_common(env, ST0, &aexp, &asig0, &asig1); helper_fyl2x_common(env, ST0, &aexp, &asig0, &asig1);
/* /*
@ -2027,7 +2039,8 @@ void helper_fyl2xp1(CPUX86State *env)
/* This result is inexact. */ /* This result is inexact. */
asig1 |= 1; asig1 |= 1;
env->fp_status.float_rounding_mode = save_mode; env->fp_status.float_rounding_mode = save_mode;
ST1 = normalizeRoundAndPackFloatx80(80, arg0_sign ^ arg1_sign, aexp, ST1 = normalizeRoundAndPackFloatx80(floatx80_precision_x,
arg0_sign ^ arg1_sign, aexp,
asig0, asig1, &env->fp_status); asig0, asig1, &env->fp_status);
env->fp_status.floatx80_rounding_precision = save_prec; env->fp_status.floatx80_rounding_precision = save_prec;
} }
@ -2111,9 +2124,10 @@ void helper_fyl2x(CPUX86State *env)
int32_t int_exp; int32_t int_exp;
floatx80 arg0_m1; floatx80 arg0_m1;
FloatRoundMode save_mode = env->fp_status.float_rounding_mode; FloatRoundMode save_mode = env->fp_status.float_rounding_mode;
signed char save_prec = env->fp_status.floatx80_rounding_precision; FloatX80RoundPrec save_prec =
env->fp_status.floatx80_rounding_precision;
env->fp_status.float_rounding_mode = float_round_nearest_even; env->fp_status.float_rounding_mode = float_round_nearest_even;
env->fp_status.floatx80_rounding_precision = 80; env->fp_status.floatx80_rounding_precision = floatx80_precision_x;
if (arg0_exp == 0) { if (arg0_exp == 0) {
normalizeFloatx80Subnormal(arg0_sig, &arg0_exp, &arg0_sig); normalizeFloatx80Subnormal(arg0_sig, &arg0_exp, &arg0_sig);
@ -2170,7 +2184,8 @@ void helper_fyl2x(CPUX86State *env)
/* This result is inexact. */ /* This result is inexact. */
asig1 |= 1; asig1 |= 1;
env->fp_status.float_rounding_mode = save_mode; env->fp_status.float_rounding_mode = save_mode;
ST1 = normalizeRoundAndPackFloatx80(80, asign ^ arg1_sign, aexp, ST1 = normalizeRoundAndPackFloatx80(floatx80_precision_x,
asign ^ arg1_sign, aexp,
asig0, asig1, &env->fp_status); asig0, asig1, &env->fp_status);
} }
@ -2252,12 +2267,12 @@ void helper_fscale(CPUX86State *env)
} }
} else { } else {
int n; int n;
signed char save = env->fp_status.floatx80_rounding_precision; FloatX80RoundPrec save = env->fp_status.floatx80_rounding_precision;
uint8_t save_flags = get_float_exception_flags(&env->fp_status); uint8_t save_flags = get_float_exception_flags(&env->fp_status);
set_float_exception_flags(0, &env->fp_status); set_float_exception_flags(0, &env->fp_status);
n = floatx80_to_int32_round_to_zero(ST1, &env->fp_status); n = floatx80_to_int32_round_to_zero(ST1, &env->fp_status);
set_float_exception_flags(save_flags, &env->fp_status); set_float_exception_flags(save_flags, &env->fp_status);
env->fp_status.floatx80_rounding_precision = 80; env->fp_status.floatx80_rounding_precision = floatx80_precision_x;
ST0 = floatx80_scalbn(ST0, n, &env->fp_status); ST0 = floatx80_scalbn(ST0, n, &env->fp_status);
env->fp_status.floatx80_rounding_precision = save; env->fp_status.floatx80_rounding_precision = save;
} }

50
target/m68k/fpu_helper.c
View File

@ -94,13 +94,13 @@ static void m68k_restore_precision_mode(CPUM68KState *env)
{ {
switch (env->fpcr & FPCR_PREC_MASK) { switch (env->fpcr & FPCR_PREC_MASK) {
case FPCR_PREC_X: /* extended */ case FPCR_PREC_X: /* extended */
set_floatx80_rounding_precision(80, &env->fp_status); set_floatx80_rounding_precision(floatx80_precision_x, &env->fp_status);
break; break;
case FPCR_PREC_S: /* single */ case FPCR_PREC_S: /* single */
set_floatx80_rounding_precision(32, &env->fp_status); set_floatx80_rounding_precision(floatx80_precision_s, &env->fp_status);
break; break;
case FPCR_PREC_D: /* double */ case FPCR_PREC_D: /* double */
set_floatx80_rounding_precision(64, &env->fp_status); set_floatx80_rounding_precision(floatx80_precision_d, &env->fp_status);
break; break;
case FPCR_PREC_U: /* undefined */ case FPCR_PREC_U: /* undefined */
default: default:
@ -111,9 +111,9 @@ static void m68k_restore_precision_mode(CPUM68KState *env)
static void cf_restore_precision_mode(CPUM68KState *env) static void cf_restore_precision_mode(CPUM68KState *env)
{ {
if (env->fpcr & FPCR_PREC_S) { /* single */ if (env->fpcr & FPCR_PREC_S) { /* single */
set_floatx80_rounding_precision(32, &env->fp_status); set_floatx80_rounding_precision(floatx80_precision_s, &env->fp_status);
} else { /* double */ } else { /* double */
set_floatx80_rounding_precision(64, &env->fp_status); set_floatx80_rounding_precision(floatx80_precision_d, &env->fp_status);
} }
} }
@ -166,8 +166,8 @@ void HELPER(set_fpcr)(CPUM68KState *env, uint32_t val)
#define PREC_BEGIN(prec) \ #define PREC_BEGIN(prec) \
do { \ do { \
int old; \ FloatX80RoundPrec old = \
old = get_floatx80_rounding_precision(&env->fp_status); \ get_floatx80_rounding_precision(&env->fp_status); \
set_floatx80_rounding_precision(prec, &env->fp_status) \ set_floatx80_rounding_precision(prec, &env->fp_status) \
#define PREC_END() \ #define PREC_END() \
@ -176,14 +176,14 @@ void HELPER(set_fpcr)(CPUM68KState *env, uint32_t val)
void HELPER(fsround)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fsround)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_round(val->d, &env->fp_status); res->d = floatx80_round(val->d, &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fdround)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fdround)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_round(val->d, &env->fp_status); res->d = floatx80_round(val->d, &env->fp_status);
PREC_END(); PREC_END();
} }
@ -195,14 +195,14 @@ void HELPER(fsqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
void HELPER(fssqrt)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fssqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_sqrt(val->d, &env->fp_status); res->d = floatx80_sqrt(val->d, &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fdsqrt)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fdsqrt)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_sqrt(val->d, &env->fp_status); res->d = floatx80_sqrt(val->d, &env->fp_status);
PREC_END(); PREC_END();
} }
@ -214,14 +214,14 @@ void HELPER(fabs)(CPUM68KState *env, FPReg *res, FPReg *val)
void HELPER(fsabs)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fsabs)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status); res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fdabs)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fdabs)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status); res->d = floatx80_round(floatx80_abs(val->d), &env->fp_status);
PREC_END(); PREC_END();
} }
@ -233,14 +233,14 @@ void HELPER(fneg)(CPUM68KState *env, FPReg *res, FPReg *val)
void HELPER(fsneg)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fsneg)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status); res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fdneg)(CPUM68KState *env, FPReg *res, FPReg *val) void HELPER(fdneg)(CPUM68KState *env, FPReg *res, FPReg *val)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status); res->d = floatx80_round(floatx80_chs(val->d), &env->fp_status);
PREC_END(); PREC_END();
} }
@ -252,14 +252,14 @@ void HELPER(fadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
void HELPER(fsadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fsadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_add(val0->d, val1->d, &env->fp_status); res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fdadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fdadd)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_add(val0->d, val1->d, &env->fp_status); res->d = floatx80_add(val0->d, val1->d, &env->fp_status);
PREC_END(); PREC_END();
} }
@ -271,14 +271,14 @@ void HELPER(fsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
void HELPER(fssub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fssub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_sub(val1->d, val0->d, &env->fp_status); res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fdsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fdsub)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_sub(val1->d, val0->d, &env->fp_status); res->d = floatx80_sub(val1->d, val0->d, &env->fp_status);
PREC_END(); PREC_END();
} }
@ -290,14 +290,14 @@ void HELPER(fmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
void HELPER(fsmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fsmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_mul(val0->d, val1->d, &env->fp_status); res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fdmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fdmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_mul(val0->d, val1->d, &env->fp_status); res->d = floatx80_mul(val0->d, val1->d, &env->fp_status);
PREC_END(); PREC_END();
} }
@ -307,7 +307,7 @@ void HELPER(fsglmul)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status); FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status);
floatx80 a, b; floatx80 a, b;
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
set_float_rounding_mode(float_round_to_zero, &env->fp_status); set_float_rounding_mode(float_round_to_zero, &env->fp_status);
a = floatx80_round(val0->d, &env->fp_status); a = floatx80_round(val0->d, &env->fp_status);
b = floatx80_round(val1->d, &env->fp_status); b = floatx80_round(val1->d, &env->fp_status);
@ -323,14 +323,14 @@ void HELPER(fdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
void HELPER(fsdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fsdiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
res->d = floatx80_div(val1->d, val0->d, &env->fp_status); res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
PREC_END(); PREC_END();
} }
void HELPER(fddiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1) void HELPER(fddiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
{ {
PREC_BEGIN(64); PREC_BEGIN(floatx80_precision_d);
res->d = floatx80_div(val1->d, val0->d, &env->fp_status); res->d = floatx80_div(val1->d, val0->d, &env->fp_status);
PREC_END(); PREC_END();
} }
@ -340,7 +340,7 @@ void HELPER(fsgldiv)(CPUM68KState *env, FPReg *res, FPReg *val0, FPReg *val1)
FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status); FloatRoundMode rounding_mode = get_float_rounding_mode(&env->fp_status);
floatx80 a, b; floatx80 a, b;
PREC_BEGIN(32); PREC_BEGIN(floatx80_precision_s);
set_float_rounding_mode(float_round_to_zero, &env->fp_status); set_float_rounding_mode(float_round_to_zero, &env->fp_status);
a = floatx80_round(val1->d, &env->fp_status); a = floatx80_round(val1->d, &env->fp_status);
b = floatx80_round(val0->d, &env->fp_status); b = floatx80_round(val0->d, &env->fp_status);

90
target/m68k/softfloat.c
View File

@ -227,7 +227,8 @@ floatx80 floatx80_lognp1(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig, fSig; uint64_t aSig, fSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, j, k; int32_t compact, j, k;
floatx80 fp0, fp1, fp2, fp3, f, logof2, klog2, saveu; floatx80 fp0, fp1, fp2, fp3, f, logof2, klog2, saveu;
@ -270,7 +271,7 @@ floatx80 floatx80_lognp1(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -426,7 +427,8 @@ floatx80 floatx80_logn(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig, fSig; uint64_t aSig, fSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, j, k, adjk; int32_t compact, j, k, adjk;
floatx80 fp0, fp1, fp2, fp3, f, logof2, klog2, saveu; floatx80 fp0, fp1, fp2, fp3, f, logof2, klog2, saveu;
@ -469,7 +471,7 @@ floatx80 floatx80_logn(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -594,7 +596,8 @@ floatx80 floatx80_log10(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
floatx80 fp0, fp1; floatx80 fp0, fp1;
@ -626,7 +629,7 @@ floatx80 floatx80_log10(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
fp0 = floatx80_logn(a, status); fp0 = floatx80_logn(a, status);
fp1 = packFloatx80(0, 0x3FFD, UINT64_C(0xDE5BD8A937287195)); /* INV_L10 */ fp1 = packFloatx80(0, 0x3FFD, UINT64_C(0xDE5BD8A937287195)); /* INV_L10 */
@ -651,7 +654,8 @@ floatx80 floatx80_log2(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
floatx80 fp0, fp1; floatx80 fp0, fp1;
@ -686,7 +690,7 @@ floatx80 floatx80_log2(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
if (aSig == one_sig) { /* X is 2^k */ if (aSig == one_sig) { /* X is 2^k */
status->float_rounding_mode = user_rnd_mode; status->float_rounding_mode = user_rnd_mode;
@ -718,7 +722,8 @@ floatx80 floatx80_etox(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, n, j, k, m, m1; int32_t compact, n, j, k, m, m1;
floatx80 fp0, fp1, fp2, fp3, l2, scale, adjscale; floatx80 fp0, fp1, fp2, fp3, l2, scale, adjscale;
@ -746,7 +751,7 @@ floatx80 floatx80_etox(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
adjflag = 0; adjflag = 0;
@ -902,7 +907,8 @@ floatx80 floatx80_twotox(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, n, j, l, m, m1; int32_t compact, n, j, l, m, m1;
floatx80 fp0, fp1, fp2, fp3, adjfact, fact1, fact2; floatx80 fp0, fp1, fp2, fp3, adjfact, fact1, fact2;
@ -929,7 +935,7 @@ floatx80 floatx80_twotox(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
fp0 = a; fp0 = a;
@ -1052,7 +1058,8 @@ floatx80 floatx80_tentox(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, n, j, l, m, m1; int32_t compact, n, j, l, m, m1;
floatx80 fp0, fp1, fp2, fp3, adjfact, fact1, fact2; floatx80 fp0, fp1, fp2, fp3, adjfact, fact1, fact2;
@ -1079,7 +1086,7 @@ floatx80 floatx80_tentox(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
fp0 = a; fp0 = a;
@ -1207,7 +1214,8 @@ floatx80 floatx80_tan(floatx80 a, float_status *status)
int32_t aExp, xExp; int32_t aExp, xExp;
uint64_t aSig, xSig; uint64_t aSig, xSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, l, n, j; int32_t compact, l, n, j;
floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2;
@ -1233,7 +1241,7 @@ floatx80 floatx80_tan(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -1417,7 +1425,8 @@ floatx80 floatx80_sin(floatx80 a, float_status *status)
int32_t aExp, xExp; int32_t aExp, xExp;
uint64_t aSig, xSig; uint64_t aSig, xSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, l, n, j; int32_t compact, l, n, j;
floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2;
@ -1443,7 +1452,7 @@ floatx80 floatx80_sin(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -1656,7 +1665,8 @@ floatx80 floatx80_cos(floatx80 a, float_status *status)
int32_t aExp, xExp; int32_t aExp, xExp;
uint64_t aSig, xSig; uint64_t aSig, xSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, l, n, j; int32_t compact, l, n, j;
floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2;
@ -1682,7 +1692,7 @@ floatx80 floatx80_cos(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -1893,7 +1903,8 @@ floatx80 floatx80_atan(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, tbl_index; int32_t compact, tbl_index;
floatx80 fp0, fp1, fp2, fp3, xsave; floatx80 fp0, fp1, fp2, fp3, xsave;
@ -1920,7 +1931,7 @@ floatx80 floatx80_atan(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
if (compact < 0x3FFB8000 || compact > 0x4002FFFF) { if (compact < 0x3FFB8000 || compact > 0x4002FFFF) {
/* |X| >= 16 or |X| < 1/16 */ /* |X| >= 16 or |X| < 1/16 */
@ -2090,7 +2101,8 @@ floatx80 floatx80_asin(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact; int32_t compact;
floatx80 fp0, fp1, fp2, one; floatx80 fp0, fp1, fp2, one;
@ -2124,7 +2136,7 @@ floatx80 floatx80_asin(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
one = packFloatx80(0, one_exp, one_sig); one = packFloatx80(0, one_exp, one_sig);
fp0 = a; fp0 = a;
@ -2155,7 +2167,8 @@ floatx80 floatx80_acos(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact; int32_t compact;
floatx80 fp0, fp1, one; floatx80 fp0, fp1, one;
@ -2193,7 +2206,7 @@ floatx80 floatx80_acos(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
one = packFloatx80(0, one_exp, one_sig); one = packFloatx80(0, one_exp, one_sig);
fp0 = a; fp0 = a;
@ -2224,7 +2237,8 @@ floatx80 floatx80_atanh(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact; int32_t compact;
floatx80 fp0, fp1, fp2, one; floatx80 fp0, fp1, fp2, one;
@ -2257,7 +2271,7 @@ floatx80 floatx80_atanh(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
one = packFloatx80(0, one_exp, one_sig); one = packFloatx80(0, one_exp, one_sig);
fp2 = packFloatx80(aSign, 0x3FFE, one_sig); /* SIGN(X) * (1/2) */ fp2 = packFloatx80(aSign, 0x3FFE, one_sig); /* SIGN(X) * (1/2) */
@ -2289,7 +2303,8 @@ floatx80 floatx80_etoxm1(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact, n, j, m, m1; int32_t compact, n, j, m, m1;
floatx80 fp0, fp1, fp2, fp3, l2, sc, onebysc; floatx80 fp0, fp1, fp2, fp3, l2, sc, onebysc;
@ -2316,7 +2331,7 @@ floatx80 floatx80_etoxm1(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
if (aExp >= 0x3FFD) { /* |X| >= 1/4 */ if (aExp >= 0x3FFD) { /* |X| >= 1/4 */
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -2541,7 +2556,8 @@ floatx80 floatx80_tanh(floatx80 a, float_status *status)
int32_t aExp, vExp; int32_t aExp, vExp;
uint64_t aSig, vSig; uint64_t aSig, vSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact; int32_t compact;
floatx80 fp0, fp1; floatx80 fp0, fp1;
@ -2565,7 +2581,7 @@ floatx80 floatx80_tanh(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -2656,7 +2672,8 @@ floatx80 floatx80_sinh(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact; int32_t compact;
floatx80 fp0, fp1, fp2; floatx80 fp0, fp1, fp2;
@ -2681,7 +2698,7 @@ floatx80 floatx80_sinh(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);
@ -2744,7 +2761,8 @@ floatx80 floatx80_cosh(floatx80 a, float_status *status)
int32_t aExp; int32_t aExp;
uint64_t aSig; uint64_t aSig;
int8_t user_rnd_mode, user_rnd_prec; FloatRoundMode user_rnd_mode;
FloatX80RoundPrec user_rnd_prec;
int32_t compact; int32_t compact;
floatx80 fp0, fp1; floatx80 fp0, fp1;
@ -2767,7 +2785,7 @@ floatx80 floatx80_cosh(floatx80 a, float_status *status)
user_rnd_mode = status->float_rounding_mode; user_rnd_mode = status->float_rounding_mode;
user_rnd_prec = status->floatx80_rounding_precision; user_rnd_prec = status->floatx80_rounding_precision;
status->float_rounding_mode = float_round_nearest_even; status->float_rounding_mode = float_round_nearest_even;
status->floatx80_rounding_precision = 80; status->floatx80_rounding_precision = floatx80_precision_x;
compact = floatx80_make_compact(aExp, aSig); compact = floatx80_make_compact(aExp, aSig);

5
tests/fp/fp-test.c
View File

@ -963,18 +963,21 @@ static void QEMU_NORETURN run_test(void)
verCases_usesExact = !!(attrs & FUNC_ARG_EXACT); verCases_usesExact = !!(attrs & FUNC_ARG_EXACT);
for (k = 0; k < 3; k++) { for (k = 0; k < 3; k++) {
FloatX80RoundPrec qsf_prec80 = floatx80_precision_s;
int prec80 = 32; int prec80 = 32;
int l; int l;
if (k == 1) { if (k == 1) {
prec80 = 64; prec80 = 64;
qsf_prec80 = floatx80_precision_d;
} else if (k == 2) { } else if (k == 2) {
prec80 = 80; prec80 = 80;
qsf_prec80 = floatx80_precision_x;
} }
verCases_roundingPrecision = 0; verCases_roundingPrecision = 0;
slow_extF80_roundingPrecision = prec80; slow_extF80_roundingPrecision = prec80;
qsf.floatx80_rounding_precision = prec80; qsf.floatx80_rounding_precision = qsf_prec80;
if (attrs & FUNC_EFF_ROUNDINGPRECISION) { if (attrs & FUNC_EFF_ROUNDINGPRECISION) {
verCases_roundingPrecision = prec80; verCases_roundingPrecision = prec80;