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. */ 50long double 51__wcstold_internal (const wchar_t *nptr, wchar_t **endptr, int group) 52{ 53 return __wcstod_internal (nptr, endptr, group); 54} 55libc_hidden_def (__wcstold_internal) 56 57long double 58wcstold (const wchar_t *nptr, wchar_t **endptr) 59{ 60 return __wcstod_internal (nptr, endptr, 0); 61} 62#endif 63