43 lines
1009 B
C
43 lines
1009 B
C
|
/* xxdftype.h -- parameters for double floating-point type */
|
||
|
#include <yvals.h>
|
||
|
#include <float.h>
|
||
|
|
||
|
#define FTYPE double
|
||
|
#define FCTYPE _Dcomplex
|
||
|
#define FBITS DBL_MANT_DIG
|
||
|
#define FEPS DBL_EPSILON
|
||
|
#define FMAX DBL_MAX
|
||
|
#define FMIN DBL_MIN
|
||
|
#define FMAXEXP DBL_MAX_EXP
|
||
|
|
||
|
#define FFUN(fun) fun
|
||
|
#define FMACRO(x) x
|
||
|
#define FNAME(fun) _##fun
|
||
|
#define FCONST(obj) _##obj._Double
|
||
|
#define FLIT(lit) lit
|
||
|
|
||
|
#define FDIV(x, y) _FDIV(x, y)
|
||
|
#define FINVERT(x) _FINVERT(x)
|
||
|
|
||
|
#define FPMSW(x) (*_Pmsw(&(x)))
|
||
|
#define FSIGNBIT _DSIGN
|
||
|
|
||
|
#define FISNEG(x) (FPMSW(x) & FSIGNBIT)
|
||
|
#define FMAKENEG(x) (FPMSW(x) |= FSIGNBIT)
|
||
|
#define FMAKEPOS(x) (FPMSW(x) &= ~FSIGNBIT)
|
||
|
#define FNEGATE(x) (FPMSW(x) ^= FSIGNBIT)
|
||
|
|
||
|
#define FSETLSB(x) (*_Plsw(&(x)) |= 1)
|
||
|
|
||
|
#if _IS_EMBEDDED
|
||
|
#define FCPTYPE double_complex
|
||
|
|
||
|
#else /* _IS_EMBEDDED */
|
||
|
#define FCPTYPE complex<double>
|
||
|
#endif /* _IS_EMBEDDED */
|
||
|
|
||
|
/*
|
||
|
* Copyright (c) 1992-2012 by P.J. Plauger. ALL RIGHTS RESERVED.
|
||
|
* Consult your license regarding permissions and restrictions.
|
||
|
V6.00:0009 */
|