# define MAX_DIG_PER_LIMB 19
# define MAX_FAC_PER_LIMB 10000000000000000000L
#else
-# error "mp_limb size " BITS_PER_MP_LIMB "not accounted for"
+# error "mp_limb size " BITS_PER_MP_LIMB "not accounted for"
#endif
#define RETURN(val,end) \
do { if (endptr != 0) *endptr = (char *) (end); return val; } while (0)
-/* Maximum size necessary for mpn integers to hold floating point numbers. */
+/* Maximum size necessary for mpn integers to hold floating point numbers. */
#define MPNSIZE (howmany (MAX_EXP + 2 * MANT_DIG, BITS_PER_MP_LIMB) \
+ 2)
/* Declare an mpn integer variable that big. */
{
errno = ERANGE;
return 0.0;
- }
+ }
if (int_no > 0)
{
dig_no -= lead_zero;
}
- /* Read the fractional digits from the string. */
+ /* Read the fractional digits from the string. */
(void) str_to_mpn (startp, dig_no - int_no, num, &numsize, &exponent);
have_quot:
got_limb;
}
-
+
return round_and_return (retval, exponent - 1, negative,
quot, BITS_PER_MP_LIMB - 1 - used,
more_bits || n1 != 0 || n0 != 0);
\f
/* External user entry point. */
-#define weak_this(x) weak_symbol(x)
-weak_this (STRTOF)
-
FLOAT
STRTOF (nptr, endptr)
const char *nptr;
{
return INTERNAL (STRTOF) (nptr, endptr, 0);
}
+
+#define weak_this(x) weak_symbol(x)
+weak_this (STRTOF)