The R Project SVN R

Rev

Rev 18834 | Rev 29441 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18834 Rev 24068
Line 74... Line 74...
74 
# include <float.h>
 74 
# include <float.h>
75 
#endif
 75 
#endif
76 
 
 76 
 
77 
int R_finite(double x)
 77 
int R_finite(double x)
78 
{
 78 
{
79 
#ifdef Macintosh
 - 
 
80 
    return isfinite(x);
 - 
 
81 
#endif
 - 
 
82 
#ifdef HAVE_WORKING_FINITE
 79 
#ifdef HAVE_WORKING_FINITE
83 
    return finite(x);
 80 
    return finite(x);
84 
#else
 81 
#else
85 
# ifdef _AIX
 82 
# ifdef _AIX
86 
#  include <fp.h>
 83 
#  include <fp.h>