309 lines
6.5 KiB
C
309 lines
6.5 KiB
C
|
/*
|
||
|
|
* ====================================================
|
||
|
|
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
||
|
|
*
|
||
|
|
* Developed at SunPro, a Sun Microsystems, Inc. business.
|
||
|
|
* Permission to use, copy, modify, and distribute this
|
||
|
|
* software is freely granted, provided that this notice
|
||
|
|
* is preserved.
|
||
|
|
* ====================================================
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* from: @(#)fdlibm.h 5.1 93/09/24
|
||
|
|
* $FreeBSD: head/lib/msun/src/math_private.h 336663 2018-07-24 10:10:16Z bde $
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef _MATH_PRIVATE_H_
|
||
|
|
#define _MATH_PRIVATE_H_
|
||
|
|
|
||
|
|
#include <linux/types.h>
|
||
|
|
|
||
|
|
/*
|
||
|
|
* The original fdlibm code used statements like:
|
||
|
|
* n0 = ((*(int*)&one)>>29)^1; * index of high word *
|
||
|
|
* ix0 = *(n0+(int*)&x); * high word of x *
|
||
|
|
* ix1 = *((1-n0)+(int*)&x); * low word of x *
|
||
|
|
* to dig two 32 bit words out of the 64 bit IEEE floating point
|
||
|
|
* value. That is non-ANSI, and, moreover, the gcc instruction
|
||
|
|
* scheduler gets it wrong. We instead use the following macros.
|
||
|
|
* Unlike the original code, we determine the endianness at compile
|
||
|
|
* time, not at run time; I don't see much benefit to selecting
|
||
|
|
* endianness at run time.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* A union which permits us to convert between a double and two 32 bit
|
||
|
|
* ints.
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
/* A union which permits us to convert between a long double and
|
||
|
|
four 32 bit ints. */
|
||
|
|
|
||
|
|
#ifdef CPU_BIG_ENDIAN
|
||
|
|
|
||
|
|
typedef union
|
||
|
|
{
|
||
|
|
long double value;
|
||
|
|
struct {
|
||
|
|
u_int32_t mswhi;
|
||
|
|
u_int32_t mswlo;
|
||
|
|
u_int32_t lswhi;
|
||
|
|
u_int32_t lswlo;
|
||
|
|
} parts32;
|
||
|
|
struct {
|
||
|
|
u_int64_t msw;
|
||
|
|
u_int64_t lsw;
|
||
|
|
} parts64;
|
||
|
|
} ieee_quad_shape_type;
|
||
|
|
#else
|
||
|
|
typedef union
|
||
|
|
{
|
||
|
|
long double value;
|
||
|
|
struct {
|
||
|
|
u_int32_t lswlo;
|
||
|
|
u_int32_t lswhi;
|
||
|
|
u_int32_t mswlo;
|
||
|
|
u_int32_t mswhi;
|
||
|
|
} parts32;
|
||
|
|
struct {
|
||
|
|
u_int64_t lsw;
|
||
|
|
u_int64_t msw;
|
||
|
|
} parts64;
|
||
|
|
} ieee_quad_shape_type;
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef CPU_BIG_ENDIAN
|
||
|
|
|
||
|
|
typedef union
|
||
|
|
{
|
||
|
|
double value;
|
||
|
|
struct
|
||
|
|
{
|
||
|
|
u_int32_t msw;
|
||
|
|
u_int32_t lsw;
|
||
|
|
} parts;
|
||
|
|
struct
|
||
|
|
{
|
||
|
|
u_int64_t w;
|
||
|
|
} xparts;
|
||
|
|
} ieee_double_shape_type;
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
typedef union
|
||
|
|
{
|
||
|
|
double value;
|
||
|
|
struct
|
||
|
|
{
|
||
|
|
u_int32_t lsw;
|
||
|
|
u_int32_t msw;
|
||
|
|
} parts;
|
||
|
|
struct
|
||
|
|
{
|
||
|
|
u_int64_t w;
|
||
|
|
} xparts;
|
||
|
|
} ieee_double_shape_type;
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Get two 32 bit ints from a double. */
|
||
|
|
|
||
|
|
#define EXTRACT_WORDS(ix0,ix1,d) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type ew_u; \
|
||
|
|
ew_u.value = (d); \
|
||
|
|
(ix0) = ew_u.parts.msw; \
|
||
|
|
(ix1) = ew_u.parts.lsw; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Get a 64-bit int from a double. */
|
||
|
|
#define EXTRACT_WORD64(ix,d) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type ew_u; \
|
||
|
|
ew_u.value = (d); \
|
||
|
|
(ix) = ew_u.xparts.w; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Get the more significant 32 bit int from a double. */
|
||
|
|
|
||
|
|
#define GET_HIGH_WORD(i,d) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type gh_u; \
|
||
|
|
gh_u.value = (d); \
|
||
|
|
(i) = gh_u.parts.msw; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Get the less significant 32 bit int from a double. */
|
||
|
|
|
||
|
|
#define GET_LOW_WORD(i,d) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type gl_u; \
|
||
|
|
gl_u.value = (d); \
|
||
|
|
(i) = gl_u.parts.lsw; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Set a double from two 32 bit ints. */
|
||
|
|
|
||
|
|
#define INSERT_WORDS(d,ix0,ix1) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type iw_u; \
|
||
|
|
iw_u.parts.msw = (ix0); \
|
||
|
|
iw_u.parts.lsw = (ix1); \
|
||
|
|
(d) = iw_u.value; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Set a double from a 64-bit int. */
|
||
|
|
#define INSERT_WORD64(d,ix) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type iw_u; \
|
||
|
|
iw_u.xparts.w = (ix); \
|
||
|
|
(d) = iw_u.value; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Set the more significant 32 bits of a double from an int. */
|
||
|
|
|
||
|
|
#define SET_HIGH_WORD(d,v) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type sh_u; \
|
||
|
|
sh_u.value = (d); \
|
||
|
|
sh_u.parts.msw = (v); \
|
||
|
|
(d) = sh_u.value; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Set the less significant 32 bits of a double from an int. */
|
||
|
|
|
||
|
|
#define SET_LOW_WORD(d,v) \
|
||
|
|
do { \
|
||
|
|
ieee_double_shape_type sl_u; \
|
||
|
|
sl_u.value = (d); \
|
||
|
|
sl_u.parts.lsw = (v); \
|
||
|
|
(d) = sl_u.value; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/*
|
||
|
|
* A union which permits us to convert between a float and a 32 bit
|
||
|
|
* int.
|
||
|
|
*/
|
||
|
|
|
||
|
|
typedef union
|
||
|
|
{
|
||
|
|
float value;
|
||
|
|
/* FIXME: Assumes 32 bit int. */
|
||
|
|
unsigned int word;
|
||
|
|
} ieee_float_shape_type;
|
||
|
|
|
||
|
|
/* Get a 32 bit int from a float. */
|
||
|
|
|
||
|
|
#define GET_FLOAT_WORD(i,d) \
|
||
|
|
do { \
|
||
|
|
ieee_float_shape_type gf_u; \
|
||
|
|
gf_u.value = (d); \
|
||
|
|
(i) = gf_u.word; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Set a float from a 32 bit int. */
|
||
|
|
|
||
|
|
#define SET_FLOAT_WORD(d,i) \
|
||
|
|
do { \
|
||
|
|
ieee_float_shape_type sf_u; \
|
||
|
|
sf_u.word = (i); \
|
||
|
|
(d) = sf_u.value; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Get expsign and mantissa as 16 bit and 64 bit ints from an 80 bit long
|
||
|
|
* double.
|
||
|
|
*/
|
||
|
|
#define EXTRACT_LDBL80_WORDS(ix0,ix1,d) \
|
||
|
|
do { \
|
||
|
|
union IEEEl2bits ew_u; \
|
||
|
|
ew_u.e = (d); \
|
||
|
|
(ix0) = ew_u.xbits.expsign; \
|
||
|
|
(ix1) = ew_u.xbits.man; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Get expsign and mantissa as one 16 bit and two 64 bit ints from a 128 bit
|
||
|
|
* long double.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define EXTRACT_LDBL128_WORDS(ix0,ix1,ix2,d) \
|
||
|
|
do { \
|
||
|
|
union IEEEl2bits ew_u; \
|
||
|
|
ew_u.e = (d); \
|
||
|
|
(ix0) = ew_u.xbits.expsign; \
|
||
|
|
(ix1) = ew_u.xbits.manh; \
|
||
|
|
(ix2) = ew_u.xbits.manl; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Get expsign as a 16 bit int from a long double. */
|
||
|
|
|
||
|
|
#define GET_LDBL_EXPSIGN(i,d) \
|
||
|
|
do { \
|
||
|
|
union IEEEl2bits ge_u; \
|
||
|
|
ge_u.e = (d); \
|
||
|
|
(i) = ge_u.xbits.expsign; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Set an 80 bit long double from a 16 bit int expsign and a 64 bit int
|
||
|
|
* mantissa.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define INSERT_LDBL80_WORDS(d,ix0,ix1) \
|
||
|
|
do { \
|
||
|
|
union IEEEl2bits iw_u; \
|
||
|
|
iw_u.xbits.expsign = (ix0); \
|
||
|
|
iw_u.xbits.man = (ix1); \
|
||
|
|
(d) = iw_u.e; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Set a 128 bit long double from a 16 bit int expsign and two 64 bit ints
|
||
|
|
* comprising the mantissa.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define INSERT_LDBL128_WORDS(d,ix0,ix1,ix2) \
|
||
|
|
do { \
|
||
|
|
union IEEEl2bits iw_u; \
|
||
|
|
iw_u.xbits.expsign = (ix0); \
|
||
|
|
iw_u.xbits.manh = (ix1); \
|
||
|
|
iw_u.xbits.manl = (ix2); \
|
||
|
|
(d) = iw_u.e; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
/* Set expsign of a long double from a 16 bit int. */
|
||
|
|
|
||
|
|
#define SET_LDBL_EXPSIGN(d,v) \
|
||
|
|
do { \
|
||
|
|
union IEEEl2bits se_u; \
|
||
|
|
se_u.e = (d); \
|
||
|
|
se_u.xbits.expsign = (v); \
|
||
|
|
(d) = se_u.e; \
|
||
|
|
} while (0)
|
||
|
|
|
||
|
|
|
||
|
|
double __kernel_tan(double, double, int);
|
||
|
|
|
||
|
|
#define nan_mix(x, y) (nan_mix_op((x), (y), +))
|
||
|
|
#define nan_mix_op(x, y, op) (((x) + 0.0L) op ((y) + 0))
|
||
|
|
|
||
|
|
#define STRICT_ASSIGN(type, lval, rval) ((lval) = (rval))
|
||
|
|
|
||
|
|
#define irint(x) ((int)(x))
|
||
|
|
|
||
|
|
static inline double rnint(double x)
|
||
|
|
{
|
||
|
|
return ((double)(x + 0x1.8p52) - 0x1.8p52);
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline float rnintf(float x)
|
||
|
|
{
|
||
|
|
return ((float)(x + 0x1.8p23F) - 0x1.8p23F);
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif /* !_MATH_PRIVATE_H_ */
|