DataMuseum.dk

top - download

    Length: 4271 (0x10af)
    Types: TextFile
    Notes: UNIX file
    Names: »math.h«

└─⟦bbefdb7d7⟧ Bits:30004157 SW95755I Green Hill C-386
└─⟦bbefdb7d7⟧ UNIX Filesystem
    └─ ⟦this⟧ »gc/new/usr/ghs/LIB/include/math.h« 

TextFile

/*
    C Runtime library - Copyright 1983,1984,1985,1986 by Green Hills Software Inc.
    This program is the property of Green Hills Software, Inc,
    its contents are proprietary information and no part of it
    is to be disclosed to anyone except employees of Green Hills
    Software, Inc., or as agreed in writing signed by the President
    of Green Hills Software, Inc.
*/

#ifdef mc68000
# define BigEndian
#endif
#ifdef vax
# define LittleEndian
#endif
#ifdef ns32000
# define LittleEndian
#endif
#ifdef ns16000
# define LittleEndian
#endif
#ifdef clipper
# define LittleEndian
#endif
#ifdef i386
# define LittleEndian
#endif
#ifdef acp
# define LittleEndian
#endif
#ifdef pdp11
# define LittleEndian
#endif

#define LIBM_PI	3.14159265358979323846
double acos(), sqrt(), atan(), asin(), atan2(), j0(), sin(), cos(), y0(),
       log(), j1(), y1(), jn(), yn(), erf(), erfc(), exp(), gamma(),
       sinh(), cosh(), tanh(), log10(), pow(), tan(), atof(), ldexp(),
       frexp(), modf(), ceil(), floor(), hypot(), fabs(), cabs(), fmod();
float  rldexp();

#ifdef vaxd_float	/* vax F&D formats assumed */
# ifdef LittleEndian
typedef struct {
    unsigned long dbl_frac1 : 7;
    unsigned long dbl_exp : 8;
    unsigned long dbl_sign : 1;
    unsigned long dbl_frac2 : 16;
    unsigned long dbl_frac3 : 16;
    unsigned long dbl_frac4 : 16;
} DOUBLE;
typedef struct {
    unsigned long flt_frac1 : 7;
    unsigned long flt_exp : 8;
    unsigned long flt_sign : 1;
    unsigned long flt_frac2 : 16;
} FLOAT;
# else
typedef struct {
    unsigned long dbl_sign : 1;
    unsigned long dbl_exp : 8;
    unsigned long dbl_frac1 : 7;
    unsigned long dbl_frac2 : 16;
    unsigned long dbl_frac3 : 16;
    unsigned long dbl_frac4 : 16;
} DOUBLE;
typedef struct {
    unsigned long flt_sign : 1;
    unsigned long flt_exp : 8;
    unsigned long flt_frac1 : 7;
    unsigned long flt_frac2 : 16;
} FLOAT;
# endif
#define KNOWN_FLOATING_POINT_FORMAT	1
#define EXTRACTEXPONENT(x)	(((DOUBLE *)&(x))->dbl_exp-128)
#define EXTRACTFLOATEXPONENT(x)	(((FLOAT *)&(x))->flt_exp-128)
#define SETEXPONENT(x,exp)	(((DOUBLE *)(&x))->dbl_exp = ((exp)+128))
#define SETFLOATEXPONENT(x,exp)	(((FLOAT *)(&x))->flt_exp = ((exp)+128))
#define AUGMENTEXPONENT(x, inc) (((DOUBLE *)(&x))->dbl_exp += (inc))
#define AUGMENTFLOATEXPONENT(x, inc) (((FLOAT *)(&x))->flt_exp += (inc))
#define MINIMUMEXPONENT		-127
#define MINIMUMFLOATEXPONENT	-127
#define MAXIMUMEXPONENT		127
#define MAXIMUMFLOATEXPONENT	127
#define HUGE			(1.7e38)
#define HUGEFLOAT		(1.7e38)

#else
#ifdef ieee_float

# ifdef LittleEndian
typedef struct {
    unsigned long dbl_frac2 : 32;
    unsigned long dbl_frac1 : 20;
    unsigned long dbl_exp : 11;
    unsigned long dbl_sign : 1;
} DOUBLE;
typedef struct {
    unsigned long flt_frac1 : 23;
    unsigned long flt_exp : 8;
    unsigned long flt_sign : 1;
} FLOAT;
# else
typedef struct {
    unsigned long dbl_sign : 1;
    unsigned long dbl_exp : 11;
    unsigned long dbl_frac1 : 20;
    unsigned long dbl_frac2 : 32;
} DOUBLE;
typedef struct {
    unsigned long dbl_sign : 1;
    unsigned long dbl_exp : 8;
    unsigned long dbl_frac1 : 23;
} FLOAT;
# endif
#define KNOWN_FLOATING_POINT_FORMAT	1
#define EXTRACTEXPONENT(x)	(((DOUBLE *)&(x))->dbl_exp-1022)
#define EXTRACTFLOATEXPONENT(x)	(((FLOAT *)&(x))->flt_exp-126)
#define SETEXPONENT(x,exp)	(((DOUBLE *)&(x))->dbl_exp = ((exp)+1022))
#define SETFLOATEXPONENT(x,exp)	(((FLOAT *)&(x))->flt_exp = ((exp)+126))
#define AUGMENTEXPONENT(x, inc) (((DOUBLE *)&(x))->dbl_exp += (inc))
#define AUGMENTFLOATEXPONENT(x, inc) (((FLOAT *)&(x))->flt_exp += (inc))
#define MINIMUMEXPONENT		-1021
#define MINIMUMFLOATEXPONENT	-125
#define MAXIMUMEXPONENT		1024
#define MAXIMUMFLOATEXPONENT	128
#define HUGE			(1.7e308)
#define HUGEFLOAT		(3.4e38)
#else
#define MINIMUMEXPONENT		-127
#define MINIMUMFLOATEXPONENT	-127
#define MAXIMUMEXPONENT		127
#define MAXIMUMFLOATEXPONENT	127
#define HUGE			(1.7e38)
#define HUGEFLOAT		(1.7e38)
#define AUGMENTEXPONENT(x, inc) ((x) = ldexp((x), (inc)))
#define AUGMENTFLOATEXPONENT(x, inc) ((x) = rldexp((x), (inc)))
#define SETEXPONENT(x,exp)	AUGMENTEXPONENT((x), (exp)-EXTRACTEXPONENT(x));
#define SETFLOATEXPONENT(x,exp)	AUGMENTFLOATEXPONENT((x), (exp)-EXTRACTFLOATEXPONENT(x));
#endif
#endif