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
 9const union _ieee_rep __QNANL = { __LONG_DOUBLE_QNAN_REP };
10const union _ieee_rep __SNANL = { __LONG_DOUBLE_SNAN_REP };
11const union _ieee_rep __INFL  = { __LONG_DOUBLE_INF_REP };
12const union _ieee_rep __DENORML = { __LONG_DOUBLE_DENORM_REP };
13
14#undef nanl
15/* FIXME */
16long double nanl (const char *);
17long double nanl (const char * tagp __attribute__((unused)) )
18{
19#if __SIZEOF_LONG_DOUBLE__ == __SIZEOF_DOUBLE__
20  return nan("");
21#else
22  return __QNANL.ldouble_val;
23#endif
24}
25