fabsl.c raw

   1  #include "libm.h"
   2  #if LDBL_MANT_DIG == 53 && LDBL_MAX_EXP == 1024
   3  long double fabsl(long double x)
   4  {
   5  	return fabs(x);
   6  }
   7  #elif (LDBL_MANT_DIG == 64 || LDBL_MANT_DIG == 113) && LDBL_MAX_EXP == 16384
   8  long double fabsl(long double x)
   9  {
  10  	union ldshape u = {x};
  11  
  12  	u.i.se &= 0x7fff;
  13  	return u.f;
  14  }
  15  #endif
  16