strtod.c (bison-3.8.1.tar.xz) | : | strtod.c (bison-3.8.2.tar.xz) | ||
---|---|---|---|---|
skipping to change at line 109 | skipping to change at line 109 | |||
point = localeconv () -> decimal_point; | point = localeconv () -> decimal_point; | |||
#endif | #endif | |||
/* The decimal point is always a single byte: either '.' or ','. */ | /* The decimal point is always a single byte: either '.' or ','. */ | |||
return (point[0] != '\0' ? point[0] : '.'); | return (point[0] != '\0' ? point[0] : '.'); | |||
} | } | |||
#if !USE_LDEXP | #if !USE_LDEXP | |||
#undef LDEXP | #undef LDEXP | |||
#define LDEXP dummy_ldexp | #define LDEXP dummy_ldexp | |||
/* A dummy definition that will never be invoked. */ | /* A dummy definition that will never be invoked. */ | |||
static DOUBLE LDEXP (DOUBLE x _GL_UNUSED, int exponent _GL_UNUSED) | static DOUBLE LDEXP (_GL_UNUSED DOUBLE x, _GL_UNUSED int exponent) | |||
{ | { | |||
abort (); | abort (); | |||
return L_(0.0); | return L_(0.0); | |||
} | } | |||
#endif | #endif | |||
/* Return X * BASE**EXPONENT. Return an extreme value and set errno | /* Return X * BASE**EXPONENT. Return an extreme value and set errno | |||
to ERANGE if underflow or overflow occurs. */ | to ERANGE if underflow or overflow occurs. */ | |||
static DOUBLE | static DOUBLE | |||
scale_radix_exp (DOUBLE x, int radix, long int exponent) | scale_radix_exp (DOUBLE x, int radix, long int exponent) | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |