Skip to content

Q
qemu

openeuler / qemu

通知 10
Star 0
Fork 0
Q
qemu
提交 e5a41ffa 编写于 作者: P Peter Maydell
浏览文件
操作

softfloat: Expand out the STATUS_PARAM macro 

Expand out STATUS_PARAM wherever it is used and delete the definition.
Signed-off-by: NPeter Maydell <peter.maydell@linaro.org>
Reviewed-by: NRichard Henderson <rth@twiddle.net>
上级 cebbae86
显示空白变更内容
内联 并排
Showing with 410 addition and 377 deletion
fpu/softfloat-specialize.h
浏览文件 @ e5a41ffa
...@@ -170,7 +170,7 @@ const float128 float128_default_nan ...@@ -170,7 +170,7 @@ const float128 float128_default_nan
| should be simply `float_exception_flags |= flags;'. | should be simply `float_exception_flags |= flags;'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
void float_raise( int8 flags STATUS_PARAM ) void float_raise(int8 flags, float_status *status)
{ {
STATUS(float_exception_flags) |= flags; STATUS(float_exception_flags) |= flags;
} }
...@@ -253,7 +253,7 @@ float16 float16_maybe_silence_nan(float16 a_) ...@@ -253,7 +253,7 @@ float16 float16_maybe_silence_nan(float16 a_)
| exception is raised. | exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static commonNaNT float16ToCommonNaN( float16 a STATUS_PARAM ) static commonNaNT float16ToCommonNaN(float16 a, float_status *status)
{ {
commonNaNT z; commonNaNT z;
...@@ -269,7 +269,7 @@ static commonNaNT float16ToCommonNaN( float16 a STATUS_PARAM ) ...@@ -269,7 +269,7 @@ static commonNaNT float16ToCommonNaN( float16 a STATUS_PARAM )
| precision floating-point format. | precision floating-point format.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float16 commonNaNToFloat16(commonNaNT a STATUS_PARAM) static float16 commonNaNToFloat16(commonNaNT a, float_status *status)
{ {
uint16_t mantissa = a.high>>54; uint16_t mantissa = a.high>>54;
...@@ -356,7 +356,7 @@ float32 float32_maybe_silence_nan( float32 a_ ) ...@@ -356,7 +356,7 @@ float32 float32_maybe_silence_nan( float32 a_ )
| exception is raised. | exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static commonNaNT float32ToCommonNaN( float32 a STATUS_PARAM ) static commonNaNT float32ToCommonNaN(float32 a, float_status *status)
{ {
commonNaNT z; commonNaNT z;
...@@ -372,7 +372,7 @@ static commonNaNT float32ToCommonNaN( float32 a STATUS_PARAM ) ...@@ -372,7 +372,7 @@ static commonNaNT float32ToCommonNaN( float32 a STATUS_PARAM )
| precision floating-point format. | precision floating-point format.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 commonNaNToFloat32( commonNaNT a STATUS_PARAM) static float32 commonNaNToFloat32(commonNaNT a, float_status *status)
{ {
uint32_t mantissa = a.high>>41; uint32_t mantissa = a.high>>41;
...@@ -507,7 +507,8 @@ static int pickNaN(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, ...@@ -507,7 +507,8 @@ static int pickNaN(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
#if defined(TARGET_ARM) #if defined(TARGET_ARM)
static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
flag cIsQNaN, flag cIsSNaN, flag infzero STATUS_PARAM) flag cIsQNaN, flag cIsSNaN, flag infzero,
float_status *status)
{ {
/* For ARM, the (inf,zero,qnan) case sets InvalidOp and returns /* For ARM, the (inf,zero,qnan) case sets InvalidOp and returns
* the default NaN * the default NaN
...@@ -536,7 +537,8 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, ...@@ -536,7 +537,8 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
} }
#elif defined(TARGET_MIPS) #elif defined(TARGET_MIPS)
static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
flag cIsQNaN, flag cIsSNaN, flag infzero STATUS_PARAM) flag cIsQNaN, flag cIsSNaN, flag infzero,
float_status *status)
{ {
/* For MIPS, the (inf,zero,qnan) case sets InvalidOp and returns /* For MIPS, the (inf,zero,qnan) case sets InvalidOp and returns
* the default NaN * the default NaN
...@@ -563,7 +565,8 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, ...@@ -563,7 +565,8 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
} }
#elif defined(TARGET_PPC) #elif defined(TARGET_PPC)
static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
flag cIsQNaN, flag cIsSNaN, flag infzero STATUS_PARAM) flag cIsQNaN, flag cIsSNaN, flag infzero,
float_status *status)
{ {
/* For PPC, the (inf,zero,qnan) case sets InvalidOp, but we prefer /* For PPC, the (inf,zero,qnan) case sets InvalidOp, but we prefer
* to return an input NaN if we have one (ie c) rather than generating * to return an input NaN if we have one (ie c) rather than generating
...@@ -590,7 +593,8 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, ...@@ -590,7 +593,8 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
* This is unlikely to actually match any real implementation. * This is unlikely to actually match any real implementation.
*/ */
static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
flag cIsQNaN, flag cIsSNaN, flag infzero STATUS_PARAM) flag cIsQNaN, flag cIsSNaN, flag infzero,
float_status *status)
{ {
if (aIsSNaN || aIsQNaN) { if (aIsSNaN || aIsQNaN) {
return 0; return 0;
...@@ -608,7 +612,7 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN, ...@@ -608,7 +612,7 @@ static int pickNaNMulAdd(flag aIsQNaN, flag aIsSNaN, flag bIsQNaN, flag bIsSNaN,
| signaling NaN, the invalid exception is raised. | signaling NaN, the invalid exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 propagateFloat32NaN( float32 a, float32 b STATUS_PARAM) static float32 propagateFloat32NaN(float32 a, float32 b, float_status *status)
{ {
flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN; flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN;
flag aIsLargerSignificand; flag aIsLargerSignificand;
...@@ -652,7 +656,8 @@ static float32 propagateFloat32NaN( float32 a, float32 b STATUS_PARAM) ...@@ -652,7 +656,8 @@ static float32 propagateFloat32NaN( float32 a, float32 b STATUS_PARAM)
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 propagateFloat32MulAddNaN(float32 a, float32 b, static float32 propagateFloat32MulAddNaN(float32 a, float32 b,
float32 c, flag infzero STATUS_PARAM) float32 c, flag infzero,
float_status *status)
{ {
flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN, flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN,
cIsQuietNaN, cIsSignalingNaN; cIsQuietNaN, cIsSignalingNaN;
...@@ -767,7 +772,7 @@ float64 float64_maybe_silence_nan( float64 a_ ) ...@@ -767,7 +772,7 @@ float64 float64_maybe_silence_nan( float64 a_ )
| exception is raised. | exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static commonNaNT float64ToCommonNaN( float64 a STATUS_PARAM) static commonNaNT float64ToCommonNaN(float64 a, float_status *status)
{ {
commonNaNT z; commonNaNT z;
...@@ -783,7 +788,7 @@ static commonNaNT float64ToCommonNaN( float64 a STATUS_PARAM) ...@@ -783,7 +788,7 @@ static commonNaNT float64ToCommonNaN( float64 a STATUS_PARAM)
| precision floating-point format. | precision floating-point format.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float64 commonNaNToFloat64( commonNaNT a STATUS_PARAM) static float64 commonNaNToFloat64(commonNaNT a, float_status *status)
{ {
uint64_t mantissa = a.high>>12; uint64_t mantissa = a.high>>12;
...@@ -806,7 +811,7 @@ static float64 commonNaNToFloat64( commonNaNT a STATUS_PARAM) ...@@ -806,7 +811,7 @@ static float64 commonNaNToFloat64( commonNaNT a STATUS_PARAM)
| signaling NaN, the invalid exception is raised. | signaling NaN, the invalid exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float64 propagateFloat64NaN( float64 a, float64 b STATUS_PARAM) static float64 propagateFloat64NaN(float64 a, float64 b, float_status *status)
{ {
flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN; flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN;
flag aIsLargerSignificand; flag aIsLargerSignificand;
...@@ -850,7 +855,8 @@ static float64 propagateFloat64NaN( float64 a, float64 b STATUS_PARAM) ...@@ -850,7 +855,8 @@ static float64 propagateFloat64NaN( float64 a, float64 b STATUS_PARAM)
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float64 propagateFloat64MulAddNaN(float64 a, float64 b, static float64 propagateFloat64MulAddNaN(float64 a, float64 b,
float64 c, flag infzero STATUS_PARAM) float64 c, flag infzero,
float_status *status)
{ {
flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN, flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN,
cIsQuietNaN, cIsSignalingNaN; cIsQuietNaN, cIsSignalingNaN;
...@@ -975,7 +981,7 @@ floatx80 floatx80_maybe_silence_nan( floatx80 a ) ...@@ -975,7 +981,7 @@ floatx80 floatx80_maybe_silence_nan( floatx80 a )
| invalid exception is raised. | invalid exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static commonNaNT floatx80ToCommonNaN( floatx80 a STATUS_PARAM) static commonNaNT floatx80ToCommonNaN(floatx80 a, float_status *status)
{ {
commonNaNT z; commonNaNT z;
...@@ -997,7 +1003,7 @@ static commonNaNT floatx80ToCommonNaN( floatx80 a STATUS_PARAM) ...@@ -997,7 +1003,7 @@ static commonNaNT floatx80ToCommonNaN( floatx80 a STATUS_PARAM)
| double-precision floating-point format. | double-precision floating-point format.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static floatx80 commonNaNToFloatx80( commonNaNT a STATUS_PARAM) static floatx80 commonNaNToFloatx80(commonNaNT a, float_status *status)
{ {
floatx80 z; floatx80 z;
...@@ -1024,7 +1030,8 @@ static floatx80 commonNaNToFloatx80( commonNaNT a STATUS_PARAM) ...@@ -1024,7 +1030,8 @@ static floatx80 commonNaNToFloatx80( commonNaNT a STATUS_PARAM)
| `b' is a signaling NaN, the invalid exception is raised. | `b' is a signaling NaN, the invalid exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static floatx80 propagateFloatx80NaN( floatx80 a, floatx80 b STATUS_PARAM) static floatx80 propagateFloatx80NaN(floatx80 a, floatx80 b,
float_status *status)
{ {
flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN; flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN;
flag aIsLargerSignificand; flag aIsLargerSignificand;
...@@ -1134,7 +1141,7 @@ float128 float128_maybe_silence_nan( float128 a ) ...@@ -1134,7 +1141,7 @@ float128 float128_maybe_silence_nan( float128 a )
| exception is raised. | exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static commonNaNT float128ToCommonNaN( float128 a STATUS_PARAM) static commonNaNT float128ToCommonNaN(float128 a, float_status *status)
{ {
commonNaNT z; commonNaNT z;
...@@ -1149,7 +1156,7 @@ static commonNaNT float128ToCommonNaN( float128 a STATUS_PARAM) ...@@ -1149,7 +1156,7 @@ static commonNaNT float128ToCommonNaN( float128 a STATUS_PARAM)
| precision floating-point format. | precision floating-point format.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float128 commonNaNToFloat128( commonNaNT a STATUS_PARAM) static float128 commonNaNToFloat128(commonNaNT a, float_status *status)
{ {
float128 z; float128 z;
...@@ -1170,7 +1177,8 @@ static float128 commonNaNToFloat128( commonNaNT a STATUS_PARAM) ...@@ -1170,7 +1177,8 @@ static float128 commonNaNToFloat128( commonNaNT a STATUS_PARAM)
| `b' is a signaling NaN, the invalid exception is raised. | `b' is a signaling NaN, the invalid exception is raised.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float128 propagateFloat128NaN( float128 a, float128 b STATUS_PARAM) static float128 propagateFloat128NaN(float128 a, float128 b,
float_status *status)
{ {
flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN; flag aIsQuietNaN, aIsSignalingNaN, bIsQuietNaN, bIsSignalingNaN;
flag aIsLargerSignificand; flag aIsLargerSignificand;
......
fpu/softfloat.c
浏览文件 @ e5a41ffa
...@@ -144,7 +144,7 @@ static inline flag extractFloat16Sign(float16 a) ...@@ -144,7 +144,7 @@ static inline flag extractFloat16Sign(float16 a)
| positive or negative integer is returned. | positive or negative integer is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static int32 roundAndPackInt32( flag zSign, uint64_t absZ STATUS_PARAM) static int32 roundAndPackInt32(flag zSign, uint64_t absZ, float_status *status)
{ {
int8 roundingMode; int8 roundingMode;
flag roundNearestEven; flag roundNearestEven;
...@@ -196,7 +196,8 @@ static int32 roundAndPackInt32( flag zSign, uint64_t absZ STATUS_PARAM) ...@@ -196,7 +196,8 @@ static int32 roundAndPackInt32( flag zSign, uint64_t absZ STATUS_PARAM)
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static int64 roundAndPackInt64( flag zSign, uint64_t absZ0, uint64_t absZ1 STATUS_PARAM) static int64 roundAndPackInt64(flag zSign, uint64_t absZ0, uint64_t absZ1,
float_status *status)
{ {
int8 roundingMode; int8 roundingMode;
flag roundNearestEven, increment; flag roundNearestEven, increment;
...@@ -251,7 +252,7 @@ static int64 roundAndPackInt64( flag zSign, uint64_t absZ0, uint64_t absZ1 STATU ...@@ -251,7 +252,7 @@ static int64 roundAndPackInt64( flag zSign, uint64_t absZ0, uint64_t absZ1 STATU
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static int64 roundAndPackUint64(flag zSign, uint64_t absZ0, static int64 roundAndPackUint64(flag zSign, uint64_t absZ0,
uint64_t absZ1 STATUS_PARAM) uint64_t absZ1, float_status *status)
{ {
int8 roundingMode; int8 roundingMode;
flag roundNearestEven, increment; flag roundNearestEven, increment;
...@@ -332,7 +333,7 @@ static inline flag extractFloat32Sign( float32 a ) ...@@ -332,7 +333,7 @@ static inline flag extractFloat32Sign( float32 a )
| If `a' is denormal and we are in flush-to-zero mode then set the | If `a' is denormal and we are in flush-to-zero mode then set the
| input-denormal exception and return zero. Otherwise just return the value. | input-denormal exception and return zero. Otherwise just return the value.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_squash_input_denormal(float32 a STATUS_PARAM) float32 float32_squash_input_denormal(float32 a, float_status *status)
{ {
if (STATUS(flush_inputs_to_zero)) { if (STATUS(flush_inputs_to_zero)) {
if (extractFloat32Exp(a) == 0 && extractFloat32Frac(a) != 0) { if (extractFloat32Exp(a) == 0 && extractFloat32Frac(a) != 0) {
...@@ -402,7 +403,8 @@ static inline float32 packFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig) ...@@ -402,7 +403,8 @@ static inline float32 packFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig)
| Binary Floating-Point Arithmetic. | Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 roundAndPackFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig STATUS_PARAM) static float32 roundAndPackFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig,
float_status *status)
{ {
int8 roundingMode; int8 roundingMode;
flag roundNearestEven; flag roundNearestEven;
...@@ -471,7 +473,8 @@ static float32 roundAndPackFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig ...@@ -471,7 +473,8 @@ static float32 roundAndPackFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 static float32
normalizeRoundAndPackFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig STATUS_PARAM) normalizeRoundAndPackFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig,
float_status *status)
{ {
int8 shiftCount; int8 shiftCount;
...@@ -517,7 +520,7 @@ static inline flag extractFloat64Sign( float64 a ) ...@@ -517,7 +520,7 @@ static inline flag extractFloat64Sign( float64 a )
| If `a' is denormal and we are in flush-to-zero mode then set the | If `a' is denormal and we are in flush-to-zero mode then set the
| input-denormal exception and return zero. Otherwise just return the value. | input-denormal exception and return zero. Otherwise just return the value.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_squash_input_denormal(float64 a STATUS_PARAM) float64 float64_squash_input_denormal(float64 a, float_status *status)
{ {
if (STATUS(flush_inputs_to_zero)) { if (STATUS(flush_inputs_to_zero)) {
if (extractFloat64Exp(a) == 0 && extractFloat64Frac(a) != 0) { if (extractFloat64Exp(a) == 0 && extractFloat64Frac(a) != 0) {
...@@ -587,7 +590,8 @@ static inline float64 packFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig) ...@@ -587,7 +590,8 @@ static inline float64 packFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig)
| Binary Floating-Point Arithmetic. | Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float64 roundAndPackFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig STATUS_PARAM) static float64 roundAndPackFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig,
float_status *status)
{ {
int8 roundingMode; int8 roundingMode;
flag roundNearestEven; flag roundNearestEven;
...@@ -655,7 +659,8 @@ static float64 roundAndPackFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig ...@@ -655,7 +659,8 @@ static float64 roundAndPackFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float64 static float64
normalizeRoundAndPackFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig STATUS_PARAM) normalizeRoundAndPackFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig,
float_status *status)
{ {
int8 shiftCount; int8 shiftCount;
...@@ -757,10 +762,9 @@ static inline floatx80 packFloatx80( flag zSign, int32 zExp, uint64_t zSig ) ...@@ -757,10 +762,9 @@ static inline floatx80 packFloatx80( flag zSign, int32 zExp, uint64_t zSig )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static floatx80 static floatx80 roundAndPackFloatx80(int8 roundingPrecision, flag zSign,
roundAndPackFloatx80( int32 zExp, uint64_t zSig0, uint64_t zSig1,
int8 roundingPrecision, flag zSign, int32 zExp, uint64_t zSig0, uint64_t zSig1 float_status *status)
STATUS_PARAM)
{ {
int8 roundingMode; int8 roundingMode;
flag roundNearestEven, increment, isTiny; flag roundNearestEven, increment, isTiny;
...@@ -940,10 +944,10 @@ static floatx80 ...@@ -940,10 +944,10 @@ static floatx80
| normalized. | normalized.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static floatx80 static floatx80 normalizeRoundAndPackFloatx80(int8 roundingPrecision,
normalizeRoundAndPackFloatx80( flag zSign, int32 zExp,
int8 roundingPrecision, flag zSign, int32 zExp, uint64_t zSig0, uint64_t zSig1 uint64_t zSig0, uint64_t zSig1,
STATUS_PARAM) float_status *status)
{ {
int8 shiftCount; int8 shiftCount;
...@@ -1093,9 +1097,9 @@ static inline float128 ...@@ -1093,9 +1097,9 @@ static inline float128
| overflow follows the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | overflow follows the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float128 static float128 roundAndPackFloat128(flag zSign, int32 zExp,
roundAndPackFloat128( uint64_t zSig0, uint64_t zSig1,
flag zSign, int32 zExp, uint64_t zSig0, uint64_t zSig1, uint64_t zSig2 STATUS_PARAM) uint64_t zSig2, float_status *status)
{ {
int8 roundingMode; int8 roundingMode;
flag roundNearestEven, increment, isTiny; flag roundNearestEven, increment, isTiny;
...@@ -1206,9 +1210,9 @@ static float128 ...@@ -1206,9 +1210,9 @@ static float128
| point exponent. | point exponent.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float128 static float128 normalizeRoundAndPackFloat128(flag zSign, int32 zExp,
normalizeRoundAndPackFloat128( uint64_t zSig0, uint64_t zSig1,
flag zSign, int32 zExp, uint64_t zSig0, uint64_t zSig1 STATUS_PARAM) float_status *status)
{ {
int8 shiftCount; int8 shiftCount;
uint64_t zSig2; uint64_t zSig2;
...@@ -1238,7 +1242,7 @@ static float128 ...@@ -1238,7 +1242,7 @@ static float128
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 int32_to_float32(int32_t a STATUS_PARAM) float32 int32_to_float32(int32_t a, float_status *status)
{ {
flag zSign; flag zSign;
...@@ -1255,7 +1259,7 @@ float32 int32_to_float32(int32_t a STATUS_PARAM) ...@@ -1255,7 +1259,7 @@ float32 int32_to_float32(int32_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 int32_to_float64(int32_t a STATUS_PARAM) float64 int32_to_float64(int32_t a, float_status *status)
{ {
flag zSign; flag zSign;
uint32 absA; uint32 absA;
...@@ -1278,7 +1282,7 @@ float64 int32_to_float64(int32_t a STATUS_PARAM) ...@@ -1278,7 +1282,7 @@ float64 int32_to_float64(int32_t a STATUS_PARAM)
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 int32_to_floatx80(int32_t a STATUS_PARAM) floatx80 int32_to_floatx80(int32_t a, float_status *status)
{ {
flag zSign; flag zSign;
uint32 absA; uint32 absA;
...@@ -1300,7 +1304,7 @@ floatx80 int32_to_floatx80(int32_t a STATUS_PARAM) ...@@ -1300,7 +1304,7 @@ floatx80 int32_to_floatx80(int32_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 int32_to_float128(int32_t a STATUS_PARAM) float128 int32_to_float128(int32_t a, float_status *status)
{ {
flag zSign; flag zSign;
uint32 absA; uint32 absA;
...@@ -1322,7 +1326,7 @@ float128 int32_to_float128(int32_t a STATUS_PARAM) ...@@ -1322,7 +1326,7 @@ float128 int32_to_float128(int32_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 int64_to_float32(int64_t a STATUS_PARAM) float32 int64_to_float32(int64_t a, float_status *status)
{ {
flag zSign; flag zSign;
uint64 absA; uint64 absA;
...@@ -1354,7 +1358,7 @@ float32 int64_to_float32(int64_t a STATUS_PARAM) ...@@ -1354,7 +1358,7 @@ float32 int64_to_float32(int64_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 int64_to_float64(int64_t a STATUS_PARAM) float64 int64_to_float64(int64_t a, float_status *status)
{ {
flag zSign; flag zSign;
...@@ -1374,7 +1378,7 @@ float64 int64_to_float64(int64_t a STATUS_PARAM) ...@@ -1374,7 +1378,7 @@ float64 int64_to_float64(int64_t a STATUS_PARAM)
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 int64_to_floatx80(int64_t a STATUS_PARAM) floatx80 int64_to_floatx80(int64_t a, float_status *status)
{ {
flag zSign; flag zSign;
uint64 absA; uint64 absA;
...@@ -1394,7 +1398,7 @@ floatx80 int64_to_floatx80(int64_t a STATUS_PARAM) ...@@ -1394,7 +1398,7 @@ floatx80 int64_to_floatx80(int64_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 int64_to_float128(int64_t a STATUS_PARAM) float128 int64_to_float128(int64_t a, float_status *status)
{ {
flag zSign; flag zSign;
uint64 absA; uint64 absA;
...@@ -1427,7 +1431,7 @@ float128 int64_to_float128(int64_t a STATUS_PARAM) ...@@ -1427,7 +1431,7 @@ float128 int64_to_float128(int64_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 uint64_to_float32(uint64_t a STATUS_PARAM) float32 uint64_to_float32(uint64_t a, float_status *status)
{ {
int shiftcount; int shiftcount;
...@@ -1462,7 +1466,7 @@ float32 uint64_to_float32(uint64_t a STATUS_PARAM) ...@@ -1462,7 +1466,7 @@ float32 uint64_to_float32(uint64_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 uint64_to_float64(uint64_t a STATUS_PARAM) float64 uint64_to_float64(uint64_t a, float_status *status)
{ {
int exp = 0x43C; int exp = 0x43C;
int shiftcount; int shiftcount;
...@@ -1486,7 +1490,7 @@ float64 uint64_to_float64(uint64_t a STATUS_PARAM) ...@@ -1486,7 +1490,7 @@ float64 uint64_to_float64(uint64_t a STATUS_PARAM)
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 uint64_to_float128(uint64_t a STATUS_PARAM) float128 uint64_to_float128(uint64_t a, float_status *status)
{ {
if (a == 0) { if (a == 0) {
return float128_zero; return float128_zero;
...@@ -1504,7 +1508,7 @@ float128 uint64_to_float128(uint64_t a STATUS_PARAM) ...@@ -1504,7 +1508,7 @@ float128 uint64_to_float128(uint64_t a STATUS_PARAM)
| largest integer with the same sign as `a' is returned. | largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 float32_to_int32( float32 a STATUS_PARAM ) int32 float32_to_int32(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -1535,7 +1539,7 @@ int32 float32_to_int32( float32 a STATUS_PARAM ) ...@@ -1535,7 +1539,7 @@ int32 float32_to_int32( float32 a STATUS_PARAM )
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 float32_to_int32_round_to_zero( float32 a STATUS_PARAM ) int32 float32_to_int32_round_to_zero(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -1578,7 +1582,7 @@ int32 float32_to_int32_round_to_zero( float32 a STATUS_PARAM ) ...@@ -1578,7 +1582,7 @@ int32 float32_to_int32_round_to_zero( float32 a STATUS_PARAM )
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int_fast16_t float32_to_int16_round_to_zero(float32 a STATUS_PARAM) int_fast16_t float32_to_int16_round_to_zero(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -1627,7 +1631,7 @@ int_fast16_t float32_to_int16_round_to_zero(float32 a STATUS_PARAM) ...@@ -1627,7 +1631,7 @@ int_fast16_t float32_to_int16_round_to_zero(float32 a STATUS_PARAM)
| largest integer with the same sign as `a' is returned. | largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 float32_to_int64( float32 a STATUS_PARAM ) int64 float32_to_int64(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -1666,7 +1670,7 @@ int64 float32_to_int64( float32 a STATUS_PARAM ) ...@@ -1666,7 +1670,7 @@ int64 float32_to_int64( float32 a STATUS_PARAM )
| raise the inexact exception flag. | raise the inexact exception flag.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
uint64 float32_to_uint64(float32 a STATUS_PARAM) uint64 float32_to_uint64(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -1711,7 +1715,7 @@ uint64 float32_to_uint64(float32 a STATUS_PARAM) ...@@ -1711,7 +1715,7 @@ uint64 float32_to_uint64(float32 a STATUS_PARAM)
| not round to zero will raise the inexact flag. | not round to zero will raise the inexact flag.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
uint64 float32_to_uint64_round_to_zero(float32 a STATUS_PARAM) uint64 float32_to_uint64_round_to_zero(float32 a, float_status *status)
{ {
signed char current_rounding_mode = STATUS(float_rounding_mode); signed char current_rounding_mode = STATUS(float_rounding_mode);
set_float_rounding_mode(float_round_to_zero STATUS_VAR); set_float_rounding_mode(float_round_to_zero STATUS_VAR);
...@@ -1730,7 +1734,7 @@ uint64 float32_to_uint64_round_to_zero(float32 a STATUS_PARAM) ...@@ -1730,7 +1734,7 @@ uint64 float32_to_uint64_round_to_zero(float32 a STATUS_PARAM)
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 float32_to_int64_round_to_zero( float32 a STATUS_PARAM ) int64 float32_to_int64_round_to_zero(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -1774,7 +1778,7 @@ int64 float32_to_int64_round_to_zero( float32 a STATUS_PARAM ) ...@@ -1774,7 +1778,7 @@ int64 float32_to_int64_round_to_zero( float32 a STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float32_to_float64( float32 a STATUS_PARAM ) float64 float32_to_float64(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -1804,7 +1808,7 @@ float64 float32_to_float64( float32 a STATUS_PARAM ) ...@@ -1804,7 +1808,7 @@ float64 float32_to_float64( float32 a STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 float32_to_floatx80( float32 a STATUS_PARAM ) floatx80 float32_to_floatx80(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -1834,7 +1838,7 @@ floatx80 float32_to_floatx80( float32 a STATUS_PARAM ) ...@@ -1834,7 +1838,7 @@ floatx80 float32_to_floatx80( float32 a STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float32_to_float128( float32 a STATUS_PARAM ) float128 float32_to_float128(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -1864,7 +1868,7 @@ float128 float32_to_float128( float32 a STATUS_PARAM ) ...@@ -1864,7 +1868,7 @@ float128 float32_to_float128( float32 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_round_to_int( float32 a STATUS_PARAM) float32 float32_round_to_int(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -1944,7 +1948,8 @@ float32 float32_round_to_int( float32 a STATUS_PARAM) ...@@ -1944,7 +1948,8 @@ float32 float32_round_to_int( float32 a STATUS_PARAM)
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 addFloat32Sigs( float32 a, float32 b, flag zSign STATUS_PARAM) static float32 addFloat32Sigs(float32 a, float32 b, flag zSign,
float_status *status)
{ {
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
uint32_t aSig, bSig, zSig; uint32_t aSig, bSig, zSig;
...@@ -2023,7 +2028,8 @@ static float32 addFloat32Sigs( float32 a, float32 b, flag zSign STATUS_PARAM) ...@@ -2023,7 +2028,8 @@ static float32 addFloat32Sigs( float32 a, float32 b, flag zSign STATUS_PARAM)
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 subFloat32Sigs( float32 a, float32 b, flag zSign STATUS_PARAM) static float32 subFloat32Sigs(float32 a, float32 b, flag zSign,
float_status *status)
{ {
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
uint32_t aSig, bSig, zSig; uint32_t aSig, bSig, zSig;
...@@ -2096,7 +2102,7 @@ static float32 subFloat32Sigs( float32 a, float32 b, flag zSign STATUS_PARAM) ...@@ -2096,7 +2102,7 @@ static float32 subFloat32Sigs( float32 a, float32 b, flag zSign STATUS_PARAM)
| Binary Floating-Point Arithmetic. | Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_add( float32 a, float32 b STATUS_PARAM ) float32 float32_add(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
a = float32_squash_input_denormal(a STATUS_VAR); a = float32_squash_input_denormal(a STATUS_VAR);
...@@ -2119,7 +2125,7 @@ float32 float32_add( float32 a, float32 b STATUS_PARAM ) ...@@ -2119,7 +2125,7 @@ float32 float32_add( float32 a, float32 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_sub( float32 a, float32 b STATUS_PARAM ) float32 float32_sub(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
a = float32_squash_input_denormal(a STATUS_VAR); a = float32_squash_input_denormal(a STATUS_VAR);
...@@ -2142,7 +2148,7 @@ float32 float32_sub( float32 a, float32 b STATUS_PARAM ) ...@@ -2142,7 +2148,7 @@ float32 float32_sub( float32 a, float32 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_mul( float32 a, float32 b STATUS_PARAM ) float32 float32_mul(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
...@@ -2205,7 +2211,7 @@ float32 float32_mul( float32 a, float32 b STATUS_PARAM ) ...@@ -2205,7 +2211,7 @@ float32 float32_mul( float32 a, float32 b STATUS_PARAM )
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_div( float32 a, float32 b STATUS_PARAM ) float32 float32_div(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
...@@ -2269,7 +2275,7 @@ float32 float32_div( float32 a, float32 b STATUS_PARAM ) ...@@ -2269,7 +2275,7 @@ float32 float32_div( float32 a, float32 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_rem( float32 a, float32 b STATUS_PARAM ) float32 float32_rem(float32 a, float32 b, float_status *status)
{ {
flag aSign, zSign; flag aSign, zSign;
int_fast16_t aExp, bExp, expDiff; int_fast16_t aExp, bExp, expDiff;
...@@ -2375,7 +2381,8 @@ float32 float32_rem( float32 a, float32 b STATUS_PARAM ) ...@@ -2375,7 +2381,8 @@ float32 float32_rem( float32 a, float32 b STATUS_PARAM )
| externally will flip the sign bit on NaNs.) | externally will flip the sign bit on NaNs.)
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_muladd(float32 a, float32 b, float32 c, int flags STATUS_PARAM) float32 float32_muladd(float32 a, float32 b, float32 c, int flags,
float_status *status)
{ {
flag aSign, bSign, cSign, zSign; flag aSign, bSign, cSign, zSign;
int_fast16_t aExp, bExp, cExp, pExp, zExp, expDiff; int_fast16_t aExp, bExp, cExp, pExp, zExp, expDiff;
...@@ -2595,7 +2602,7 @@ float32 float32_muladd(float32 a, float32 b, float32 c, int flags STATUS_PARAM) ...@@ -2595,7 +2602,7 @@ float32 float32_muladd(float32 a, float32 b, float32 c, int flags STATUS_PARAM)
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_sqrt( float32 a STATUS_PARAM ) float32 float32_sqrt(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, zExp; int_fast16_t aExp, zExp;
...@@ -2681,7 +2688,7 @@ static const float64 float32_exp2_coefficients[15] = ...@@ -2681,7 +2688,7 @@ static const float64 float32_exp2_coefficients[15] =
const_float64( 0x3d6ae7f3e733b81fll ), /* 15 */ const_float64( 0x3d6ae7f3e733b81fll ), /* 15 */
}; };
float32 float32_exp2( float32 a STATUS_PARAM ) float32 float32_exp2(float32 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -2729,7 +2736,7 @@ float32 float32_exp2( float32 a STATUS_PARAM ) ...@@ -2729,7 +2736,7 @@ float32 float32_exp2( float32 a STATUS_PARAM )
| The operation is performed according to the IEC/IEEE Standard for Binary | The operation is performed according to the IEC/IEEE Standard for Binary
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_log2( float32 a STATUS_PARAM ) float32 float32_log2(float32 a, float_status *status)
{ {
flag aSign, zSign; flag aSign, zSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -2779,7 +2786,7 @@ float32 float32_log2( float32 a STATUS_PARAM ) ...@@ -2779,7 +2786,7 @@ float32 float32_log2( float32 a STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_eq( float32 a, float32 b STATUS_PARAM ) int float32_eq(float32 a, float32 b, float_status *status)
{ {
uint32_t av, bv; uint32_t av, bv;
a = float32_squash_input_denormal(a STATUS_VAR); a = float32_squash_input_denormal(a STATUS_VAR);
...@@ -2803,7 +2810,7 @@ int float32_eq( float32 a, float32 b STATUS_PARAM ) ...@@ -2803,7 +2810,7 @@ int float32_eq( float32 a, float32 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_le( float32 a, float32 b STATUS_PARAM ) int float32_le(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint32_t av, bv; uint32_t av, bv;
...@@ -2832,7 +2839,7 @@ int float32_le( float32 a, float32 b STATUS_PARAM ) ...@@ -2832,7 +2839,7 @@ int float32_le( float32 a, float32 b STATUS_PARAM )
| to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_lt( float32 a, float32 b STATUS_PARAM ) int float32_lt(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint32_t av, bv; uint32_t av, bv;
...@@ -2861,7 +2868,7 @@ int float32_lt( float32 a, float32 b STATUS_PARAM ) ...@@ -2861,7 +2868,7 @@ int float32_lt( float32 a, float32 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_unordered( float32 a, float32 b STATUS_PARAM ) int float32_unordered(float32 a, float32 b, float_status *status)
{ {
a = float32_squash_input_denormal(a STATUS_VAR); a = float32_squash_input_denormal(a STATUS_VAR);
b = float32_squash_input_denormal(b STATUS_VAR); b = float32_squash_input_denormal(b STATUS_VAR);
...@@ -2882,7 +2889,7 @@ int float32_unordered( float32 a, float32 b STATUS_PARAM ) ...@@ -2882,7 +2889,7 @@ int float32_unordered( float32 a, float32 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_eq_quiet( float32 a, float32 b STATUS_PARAM ) int float32_eq_quiet(float32 a, float32 b, float_status *status)
{ {
a = float32_squash_input_denormal(a STATUS_VAR); a = float32_squash_input_denormal(a STATUS_VAR);
b = float32_squash_input_denormal(b STATUS_VAR); b = float32_squash_input_denormal(b STATUS_VAR);
...@@ -2906,7 +2913,7 @@ int float32_eq_quiet( float32 a, float32 b STATUS_PARAM ) ...@@ -2906,7 +2913,7 @@ int float32_eq_quiet( float32 a, float32 b STATUS_PARAM )
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_le_quiet( float32 a, float32 b STATUS_PARAM ) int float32_le_quiet(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint32_t av, bv; uint32_t av, bv;
...@@ -2937,7 +2944,7 @@ int float32_le_quiet( float32 a, float32 b STATUS_PARAM ) ...@@ -2937,7 +2944,7 @@ int float32_le_quiet( float32 a, float32 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_lt_quiet( float32 a, float32 b STATUS_PARAM ) int float32_lt_quiet(float32 a, float32 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint32_t av, bv; uint32_t av, bv;
...@@ -2968,7 +2975,7 @@ int float32_lt_quiet( float32 a, float32 b STATUS_PARAM ) ...@@ -2968,7 +2975,7 @@ int float32_lt_quiet( float32 a, float32 b STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float32_unordered_quiet( float32 a, float32 b STATUS_PARAM ) int float32_unordered_quiet(float32 a, float32 b, float_status *status)
{ {
a = float32_squash_input_denormal(a STATUS_VAR); a = float32_squash_input_denormal(a STATUS_VAR);
b = float32_squash_input_denormal(b STATUS_VAR); b = float32_squash_input_denormal(b STATUS_VAR);
...@@ -2994,7 +3001,7 @@ int float32_unordered_quiet( float32 a, float32 b STATUS_PARAM ) ...@@ -2994,7 +3001,7 @@ int float32_unordered_quiet( float32 a, float32 b STATUS_PARAM )
| largest integer with the same sign as `a' is returned. | largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 float64_to_int32( float64 a STATUS_PARAM ) int32 float64_to_int32(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -3022,7 +3029,7 @@ int32 float64_to_int32( float64 a STATUS_PARAM ) ...@@ -3022,7 +3029,7 @@ int32 float64_to_int32( float64 a STATUS_PARAM )
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 float64_to_int32_round_to_zero( float64 a STATUS_PARAM ) int32 float64_to_int32_round_to_zero(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -3069,7 +3076,7 @@ int32 float64_to_int32_round_to_zero( float64 a STATUS_PARAM ) ...@@ -3069,7 +3076,7 @@ int32 float64_to_int32_round_to_zero( float64 a STATUS_PARAM )
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int_fast16_t float64_to_int16_round_to_zero(float64 a STATUS_PARAM) int_fast16_t float64_to_int16_round_to_zero(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -3120,7 +3127,7 @@ int_fast16_t float64_to_int16_round_to_zero(float64 a STATUS_PARAM) ...@@ -3120,7 +3127,7 @@ int_fast16_t float64_to_int16_round_to_zero(float64 a STATUS_PARAM)
| largest integer with the same sign as `a' is returned. | largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 float64_to_int64( float64 a STATUS_PARAM ) int64 float64_to_int64(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -3163,7 +3170,7 @@ int64 float64_to_int64( float64 a STATUS_PARAM ) ...@@ -3163,7 +3170,7 @@ int64 float64_to_int64( float64 a STATUS_PARAM )
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 float64_to_int64_round_to_zero( float64 a STATUS_PARAM ) int64 float64_to_int64_round_to_zero(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -3213,7 +3220,7 @@ int64 float64_to_int64_round_to_zero( float64 a STATUS_PARAM ) ...@@ -3213,7 +3220,7 @@ int64 float64_to_int64_round_to_zero( float64 a STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float64_to_float32( float64 a STATUS_PARAM ) float32 float64_to_float32(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3284,7 +3291,8 @@ static float16 packFloat16(flag zSign, int_fast16_t zExp, uint16_t zSig) ...@@ -3284,7 +3291,8 @@ static float16 packFloat16(flag zSign, int_fast16_t zExp, uint16_t zSig)
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float32 roundAndPackFloat16(flag zSign, int_fast16_t zExp, static float32 roundAndPackFloat16(flag zSign, int_fast16_t zExp,
uint32_t zSig, flag ieee STATUS_PARAM) uint32_t zSig, flag ieee,
float_status *status)
{ {
int maxexp = ieee ? 29 : 30; int maxexp = ieee ? 29 : 30;
uint32_t mask; uint32_t mask;
...@@ -3380,7 +3388,7 @@ static void normalizeFloat16Subnormal(uint32_t aSig, int_fast16_t *zExpPtr, ...@@ -3380,7 +3388,7 @@ static void normalizeFloat16Subnormal(uint32_t aSig, int_fast16_t *zExpPtr,
/* Half precision floats come in two formats: standard IEEE and "ARM" format. /* Half precision floats come in two formats: standard IEEE and "ARM" format.
The latter gains extra exponent range by omitting the NaN/Inf encodings. */ The latter gains extra exponent range by omitting the NaN/Inf encodings. */
float32 float16_to_float32(float16 a, flag ieee STATUS_PARAM) float32 float16_to_float32(float16 a, flag ieee, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3407,7 +3415,7 @@ float32 float16_to_float32(float16 a, flag ieee STATUS_PARAM) ...@@ -3407,7 +3415,7 @@ float32 float16_to_float32(float16 a, flag ieee STATUS_PARAM)
return packFloat32( aSign, aExp + 0x70, aSig << 13); return packFloat32( aSign, aExp + 0x70, aSig << 13);
} }
float16 float32_to_float16(float32 a, flag ieee STATUS_PARAM) float16 float32_to_float16(float32 a, flag ieee, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3451,7 +3459,7 @@ float16 float32_to_float16(float32 a, flag ieee STATUS_PARAM) ...@@ -3451,7 +3459,7 @@ float16 float32_to_float16(float32 a, flag ieee STATUS_PARAM)
return roundAndPackFloat16(aSign, aExp, aSig, ieee STATUS_VAR); return roundAndPackFloat16(aSign, aExp, aSig, ieee STATUS_VAR);
} }
float64 float16_to_float64(float16 a, flag ieee STATUS_PARAM) float64 float16_to_float64(float16 a, flag ieee, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3479,7 +3487,7 @@ float64 float16_to_float64(float16 a, flag ieee STATUS_PARAM) ...@@ -3479,7 +3487,7 @@ float64 float16_to_float64(float16 a, flag ieee STATUS_PARAM)
return packFloat64(aSign, aExp + 0x3f0, ((uint64_t)aSig) << 42); return packFloat64(aSign, aExp + 0x3f0, ((uint64_t)aSig) << 42);
} }
float16 float64_to_float16(float64 a, flag ieee STATUS_PARAM) float16 float64_to_float16(float64 a, flag ieee, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3533,7 +3541,7 @@ float16 float64_to_float16(float64 a, flag ieee STATUS_PARAM) ...@@ -3533,7 +3541,7 @@ float16 float64_to_float16(float64 a, flag ieee STATUS_PARAM)
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 float64_to_floatx80( float64 a STATUS_PARAM ) floatx80 float64_to_floatx80(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3564,7 +3572,7 @@ floatx80 float64_to_floatx80( float64 a STATUS_PARAM ) ...@@ -3564,7 +3572,7 @@ floatx80 float64_to_floatx80( float64 a STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float64_to_float128( float64 a STATUS_PARAM ) float128 float64_to_float128(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3595,7 +3603,7 @@ float128 float64_to_float128( float64 a STATUS_PARAM ) ...@@ -3595,7 +3603,7 @@ float128 float64_to_float128( float64 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_round_to_int( float64 a STATUS_PARAM ) float64 float64_round_to_int(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -3669,7 +3677,7 @@ float64 float64_round_to_int( float64 a STATUS_PARAM ) ...@@ -3669,7 +3677,7 @@ float64 float64_round_to_int( float64 a STATUS_PARAM )
} }
float64 float64_trunc_to_int( float64 a STATUS_PARAM) float64 float64_trunc_to_int(float64 a, float_status *status)
{ {
int oldmode; int oldmode;
float64 res; float64 res;
...@@ -3688,7 +3696,8 @@ float64 float64_trunc_to_int( float64 a STATUS_PARAM) ...@@ -3688,7 +3696,8 @@ float64 float64_trunc_to_int( float64 a STATUS_PARAM)
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float64 addFloat64Sigs( float64 a, float64 b, flag zSign STATUS_PARAM ) static float64 addFloat64Sigs(float64 a, float64 b, flag zSign,
float_status *status)
{ {
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
uint64_t aSig, bSig, zSig; uint64_t aSig, bSig, zSig;
...@@ -3767,7 +3776,8 @@ static float64 addFloat64Sigs( float64 a, float64 b, flag zSign STATUS_PARAM ) ...@@ -3767,7 +3776,8 @@ static float64 addFloat64Sigs( float64 a, float64 b, flag zSign STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float64 subFloat64Sigs( float64 a, float64 b, flag zSign STATUS_PARAM ) static float64 subFloat64Sigs(float64 a, float64 b, flag zSign,
float_status *status)
{ {
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
uint64_t aSig, bSig, zSig; uint64_t aSig, bSig, zSig;
...@@ -3840,7 +3850,7 @@ static float64 subFloat64Sigs( float64 a, float64 b, flag zSign STATUS_PARAM ) ...@@ -3840,7 +3850,7 @@ static float64 subFloat64Sigs( float64 a, float64 b, flag zSign STATUS_PARAM )
| Binary Floating-Point Arithmetic. | Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_add( float64 a, float64 b STATUS_PARAM ) float64 float64_add(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
a = float64_squash_input_denormal(a STATUS_VAR); a = float64_squash_input_denormal(a STATUS_VAR);
...@@ -3863,7 +3873,7 @@ float64 float64_add( float64 a, float64 b STATUS_PARAM ) ...@@ -3863,7 +3873,7 @@ float64 float64_add( float64 a, float64 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_sub( float64 a, float64 b STATUS_PARAM ) float64 float64_sub(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
a = float64_squash_input_denormal(a STATUS_VAR); a = float64_squash_input_denormal(a STATUS_VAR);
...@@ -3886,7 +3896,7 @@ float64 float64_sub( float64 a, float64 b STATUS_PARAM ) ...@@ -3886,7 +3896,7 @@ float64 float64_sub( float64 a, float64 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_mul( float64 a, float64 b STATUS_PARAM ) float64 float64_mul(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
...@@ -3947,7 +3957,7 @@ float64 float64_mul( float64 a, float64 b STATUS_PARAM ) ...@@ -3947,7 +3957,7 @@ float64 float64_mul( float64 a, float64 b STATUS_PARAM )
| the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_div( float64 a, float64 b STATUS_PARAM ) float64 float64_div(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int_fast16_t aExp, bExp, zExp; int_fast16_t aExp, bExp, zExp;
...@@ -4019,7 +4029,7 @@ float64 float64_div( float64 a, float64 b STATUS_PARAM ) ...@@ -4019,7 +4029,7 @@ float64 float64_div( float64 a, float64 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_rem( float64 a, float64 b STATUS_PARAM ) float64 float64_rem(float64 a, float64 b, float_status *status)
{ {
flag aSign, zSign; flag aSign, zSign;
int_fast16_t aExp, bExp, expDiff; int_fast16_t aExp, bExp, expDiff;
...@@ -4110,7 +4120,8 @@ float64 float64_rem( float64 a, float64 b STATUS_PARAM ) ...@@ -4110,7 +4120,8 @@ float64 float64_rem( float64 a, float64 b STATUS_PARAM )
| externally will flip the sign bit on NaNs.) | externally will flip the sign bit on NaNs.)
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_muladd(float64 a, float64 b, float64 c, int flags STATUS_PARAM) float64 float64_muladd(float64 a, float64 b, float64 c, int flags,
float_status *status)
{ {
flag aSign, bSign, cSign, zSign; flag aSign, bSign, cSign, zSign;
int_fast16_t aExp, bExp, cExp, pExp, zExp, expDiff; int_fast16_t aExp, bExp, cExp, pExp, zExp, expDiff;
...@@ -4351,7 +4362,7 @@ float64 float64_muladd(float64 a, float64 b, float64 c, int flags STATUS_PARAM) ...@@ -4351,7 +4362,7 @@ float64 float64_muladd(float64 a, float64 b, float64 c, int flags STATUS_PARAM)
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_sqrt( float64 a STATUS_PARAM ) float64 float64_sqrt(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, zExp; int_fast16_t aExp, zExp;
...@@ -4402,7 +4413,7 @@ float64 float64_sqrt( float64 a STATUS_PARAM ) ...@@ -4402,7 +4413,7 @@ float64 float64_sqrt( float64 a STATUS_PARAM )
| The operation is performed according to the IEC/IEEE Standard for Binary | The operation is performed according to the IEC/IEEE Standard for Binary
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_log2( float64 a STATUS_PARAM ) float64 float64_log2(float64 a, float_status *status)
{ {
flag aSign, zSign; flag aSign, zSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -4451,7 +4462,7 @@ float64 float64_log2( float64 a STATUS_PARAM ) ...@@ -4451,7 +4462,7 @@ float64 float64_log2( float64 a STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_eq( float64 a, float64 b STATUS_PARAM ) int float64_eq(float64 a, float64 b, float_status *status)
{ {
uint64_t av, bv; uint64_t av, bv;
a = float64_squash_input_denormal(a STATUS_VAR); a = float64_squash_input_denormal(a STATUS_VAR);
...@@ -4476,7 +4487,7 @@ int float64_eq( float64 a, float64 b STATUS_PARAM ) ...@@ -4476,7 +4487,7 @@ int float64_eq( float64 a, float64 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_le( float64 a, float64 b STATUS_PARAM ) int float64_le(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint64_t av, bv; uint64_t av, bv;
...@@ -4505,7 +4516,7 @@ int float64_le( float64 a, float64 b STATUS_PARAM ) ...@@ -4505,7 +4516,7 @@ int float64_le( float64 a, float64 b STATUS_PARAM )
| to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_lt( float64 a, float64 b STATUS_PARAM ) int float64_lt(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint64_t av, bv; uint64_t av, bv;
...@@ -4534,7 +4545,7 @@ int float64_lt( float64 a, float64 b STATUS_PARAM ) ...@@ -4534,7 +4545,7 @@ int float64_lt( float64 a, float64 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_unordered( float64 a, float64 b STATUS_PARAM ) int float64_unordered(float64 a, float64 b, float_status *status)
{ {
a = float64_squash_input_denormal(a STATUS_VAR); a = float64_squash_input_denormal(a STATUS_VAR);
b = float64_squash_input_denormal(b STATUS_VAR); b = float64_squash_input_denormal(b STATUS_VAR);
...@@ -4555,7 +4566,7 @@ int float64_unordered( float64 a, float64 b STATUS_PARAM ) ...@@ -4555,7 +4566,7 @@ int float64_unordered( float64 a, float64 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_eq_quiet( float64 a, float64 b STATUS_PARAM ) int float64_eq_quiet(float64 a, float64 b, float_status *status)
{ {
uint64_t av, bv; uint64_t av, bv;
a = float64_squash_input_denormal(a STATUS_VAR); a = float64_squash_input_denormal(a STATUS_VAR);
...@@ -4582,7 +4593,7 @@ int float64_eq_quiet( float64 a, float64 b STATUS_PARAM ) ...@@ -4582,7 +4593,7 @@ int float64_eq_quiet( float64 a, float64 b STATUS_PARAM )
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_le_quiet( float64 a, float64 b STATUS_PARAM ) int float64_le_quiet(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint64_t av, bv; uint64_t av, bv;
...@@ -4613,7 +4624,7 @@ int float64_le_quiet( float64 a, float64 b STATUS_PARAM ) ...@@ -4613,7 +4624,7 @@ int float64_le_quiet( float64 a, float64 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_lt_quiet( float64 a, float64 b STATUS_PARAM ) int float64_lt_quiet(float64 a, float64 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
uint64_t av, bv; uint64_t av, bv;
...@@ -4644,7 +4655,7 @@ int float64_lt_quiet( float64 a, float64 b STATUS_PARAM ) ...@@ -4644,7 +4655,7 @@ int float64_lt_quiet( float64 a, float64 b STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float64_unordered_quiet( float64 a, float64 b STATUS_PARAM ) int float64_unordered_quiet(float64 a, float64 b, float_status *status)
{ {
a = float64_squash_input_denormal(a STATUS_VAR); a = float64_squash_input_denormal(a STATUS_VAR);
b = float64_squash_input_denormal(b STATUS_VAR); b = float64_squash_input_denormal(b STATUS_VAR);
...@@ -4670,7 +4681,7 @@ int float64_unordered_quiet( float64 a, float64 b STATUS_PARAM ) ...@@ -4670,7 +4681,7 @@ int float64_unordered_quiet( float64 a, float64 b STATUS_PARAM )
| overflows, the largest integer with the same sign as `a' is returned. | overflows, the largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 floatx80_to_int32( floatx80 a STATUS_PARAM ) int32 floatx80_to_int32(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -4697,7 +4708,7 @@ int32 floatx80_to_int32( floatx80 a STATUS_PARAM ) ...@@ -4697,7 +4708,7 @@ int32 floatx80_to_int32( floatx80 a STATUS_PARAM )
| sign as `a' is returned. | sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 floatx80_to_int32_round_to_zero( floatx80 a STATUS_PARAM ) int32 floatx80_to_int32_round_to_zero(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -4742,7 +4753,7 @@ int32 floatx80_to_int32_round_to_zero( floatx80 a STATUS_PARAM ) ...@@ -4742,7 +4753,7 @@ int32 floatx80_to_int32_round_to_zero( floatx80 a STATUS_PARAM )
| overflows, the largest integer with the same sign as `a' is returned. | overflows, the largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 floatx80_to_int64( floatx80 a STATUS_PARAM ) int64 floatx80_to_int64(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -4782,7 +4793,7 @@ int64 floatx80_to_int64( floatx80 a STATUS_PARAM ) ...@@ -4782,7 +4793,7 @@ int64 floatx80_to_int64( floatx80 a STATUS_PARAM )
| sign as `a' is returned. | sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 floatx80_to_int64_round_to_zero( floatx80 a STATUS_PARAM ) int64 floatx80_to_int64_round_to_zero(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -4823,7 +4834,7 @@ int64 floatx80_to_int64_round_to_zero( floatx80 a STATUS_PARAM ) ...@@ -4823,7 +4834,7 @@ int64 floatx80_to_int64_round_to_zero( floatx80 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 floatx80_to_float32( floatx80 a STATUS_PARAM ) float32 floatx80_to_float32(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp; int32 aExp;
...@@ -4851,7 +4862,7 @@ float32 floatx80_to_float32( floatx80 a STATUS_PARAM ) ...@@ -4851,7 +4862,7 @@ float32 floatx80_to_float32( floatx80 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 floatx80_to_float64( floatx80 a STATUS_PARAM ) float64 floatx80_to_float64(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp; int32 aExp;
...@@ -4879,7 +4890,7 @@ float64 floatx80_to_float64( floatx80 a STATUS_PARAM ) ...@@ -4879,7 +4890,7 @@ float64 floatx80_to_float64( floatx80 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 floatx80_to_float128( floatx80 a STATUS_PARAM ) float128 floatx80_to_float128(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp; int_fast16_t aExp;
...@@ -4903,7 +4914,7 @@ float128 floatx80_to_float128( floatx80 a STATUS_PARAM ) ...@@ -4903,7 +4914,7 @@ float128 floatx80_to_float128( floatx80 a STATUS_PARAM )
| Binary Floating-Point Arithmetic. | Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_round_to_int( floatx80 a STATUS_PARAM ) floatx80 floatx80_round_to_int(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp; int32 aExp;
...@@ -4996,7 +5007,8 @@ floatx80 floatx80_round_to_int( floatx80 a STATUS_PARAM ) ...@@ -4996,7 +5007,8 @@ floatx80 floatx80_round_to_int( floatx80 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static floatx80 addFloatx80Sigs( floatx80 a, floatx80 b, flag zSign STATUS_PARAM) static floatx80 addFloatx80Sigs(floatx80 a, floatx80 b, flag zSign,
float_status *status)
{ {
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
uint64_t aSig, bSig, zSig0, zSig1; uint64_t aSig, bSig, zSig0, zSig1;
...@@ -5062,7 +5074,8 @@ static floatx80 addFloatx80Sigs( floatx80 a, floatx80 b, flag zSign STATUS_PARAM ...@@ -5062,7 +5074,8 @@ static floatx80 addFloatx80Sigs( floatx80 a, floatx80 b, flag zSign STATUS_PARAM
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static floatx80 subFloatx80Sigs( floatx80 a, floatx80 b, flag zSign STATUS_PARAM ) static floatx80 subFloatx80Sigs(floatx80 a, floatx80 b, flag zSign,
float_status *status)
{ {
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
uint64_t aSig, bSig, zSig0, zSig1; uint64_t aSig, bSig, zSig0, zSig1;
...@@ -5128,7 +5141,7 @@ static floatx80 subFloatx80Sigs( floatx80 a, floatx80 b, flag zSign STATUS_PARAM ...@@ -5128,7 +5141,7 @@ static floatx80 subFloatx80Sigs( floatx80 a, floatx80 b, flag zSign STATUS_PARAM
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_add( floatx80 a, floatx80 b STATUS_PARAM ) floatx80 floatx80_add(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -5149,7 +5162,7 @@ floatx80 floatx80_add( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5149,7 +5162,7 @@ floatx80 floatx80_add( floatx80 a, floatx80 b STATUS_PARAM )
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_sub( floatx80 a, floatx80 b STATUS_PARAM ) floatx80 floatx80_sub(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -5170,7 +5183,7 @@ floatx80 floatx80_sub( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5170,7 +5183,7 @@ floatx80 floatx80_sub( floatx80 a, floatx80 b STATUS_PARAM )
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_mul( floatx80 a, floatx80 b STATUS_PARAM ) floatx80 floatx80_mul(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
...@@ -5229,7 +5242,7 @@ floatx80 floatx80_mul( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5229,7 +5242,7 @@ floatx80 floatx80_mul( floatx80 a, floatx80 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_div( floatx80 a, floatx80 b STATUS_PARAM ) floatx80 floatx80_div(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
...@@ -5309,7 +5322,7 @@ floatx80 floatx80_div( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5309,7 +5322,7 @@ floatx80 floatx80_div( floatx80 a, floatx80 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_rem( floatx80 a, floatx80 b STATUS_PARAM ) floatx80 floatx80_rem(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, zSign; flag aSign, zSign;
int32 aExp, bExp, expDiff; int32 aExp, bExp, expDiff;
...@@ -5405,7 +5418,7 @@ floatx80 floatx80_rem( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5405,7 +5418,7 @@ floatx80 floatx80_rem( floatx80 a, floatx80 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_sqrt( floatx80 a STATUS_PARAM ) floatx80 floatx80_sqrt(floatx80 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, zExp; int32 aExp, zExp;
...@@ -5476,7 +5489,7 @@ floatx80 floatx80_sqrt( floatx80 a STATUS_PARAM ) ...@@ -5476,7 +5489,7 @@ floatx80 floatx80_sqrt( floatx80 a STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_eq( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_eq(floatx80 a, floatx80 b, float_status *status)
{ {
if ( ( ( extractFloatx80Exp( a ) == 0x7FFF ) if ( ( ( extractFloatx80Exp( a ) == 0x7FFF )
...@@ -5504,7 +5517,7 @@ int floatx80_eq( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5504,7 +5517,7 @@ int floatx80_eq( floatx80 a, floatx80 b STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_le( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_le(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -5537,7 +5550,7 @@ int floatx80_le( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5537,7 +5550,7 @@ int floatx80_le( floatx80 a, floatx80 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_lt( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_lt(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -5569,7 +5582,7 @@ int floatx80_lt( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5569,7 +5582,7 @@ int floatx80_lt( floatx80 a, floatx80 b STATUS_PARAM )
| either operand is a NaN. The comparison is performed according to the | either operand is a NaN. The comparison is performed according to the
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_unordered( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_unordered(floatx80 a, floatx80 b, float_status *status)
{ {
if ( ( ( extractFloatx80Exp( a ) == 0x7FFF ) if ( ( ( extractFloatx80Exp( a ) == 0x7FFF )
&& (uint64_t) ( extractFloatx80Frac( a )<<1 ) ) && (uint64_t) ( extractFloatx80Frac( a )<<1 ) )
...@@ -5589,7 +5602,7 @@ int floatx80_unordered( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5589,7 +5602,7 @@ int floatx80_unordered( floatx80 a, floatx80 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_eq_quiet( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_eq_quiet(floatx80 a, floatx80 b, float_status *status)
{ {
if ( ( ( extractFloatx80Exp( a ) == 0x7FFF ) if ( ( ( extractFloatx80Exp( a ) == 0x7FFF )
...@@ -5619,7 +5632,7 @@ int floatx80_eq_quiet( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5619,7 +5632,7 @@ int floatx80_eq_quiet( floatx80 a, floatx80 b STATUS_PARAM )
| to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_le_quiet( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_le_quiet(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -5655,7 +5668,7 @@ int floatx80_le_quiet( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5655,7 +5668,7 @@ int floatx80_le_quiet( floatx80 a, floatx80 b STATUS_PARAM )
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_lt_quiet( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_lt_quiet(floatx80 a, floatx80 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -5690,7 +5703,7 @@ int floatx80_lt_quiet( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5690,7 +5703,7 @@ int floatx80_lt_quiet( floatx80 a, floatx80 b STATUS_PARAM )
| The comparison is performed according to the IEC/IEEE Standard for Binary | The comparison is performed according to the IEC/IEEE Standard for Binary
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int floatx80_unordered_quiet( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_unordered_quiet(floatx80 a, floatx80 b, float_status *status)
{ {
if ( ( ( extractFloatx80Exp( a ) == 0x7FFF ) if ( ( ( extractFloatx80Exp( a ) == 0x7FFF )
&& (uint64_t) ( extractFloatx80Frac( a )<<1 ) ) && (uint64_t) ( extractFloatx80Frac( a )<<1 ) )
...@@ -5716,7 +5729,7 @@ int floatx80_unordered_quiet( floatx80 a, floatx80 b STATUS_PARAM ) ...@@ -5716,7 +5729,7 @@ int floatx80_unordered_quiet( floatx80 a, floatx80 b STATUS_PARAM )
| largest integer with the same sign as `a' is returned. | largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 float128_to_int32( float128 a STATUS_PARAM ) int32 float128_to_int32(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -5745,7 +5758,7 @@ int32 float128_to_int32( float128 a STATUS_PARAM ) ...@@ -5745,7 +5758,7 @@ int32 float128_to_int32( float128 a STATUS_PARAM )
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 float128_to_int32_round_to_zero( float128 a STATUS_PARAM ) int32 float128_to_int32_round_to_zero(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -5793,7 +5806,7 @@ int32 float128_to_int32_round_to_zero( float128 a STATUS_PARAM ) ...@@ -5793,7 +5806,7 @@ int32 float128_to_int32_round_to_zero( float128 a STATUS_PARAM )
| largest integer with the same sign as `a' is returned. | largest integer with the same sign as `a' is returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 float128_to_int64( float128 a STATUS_PARAM ) int64 float128_to_int64(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -5836,7 +5849,7 @@ int64 float128_to_int64( float128 a STATUS_PARAM ) ...@@ -5836,7 +5849,7 @@ int64 float128_to_int64( float128 a STATUS_PARAM )
| returned. | returned.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int64 float128_to_int64_round_to_zero( float128 a STATUS_PARAM ) int64 float128_to_int64_round_to_zero(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, shiftCount; int32 aExp, shiftCount;
...@@ -5894,7 +5907,7 @@ int64 float128_to_int64_round_to_zero( float128 a STATUS_PARAM ) ...@@ -5894,7 +5907,7 @@ int64 float128_to_int64_round_to_zero( float128 a STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float128_to_float32( float128 a STATUS_PARAM ) float32 float128_to_float32(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp; int32 aExp;
...@@ -5929,7 +5942,7 @@ float32 float128_to_float32( float128 a STATUS_PARAM ) ...@@ -5929,7 +5942,7 @@ float32 float128_to_float32( float128 a STATUS_PARAM )
| Arithmetic. | Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float128_to_float64( float128 a STATUS_PARAM ) float64 float128_to_float64(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp; int32 aExp;
...@@ -5962,7 +5975,7 @@ float64 float128_to_float64( float128 a STATUS_PARAM ) ...@@ -5962,7 +5975,7 @@ float64 float128_to_float64( float128 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 float128_to_floatx80( float128 a STATUS_PARAM ) floatx80 float128_to_floatx80(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp; int32 aExp;
...@@ -5997,7 +6010,7 @@ floatx80 float128_to_floatx80( float128 a STATUS_PARAM ) ...@@ -5997,7 +6010,7 @@ floatx80 float128_to_floatx80( float128 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_round_to_int( float128 a STATUS_PARAM ) float128 float128_round_to_int(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp; int32 aExp;
...@@ -6136,7 +6149,8 @@ float128 float128_round_to_int( float128 a STATUS_PARAM ) ...@@ -6136,7 +6149,8 @@ float128 float128_round_to_int( float128 a STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float128 addFloat128Sigs( float128 a, float128 b, flag zSign STATUS_PARAM) static float128 addFloat128Sigs(float128 a, float128 b, flag zSign,
float_status *status)
{ {
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
uint64_t aSig0, aSig1, bSig0, bSig1, zSig0, zSig1, zSig2; uint64_t aSig0, aSig1, bSig0, bSig1, zSig0, zSig1, zSig2;
...@@ -6222,7 +6236,8 @@ static float128 addFloat128Sigs( float128 a, float128 b, flag zSign STATUS_PARAM ...@@ -6222,7 +6236,8 @@ static float128 addFloat128Sigs( float128 a, float128 b, flag zSign STATUS_PARAM
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
static float128 subFloat128Sigs( float128 a, float128 b, flag zSign STATUS_PARAM) static float128 subFloat128Sigs(float128 a, float128 b, flag zSign,
float_status *status)
{ {
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
uint64_t aSig0, aSig1, bSig0, bSig1, zSig0, zSig1; uint64_t aSig0, aSig1, bSig0, bSig1, zSig0, zSig1;
...@@ -6304,7 +6319,7 @@ static float128 subFloat128Sigs( float128 a, float128 b, flag zSign STATUS_PARAM ...@@ -6304,7 +6319,7 @@ static float128 subFloat128Sigs( float128 a, float128 b, flag zSign STATUS_PARAM
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_add( float128 a, float128 b STATUS_PARAM ) float128 float128_add(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -6325,7 +6340,7 @@ float128 float128_add( float128 a, float128 b STATUS_PARAM ) ...@@ -6325,7 +6340,7 @@ float128 float128_add( float128 a, float128 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_sub( float128 a, float128 b STATUS_PARAM ) float128 float128_sub(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -6346,7 +6361,7 @@ float128 float128_sub( float128 a, float128 b STATUS_PARAM ) ...@@ -6346,7 +6361,7 @@ float128 float128_sub( float128 a, float128 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_mul( float128 a, float128 b STATUS_PARAM ) float128 float128_mul(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
...@@ -6410,7 +6425,7 @@ float128 float128_mul( float128 a, float128 b STATUS_PARAM ) ...@@ -6410,7 +6425,7 @@ float128 float128_mul( float128 a, float128 b STATUS_PARAM )
| the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_div( float128 a, float128 b STATUS_PARAM ) float128 float128_div(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign, zSign; flag aSign, bSign, zSign;
int32 aExp, bExp, zExp; int32 aExp, bExp, zExp;
...@@ -6494,7 +6509,7 @@ float128 float128_div( float128 a, float128 b STATUS_PARAM ) ...@@ -6494,7 +6509,7 @@ float128 float128_div( float128 a, float128 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_rem( float128 a, float128 b STATUS_PARAM ) float128 float128_rem(float128 a, float128 b, float_status *status)
{ {
flag aSign, zSign; flag aSign, zSign;
int32 aExp, bExp, expDiff; int32 aExp, bExp, expDiff;
...@@ -6603,7 +6618,7 @@ float128 float128_rem( float128 a, float128 b STATUS_PARAM ) ...@@ -6603,7 +6618,7 @@ float128 float128_rem( float128 a, float128 b STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_sqrt( float128 a STATUS_PARAM ) float128 float128_sqrt(float128 a, float_status *status)
{ {
flag aSign; flag aSign;
int32 aExp, zExp; int32 aExp, zExp;
...@@ -6673,7 +6688,7 @@ float128 float128_sqrt( float128 a STATUS_PARAM ) ...@@ -6673,7 +6688,7 @@ float128 float128_sqrt( float128 a STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_eq( float128 a, float128 b STATUS_PARAM ) int float128_eq(float128 a, float128 b, float_status *status)
{ {
if ( ( ( extractFloat128Exp( a ) == 0x7FFF ) if ( ( ( extractFloat128Exp( a ) == 0x7FFF )
...@@ -6700,7 +6715,7 @@ int float128_eq( float128 a, float128 b STATUS_PARAM ) ...@@ -6700,7 +6715,7 @@ int float128_eq( float128 a, float128 b STATUS_PARAM )
| according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | according to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_le( float128 a, float128 b STATUS_PARAM ) int float128_le(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -6733,7 +6748,7 @@ int float128_le( float128 a, float128 b STATUS_PARAM ) ...@@ -6733,7 +6748,7 @@ int float128_le( float128 a, float128 b STATUS_PARAM )
| to the IEC/IEEE Standard for Binary Floating-Point Arithmetic. | to the IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_lt( float128 a, float128 b STATUS_PARAM ) int float128_lt(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -6766,7 +6781,7 @@ int float128_lt( float128 a, float128 b STATUS_PARAM ) ...@@ -6766,7 +6781,7 @@ int float128_lt( float128 a, float128 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_unordered( float128 a, float128 b STATUS_PARAM ) int float128_unordered(float128 a, float128 b, float_status *status)
{ {
if ( ( ( extractFloat128Exp( a ) == 0x7FFF ) if ( ( ( extractFloat128Exp( a ) == 0x7FFF )
&& ( extractFloat128Frac0( a ) | extractFloat128Frac1( a ) ) ) && ( extractFloat128Frac0( a ) | extractFloat128Frac1( a ) ) )
...@@ -6786,7 +6801,7 @@ int float128_unordered( float128 a, float128 b STATUS_PARAM ) ...@@ -6786,7 +6801,7 @@ int float128_unordered( float128 a, float128 b STATUS_PARAM )
| for Binary Floating-Point Arithmetic. | for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_eq_quiet( float128 a, float128 b STATUS_PARAM ) int float128_eq_quiet(float128 a, float128 b, float_status *status)
{ {
if ( ( ( extractFloat128Exp( a ) == 0x7FFF ) if ( ( ( extractFloat128Exp( a ) == 0x7FFF )
...@@ -6816,7 +6831,7 @@ int float128_eq_quiet( float128 a, float128 b STATUS_PARAM ) ...@@ -6816,7 +6831,7 @@ int float128_eq_quiet( float128 a, float128 b STATUS_PARAM )
| IEC/IEEE Standard for Binary Floating-Point Arithmetic. | IEC/IEEE Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_le_quiet( float128 a, float128 b STATUS_PARAM ) int float128_le_quiet(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -6852,7 +6867,7 @@ int float128_le_quiet( float128 a, float128 b STATUS_PARAM ) ...@@ -6852,7 +6867,7 @@ int float128_le_quiet( float128 a, float128 b STATUS_PARAM )
| Standard for Binary Floating-Point Arithmetic. | Standard for Binary Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_lt_quiet( float128 a, float128 b STATUS_PARAM ) int float128_lt_quiet(float128 a, float128 b, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -6888,7 +6903,7 @@ int float128_lt_quiet( float128 a, float128 b STATUS_PARAM ) ...@@ -6888,7 +6903,7 @@ int float128_lt_quiet( float128 a, float128 b STATUS_PARAM )
| Floating-Point Arithmetic. | Floating-Point Arithmetic.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int float128_unordered_quiet( float128 a, float128 b STATUS_PARAM ) int float128_unordered_quiet(float128 a, float128 b, float_status *status)
{ {
if ( ( ( extractFloat128Exp( a ) == 0x7FFF ) if ( ( ( extractFloat128Exp( a ) == 0x7FFF )
&& ( extractFloat128Frac0( a ) | extractFloat128Frac1( a ) ) ) && ( extractFloat128Frac0( a ) | extractFloat128Frac1( a ) ) )
...@@ -6905,17 +6920,17 @@ int float128_unordered_quiet( float128 a, float128 b STATUS_PARAM ) ...@@ -6905,17 +6920,17 @@ int float128_unordered_quiet( float128 a, float128 b STATUS_PARAM )
} }
/* misc functions */ /* misc functions */
float32 uint32_to_float32(uint32_t a STATUS_PARAM) float32 uint32_to_float32(uint32_t a, float_status *status)
{ {
return int64_to_float32(a STATUS_VAR); return int64_to_float32(a STATUS_VAR);
} }
float64 uint32_to_float64(uint32_t a STATUS_PARAM) float64 uint32_to_float64(uint32_t a, float_status *status)
{ {
return int64_to_float64(a STATUS_VAR); return int64_to_float64(a STATUS_VAR);
} }
uint32 float32_to_uint32( float32 a STATUS_PARAM ) uint32 float32_to_uint32(float32 a, float_status *status)
{ {
int64_t v; int64_t v;
uint32 res; uint32 res;
...@@ -6934,7 +6949,7 @@ uint32 float32_to_uint32( float32 a STATUS_PARAM ) ...@@ -6934,7 +6949,7 @@ uint32 float32_to_uint32( float32 a STATUS_PARAM )
return res; return res;
} }
uint32 float32_to_uint32_round_to_zero( float32 a STATUS_PARAM ) uint32 float32_to_uint32_round_to_zero(float32 a, float_status *status)
{ {
int64_t v; int64_t v;
uint32 res; uint32 res;
...@@ -6953,7 +6968,7 @@ uint32 float32_to_uint32_round_to_zero( float32 a STATUS_PARAM ) ...@@ -6953,7 +6968,7 @@ uint32 float32_to_uint32_round_to_zero( float32 a STATUS_PARAM )
return res; return res;
} }
int_fast16_t float32_to_int16(float32 a STATUS_PARAM) int_fast16_t float32_to_int16(float32 a, float_status *status)
{ {
int32_t v; int32_t v;
int_fast16_t res; int_fast16_t res;
...@@ -6973,7 +6988,7 @@ int_fast16_t float32_to_int16(float32 a STATUS_PARAM) ...@@ -6973,7 +6988,7 @@ int_fast16_t float32_to_int16(float32 a STATUS_PARAM)
return res; return res;
} }
uint_fast16_t float32_to_uint16(float32 a STATUS_PARAM) uint_fast16_t float32_to_uint16(float32 a, float_status *status)
{ {
int32_t v; int32_t v;
uint_fast16_t res; uint_fast16_t res;
...@@ -6993,7 +7008,7 @@ uint_fast16_t float32_to_uint16(float32 a STATUS_PARAM) ...@@ -6993,7 +7008,7 @@ uint_fast16_t float32_to_uint16(float32 a STATUS_PARAM)
return res; return res;
} }
uint_fast16_t float32_to_uint16_round_to_zero(float32 a STATUS_PARAM) uint_fast16_t float32_to_uint16_round_to_zero(float32 a, float_status *status)
{ {
int64_t v; int64_t v;
uint_fast16_t res; uint_fast16_t res;
...@@ -7012,7 +7027,7 @@ uint_fast16_t float32_to_uint16_round_to_zero(float32 a STATUS_PARAM) ...@@ -7012,7 +7027,7 @@ uint_fast16_t float32_to_uint16_round_to_zero(float32 a STATUS_PARAM)
return res; return res;
} }
uint32 float64_to_uint32( float64 a STATUS_PARAM ) uint32 float64_to_uint32(float64 a, float_status *status)
{ {
uint64_t v; uint64_t v;
uint32 res; uint32 res;
...@@ -7029,7 +7044,7 @@ uint32 float64_to_uint32( float64 a STATUS_PARAM ) ...@@ -7029,7 +7044,7 @@ uint32 float64_to_uint32( float64 a STATUS_PARAM )
return res; return res;
} }
uint32 float64_to_uint32_round_to_zero( float64 a STATUS_PARAM ) uint32 float64_to_uint32_round_to_zero(float64 a, float_status *status)
{ {
uint64_t v; uint64_t v;
uint32 res; uint32 res;
...@@ -7046,7 +7061,7 @@ uint32 float64_to_uint32_round_to_zero( float64 a STATUS_PARAM ) ...@@ -7046,7 +7061,7 @@ uint32 float64_to_uint32_round_to_zero( float64 a STATUS_PARAM )
return res; return res;
} }
int_fast16_t float64_to_int16(float64 a STATUS_PARAM) int_fast16_t float64_to_int16(float64 a, float_status *status)
{ {
int64_t v; int64_t v;
int_fast16_t res; int_fast16_t res;
...@@ -7066,7 +7081,7 @@ int_fast16_t float64_to_int16(float64 a STATUS_PARAM) ...@@ -7066,7 +7081,7 @@ int_fast16_t float64_to_int16(float64 a STATUS_PARAM)
return res; return res;
} }
uint_fast16_t float64_to_uint16(float64 a STATUS_PARAM) uint_fast16_t float64_to_uint16(float64 a, float_status *status)
{ {
int64_t v; int64_t v;
uint_fast16_t res; uint_fast16_t res;
...@@ -7086,7 +7101,7 @@ uint_fast16_t float64_to_uint16(float64 a STATUS_PARAM) ...@@ -7086,7 +7101,7 @@ uint_fast16_t float64_to_uint16(float64 a STATUS_PARAM)
return res; return res;
} }
uint_fast16_t float64_to_uint16_round_to_zero(float64 a STATUS_PARAM) uint_fast16_t float64_to_uint16_round_to_zero(float64 a, float_status *status)
{ {
int64_t v; int64_t v;
uint_fast16_t res; uint_fast16_t res;
...@@ -7117,7 +7132,7 @@ uint_fast16_t float64_to_uint16_round_to_zero(float64 a STATUS_PARAM) ...@@ -7117,7 +7132,7 @@ uint_fast16_t float64_to_uint16_round_to_zero(float64 a STATUS_PARAM)
| will raise the inexact exception. | will raise the inexact exception.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
uint64_t float64_to_uint64(float64 a STATUS_PARAM) uint64_t float64_to_uint64(float64 a, float_status *status)
{ {
flag aSign; flag aSign;
int_fast16_t aExp, shiftCount; int_fast16_t aExp, shiftCount;
...@@ -7152,7 +7167,7 @@ uint64_t float64_to_uint64(float64 a STATUS_PARAM) ...@@ -7152,7 +7167,7 @@ uint64_t float64_to_uint64(float64 a STATUS_PARAM)
return roundAndPackUint64(aSign, aSig, aSigExtra STATUS_VAR); return roundAndPackUint64(aSign, aSig, aSigExtra STATUS_VAR);
} }
uint64_t float64_to_uint64_round_to_zero (float64 a STATUS_PARAM) uint64_t float64_to_uint64_round_to_zero(float64 a, float_status *status)
{ {
signed char current_rounding_mode = STATUS(float_rounding_mode); signed char current_rounding_mode = STATUS(float_rounding_mode);
set_float_rounding_mode(float_round_to_zero STATUS_VAR); set_float_rounding_mode(float_round_to_zero STATUS_VAR);
...@@ -7162,8 +7177,8 @@ uint64_t float64_to_uint64_round_to_zero (float64 a STATUS_PARAM) ...@@ -7162,8 +7177,8 @@ uint64_t float64_to_uint64_round_to_zero (float64 a STATUS_PARAM)
} }
#define COMPARE(s, nan_exp) \ #define COMPARE(s, nan_exp) \
static inline int float ## s ## _compare_internal( float ## s a, float ## s b, \ static inline int float ## s ## _compare_internal(float ## s a, float ## s b,\
int is_quiet STATUS_PARAM ) \ int is_quiet, float_status *status) \
{ \ { \
flag aSign, bSign; \ flag aSign, bSign; \
uint ## s ## _t av, bv; \ uint ## s ## _t av, bv; \
...@@ -7201,12 +7216,13 @@ static inline int float ## s ## _compare_internal( float ## s a, float ## s b, ...@@ -7201,12 +7216,13 @@ static inline int float ## s ## _compare_internal( float ## s a, float ## s b,
} \ } \
} \ } \
\ \
int float ## s ## _compare( float ## s a, float ## s b STATUS_PARAM ) \ int float ## s ## _compare(float ## s a, float ## s b, float_status *status) \
{ \ { \
return float ## s ## _compare_internal(a, b, 0 STATUS_VAR); \ return float ## s ## _compare_internal(a, b, 0 STATUS_VAR); \
} \ } \
\ \
int float ## s ## _compare_quiet( float ## s a, float ## s b STATUS_PARAM ) \ int float ## s ## _compare_quiet(float ## s a, float ## s b, \
float_status *status) \
{ \ { \
return float ## s ## _compare_internal(a, b, 1 STATUS_VAR); \ return float ## s ## _compare_internal(a, b, 1 STATUS_VAR); \
} }
...@@ -7214,8 +7230,8 @@ int float ## s ## _compare_quiet( float ## s a, float ## s b STATUS_PARAM ) \ ...@@ -7214,8 +7230,8 @@ int float ## s ## _compare_quiet( float ## s a, float ## s b STATUS_PARAM ) \
COMPARE(32, 0xff) COMPARE(32, 0xff)
COMPARE(64, 0x7ff) COMPARE(64, 0x7ff)
static inline int floatx80_compare_internal( floatx80 a, floatx80 b, static inline int floatx80_compare_internal(floatx80 a, floatx80 b,
int is_quiet STATUS_PARAM ) int is_quiet, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -7250,18 +7266,18 @@ static inline int floatx80_compare_internal( floatx80 a, floatx80 b, ...@@ -7250,18 +7266,18 @@ static inline int floatx80_compare_internal( floatx80 a, floatx80 b,
} }
} }
int floatx80_compare( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_compare(floatx80 a, floatx80 b, float_status *status)
{ {
return floatx80_compare_internal(a, b, 0 STATUS_VAR); return floatx80_compare_internal(a, b, 0 STATUS_VAR);
} }
int floatx80_compare_quiet( floatx80 a, floatx80 b STATUS_PARAM ) int floatx80_compare_quiet(floatx80 a, floatx80 b, float_status *status)
{ {
return floatx80_compare_internal(a, b, 1 STATUS_VAR); return floatx80_compare_internal(a, b, 1 STATUS_VAR);
} }
static inline int float128_compare_internal( float128 a, float128 b, static inline int float128_compare_internal(float128 a, float128 b,
int is_quiet STATUS_PARAM ) int is_quiet, float_status *status)
{ {
flag aSign, bSign; flag aSign, bSign;
...@@ -7294,12 +7310,12 @@ static inline int float128_compare_internal( float128 a, float128 b, ...@@ -7294,12 +7310,12 @@ static inline int float128_compare_internal( float128 a, float128 b,
} }
} }
int float128_compare( float128 a, float128 b STATUS_PARAM ) int float128_compare(float128 a, float128 b, float_status *status)
{ {
return float128_compare_internal(a, b, 0 STATUS_VAR); return float128_compare_internal(a, b, 0 STATUS_VAR);
} }
int float128_compare_quiet( float128 a, float128 b STATUS_PARAM ) int float128_compare_quiet(float128 a, float128 b, float_status *status)
{ {
return float128_compare_internal(a, b, 1 STATUS_VAR); return float128_compare_internal(a, b, 1 STATUS_VAR);
} }
...@@ -7321,7 +7337,8 @@ int float128_compare_quiet( float128 a, float128 b STATUS_PARAM ) ...@@ -7321,7 +7337,8 @@ int float128_compare_quiet( float128 a, float128 b STATUS_PARAM )
#define MINMAX(s) \ #define MINMAX(s) \
static inline float ## s float ## s ## _minmax(float ## s a, float ## s b, \ static inline float ## s float ## s ## _minmax(float ## s a, float ## s b, \
int ismin, int isieee, \ int ismin, int isieee, \
int ismag STATUS_PARAM) \ int ismag, \
float_status *status) \
{ \ { \
flag aSign, bSign; \ flag aSign, bSign; \
uint ## s ## _t av, bv, aav, abv; \ uint ## s ## _t av, bv, aav, abv; \
...@@ -7370,32 +7387,38 @@ static inline float ## s float ## s ## _minmax(float ## s a, float ## s b, \ ...@@ -7370,32 +7387,38 @@ static inline float ## s float ## s ## _minmax(float ## s a, float ## s b, \
} \ } \
} \ } \
\ \
float ## s float ## s ## _min(float ## s a, float ## s b STATUS_PARAM) \ float ## s float ## s ## _min(float ## s a, float ## s b, \
float_status *status) \
{ \ { \
return float ## s ## _minmax(a, b, 1, 0, 0 STATUS_VAR); \ return float ## s ## _minmax(a, b, 1, 0, 0 STATUS_VAR); \
} \ } \
\ \
float ## s float ## s ## _max(float ## s a, float ## s b STATUS_PARAM) \ float ## s float ## s ## _max(float ## s a, float ## s b, \
float_status *status) \
{ \ { \
return float ## s ## _minmax(a, b, 0, 0, 0 STATUS_VAR); \ return float ## s ## _minmax(a, b, 0, 0, 0 STATUS_VAR); \
} \ } \
\ \
float ## s float ## s ## _minnum(float ## s a, float ## s b STATUS_PARAM) \ float ## s float ## s ## _minnum(float ## s a, float ## s b, \
float_status *status) \
{ \ { \
return float ## s ## _minmax(a, b, 1, 1, 0 STATUS_VAR); \ return float ## s ## _minmax(a, b, 1, 1, 0 STATUS_VAR); \
} \ } \
\ \
float ## s float ## s ## _maxnum(float ## s a, float ## s b STATUS_PARAM) \ float ## s float ## s ## _maxnum(float ## s a, float ## s b, \
float_status *status) \
{ \ { \
return float ## s ## _minmax(a, b, 0, 1, 0 STATUS_VAR); \ return float ## s ## _minmax(a, b, 0, 1, 0 STATUS_VAR); \
} \ } \
\ \
float ## s float ## s ## _minnummag(float ## s a, float ## s b STATUS_PARAM) \ float ## s float ## s ## _minnummag(float ## s a, float ## s b, \
float_status *status) \
{ \ { \
return float ## s ## _minmax(a, b, 1, 1, 1 STATUS_VAR); \ return float ## s ## _minmax(a, b, 1, 1, 1 STATUS_VAR); \
} \ } \
\ \
float ## s float ## s ## _maxnummag(float ## s a, float ## s b STATUS_PARAM) \ float ## s float ## s ## _maxnummag(float ## s a, float ## s b, \
float_status *status) \
{ \ { \
return float ## s ## _minmax(a, b, 0, 1, 1 STATUS_VAR); \ return float ## s ## _minmax(a, b, 0, 1, 1 STATUS_VAR); \
} }
...@@ -7405,7 +7428,7 @@ MINMAX(64) ...@@ -7405,7 +7428,7 @@ MINMAX(64)
/* Multiply A by 2 raised to the power N. */ /* Multiply A by 2 raised to the power N. */
float32 float32_scalbn( float32 a, int n STATUS_PARAM ) float32 float32_scalbn(float32 a, int n, float_status *status)
{ {
flag aSign; flag aSign;
int16_t aExp; int16_t aExp;
...@@ -7441,7 +7464,7 @@ float32 float32_scalbn( float32 a, int n STATUS_PARAM ) ...@@ -7441,7 +7464,7 @@ float32 float32_scalbn( float32 a, int n STATUS_PARAM )
return normalizeRoundAndPackFloat32( aSign, aExp, aSig STATUS_VAR ); return normalizeRoundAndPackFloat32( aSign, aExp, aSig STATUS_VAR );
} }
float64 float64_scalbn( float64 a, int n STATUS_PARAM ) float64 float64_scalbn(float64 a, int n, float_status *status)
{ {
flag aSign; flag aSign;
int16_t aExp; int16_t aExp;
...@@ -7477,7 +7500,7 @@ float64 float64_scalbn( float64 a, int n STATUS_PARAM ) ...@@ -7477,7 +7500,7 @@ float64 float64_scalbn( float64 a, int n STATUS_PARAM )
return normalizeRoundAndPackFloat64( aSign, aExp, aSig STATUS_VAR ); return normalizeRoundAndPackFloat64( aSign, aExp, aSig STATUS_VAR );
} }
floatx80 floatx80_scalbn( floatx80 a, int n STATUS_PARAM ) floatx80 floatx80_scalbn(floatx80 a, int n, float_status *status)
{ {
flag aSign; flag aSign;
int32_t aExp; int32_t aExp;
...@@ -7512,7 +7535,7 @@ floatx80 floatx80_scalbn( floatx80 a, int n STATUS_PARAM ) ...@@ -7512,7 +7535,7 @@ floatx80 floatx80_scalbn( floatx80 a, int n STATUS_PARAM )
aSign, aExp, aSig, 0 STATUS_VAR ); aSign, aExp, aSig, 0 STATUS_VAR );
} }
float128 float128_scalbn( float128 a, int n STATUS_PARAM ) float128 float128_scalbn(float128 a, int n, float_status *status)
{ {
flag aSign; flag aSign;
int32_t aExp; int32_t aExp;
......
include/fpu/softfloat.h
浏览文件 @ e5a41ffa
...@@ -108,7 +108,6 @@ typedef int64_t int64; ...@@ -108,7 +108,6 @@ typedef int64_t int64;
#define LIT64( a ) a##LL #define LIT64( a ) a##LL
#define STATUS_PARAM , float_status *status
#define STATUS(field) status->field #define STATUS(field) status->field
#define STATUS_VAR , status #define STATUS_VAR , status
...@@ -224,31 +223,32 @@ typedef struct float_status { ...@@ -224,31 +223,32 @@ typedef struct float_status {
flag default_nan_mode; flag default_nan_mode;
} float_status; } float_status;
static inline void set_float_detect_tininess(int val STATUS_PARAM) static inline void set_float_detect_tininess(int val, float_status *status)
{ {
STATUS(float_detect_tininess) = val; STATUS(float_detect_tininess) = val;
} }
static inline void set_float_rounding_mode(int val STATUS_PARAM) static inline void set_float_rounding_mode(int val, float_status *status)
{ {
STATUS(float_rounding_mode) = val; STATUS(float_rounding_mode) = val;
} }
static inline void set_float_exception_flags(int val STATUS_PARAM) 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 STATUS_PARAM) static inline void set_floatx80_rounding_precision(int val,
float_status *status)
{ {
STATUS(floatx80_rounding_precision) = val; STATUS(floatx80_rounding_precision) = val;
} }
static inline void set_flush_to_zero(flag val STATUS_PARAM) static inline void set_flush_to_zero(flag val, float_status *status)
{ {
STATUS(flush_to_zero) = val; STATUS(flush_to_zero) = val;
} }
static inline void set_flush_inputs_to_zero(flag val STATUS_PARAM) static inline void set_flush_inputs_to_zero(flag val, float_status *status)
{ {
STATUS(flush_inputs_to_zero) = val; STATUS(flush_inputs_to_zero) = val;
} }
static inline void set_default_nan_mode(flag val STATUS_PARAM) static inline void set_default_nan_mode(flag val, float_status *status)
{ {
STATUS(default_nan_mode) = val; STATUS(default_nan_mode) = val;
} }
...@@ -285,14 +285,14 @@ static inline flag get_default_nan_mode(float_status *status) ...@@ -285,14 +285,14 @@ static inline flag get_default_nan_mode(float_status *status)
| Routine to raise any or all of the software IEC/IEEE floating-point | Routine to raise any or all of the software IEC/IEEE floating-point
| exception flags. | exception flags.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
void float_raise( int8 flags STATUS_PARAM); void float_raise(int8 flags, float_status *status);
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| If `a' is denormal and we are in flush-to-zero mode then set the | If `a' is denormal and we are in flush-to-zero mode then set the
| input-denormal exception and return zero. Otherwise just return the value. | input-denormal exception and return zero. Otherwise just return the value.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_squash_input_denormal(float32 a STATUS_PARAM); float32 float32_squash_input_denormal(float32 a, float_status *status);
float64 float64_squash_input_denormal(float64 a STATUS_PARAM); float64 float64_squash_input_denormal(float64 a, float_status *status);
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Options to indicate which negations to perform in float*_muladd() | Options to indicate which negations to perform in float*_muladd()
...@@ -312,37 +312,37 @@ enum { ...@@ -312,37 +312,37 @@ enum {
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE integer-to-floating-point conversion routines. | Software IEC/IEEE integer-to-floating-point conversion routines.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 int32_to_float32(int32_t STATUS_PARAM); float32 int32_to_float32(int32_t, float_status *status);
float64 int32_to_float64(int32_t STATUS_PARAM); float64 int32_to_float64(int32_t, float_status *status);
float32 uint32_to_float32(uint32_t STATUS_PARAM); float32 uint32_to_float32(uint32_t, float_status *status);
float64 uint32_to_float64(uint32_t STATUS_PARAM); float64 uint32_to_float64(uint32_t, float_status *status);
floatx80 int32_to_floatx80(int32_t STATUS_PARAM); floatx80 int32_to_floatx80(int32_t, float_status *status);
float128 int32_to_float128(int32_t STATUS_PARAM); float128 int32_to_float128(int32_t, float_status *status);
float32 int64_to_float32(int64_t STATUS_PARAM); float32 int64_to_float32(int64_t, float_status *status);
float64 int64_to_float64(int64_t STATUS_PARAM); float64 int64_to_float64(int64_t, float_status *status);
floatx80 int64_to_floatx80(int64_t STATUS_PARAM); floatx80 int64_to_floatx80(int64_t, float_status *status);
float128 int64_to_float128(int64_t STATUS_PARAM); float128 int64_to_float128(int64_t, float_status *status);
float32 uint64_to_float32(uint64_t STATUS_PARAM); float32 uint64_to_float32(uint64_t, float_status *status);
float64 uint64_to_float64(uint64_t STATUS_PARAM); float64 uint64_to_float64(uint64_t, float_status *status);
float128 uint64_to_float128(uint64_t STATUS_PARAM); float128 uint64_to_float128(uint64_t, float_status *status);
/* We provide the int16 versions for symmetry of API with float-to-int */ /* We provide the int16 versions for symmetry of API with float-to-int */
static inline float32 int16_to_float32(int16_t v STATUS_PARAM) static inline float32 int16_to_float32(int16_t v, float_status *status)
{ {
return int32_to_float32(v STATUS_VAR); return int32_to_float32(v STATUS_VAR);
} }
static inline float32 uint16_to_float32(uint16_t v STATUS_PARAM) static inline float32 uint16_to_float32(uint16_t v, float_status *status)
{ {
return uint32_to_float32(v STATUS_VAR); return uint32_to_float32(v STATUS_VAR);
} }
static inline float64 int16_to_float64(int16_t v STATUS_PARAM) static inline float64 int16_to_float64(int16_t v, float_status *status)
{ {
return int32_to_float64(v STATUS_VAR); return int32_to_float64(v STATUS_VAR);
} }
static inline float64 uint16_to_float64(uint16_t v STATUS_PARAM) static inline float64 uint16_to_float64(uint16_t v, float_status *status)
{ {
return uint32_to_float64(v STATUS_VAR); return uint32_to_float64(v STATUS_VAR);
} }
...@@ -350,10 +350,10 @@ static inline float64 uint16_to_float64(uint16_t v STATUS_PARAM) ...@@ -350,10 +350,10 @@ static inline float64 uint16_to_float64(uint16_t v STATUS_PARAM)
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software half-precision conversion routines. | Software half-precision conversion routines.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float16 float32_to_float16( float32, flag STATUS_PARAM ); float16 float32_to_float16(float32, flag, float_status *status);
float32 float16_to_float32( float16, flag STATUS_PARAM ); float32 float16_to_float32(float16, flag, float_status *status);
float16 float64_to_float16(float64 a, flag ieee STATUS_PARAM); float16 float64_to_float16(float64 a, flag ieee, float_status *status);
float64 float16_to_float64(float16 a, flag ieee STATUS_PARAM); float64 float16_to_float64(float16 a, flag ieee, float_status *status);
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software half-precision operations. | Software half-precision operations.
...@@ -375,55 +375,55 @@ extern const float16 float16_default_nan; ...@@ -375,55 +375,55 @@ extern const float16 float16_default_nan;
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE single-precision conversion routines. | Software IEC/IEEE single-precision conversion routines.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int_fast16_t float32_to_int16(float32 STATUS_PARAM); int_fast16_t float32_to_int16(float32, float_status *status);
uint_fast16_t float32_to_uint16(float32 STATUS_PARAM); uint_fast16_t float32_to_uint16(float32, float_status *status);
int_fast16_t float32_to_int16_round_to_zero(float32 STATUS_PARAM); int_fast16_t float32_to_int16_round_to_zero(float32, float_status *status);
uint_fast16_t float32_to_uint16_round_to_zero(float32 STATUS_PARAM); uint_fast16_t float32_to_uint16_round_to_zero(float32, float_status *status);
int32 float32_to_int32( float32 STATUS_PARAM ); int32 float32_to_int32(float32, float_status *status);
int32 float32_to_int32_round_to_zero( float32 STATUS_PARAM ); int32 float32_to_int32_round_to_zero(float32, float_status *status);
uint32 float32_to_uint32( float32 STATUS_PARAM ); uint32 float32_to_uint32(float32, float_status *status);
uint32 float32_to_uint32_round_to_zero( float32 STATUS_PARAM ); uint32 float32_to_uint32_round_to_zero(float32, float_status *status);
int64 float32_to_int64( float32 STATUS_PARAM ); int64 float32_to_int64(float32, float_status *status);
uint64 float32_to_uint64(float32 STATUS_PARAM); uint64 float32_to_uint64(float32, float_status *status);
uint64 float32_to_uint64_round_to_zero(float32 STATUS_PARAM); uint64 float32_to_uint64_round_to_zero(float32, float_status *status);
int64 float32_to_int64_round_to_zero( float32 STATUS_PARAM ); int64 float32_to_int64_round_to_zero(float32, float_status *status);
float64 float32_to_float64( float32 STATUS_PARAM ); float64 float32_to_float64(float32, float_status *status);
floatx80 float32_to_floatx80( float32 STATUS_PARAM ); floatx80 float32_to_floatx80(float32, float_status *status);
float128 float32_to_float128( float32 STATUS_PARAM ); float128 float32_to_float128(float32, float_status *status);
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE single-precision operations. | Software IEC/IEEE single-precision operations.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float32 float32_round_to_int( float32 STATUS_PARAM ); float32 float32_round_to_int(float32, float_status *status);
float32 float32_add( float32, float32 STATUS_PARAM ); float32 float32_add(float32, float32, float_status *status);
float32 float32_sub( float32, float32 STATUS_PARAM ); float32 float32_sub(float32, float32, float_status *status);
float32 float32_mul( float32, float32 STATUS_PARAM ); float32 float32_mul(float32, float32, float_status *status);
float32 float32_div( float32, float32 STATUS_PARAM ); float32 float32_div(float32, float32, float_status *status);
float32 float32_rem( float32, float32 STATUS_PARAM ); float32 float32_rem(float32, float32, float_status *status);
float32 float32_muladd(float32, float32, float32, int STATUS_PARAM); float32 float32_muladd(float32, float32, float32, int, float_status *status);
float32 float32_sqrt( float32 STATUS_PARAM ); float32 float32_sqrt(float32, float_status *status);
float32 float32_exp2( float32 STATUS_PARAM ); float32 float32_exp2(float32, float_status *status);
float32 float32_log2( float32 STATUS_PARAM ); float32 float32_log2(float32, float_status *status);
int float32_eq( float32, float32 STATUS_PARAM ); int float32_eq(float32, float32, float_status *status);
int float32_le( float32, float32 STATUS_PARAM ); int float32_le(float32, float32, float_status *status);
int float32_lt( float32, float32 STATUS_PARAM ); int float32_lt(float32, float32, float_status *status);
int float32_unordered( float32, float32 STATUS_PARAM ); int float32_unordered(float32, float32, float_status *status);
int float32_eq_quiet( float32, float32 STATUS_PARAM ); int float32_eq_quiet(float32, float32, float_status *status);
int float32_le_quiet( float32, float32 STATUS_PARAM ); int float32_le_quiet(float32, float32, float_status *status);
int float32_lt_quiet( float32, float32 STATUS_PARAM ); int float32_lt_quiet(float32, float32, float_status *status);
int float32_unordered_quiet( float32, float32 STATUS_PARAM ); int float32_unordered_quiet(float32, float32, float_status *status);
int float32_compare( float32, float32 STATUS_PARAM ); int float32_compare(float32, float32, float_status *status);
int float32_compare_quiet( float32, float32 STATUS_PARAM ); int float32_compare_quiet(float32, float32, float_status *status);
float32 float32_min(float32, float32 STATUS_PARAM); float32 float32_min(float32, float32, float_status *status);
float32 float32_max(float32, float32 STATUS_PARAM); float32 float32_max(float32, float32, float_status *status);
float32 float32_minnum(float32, float32 STATUS_PARAM); float32 float32_minnum(float32, float32, float_status *status);
float32 float32_maxnum(float32, float32 STATUS_PARAM); float32 float32_maxnum(float32, float32, float_status *status);
float32 float32_minnummag(float32, float32 STATUS_PARAM); float32 float32_minnummag(float32, float32, float_status *status);
float32 float32_maxnummag(float32, float32 STATUS_PARAM); float32 float32_maxnummag(float32, float32, float_status *status);
int float32_is_quiet_nan( float32 ); int float32_is_quiet_nan( float32 );
int float32_is_signaling_nan( float32 ); int float32_is_signaling_nan( float32 );
float32 float32_maybe_silence_nan( float32 ); float32 float32_maybe_silence_nan( float32 );
float32 float32_scalbn( float32, int STATUS_PARAM ); float32 float32_scalbn(float32, int, float_status *status);
static inline float32 float32_abs(float32 a) static inline float32 float32_abs(float32 a)
{ {
...@@ -487,55 +487,55 @@ extern const float32 float32_default_nan; ...@@ -487,55 +487,55 @@ extern const float32 float32_default_nan;
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE double-precision conversion routines. | Software IEC/IEEE double-precision conversion routines.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int_fast16_t float64_to_int16(float64 STATUS_PARAM); int_fast16_t float64_to_int16(float64, float_status *status);
uint_fast16_t float64_to_uint16(float64 STATUS_PARAM); uint_fast16_t float64_to_uint16(float64, float_status *status);
int_fast16_t float64_to_int16_round_to_zero(float64 STATUS_PARAM); int_fast16_t float64_to_int16_round_to_zero(float64, float_status *status);
uint_fast16_t float64_to_uint16_round_to_zero(float64 STATUS_PARAM); uint_fast16_t float64_to_uint16_round_to_zero(float64, float_status *status);
int32 float64_to_int32( float64 STATUS_PARAM ); int32 float64_to_int32(float64, float_status *status);
int32 float64_to_int32_round_to_zero( float64 STATUS_PARAM ); int32 float64_to_int32_round_to_zero(float64, float_status *status);
uint32 float64_to_uint32( float64 STATUS_PARAM ); uint32 float64_to_uint32(float64, float_status *status);
uint32 float64_to_uint32_round_to_zero( float64 STATUS_PARAM ); uint32 float64_to_uint32_round_to_zero(float64, float_status *status);
int64 float64_to_int64( float64 STATUS_PARAM ); int64 float64_to_int64(float64, float_status *status);
int64 float64_to_int64_round_to_zero( float64 STATUS_PARAM ); int64 float64_to_int64_round_to_zero(float64, float_status *status);
uint64 float64_to_uint64 (float64 a STATUS_PARAM); uint64 float64_to_uint64(float64 a, float_status *status);
uint64 float64_to_uint64_round_to_zero (float64 a STATUS_PARAM); uint64 float64_to_uint64_round_to_zero(float64 a, float_status *status);
float32 float64_to_float32( float64 STATUS_PARAM ); float32 float64_to_float32(float64, float_status *status);
floatx80 float64_to_floatx80( float64 STATUS_PARAM ); floatx80 float64_to_floatx80(float64, float_status *status);
float128 float64_to_float128( float64 STATUS_PARAM ); float128 float64_to_float128(float64, float_status *status);
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE double-precision operations. | Software IEC/IEEE double-precision operations.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float64 float64_round_to_int( float64 STATUS_PARAM ); float64 float64_round_to_int(float64, float_status *status);
float64 float64_trunc_to_int( float64 STATUS_PARAM ); float64 float64_trunc_to_int(float64, float_status *status);
float64 float64_add( float64, float64 STATUS_PARAM ); float64 float64_add(float64, float64, float_status *status);
float64 float64_sub( float64, float64 STATUS_PARAM ); float64 float64_sub(float64, float64, float_status *status);
float64 float64_mul( float64, float64 STATUS_PARAM ); float64 float64_mul(float64, float64, float_status *status);
float64 float64_div( float64, float64 STATUS_PARAM ); float64 float64_div(float64, float64, float_status *status);
float64 float64_rem( float64, float64 STATUS_PARAM ); float64 float64_rem(float64, float64, float_status *status);
float64 float64_muladd(float64, float64, float64, int STATUS_PARAM); float64 float64_muladd(float64, float64, float64, int, float_status *status);
float64 float64_sqrt( float64 STATUS_PARAM ); float64 float64_sqrt(float64, float_status *status);
float64 float64_log2( float64 STATUS_PARAM ); float64 float64_log2(float64, float_status *status);
int float64_eq( float64, float64 STATUS_PARAM ); int float64_eq(float64, float64, float_status *status);
int float64_le( float64, float64 STATUS_PARAM ); int float64_le(float64, float64, float_status *status);
int float64_lt( float64, float64 STATUS_PARAM ); int float64_lt(float64, float64, float_status *status);
int float64_unordered( float64, float64 STATUS_PARAM ); int float64_unordered(float64, float64, float_status *status);
int float64_eq_quiet( float64, float64 STATUS_PARAM ); int float64_eq_quiet(float64, float64, float_status *status);
int float64_le_quiet( float64, float64 STATUS_PARAM ); int float64_le_quiet(float64, float64, float_status *status);
int float64_lt_quiet( float64, float64 STATUS_PARAM ); int float64_lt_quiet(float64, float64, float_status *status);
int float64_unordered_quiet( float64, float64 STATUS_PARAM ); int float64_unordered_quiet(float64, float64, float_status *status);
int float64_compare( float64, float64 STATUS_PARAM ); int float64_compare(float64, float64, float_status *status);
int float64_compare_quiet( float64, float64 STATUS_PARAM ); int float64_compare_quiet(float64, float64, float_status *status);
float64 float64_min(float64, float64 STATUS_PARAM); float64 float64_min(float64, float64, float_status *status);
float64 float64_max(float64, float64 STATUS_PARAM); float64 float64_max(float64, float64, float_status *status);
float64 float64_minnum(float64, float64 STATUS_PARAM); float64 float64_minnum(float64, float64, float_status *status);
float64 float64_maxnum(float64, float64 STATUS_PARAM); float64 float64_maxnum(float64, float64, float_status *status);
float64 float64_minnummag(float64, float64 STATUS_PARAM); float64 float64_minnummag(float64, float64, float_status *status);
float64 float64_maxnummag(float64, float64 STATUS_PARAM); float64 float64_maxnummag(float64, float64, float_status *status);
int float64_is_quiet_nan( float64 a ); int float64_is_quiet_nan( float64 a );
int float64_is_signaling_nan( float64 ); int float64_is_signaling_nan( float64 );
float64 float64_maybe_silence_nan( float64 ); float64 float64_maybe_silence_nan( float64 );
float64 float64_scalbn( float64, int STATUS_PARAM ); float64 float64_scalbn(float64, int, float_status *status);
static inline float64 float64_abs(float64 a) static inline float64 float64_abs(float64 a)
{ {
...@@ -599,38 +599,38 @@ extern const float64 float64_default_nan; ...@@ -599,38 +599,38 @@ extern const float64 float64_default_nan;
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE extended double-precision conversion routines. | Software IEC/IEEE extended double-precision conversion routines.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 floatx80_to_int32( floatx80 STATUS_PARAM ); int32 floatx80_to_int32(floatx80, float_status *status);
int32 floatx80_to_int32_round_to_zero( floatx80 STATUS_PARAM ); int32 floatx80_to_int32_round_to_zero(floatx80, float_status *status);
int64 floatx80_to_int64( floatx80 STATUS_PARAM ); int64 floatx80_to_int64(floatx80, float_status *status);
int64 floatx80_to_int64_round_to_zero( floatx80 STATUS_PARAM ); int64 floatx80_to_int64_round_to_zero(floatx80, float_status *status);
float32 floatx80_to_float32( floatx80 STATUS_PARAM ); float32 floatx80_to_float32(floatx80, float_status *status);
float64 floatx80_to_float64( floatx80 STATUS_PARAM ); float64 floatx80_to_float64(floatx80, float_status *status);
float128 floatx80_to_float128( floatx80 STATUS_PARAM ); float128 floatx80_to_float128(floatx80, float_status *status);
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE extended double-precision operations. | Software IEC/IEEE extended double-precision operations.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
floatx80 floatx80_round_to_int( floatx80 STATUS_PARAM ); floatx80 floatx80_round_to_int(floatx80, float_status *status);
floatx80 floatx80_add( floatx80, floatx80 STATUS_PARAM ); floatx80 floatx80_add(floatx80, floatx80, float_status *status);
floatx80 floatx80_sub( floatx80, floatx80 STATUS_PARAM ); floatx80 floatx80_sub(floatx80, floatx80, float_status *status);
floatx80 floatx80_mul( floatx80, floatx80 STATUS_PARAM ); floatx80 floatx80_mul(floatx80, floatx80, float_status *status);
floatx80 floatx80_div( floatx80, floatx80 STATUS_PARAM ); floatx80 floatx80_div(floatx80, floatx80, float_status *status);
floatx80 floatx80_rem( floatx80, floatx80 STATUS_PARAM ); floatx80 floatx80_rem(floatx80, floatx80, float_status *status);
floatx80 floatx80_sqrt( floatx80 STATUS_PARAM ); floatx80 floatx80_sqrt(floatx80, float_status *status);
int floatx80_eq( floatx80, floatx80 STATUS_PARAM ); int floatx80_eq(floatx80, floatx80, float_status *status);
int floatx80_le( floatx80, floatx80 STATUS_PARAM ); int floatx80_le(floatx80, floatx80, float_status *status);
int floatx80_lt( floatx80, floatx80 STATUS_PARAM ); int floatx80_lt(floatx80, floatx80, float_status *status);
int floatx80_unordered( floatx80, floatx80 STATUS_PARAM ); int floatx80_unordered(floatx80, floatx80, float_status *status);
int floatx80_eq_quiet( floatx80, floatx80 STATUS_PARAM ); int floatx80_eq_quiet(floatx80, floatx80, float_status *status);
int floatx80_le_quiet( floatx80, floatx80 STATUS_PARAM ); int floatx80_le_quiet(floatx80, floatx80, float_status *status);
int floatx80_lt_quiet( floatx80, floatx80 STATUS_PARAM ); int floatx80_lt_quiet(floatx80, floatx80, float_status *status);
int floatx80_unordered_quiet( floatx80, floatx80 STATUS_PARAM ); int floatx80_unordered_quiet(floatx80, floatx80, float_status *status);
int floatx80_compare( floatx80, floatx80 STATUS_PARAM ); int floatx80_compare(floatx80, floatx80, float_status *status);
int floatx80_compare_quiet( floatx80, floatx80 STATUS_PARAM ); int floatx80_compare_quiet(floatx80, floatx80, float_status *status);
int floatx80_is_quiet_nan( floatx80 ); int floatx80_is_quiet_nan( floatx80 );
int floatx80_is_signaling_nan( floatx80 ); int floatx80_is_signaling_nan( floatx80 );
floatx80 floatx80_maybe_silence_nan( floatx80 ); floatx80 floatx80_maybe_silence_nan( floatx80 );
floatx80 floatx80_scalbn( floatx80, int STATUS_PARAM ); floatx80 floatx80_scalbn(floatx80, int, float_status *status);
static inline floatx80 floatx80_abs(floatx80 a) static inline floatx80 floatx80_abs(floatx80 a)
{ {
...@@ -684,38 +684,38 @@ extern const floatx80 floatx80_default_nan; ...@@ -684,38 +684,38 @@ extern const floatx80 floatx80_default_nan;
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE quadruple-precision conversion routines. | Software IEC/IEEE quadruple-precision conversion routines.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
int32 float128_to_int32( float128 STATUS_PARAM ); int32 float128_to_int32(float128, float_status *status);
int32 float128_to_int32_round_to_zero( float128 STATUS_PARAM ); int32 float128_to_int32_round_to_zero(float128, float_status *status);
int64 float128_to_int64( float128 STATUS_PARAM ); int64 float128_to_int64(float128, float_status *status);
int64 float128_to_int64_round_to_zero( float128 STATUS_PARAM ); int64 float128_to_int64_round_to_zero(float128, float_status *status);
float32 float128_to_float32( float128 STATUS_PARAM ); float32 float128_to_float32(float128, float_status *status);
float64 float128_to_float64( float128 STATUS_PARAM ); float64 float128_to_float64(float128, float_status *status);
floatx80 float128_to_floatx80( float128 STATUS_PARAM ); floatx80 float128_to_floatx80(float128, float_status *status);
/*---------------------------------------------------------------------------- /*----------------------------------------------------------------------------
| Software IEC/IEEE quadruple-precision operations. | Software IEC/IEEE quadruple-precision operations.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
float128 float128_round_to_int( float128 STATUS_PARAM ); float128 float128_round_to_int(float128, float_status *status);
float128 float128_add( float128, float128 STATUS_PARAM ); float128 float128_add(float128, float128, float_status *status);
float128 float128_sub( float128, float128 STATUS_PARAM ); float128 float128_sub(float128, float128, float_status *status);
float128 float128_mul( float128, float128 STATUS_PARAM ); float128 float128_mul(float128, float128, float_status *status);
float128 float128_div( float128, float128 STATUS_PARAM ); float128 float128_div(float128, float128, float_status *status);
float128 float128_rem( float128, float128 STATUS_PARAM ); float128 float128_rem(float128, float128, float_status *status);
float128 float128_sqrt( float128 STATUS_PARAM ); float128 float128_sqrt(float128, float_status *status);
int float128_eq( float128, float128 STATUS_PARAM ); int float128_eq(float128, float128, float_status *status);
int float128_le( float128, float128 STATUS_PARAM ); int float128_le(float128, float128, float_status *status);
int float128_lt( float128, float128 STATUS_PARAM ); int float128_lt(float128, float128, float_status *status);
int float128_unordered( float128, float128 STATUS_PARAM ); int float128_unordered(float128, float128, float_status *status);
int float128_eq_quiet( float128, float128 STATUS_PARAM ); int float128_eq_quiet(float128, float128, float_status *status);
int float128_le_quiet( float128, float128 STATUS_PARAM ); int float128_le_quiet(float128, float128, float_status *status);
int float128_lt_quiet( float128, float128 STATUS_PARAM ); int float128_lt_quiet(float128, float128, float_status *status);
int float128_unordered_quiet( float128, float128 STATUS_PARAM ); int float128_unordered_quiet(float128, float128, float_status *status);
int float128_compare( float128, float128 STATUS_PARAM ); int float128_compare(float128, float128, float_status *status);
int float128_compare_quiet( float128, float128 STATUS_PARAM ); int float128_compare_quiet(float128, float128, float_status *status);
int float128_is_quiet_nan( float128 ); int float128_is_quiet_nan( float128 );
int float128_is_signaling_nan( float128 ); int float128_is_signaling_nan( float128 );
float128 float128_maybe_silence_nan( float128 ); float128 float128_maybe_silence_nan( float128 );
float128 float128_scalbn( float128, int STATUS_PARAM ); float128 float128_scalbn(float128, int, float_status *status);
static inline float128 float128_abs(float128 a) static inline float128 float128_abs(float128 a)
{ {
......
target-mips/msa_helper.c
浏览文件 @ e5a41ffa
...@@ -1614,7 +1614,8 @@ static inline int get_enabled_exceptions(const CPUMIPSState *env, int c) ...@@ -1614,7 +1614,8 @@ static inline int get_enabled_exceptions(const CPUMIPSState *env, int c)
return c & enable; return c & enable;
} }
static inline float16 float16_from_float32(int32 a, flag ieee STATUS_PARAM) static inline float16 float16_from_float32(int32 a, flag ieee,
float_status *status)
{ {
float16 f_val; float16 f_val;
...@@ -1624,7 +1625,7 @@ static inline float16 float16_from_float32(int32 a, flag ieee STATUS_PARAM) ...@@ -1624,7 +1625,7 @@ static inline float16 float16_from_float32(int32 a, flag ieee STATUS_PARAM)
return a < 0 ? (f_val | (1 << 15)) : f_val; return a < 0 ? (f_val | (1 << 15)) : f_val;
} }
static inline float32 float32_from_float64(int64 a STATUS_PARAM) static inline float32 float32_from_float64(int64 a, float_status *status)
{ {
float32 f_val; float32 f_val;
...@@ -1634,7 +1635,8 @@ static inline float32 float32_from_float64(int64 a STATUS_PARAM) ...@@ -1634,7 +1635,8 @@ static inline float32 float32_from_float64(int64 a STATUS_PARAM)
return a < 0 ? (f_val | (1 << 31)) : f_val; return a < 0 ? (f_val | (1 << 31)) : f_val;
} }
static inline float32 float32_from_float16(int16_t a, flag ieee STATUS_PARAM) static inline float32 float32_from_float16(int16_t a, flag ieee,
float_status *status)
{ {
float32 f_val; float32 f_val;
...@@ -1644,7 +1646,7 @@ static inline float32 float32_from_float16(int16_t a, flag ieee STATUS_PARAM) ...@@ -1644,7 +1646,7 @@ static inline float32 float32_from_float16(int16_t a, flag ieee STATUS_PARAM)
return a < 0 ? (f_val | (1 << 31)) : f_val; return a < 0 ? (f_val | (1 << 31)) : f_val;
} }
static inline float64 float64_from_float32(int32 a STATUS_PARAM) static inline float64 float64_from_float32(int32 a, float_status *status)
{ {
float64 f_val; float64 f_val;
...@@ -1654,7 +1656,7 @@ static inline float64 float64_from_float32(int32 a STATUS_PARAM) ...@@ -1654,7 +1656,7 @@ static inline float64 float64_from_float32(int32 a STATUS_PARAM)
return a < 0 ? (f_val | (1ULL << 63)) : f_val; return a < 0 ? (f_val | (1ULL << 63)) : f_val;
} }
static inline float32 float32_from_q16(int16_t a STATUS_PARAM) static inline float32 float32_from_q16(int16_t a, float_status *status)
{ {
float32 f_val; float32 f_val;
...@@ -1665,7 +1667,7 @@ static inline float32 float32_from_q16(int16_t a STATUS_PARAM) ...@@ -1665,7 +1667,7 @@ static inline float32 float32_from_q16(int16_t a STATUS_PARAM)
return f_val; return f_val;
} }
static inline float64 float64_from_q32(int32 a STATUS_PARAM) static inline float64 float64_from_q32(int32 a, float_status *status)
{ {
float64 f_val; float64 f_val;
...@@ -1676,7 +1678,7 @@ static inline float64 float64_from_q32(int32 a STATUS_PARAM) ...@@ -1676,7 +1678,7 @@ static inline float64 float64_from_q32(int32 a STATUS_PARAM)
return f_val; return f_val;
} }
static inline int16_t float32_to_q16(float32 a STATUS_PARAM) static inline int16_t float32_to_q16(float32 a, float_status *status)
{ {
int32 q_val; int32 q_val;
int32 q_min = 0xffff8000; int32 q_min = 0xffff8000;
...@@ -1728,7 +1730,7 @@ static inline int16_t float32_to_q16(float32 a STATUS_PARAM) ...@@ -1728,7 +1730,7 @@ static inline int16_t float32_to_q16(float32 a STATUS_PARAM)
return (int16_t)q_val; return (int16_t)q_val;
} }
static inline int32 float64_to_q32(float64 a STATUS_PARAM) static inline int32 float64_to_q32(float64 a, float_status *status)
{ {
int64 q_val; int64 q_val;
int64 q_min = 0xffffffff80000000LL; int64 q_min = 0xffffffff80000000LL;
......
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或