Update.
[glibc.git] / wcsmbs / wcstold.c
blob5c58aa69e6da2d65bb9cc47f8d2eec5862144264
1 /* Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1996.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18 02111-1307 USA. */
20 #include <math.h>
21 #include <wchar.h>
23 #ifndef __NO_LONG_DOUBLE_MATH
24 /* The actual implementation for all floating point sizes is in strtod.c.
25 These macros tell it to produce the `long double' version, `wcstold'. */
27 # define FLOAT long double
28 # define FLT LDBL
29 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
30 # define STRTOF __wcstold_l
31 # else
32 # define STRTOF wcstold
33 # endif
34 # define MPN2FLOAT __mpn_construct_long_double
35 # define FLOAT_HUGE_VAL HUGE_VALL
36 # define USE_WIDE_CHAR 1
37 # define SET_MANTISSA(flt, mant) \
38 do { union ieee854_long_double u; \
39 u.d = (flt); \
40 if ((mant & 0x7fffffffffffffffULL) == 0) \
41 mant = 0x4000000000000000ULL; \
42 u.ieee.mantissa0 = (((mant) >> 32) & 0x7fffffff) | 0x80000000; \
43 u.ieee.mantissa1 = (mant) & 0xffffffff; \
44 (flt) = u.d; \
45 } while (0)
47 # include <stdlib/strtod.c>
48 #else
49 /* There is no `long double' type, use the `double' implementations. */
50 long double
51 __wcstold_internal (const wchar_t *nptr, wchar_t **endptr, int group)
53 return __wcstod_internal (nptr, endptr, group);
55 libc_hidden_def (__wcstold_internal)
57 long double
58 wcstold (const wchar_t *nptr, wchar_t **endptr)
60 return __wcstod_internal (nptr, endptr, 0);
62 #endif