1 /** 2 * This file has no copyright assigned and is placed in the Public Domain. 3 * This file is part of the mingw-w64 runtime package. 4 * No warranty is given; refer to the file DISCLAIMER.PD within this package. 5 */ 6 #include "fp_consts.h" 7 #include <math.h> 8 9 const union _ieee_rep __QNANL = { __LONG_DOUBLE_QNAN_REP }; 10 const union _ieee_rep __SNANL = { __LONG_DOUBLE_SNAN_REP }; 11 const union _ieee_rep __INFL = { __LONG_DOUBLE_INF_REP }; 12 const union _ieee_rep __DENORML = { __LONG_DOUBLE_DENORM_REP }; 13 14 #undef nanl 15 /* FIXME */ 16 long double nanl (const char *); nanl(const char * tagp)17long double nanl (const char * tagp __attribute__((unused)) ) 18 { 19 #if defined(__arm__) || defined(_ARM_) || defined(__aarch64__) || defined(_ARM64_) 20 return nan(""); 21 #else 22 return __QNANL.ldouble_val; 23 #endif 24 } 25 26