The R Project SVN R

Rev

Rev 829 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 829 Rev 989
Line 59... Line 59...
59
#define ME_UNDERFLOW	5
59
#define ME_UNDERFLOW	5
60
 
60
 
61
#undef ML_PRECISION_WARNINGS
61
#undef ML_PRECISION_WARNINGS
62
 
62
 
63
#ifdef IEEE_754
63
#ifdef IEEE_754
-
 
64
#include <ieeefp.h>
64
extern double m_zero;
65
extern double m_zero;
65
extern double m_one;
66
extern double m_one;
66
extern double m_tiny;
67
extern double m_tiny;
67
#define ML_ERROR(x)	/* nothing */
68
#define ML_ERROR(x)	/* nothing */
68
#define ML_POSINF	(m_one / m_zero)
69
#define ML_POSINF	(m_one / m_zero)