The R Project SVN R

(root)/branches/R-exp-API/src/nmath/mlutils.c @ 28362 – Rev 574 → 3548



 
#ifdef IEEE_754
/* These are used in IEEE exception handling */
double m_zero = 0;
double m_one = 1;
/* double m_tiny = DBL_MIN; */
#endif
 
#ifndef IEEE_754
 
void ml_error(int n)

Rev 574	Rev 3548
Line 21...	Line 21...
21		21
22	`#ifdef IEEE_754`	22	`#ifdef IEEE_754`
23	`/* These are used in IEEE exception handling */`	23	`/* These are used in IEEE exception handling */`
24	`double m_zero = 0;`	24	`double m_zero = 0;`
25	`double m_one = 1;`	25	`double m_one = 1;`
26	`double m_tiny = DBL_MIN;`	26	`/* double m_tiny = DBL_MIN; */`
27	`#endif`	27	`#endif`
28		28
29	`#ifndef IEEE_754`	29	`#ifndef IEEE_754`
30		30
31	`void ml_error(int n)`	31	`void ml_error(int n)`