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. 4 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. 9 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. 14 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. */ 19 20 #include <math.h> 21 #include <wchar.h> 22 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'. */ 26 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) 46 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) 52 { 53 return __wcstod_internal (nptr, endptr, group); 54 } 55 libc_hidden_def (__wcstold_internal) 56 57 long double 58 wcstold (const wchar_t *nptr, wchar_t **endptr) 59 { 60 return __wcstod_internal (nptr, endptr, 0); 61 } 62 #endif 63