Back to index

glibc  2.9
strtold_l.c
Go to the documentation of this file.
00001 /* Copyright (C) 1999, 2004 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        u.ieee.mantissa0 = 0x8000;                                    \
00039        u.ieee.mantissa1 = 0;                                                \
00040        u.ieee.mantissa2 = ((mant) >> 32);                            \
00041        u.ieee.mantissa3 = (mant) & 0xffffffff;                              \
00042        (flt) = u.d;                                                  \
00043   } while (0)
00044 
00045 #include <strtod_l.c>