/* @(#)nan.h 1.2 */
/* Handling of Not_a_Number's (only in IEEE floating-point standard) */
#define KILLFPE() (void) kill(getpid(), 8)
#if u3b
#define NaN(X) (((union { double d; struct { unsigned :1, e:11; } s; } \
*)&X)->s.e == 0x7ff)
#define KILLNaN(X) if (NaN(X)) KILLFPE()
#else
#define Nan(X) 0
#define KILLNaN(X)
#endif