Back to index

glibc  2.9
strtold_l.c
Go to the documentation of this file.
00001 /* Copyright (C) 1999, 2004, 2005 Free Software Foundation, Inc.
00002    This file is part of the GNU C Library.
00003 
00004    The GNU C Library is free software; you can redistribute it and/or
00005    modify it under the terms of the GNU Lesser General Public
00006    License as published by the Free Software Foundation; either
00007    version 2.1 of the License, or (at your option) any later version.
00008 
00009    The GNU C Library is distributed in the hope that it will be useful,
00010    but WITHOUT ANY WARRANTY; without even the implied warranty of
00011    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00012    Lesser General Public License for more details.
00013 
00014    You should have received a copy of the GNU Lesser General Public
00015    License along with the GNU C Library; if not, write to the Free
00016    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
00017    02111-1307 USA.  */
00018 
00019 #include <math.h>
00020 
00021 /* The actual implementation for all floating point sizes is in strtod.c.
00022    These macros tell it to produce the `long double' version, `strtold'.  */
00023 
00024 #define FLOAT        long double
00025 #define FLT          LDBL
00026 #ifdef USE_WIDE_CHAR
00027 # define STRTOF             wcstold_l
00028 # define __STRTOF    __wcstold_l
00029 #else
00030 # define STRTOF             strtold_l
00031 # define __STRTOF    __strtold_l
00032 #endif
00033 #define MPN2FLOAT    __mpn_construct_long_double
00034 #define FLOAT_HUGE_VAL      HUGE_VALL
00035 #define SET_MANTISSA(flt, mant) \
00036   do { union ieee854_long_double u;                                         \
00037        u.d = (flt);                                                  \
00038        if ((mant & 0x7fffffffffffffffULL) == 0)                             \
00039         mant = 0x4000000000000000ULL;                                       \
00040        u.ieee.mantissa0 = (((mant) >> 32) & 0x7fffffff) | 0x80000000;       \
00041        u.ieee.mantissa1 = (mant) & 0xffffffff;                              \
00042        (flt) = u.d;                                                  \
00043   } while (0)
00044 
00045 #include <stdlib/strtod_l.c>