1995-02-18 01:27:10 +00:00
|
|
|
/* The actual implementation for all floating point sizes is in strtod.c.
|
|
|
|
|
These macros tell it to produce the `float' version, `strtof'. */
|
|
|
|
|
|
|
|
|
|
#define FLOAT float
|
|
|
|
|
#define FLT FLT
|
1997-05-24 02:30:09 +00:00
|
|
|
#ifdef USE_IN_EXTENDED_LOCALE_MODEL
|
|
|
|
|
# define STRTOF __strtof_l
|
|
|
|
|
#else
|
|
|
|
|
# define STRTOF strtof
|
|
|
|
|
#endif
|
1995-02-18 01:27:10 +00:00
|
|
|
#define MPN2FLOAT __mpn_construct_float
|
1997-02-25 05:18:05 +00:00
|
|
|
#define FLOAT_HUGE_VAL HUGE_VALF
|
1997-03-27 01:59:53 +00:00
|
|
|
#define SET_MANTISSA(flt, mant) \
|
|
|
|
|
do { union ieee754_float u; \
|
|
|
|
|
u.f = (flt); \
|
1997-04-02 14:47:34 +00:00
|
|
|
if ((mant & 0x7fffff) == 0) \
|
|
|
|
|
mant = 0x400000; \
|
1997-03-27 01:59:53 +00:00
|
|
|
u.ieee.mantissa = (mant) & 0x7fffff; \
|
|
|
|
|
(flt) = u.f; \
|
|
|
|
|
} while (0)
|
1995-02-18 01:27:10 +00:00
|
|
|
|
|
|
|
|
#include "strtod.c"
|
