The R Project SVN R

Rev

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

Rev 7003 Rev 7016
Line 70... Line 70...
70 
#else
 70 
#else
71 
# ifdef HAVE_IEEEFP_H
 71 
# ifdef HAVE_IEEEFP_H
72 
#  include <ieeefp.h>		/* others [Solaris 2.5.x], .. */
 72 
#  include <ieeefp.h>		/* others [Solaris 2.5.x], .. */
73 
# endif
 73 
# endif
74 
#endif
 74 
#endif
75 
#if defined(Win32) && defined( _MSC_VER)
 75 
#if defined(Win32) && defined(_MSC_VER)
76 
#include <float.h>
 76 
#include <float.h>
77 
#endif
77 
#endif
78 
 
 78 
 
79 
typedef union
 79 
typedef union
80 
{
 80 
{
Line 155... Line 155...
155 
int R_IsNA(double x)
 155 
int R_IsNA(double x)
156 
{
 156 
{
157 
    return (x == R_NaReal);
 157 
    return (x == R_NaReal);
158 
}
 158 
}
159 
 
 159 
 
- 
 
 160 
/* NaN but not NA: never true */
- 
 
 161 
int R_IsNaN(double x)
- 
 
 162 
{
- 
 
 163 
    return 0;
- 
 
 164 
}
- 
 
 165 
 
160 
int R_IsNaNorNA(double x)
 166 
int R_IsNaNorNA(double x)
161 
{
 167 
{
162 
# ifndef HAVE_ISNAN
 168 
# ifndef HAVE_ISNAN
163 
    int finite(double);
 169 
    int finite(double);
164 
    return (x == R_NaReal);
 170 
    return (x == R_NaReal);