The R Project SVN – R – Diff – /trunk/src/include/Mathlib.h



#define ML_NAN		(m_zero / m_zero)
#define ML_UNDERFLOW	(DBL_MIN * DBL_MIN)
#define ML_VALID(x)	(!isnan(x))
 
#else/*--- NO IEEE: No +/-Inf, NAN,... ---*/
void ml_error(int n);
#define ML_ERROR(x)	ml_error(x)
#define ML_POSINF	DBL_MAX
#define ML_NEGINF	(-DBL_MAX)
#define ML_NAN		(-DBL_MAX)
#define ML_UNDERFLOW	0

Rev 5458	Rev 7081
Line 203...	Line 203...
203	`#define ML_NAN (m_zero / m_zero)`	203	`#define ML_NAN (m_zero / m_zero)`
204	`#define ML_UNDERFLOW (DBL_MIN * DBL_MIN)`	204	`#define ML_UNDERFLOW (DBL_MIN * DBL_MIN)`
205	`#define ML_VALID(x) (!isnan(x))`	205	`#define ML_VALID(x) (!isnan(x))`
206		206
207	`#else/--- NO IEEE: No +/-Inf, NAN,... ---/`	207	`#else/--- NO IEEE: No +/-Inf, NAN,... ---/`
-		208	`void ml_error(int n);`
208	`#define ML_ERROR(x) ml_error(x)`	209	`#define ML_ERROR(x) ml_error(x)`
209	`#define ML_POSINF DBL_MAX`	210	`#define ML_POSINF DBL_MAX`
210	`#define ML_NEGINF (-DBL_MAX)`	211	`#define ML_NEGINF (-DBL_MAX)`
211	`#define ML_NAN (-DBL_MAX)`	212	`#define ML_NAN (-DBL_MAX)`
212	`#define ML_UNDERFLOW 0`	213	`#define ML_UNDERFLOW 0`

The R Project SVN R

(root)/trunk/src/include/Mathlib.h @ 7282 – Rev 5458 → 7081