The R Project SVN R

Rev

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

Rev 7003 Rev 7016
Line 75... Line 75...
75 
 
 75 
 
76 
/* Formerly in Arith.h */
 76 
/* Formerly in Arith.h */
77 
#ifdef IEEE_754
 77 
#ifdef IEEE_754
78 
# define MATH_CHECK(call)	(call)
 78 
# define MATH_CHECK(call)	(call)
79 
#else
 79 
#else
- 
 
 80 
# ifdef __MAIN__
- 
 
 81 
    double R_tmp;
- 
 
 82 
# else
- 
 
 83 
    extern double R_tmp;
- 
 
 84 
# endif
80 
# define MATH_CHECK(call)	(errno=0,R_tmp=call,(errno==0)?R_tmp:R_NaN)
 85 
#  define MATH_CHECK(call)	(errno=0,R_tmp=call,(errno==0)?R_tmp:R_NaN)
81 
#endif
 86 
#endif
82 
 
 87 
 
83 
 
 88 
 
84 
/* Getting the working directory */
 89 
/* Getting the working directory */
85 
#if defined(HAVE_GETCWD)
 90 
#if defined(HAVE_GETCWD)