Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. #include <math.h>
  2.  
  3. int
  4. __isnanl (long double _x)
  5. {
  6.   unsigned short _sw;
  7.   __asm__ ("fxam;"
  8.            "fstsw %%ax": "=a" (_sw) : "t" (_x));
  9.   return (_sw & (FP_NAN | FP_NORMAL | FP_INFINITE | FP_ZERO | FP_SUBNORMAL))
  10.     == FP_NAN;
  11. }
  12.  
  13. int __attribute__ ((alias ("__isnanl"))) isnanl (long double);
  14.