The R Project SVN – R – Diff – /branches/R-exp-API/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 7007	Rev 7016
Line 204...	Line 204...
204	`#define ML_NAN (m_zero / m_zero)`	204	`#define ML_NAN (m_zero / m_zero)`
205	`#define ML_UNDERFLOW (DBL_MIN * DBL_MIN)`	205	`#define ML_UNDERFLOW (DBL_MIN * DBL_MIN)`
206	`#define ML_VALID(x) (!isnan(x))`	206	`#define ML_VALID(x) (!isnan(x))`
207		207
208	`#else/--- NO IEEE: No +/-Inf, NAN,... ---/`	208	`#else/--- NO IEEE: No +/-Inf, NAN,... ---/`
-		209	`void ml_error(int n);`
209	`#define ML_ERROR(x) ml_error(x)`	210	`#define ML_ERROR(x) ml_error(x)`
210	`#define ML_POSINF DBL_MAX`	211	`#define ML_POSINF DBL_MAX`
211	`#define ML_NEGINF (-DBL_MAX)`	212	`#define ML_NEGINF (-DBL_MAX)`
212	`#define ML_NAN (-DBL_MAX)`	213	`#define ML_NAN (-DBL_MAX)`
213	`#define ML_UNDERFLOW 0`	214	`#define ML_UNDERFLOW 0`

The R Project SVN R

(root)/branches/R-exp-API/src/include/Mathlib.h @ 7006 – Rev 7007 → 7016