mirrors/qemu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpu: softfloat: drop INLINE macro

Browse Source 
This commit expands all uses of the INLINE macro and drop it.

The reason for this is to avoid clashes with external libraries with
bad name conventions and also because renaming keywords is not a good
practice.

PS: I'm fine with this change to be licensed under softfloat-2a or
softfloat-2b.

Signed-off-by: Luiz Capitulino <lcapitulino@redhat.com>
This commit is contained in:
Luiz Capitulino 2014-06-19 10:13:43 -04:00
parent d9c1647d89
commit a49db98d1f
3 changed files with 92 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
fpu/softfloat-macros.h
View File

@ -55,7 +55,7 @@ these four paragraphs for those parts of this code that are retained.
| The result is stored in the location pointed to by `zPtr'. | The result is stored in the location pointed to by `zPtr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void shift32RightJamming(uint32_t a, int_fast16_t count, uint32_t *zPtr) static inline void shift32RightJamming(uint32_t a, int_fast16_t count, uint32_t *zPtr)
{ {
uint32_t z; uint32_t z;
@ -81,7 +81,7 @@ INLINE void shift32RightJamming(uint32_t a, int_fast16_t count, uint32_t *zPtr)
| The result is stored in the location pointed to by `zPtr'. | The result is stored in the location pointed to by `zPtr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void shift64RightJamming(uint64_t a, int_fast16_t count, uint64_t *zPtr) static inline void shift64RightJamming(uint64_t a, int_fast16_t count, uint64_t *zPtr)
{ {
uint64_t z; uint64_t z;
@ -115,7 +115,7 @@ INLINE void shift64RightJamming(uint64_t a, int_fast16_t count, uint64_t *zPtr)
| described above, and is returned at the location pointed to by `z1Ptr'.) | described above, and is returned at the location pointed to by `z1Ptr'.)
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
shift64ExtraRightJamming( shift64ExtraRightJamming(
uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr) uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr)
{ {
@ -152,7 +152,7 @@ INLINE void
| which are stored at the locations pointed to by `z0Ptr' and `z1Ptr'. | which are stored at the locations pointed to by `z0Ptr' and `z1Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
shift128Right( shift128Right(
uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr) uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr)
{ {
@ -187,7 +187,7 @@ INLINE void
| the locations pointed to by `z0Ptr' and `z1Ptr'. | the locations pointed to by `z0Ptr' and `z1Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
shift128RightJamming( shift128RightJamming(
uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr) uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr)
{ {
@ -238,7 +238,7 @@ INLINE void
| `z2Ptr'.) | `z2Ptr'.)
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
shift128ExtraRightJamming( shift128ExtraRightJamming(
uint64_t a0, uint64_t a0,
uint64_t a1, uint64_t a1,
@ -296,7 +296,7 @@ INLINE void
| pieces which are stored at the locations pointed to by `z0Ptr' and `z1Ptr'. | pieces which are stored at the locations pointed to by `z0Ptr' and `z1Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
shortShift128Left( shortShift128Left(
uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr) uint64_t a0, uint64_t a1, int_fast16_t count, uint64_t *z0Ptr, uint64_t *z1Ptr)
{ {
@ -315,7 +315,7 @@ INLINE void
| `z1Ptr', and `z2Ptr'. | `z1Ptr', and `z2Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
shortShift192Left( shortShift192Left(
uint64_t a0, uint64_t a0,
uint64_t a1, uint64_t a1,
@ -350,7 +350,7 @@ INLINE void
| are stored at the locations pointed to by `z0Ptr' and `z1Ptr'. | are stored at the locations pointed to by `z0Ptr' and `z1Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
add128( add128(
uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1, uint64_t *z0Ptr, uint64_t *z1Ptr ) uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1, uint64_t *z0Ptr, uint64_t *z1Ptr )
{ {
@ -370,7 +370,7 @@ INLINE void
| `z1Ptr', and `z2Ptr'. | `z1Ptr', and `z2Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
add192( add192(
uint64_t a0, uint64_t a0,
uint64_t a1, uint64_t a1,
@ -408,7 +408,7 @@ INLINE void
| `z1Ptr'. | `z1Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
sub128( sub128(
uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1, uint64_t *z0Ptr, uint64_t *z1Ptr ) uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1, uint64_t *z0Ptr, uint64_t *z1Ptr )
{ {
@ -426,7 +426,7 @@ INLINE void
| pointed to by `z0Ptr', `z1Ptr', and `z2Ptr'. | pointed to by `z0Ptr', `z1Ptr', and `z2Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
sub192( sub192(
uint64_t a0, uint64_t a0,
uint64_t a1, uint64_t a1,
@ -462,7 +462,7 @@ INLINE void
| `z0Ptr' and `z1Ptr'. | `z0Ptr' and `z1Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void mul64To128( uint64_t a, uint64_t b, uint64_t *z0Ptr, uint64_t *z1Ptr ) static inline void mul64To128( uint64_t a, uint64_t b, uint64_t *z0Ptr, uint64_t *z1Ptr )
{ {
uint32_t aHigh, aLow, bHigh, bLow; uint32_t aHigh, aLow, bHigh, bLow;
uint64_t z0, zMiddleA, zMiddleB, z1; uint64_t z0, zMiddleA, zMiddleB, z1;
@ -492,7 +492,7 @@ INLINE void mul64To128( uint64_t a, uint64_t b, uint64_t *z0Ptr, uint64_t *z1Ptr
| `z2Ptr'. | `z2Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
mul128By64To192( mul128By64To192(
uint64_t a0, uint64_t a0,
uint64_t a1, uint64_t a1,
@ -520,7 +520,7 @@ INLINE void
| the locations pointed to by `z0Ptr', `z1Ptr', `z2Ptr', and `z3Ptr'. | the locations pointed to by `z0Ptr', `z1Ptr', `z2Ptr', and `z3Ptr'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE void static inline void
mul128To256( mul128To256(
uint64_t a0, uint64_t a0,
uint64_t a1, uint64_t a1,
@ -702,7 +702,7 @@ static int8 countLeadingZeros64( uint64_t a )
| Otherwise, returns 0. | Otherwise, returns 0.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag eq128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 ) static inline flag eq128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 )
{ {
return ( a0 == b0 ) && ( a1 == b1 ); return ( a0 == b0 ) && ( a1 == b1 );
@ -715,7 +715,7 @@ INLINE flag eq128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 )
| Otherwise, returns 0. | Otherwise, returns 0.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag le128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 ) static inline flag le128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 )
{ {
return ( a0 < b0 ) || ( ( a0 == b0 ) && ( a1 <= b1 ) ); return ( a0 < b0 ) || ( ( a0 == b0 ) && ( a1 <= b1 ) );
@ -728,7 +728,7 @@ INLINE flag le128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 )
| returns 0. | returns 0.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag lt128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 ) static inline flag lt128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 )
{ {
return ( a0 < b0 ) || ( ( a0 == b0 ) && ( a1 < b1 ) ); return ( a0 < b0 ) || ( ( a0 == b0 ) && ( a1 < b1 ) );
@ -741,7 +741,7 @@ INLINE flag lt128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 )
| Otherwise, returns 0. | Otherwise, returns 0.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag ne128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 ) static inline flag ne128( uint64_t a0, uint64_t a1, uint64_t b0, uint64_t b1 )
{ {
return ( a0 != b0 ) || ( a1 != b1 ); return ( a0 != b0 ) || ( a1 != b1 );

48
fpu/softfloat.c
View File

@ -66,7 +66,7 @@ these four paragraphs for those parts of this code that are retained.
| Returns the fraction bits of the half-precision floating-point value `a'. | Returns the fraction bits of the half-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE uint32_t extractFloat16Frac(float16 a) static inline uint32_t extractFloat16Frac(float16 a)
{ {
return float16_val(a) & 0x3ff; return float16_val(a) & 0x3ff;
} }
@ -75,7 +75,7 @@ INLINE uint32_t extractFloat16Frac(float16 a)
| Returns the exponent bits of the half-precision floating-point value `a'. | Returns the exponent bits of the half-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE int_fast16_t extractFloat16Exp(float16 a) static inline int_fast16_t extractFloat16Exp(float16 a)
{ {
return (float16_val(a) >> 10) & 0x1f; return (float16_val(a) >> 10) & 0x1f;
} }
@ -84,7 +84,7 @@ INLINE int_fast16_t extractFloat16Exp(float16 a)
| Returns the sign bit of the single-precision floating-point value `a'. | Returns the sign bit of the single-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag extractFloat16Sign(float16 a) static inline flag extractFloat16Sign(float16 a)
{ {
return float16_val(a)>>15; return float16_val(a)>>15;
} }
@ -255,7 +255,7 @@ static int64 roundAndPackUint64(flag zSign, uint64_t absZ0,
| Returns the fraction bits of the single-precision floating-point value `a'. | Returns the fraction bits of the single-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE uint32_t extractFloat32Frac( float32 a ) static inline uint32_t extractFloat32Frac( float32 a )
{ {
return float32_val(a) & 0x007FFFFF; return float32_val(a) & 0x007FFFFF;
@ -266,7 +266,7 @@ INLINE uint32_t extractFloat32Frac( float32 a )
| Returns the exponent bits of the single-precision floating-point value `a'. | Returns the exponent bits of the single-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE int_fast16_t extractFloat32Exp(float32 a) static inline int_fast16_t extractFloat32Exp(float32 a)
{ {
return ( float32_val(a)>>23 ) & 0xFF; return ( float32_val(a)>>23 ) & 0xFF;
@ -277,7 +277,7 @@ INLINE int_fast16_t extractFloat32Exp(float32 a)
| Returns the sign bit of the single-precision floating-point value `a'. | Returns the sign bit of the single-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag extractFloat32Sign( float32 a ) static inline flag extractFloat32Sign( float32 a )
{ {
return float32_val(a)>>31; return float32_val(a)>>31;
@ -328,7 +328,7 @@ static void
| significand. | significand.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE float32 packFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig) static inline float32 packFloat32(flag zSign, int_fast16_t zExp, uint32_t zSig)
{ {
return make_float32( return make_float32(
@ -440,7 +440,7 @@ static float32
| Returns the fraction bits of the double-precision floating-point value `a'. | Returns the fraction bits of the double-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE uint64_t extractFloat64Frac( float64 a ) static inline uint64_t extractFloat64Frac( float64 a )
{ {
return float64_val(a) & LIT64( 0x000FFFFFFFFFFFFF ); return float64_val(a) & LIT64( 0x000FFFFFFFFFFFFF );
@ -451,7 +451,7 @@ INLINE uint64_t extractFloat64Frac( float64 a )
| Returns the exponent bits of the double-precision floating-point value `a'. | Returns the exponent bits of the double-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE int_fast16_t extractFloat64Exp(float64 a) static inline int_fast16_t extractFloat64Exp(float64 a)
{ {
return ( float64_val(a)>>52 ) & 0x7FF; return ( float64_val(a)>>52 ) & 0x7FF;
@ -462,7 +462,7 @@ INLINE int_fast16_t extractFloat64Exp(float64 a)
| Returns the sign bit of the double-precision floating-point value `a'. | Returns the sign bit of the double-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag extractFloat64Sign( float64 a ) static inline flag extractFloat64Sign( float64 a )
{ {
return float64_val(a)>>63; return float64_val(a)>>63;
@ -513,7 +513,7 @@ static void
| significand. | significand.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE float64 packFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig) static inline float64 packFloat64(flag zSign, int_fast16_t zExp, uint64_t zSig)
{ {
return make_float64( return make_float64(
@ -625,7 +625,7 @@ static float64
| value `a'. | value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE uint64_t extractFloatx80Frac( floatx80 a ) static inline uint64_t extractFloatx80Frac( floatx80 a )
{ {
return a.low; return a.low;
@ -637,7 +637,7 @@ INLINE uint64_t extractFloatx80Frac( floatx80 a )
| value `a'. | value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE int32 extractFloatx80Exp( floatx80 a ) static inline int32 extractFloatx80Exp( floatx80 a )
{ {
return a.high & 0x7FFF; return a.high & 0x7FFF;
@ -649,7 +649,7 @@ INLINE int32 extractFloatx80Exp( floatx80 a )
| `a'. | `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag extractFloatx80Sign( floatx80 a ) static inline flag extractFloatx80Sign( floatx80 a )
{ {
return a.high>>15; return a.high>>15;
@ -679,7 +679,7 @@ static void
| extended double-precision floating-point value, returning the result. | extended double-precision floating-point value, returning the result.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE floatx80 packFloatx80( flag zSign, int32 zExp, uint64_t zSig ) static inline floatx80 packFloatx80( flag zSign, int32 zExp, uint64_t zSig )
{ {
floatx80 z; floatx80 z;
@ -921,7 +921,7 @@ static floatx80
| floating-point value `a'. | floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE uint64_t extractFloat128Frac1( float128 a ) static inline uint64_t extractFloat128Frac1( float128 a )
{ {
return a.low; return a.low;
@ -933,7 +933,7 @@ INLINE uint64_t extractFloat128Frac1( float128 a )
| floating-point value `a'. | floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE uint64_t extractFloat128Frac0( float128 a ) static inline uint64_t extractFloat128Frac0( float128 a )
{ {
return a.high & LIT64( 0x0000FFFFFFFFFFFF ); return a.high & LIT64( 0x0000FFFFFFFFFFFF );
@ -945,7 +945,7 @@ INLINE uint64_t extractFloat128Frac0( float128 a )
| `a'. | `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE int32 extractFloat128Exp( float128 a ) static inline int32 extractFloat128Exp( float128 a )
{ {
return ( a.high>>48 ) & 0x7FFF; return ( a.high>>48 ) & 0x7FFF;
@ -956,7 +956,7 @@ INLINE int32 extractFloat128Exp( float128 a )
| Returns the sign bit of the quadruple-precision floating-point value `a'. | Returns the sign bit of the quadruple-precision floating-point value `a'.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE flag extractFloat128Sign( float128 a ) static inline flag extractFloat128Sign( float128 a )
{ {
return a.high>>63; return a.high>>63;
@ -1017,7 +1017,7 @@ static void
| significand. | significand.
*----------------------------------------------------------------------------*/ *----------------------------------------------------------------------------*/
INLINE float128 static inline float128
packFloat128( flag zSign, int32 zExp, uint64_t zSig0, uint64_t zSig1 ) packFloat128( flag zSign, int32 zExp, uint64_t zSig0, uint64_t zSig1 )
{ {
float128 z; float128 z;
@ -7088,7 +7088,7 @@ uint64_t float64_to_uint64_round_to_zero (float64 a STATUS_PARAM)
} }
#define COMPARE(s, nan_exp) \ #define COMPARE(s, nan_exp) \
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 STATUS_PARAM ) \
{ \ { \
flag aSign, bSign; \ flag aSign, bSign; \
@ -7140,7 +7140,7 @@ 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)
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 STATUS_PARAM )
{ {
flag aSign, bSign; flag aSign, bSign;
@ -7186,7 +7186,7 @@ int floatx80_compare_quiet( floatx80 a, floatx80 b STATUS_PARAM )
return floatx80_compare_internal(a, b, 1 STATUS_VAR); return floatx80_compare_internal(a, b, 1 STATUS_VAR);
} }
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 STATUS_PARAM )
{ {
flag aSign, bSign; flag aSign, bSign;
@ -7242,7 +7242,7 @@ int float128_compare_quiet( float128 a, float128 b STATUS_PARAM )
* semantics provided by many CPUs which predate that specification. * semantics provided by many CPUs which predate that specification.
*/ */
#define MINMAX(s) \ #define MINMAX(s) \
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 STATUS_PARAM) \ int ismin, int isieee STATUS_PARAM) \
{ \ { \
flag aSign, bSign; \ flag aSign, bSign; \

99
include/fpu/softfloat.h
View File

@ -63,7 +63,6 @@ typedef uint64_t uint64;
typedef int64_t int64; typedef int64_t int64;
#define LIT64( a ) a##LL #define LIT64( a ) a##LL
#define INLINE static inline
#define STATUS_PARAM , float_status *status #define STATUS_PARAM , float_status *status
#define STATUS(field) status->field #define STATUS(field) status->field
@ -181,59 +180,59 @@ typedef struct float_status {
flag default_nan_mode; flag default_nan_mode;
} float_status; } float_status;
INLINE void set_float_detect_tininess(int val STATUS_PARAM) static inline void set_float_detect_tininess(int val STATUS_PARAM)
{ {
STATUS(float_detect_tininess) = val; STATUS(float_detect_tininess) = val;
} }
INLINE void set_float_rounding_mode(int val STATUS_PARAM) static inline void set_float_rounding_mode(int val STATUS_PARAM)
{ {
STATUS(float_rounding_mode) = val; STATUS(float_rounding_mode) = val;
} }
INLINE void set_float_exception_flags(int val STATUS_PARAM) static inline void set_float_exception_flags(int val STATUS_PARAM)
{ {
STATUS(float_exception_flags) = val; STATUS(float_exception_flags) = val;
} }
INLINE void set_floatx80_rounding_precision(int val STATUS_PARAM) static inline void set_floatx80_rounding_precision(int val STATUS_PARAM)
{ {
STATUS(floatx80_rounding_precision) = val; STATUS(floatx80_rounding_precision) = val;
} }
INLINE void set_flush_to_zero(flag val STATUS_PARAM) static inline void set_flush_to_zero(flag val STATUS_PARAM)
{ {
STATUS(flush_to_zero) = val; STATUS(flush_to_zero) = val;
} }
INLINE void set_flush_inputs_to_zero(flag val STATUS_PARAM) static inline void set_flush_inputs_to_zero(flag val STATUS_PARAM)
{ {
STATUS(flush_inputs_to_zero) = val; STATUS(flush_inputs_to_zero) = val;
} }
INLINE void set_default_nan_mode(flag val STATUS_PARAM) static inline void set_default_nan_mode(flag val STATUS_PARAM)
{ {
STATUS(default_nan_mode) = val; STATUS(default_nan_mode) = val;
} }
INLINE int get_float_detect_tininess(float_status *status) static inline int get_float_detect_tininess(float_status *status)
{ {
return STATUS(float_detect_tininess); return STATUS(float_detect_tininess);
} }
INLINE int get_float_rounding_mode(float_status *status) static inline int get_float_rounding_mode(float_status *status)
{ {
return STATUS(float_rounding_mode); return STATUS(float_rounding_mode);
} }
INLINE int get_float_exception_flags(float_status *status) static inline int get_float_exception_flags(float_status *status)
{ {
return STATUS(float_exception_flags); return STATUS(float_exception_flags);
} }
INLINE int get_floatx80_rounding_precision(float_status *status) static inline int get_floatx80_rounding_precision(float_status *status)
{ {
return STATUS(floatx80_rounding_precision); return STATUS(floatx80_rounding_precision);
} }
INLINE flag get_flush_to_zero(float_status *status) static inline flag get_flush_to_zero(float_status *status)
{ {
return STATUS(flush_to_zero); return STATUS(flush_to_zero);
} }
INLINE flag get_flush_inputs_to_zero(float_status *status) static inline flag get_flush_inputs_to_zero(float_status *status)
{ {
return STATUS(flush_inputs_to_zero); return STATUS(flush_inputs_to_zero);
} }
INLINE flag get_default_nan_mode(float_status *status) static inline flag get_default_nan_mode(float_status *status)
{ {
return STATUS(default_nan_mode); return STATUS(default_nan_mode);
} }
@ -284,22 +283,22 @@ float128 int64_to_float128(int64_t STATUS_PARAM);
float128 uint64_to_float128(uint64_t STATUS_PARAM); float128 uint64_to_float128(uint64_t STATUS_PARAM);
/* 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 */
INLINE float32 int16_to_float32(int16_t v STATUS_PARAM) static inline float32 int16_to_float32(int16_t v STATUS_PARAM)
{ {
return int32_to_float32(v STATUS_VAR); return int32_to_float32(v STATUS_VAR);
} }
INLINE float32 uint16_to_float32(uint16_t v STATUS_PARAM) static inline float32 uint16_to_float32(uint16_t v STATUS_PARAM)
{ {
return uint32_to_float32(v STATUS_VAR); return uint32_to_float32(v STATUS_VAR);
} }
INLINE float64 int16_to_float64(int16_t v STATUS_PARAM) static inline float64 int16_to_float64(int16_t v STATUS_PARAM)
{ {
return int32_to_float64(v STATUS_VAR); return int32_to_float64(v STATUS_VAR);
} }
INLINE float64 uint16_to_float64(uint16_t v STATUS_PARAM) static inline float64 uint16_to_float64(uint16_t v STATUS_PARAM)
{ {
return uint32_to_float64(v STATUS_VAR); return uint32_to_float64(v STATUS_VAR);
} }
@ -319,7 +318,7 @@ int float16_is_quiet_nan( float16 );
int float16_is_signaling_nan( float16 ); int float16_is_signaling_nan( float16 );
float16 float16_maybe_silence_nan( float16 ); float16 float16_maybe_silence_nan( float16 );
INLINE int float16_is_any_nan(float16 a) static inline int float16_is_any_nan(float16 a)
{ {
return ((float16_val(a) & ~0x8000) > 0x7c00); return ((float16_val(a) & ~0x8000) > 0x7c00);
} }
@ -380,7 +379,7 @@ 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 STATUS_PARAM );
INLINE float32 float32_abs(float32 a) static inline float32 float32_abs(float32 a)
{ {
/* Note that abs does *not* handle NaN specially, nor does /* Note that abs does *not* handle NaN specially, nor does
* it flush denormal inputs to zero. * it flush denormal inputs to zero.
@ -388,7 +387,7 @@ INLINE float32 float32_abs(float32 a)
return make_float32(float32_val(a) & 0x7fffffff); return make_float32(float32_val(a) & 0x7fffffff);
} }
INLINE float32 float32_chs(float32 a) static inline float32 float32_chs(float32 a)
{ {
/* Note that chs does *not* handle NaN specially, nor does /* Note that chs does *not* handle NaN specially, nor does
* it flush denormal inputs to zero. * it flush denormal inputs to zero.
@ -396,32 +395,32 @@ INLINE float32 float32_chs(float32 a)
return make_float32(float32_val(a) ^ 0x80000000); return make_float32(float32_val(a) ^ 0x80000000);
} }
INLINE int float32_is_infinity(float32 a) static inline int float32_is_infinity(float32 a)
{ {
return (float32_val(a) & 0x7fffffff) == 0x7f800000; return (float32_val(a) & 0x7fffffff) == 0x7f800000;
} }
INLINE int float32_is_neg(float32 a) static inline int float32_is_neg(float32 a)
{ {
return float32_val(a) >> 31; return float32_val(a) >> 31;
} }
INLINE int float32_is_zero(float32 a) static inline int float32_is_zero(float32 a)
{ {
return (float32_val(a) & 0x7fffffff) == 0; return (float32_val(a) & 0x7fffffff) == 0;
} }
INLINE int float32_is_any_nan(float32 a) static inline int float32_is_any_nan(float32 a)
{ {
return ((float32_val(a) & ~(1 << 31)) > 0x7f800000UL); return ((float32_val(a) & ~(1 << 31)) > 0x7f800000UL);
} }
INLINE int float32_is_zero_or_denormal(float32 a) static inline int float32_is_zero_or_denormal(float32 a)
{ {
return (float32_val(a) & 0x7f800000) == 0; return (float32_val(a) & 0x7f800000) == 0;
} }
INLINE float32 float32_set_sign(float32 a, int sign) static inline float32 float32_set_sign(float32 a, int sign)
{ {
return make_float32((float32_val(a) & 0x7fffffff) | (sign << 31)); return make_float32((float32_val(a) & 0x7fffffff) | (sign << 31));
} }
@ -490,7 +489,7 @@ 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 STATUS_PARAM );
INLINE float64 float64_abs(float64 a) static inline float64 float64_abs(float64 a)
{ {
/* Note that abs does *not* handle NaN specially, nor does /* Note that abs does *not* handle NaN specially, nor does
* it flush denormal inputs to zero. * it flush denormal inputs to zero.
@ -498,7 +497,7 @@ INLINE float64 float64_abs(float64 a)
return make_float64(float64_val(a) & 0x7fffffffffffffffLL); return make_float64(float64_val(a) & 0x7fffffffffffffffLL);
} }
INLINE float64 float64_chs(float64 a) static inline float64 float64_chs(float64 a)
{ {
/* Note that chs does *not* handle NaN specially, nor does /* Note that chs does *not* handle NaN specially, nor does
* it flush denormal inputs to zero. * it flush denormal inputs to zero.
@ -506,32 +505,32 @@ INLINE float64 float64_chs(float64 a)
return make_float64(float64_val(a) ^ 0x8000000000000000LL); return make_float64(float64_val(a) ^ 0x8000000000000000LL);
} }
INLINE int float64_is_infinity(float64 a) static inline int float64_is_infinity(float64 a)
{ {
return (float64_val(a) & 0x7fffffffffffffffLL ) == 0x7ff0000000000000LL; return (float64_val(a) & 0x7fffffffffffffffLL ) == 0x7ff0000000000000LL;
} }
INLINE int float64_is_neg(float64 a) static inline int float64_is_neg(float64 a)
{ {
return float64_val(a) >> 63; return float64_val(a) >> 63;
} }
INLINE int float64_is_zero(float64 a) static inline int float64_is_zero(float64 a)
{ {
return (float64_val(a) & 0x7fffffffffffffffLL) == 0; return (float64_val(a) & 0x7fffffffffffffffLL) == 0;
} }
INLINE int float64_is_any_nan(float64 a) static inline int float64_is_any_nan(float64 a)
{ {
return ((float64_val(a) & ~(1ULL << 63)) > 0x7ff0000000000000ULL); return ((float64_val(a) & ~(1ULL << 63)) > 0x7ff0000000000000ULL);
} }
INLINE int float64_is_zero_or_denormal(float64 a) static inline int float64_is_zero_or_denormal(float64 a)
{ {
return (float64_val(a) & 0x7ff0000000000000LL) == 0; return (float64_val(a) & 0x7ff0000000000000LL) == 0;
} }
INLINE float64 float64_set_sign(float64 a, int sign) static inline float64 float64_set_sign(float64 a, int sign)
{ {
return make_float64((float64_val(a) & 0x7fffffffffffffffULL) return make_float64((float64_val(a) & 0x7fffffffffffffffULL)
| ((int64_t)sign << 63)); | ((int64_t)sign << 63));
@ -585,39 +584,39 @@ 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 STATUS_PARAM );
INLINE floatx80 floatx80_abs(floatx80 a) static inline floatx80 floatx80_abs(floatx80 a)
{ {
a.high &= 0x7fff; a.high &= 0x7fff;
return a; return a;
} }
INLINE floatx80 floatx80_chs(floatx80 a) static inline floatx80 floatx80_chs(floatx80 a)
{ {
a.high ^= 0x8000; a.high ^= 0x8000;
return a; return a;
} }
INLINE int floatx80_is_infinity(floatx80 a) static inline int floatx80_is_infinity(floatx80 a)
{ {
return (a.high & 0x7fff) == 0x7fff && a.low == 0x8000000000000000LL; return (a.high & 0x7fff) == 0x7fff && a.low == 0x8000000000000000LL;
} }
INLINE int floatx80_is_neg(floatx80 a) static inline int floatx80_is_neg(floatx80 a)
{ {
return a.high >> 15; return a.high >> 15;
} }
INLINE int floatx80_is_zero(floatx80 a) static inline int floatx80_is_zero(floatx80 a)
{ {
return (a.high & 0x7fff) == 0 && a.low == 0; return (a.high & 0x7fff) == 0 && a.low == 0;
} }
INLINE int floatx80_is_zero_or_denormal(floatx80 a) static inline int floatx80_is_zero_or_denormal(floatx80 a)
{ {
return (a.high & 0x7fff) == 0; return (a.high & 0x7fff) == 0;
} }
INLINE int floatx80_is_any_nan(floatx80 a) static inline int floatx80_is_any_nan(floatx80 a)
{ {
return ((a.high & 0x7fff) == 0x7fff) && (a.low<<1); return ((a.high & 0x7fff) == 0x7fff) && (a.low<<1);
} }
@ -670,39 +669,39 @@ 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 STATUS_PARAM );
INLINE float128 float128_abs(float128 a) static inline float128 float128_abs(float128 a)
{ {
a.high &= 0x7fffffffffffffffLL; a.high &= 0x7fffffffffffffffLL;
return a; return a;
} }
INLINE float128 float128_chs(float128 a) static inline float128 float128_chs(float128 a)
{ {
a.high ^= 0x8000000000000000LL; a.high ^= 0x8000000000000000LL;
return a; return a;
} }
INLINE int float128_is_infinity(float128 a) static inline int float128_is_infinity(float128 a)
{ {
return (a.high & 0x7fffffffffffffffLL) == 0x7fff000000000000LL && a.low == 0; return (a.high & 0x7fffffffffffffffLL) == 0x7fff000000000000LL && a.low == 0;
} }
INLINE int float128_is_neg(float128 a) static inline int float128_is_neg(float128 a)
{ {
return a.high >> 63; return a.high >> 63;
} }
INLINE int float128_is_zero(float128 a) static inline int float128_is_zero(float128 a)
{ {
return (a.high & 0x7fffffffffffffffLL) == 0 && a.low == 0; return (a.high & 0x7fffffffffffffffLL) == 0 && a.low == 0;
} }
INLINE int float128_is_zero_or_denormal(float128 a) static inline int float128_is_zero_or_denormal(float128 a)
{ {
return (a.high & 0x7fff000000000000LL) == 0; return (a.high & 0x7fff000000000000LL) == 0;
} }
INLINE int float128_is_any_nan(float128 a) static inline int float128_is_any_nan(float128 a)
{ {
return ((a.high >> 48) & 0x7fff) == 0x7fff && return ((a.high >> 48) & 0x7fff) == 0x7fff &&
((a.low != 0) || ((a.high & 0xffffffffffffLL) != 0)); ((a.low != 0) || ((a.high & 0xffffffffffffLL) != 0));