1 /* Copyright (C) 1999, 2004 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, write to the Free
16 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17 02111-1307 USA. */
18
19 /* The actual implementation for all floating point sizes is in strtod.c.
20 These macros tell it to produce the `__float128' version, `strtold'. */
21
22 #define FLOAT __float128
23 #define FLT FLT128
24 #ifdef USE_WIDE_CHAR
25 # define STRTOF wcstoflt128
26 # define __STRTOF __wcstoflt128
27 #else
28 # define STRTOF strtoflt128
29 # define __STRTOF __strtoflt128
30 #endif
31 #define MPN2FLOAT mpn_construct_float128
32 #define FLOAT_HUGE_VAL HUGE_VALQ
33 #define SET_MANTISSA(flt, mant) \
34 do { ieee854_float128 u; \
35 u.value = (flt); \
36 u.ieee_nan.mantissa0 = 0; \
37 u.ieee_nan.mantissa1 = 0; \
38 u.ieee_nan.mantissa2 = (mant) >> 32; \
39 u.ieee_nan.mantissa3 = (mant); \
40 u.ieee_nan.quiet_nan = 1; \
41 (flt) = u.value; \
42 } while (0)
43
44 static inline __attribute__((__always_inline__))
45 __float128 ____strtoflt128_internal (const char *, char **, int);
46
47 #include "strtod_l.c"
48
49 __float128
strtoflt128(const char * nptr,char ** endptr)50 strtoflt128 (const char *nptr, char **endptr)
51 {
52 return ____STRTOF_INTERNAL (nptr, endptr, 0);
53 }
54