softfloat-native.h revision 4af48bf7c72ef1e201c64bd475377b5af9d8e8a1
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/* Native implementation of soft float functions */
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#if (defined(_BSD) && !defined(__APPLE__)) || defined(HOST_SOLARIS)
1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync * Define some C99-7.12.3 classification macros and
1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync * some C99-.12.4 for Solaris systems OS less than 10,
1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync * or Solaris 10 systems running GCC 3.x or less.
1c94c0a63ba68be1a7b2c640e70d7a06464e4fcavboxsync * Solaris 10 with GCC4 does not need these macros as they
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync * are defined in <iso/math_c99.h> with a compiler directive
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#if defined(HOST_SOLARIS) && (( HOST_SOLARIS <= 9 ) || ((HOST_SOLARIS >= 10) \
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync * C99 7.12.3 classification macros
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync * C99 7.12.14 comparison macros
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync * ... do not work on Solaris 10 using GNU CC 3.4.x.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync * Try to workaround the missing / broken C99 math macros.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#define isgreaterequal(x, y) __builtin_isgreaterequal(x, y)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#define islessequal(x, y) __builtin_islessequal(x, y)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#define isunordered(x, y) __builtin_isunordered(x, y)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#define isgreater(x, y) ((!unordered(x, y)) && ((x) > (y)))
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#define isgreaterequal(x, y) ((!unordered(x, y)) && ((x) >= (y)))
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#define isless(x, y) ((!unordered(x, y)) && ((x) < (y)))
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#define islessequal(x, y) ((!unordered(x, y)) && ((x) <= (y)))
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync# define isnan(x) \
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync (sizeof (x) == sizeof (long double) ? isnan_ld (x) \
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync : sizeof (x) == sizeof (double) ? isnan_d (x) \
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncstatic inline int isnan_f (float x) { return x != x; }
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncstatic inline int isnan_d (double x) { return x != x; }
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncstatic inline int isnan_ld (long double x) { return x != x; }
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync# define isinf(x) \
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync (sizeof (x) == sizeof (long double) ? isinf_ld (x) \
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync : sizeof (x) == sizeof (double) ? isinf_d (x) \
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncstatic inline int isinf_f (float x) { return isnan (x - x); }
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncstatic inline int isinf_d (double x) { return isnan (x - x); }
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncstatic inline int isinf_ld (long double x) { return isnan (x - x); }
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsynctypedef float float32;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsynctypedef double float64;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsynctypedef long double floatx80;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsynctypedef union {
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsynctypedef union {
10eaaac806009b8336cc5d746fe5072f6c9f58c0vboxsynctypedef union {
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync| Software IEC/IEEE floating-point rounding mode.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync#if (defined(_BSD) && !defined(__APPLE__)) || defined(HOST_SOLARIS)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsynctypedef struct float_status {
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncvoid set_floatx80_rounding_precision(int val STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync| Software IEC/IEEE integer-to-floating-point conversion routines.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat32 uint32_to_float32( unsigned int STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat64 uint32_to_float64( unsigned int STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat64 uint64_to_float64( uint64_t v STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
6565c2fb4f10f47bcb5436630d2dc35e5a4f28e2vboxsync| Software IEC/IEEE single-precision conversion routines.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint float32_to_int32_round_to_zero( float32 STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncunsigned int float32_to_uint32( float32 a STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncunsigned int float32_to_uint32_round_to_zero( float32 a STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint64_t float32_to_int64_round_to_zero( float32 STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloatx80 float32_to_floatx80( float32 STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat128 float32_to_float128( float32 STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync| Software IEC/IEEE single-precision operations.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat32 float32_round_to_int( float32 STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float32 float32_add( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a + b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float32 float32_sub( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a - b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float32 float32_mul( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a * b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float32 float32_div( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a / b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat32 float32_rem( float32, float32 STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float32_eq( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a == b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float32_le( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a <= b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float32_lt( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a < b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float32_eq_signaling( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a <= b && a >= b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float32_le_quiet( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return islessequal(a, b);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float32_lt_quiet( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return isless(a, b);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float32_unordered( float32 a, float32 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return isunordered(a, b);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint float32_compare( float32, float32 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint float32_compare_quiet( float32, float32 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return u.i >> 31;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return scalbnf(a, n);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync| Software IEC/IEEE double-precision conversion routines.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint float64_to_int32_round_to_zero( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncunsigned int float64_to_uint32( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncunsigned int float64_to_uint32_round_to_zero( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint64_t float64_to_int64_round_to_zero( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncuint64_t float64_to_uint64_round_to_zero( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloatx80 float64_to_floatx80( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat128 float64_to_float128( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync| Software IEC/IEEE double-precision operations.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat64 float64_round_to_int( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat64 float64_trunc_to_int( float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float64 float64_add( float64 a, float64 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a + b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float64 float64_sub( float64 a, float64 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a - b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float64 float64_mul( float64 a, float64 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a * b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE float64 float64_div( float64 a, float64 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a / b;
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncfloat64 float64_rem( float64, float64 STATUS_PARAM );
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncINLINE int float64_eq( float64 a, float64 b STATUS_PARAM)
5eca6b757429b1f1d768e16fba65c485af34319dvboxsync return a == b;
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncINLINE int float64_le( float64 a, float64 b STATUS_PARAM)
5eca6b757429b1f1d768e16fba65c485af34319dvboxsync return a <= b;
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncINLINE int float64_lt( float64 a, float64 b STATUS_PARAM)
5eca6b757429b1f1d768e16fba65c485af34319dvboxsync return a < b;
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncINLINE int float64_eq_signaling( float64 a, float64 b STATUS_PARAM)
5eca6b757429b1f1d768e16fba65c485af34319dvboxsync return a <= b && a >= b;
5eca6b757429b1f1d768e16fba65c485af34319dvboxsyncINLINE int float64_le_quiet( float64 a, float64 b STATUS_PARAM)
5eca6b757429b1f1d768e16fba65c485af34319dvboxsync return islessequal(a, b);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int float64_lt_quiet( float64 a, float64 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return isless(a, b);
ada08ea58e7613c10d4c40669fd4fb955324bfdfvboxsyncINLINE int float64_unordered( float64 a, float64 b STATUS_PARAM)
ada08ea58e7613c10d4c40669fd4fb955324bfdfvboxsync return isunordered(a, b);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint float64_compare( float64, float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint float64_compare_quiet( float64, float64 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return u.i >> 63;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return scalbn(a, n);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync| Software IEC/IEEE extended double-precision conversion routines.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint floatx80_to_int32_round_to_zero( floatx80 STATUS_PARAM );
10eaaac806009b8336cc5d746fe5072f6c9f58c0vboxsyncint64_t floatx80_to_int64_round_to_zero( floatx80 STATUS_PARAM);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat32 floatx80_to_float32( floatx80 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloat64 floatx80_to_float64( floatx80 STATUS_PARAM );
1bc5a31ae6d57c2b4731a23205f3958678b60193vboxsyncfloat128 floatx80_to_float128( floatx80 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync/*----------------------------------------------------------------------------
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync| Software IEC/IEEE extended double-precision operations.
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync*----------------------------------------------------------------------------*/
f20f327b65009074292a4b9ad44a02b6bfb2de8avboxsyncfloatx80 floatx80_round_to_int( floatx80 STATUS_PARAM );
10eaaac806009b8336cc5d746fe5072f6c9f58c0vboxsyncINLINE floatx80 floatx80_add( floatx80 a, floatx80 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a + b;
1bc5a31ae6d57c2b4731a23205f3958678b60193vboxsyncINLINE floatx80 floatx80_sub( floatx80 a, floatx80 b STATUS_PARAM)
10eaaac806009b8336cc5d746fe5072f6c9f58c0vboxsync return a - b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE floatx80 floatx80_mul( floatx80 a, floatx80 b STATUS_PARAM)
f20f327b65009074292a4b9ad44a02b6bfb2de8avboxsync return a * b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE floatx80 floatx80_div( floatx80 a, floatx80 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a / b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncfloatx80 floatx80_rem( floatx80, floatx80 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int floatx80_eq( floatx80 a, floatx80 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a == b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int floatx80_le( floatx80 a, floatx80 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a <= b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int floatx80_lt( floatx80 a, floatx80 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a < b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int floatx80_eq_signaling( floatx80 a, floatx80 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return a <= b && a >= b;
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncINLINE int floatx80_le_quiet( floatx80 a, floatx80 b STATUS_PARAM)
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return islessequal(a, b);
6565c2fb4f10f47bcb5436630d2dc35e5a4f28e2vboxsyncINLINE int floatx80_lt_quiet( floatx80 a, floatx80 b STATUS_PARAM)
6565c2fb4f10f47bcb5436630d2dc35e5a4f28e2vboxsync return isless(a, b);
6565c2fb4f10f47bcb5436630d2dc35e5a4f28e2vboxsyncINLINE int floatx80_unordered( floatx80 a, floatx80 b STATUS_PARAM)
6565c2fb4f10f47bcb5436630d2dc35e5a4f28e2vboxsync return isunordered(a, b);
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint floatx80_compare( floatx80, floatx80 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsyncint floatx80_compare_quiet( floatx80, floatx80 STATUS_PARAM );
d408b82da0773c7e8cd4b3a01cb8a065a2c73a2dvboxsync return scalbnl(a, n);