Message ID | 20200821003539.942952-3-keithp@keithp.com |
---|---|
State | New |
Headers | show |
Series |
|
Related | show |
diff --git a/newlib/libm/common/sqrtl.c b/newlib/libm/common/sqrtl.c index e58255724..234f1b7a3 100644 --- a/newlib/libm/common/sqrtl.c +++ b/newlib/libm/common/sqrtl.c @@ -98,25 +98,6 @@ inc (long double x) return ux.extu_ld; } -/* Return (x - ulp) for normal positive x. Assumes no underflow. */ - -static inline long double -dec (long double x) -{ - union ieee_ext_u ux = { .extu_ld = x, }; - - if (ux.extu_ext.ext_fracl-- == 0) - { - if (ux.extu_ext.ext_frach-- == LDBL_NBIT) - { - ux.extu_ext.ext_exp--; - ux.extu_ext.ext_frach |= LDBL_NBIT; - } - } - - return ux.extu_ld; -} - /* This is slow, but simple and portable. */ long double
This function is not used. Signed-off-by: Keith Packard <keithp@keithp.com> --- newlib/libm/common/sqrtl.c | 19 ------------------- 1 file changed, 19 deletions(-) -- 2.28.0