c@121: 
c@121: #ifndef NAN_INF_H
c@121: #define NAN_INF_H
c@121: 
c@121: #define ISNAN(x) (sizeof(x) == sizeof(double) ? ISNANd(x) : ISNANf(x))
c@121: static inline int ISNANf(float x) { return x != x; }
c@121: static inline int ISNANd(double x) { return x != x; }
c@121:           
c@121: #define ISINF(x) (sizeof(x) == sizeof(double) ? ISINFd(x) : ISINFf(x))
c@121: static inline int ISINFf(float x) { return !ISNANf(x) && ISNANf(x - x); }
c@121: static inline int ISINFd(double x) { return !ISNANd(x) && ISNANd(x - x); }
c@121: 
c@121: #endif