diff options
Diffstat (limited to 'REORG.TODO/sysdeps/ieee754/ldbl-128/e_remainderl.c')
| -rw-r--r-- | REORG.TODO/sysdeps/ieee754/ldbl-128/e_remainderl.c | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/REORG.TODO/sysdeps/ieee754/ldbl-128/e_remainderl.c b/REORG.TODO/sysdeps/ieee754/ldbl-128/e_remainderl.c new file mode 100644 index 0000000000..c1c196ca9a --- /dev/null +++ b/REORG.TODO/sysdeps/ieee754/ldbl-128/e_remainderl.c @@ -0,0 +1,71 @@ +/* e_fmodl.c -- long double version of e_fmod.c. + * Conversion to IEEE quad long double by Jakub Jelinek, jj@ultra.linux.cz. + */ +/* + * ==================================================== + * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. + * + * Developed at SunPro, a Sun Microsystems, Inc. business. + * Permission to use, copy, modify, and distribute this + * software is freely granted, provided that this notice + * is preserved. + * ==================================================== + */ + +/* __ieee754_remainderl(x,p) + * Return : + * returns x REM p = x - [x/p]*p as if in infinite + * precise arithmetic, where [x/p] is the (infinite bit) + * integer nearest x/p (in half way case choose the even one). + * Method : + * Based on fmodl() return x-[x/p]chopped*p exactlp. + */ + +#include <math.h> +#include <math_private.h> + +static const _Float128 zero = 0; + + +_Float128 +__ieee754_remainderl(_Float128 x, _Float128 p) +{ + int64_t hx,hp; + u_int64_t sx,lx,lp; + _Float128 p_half; + + GET_LDOUBLE_WORDS64(hx,lx,x); + GET_LDOUBLE_WORDS64(hp,lp,p); + sx = hx&0x8000000000000000ULL; + hp &= 0x7fffffffffffffffLL; + hx &= 0x7fffffffffffffffLL; + + /* purge off exception values */ + if((hp|lp)==0) return (x*p)/(x*p); /* p = 0 */ + if((hx>=0x7fff000000000000LL)|| /* x not finite */ + ((hp>=0x7fff000000000000LL)&& /* p is NaN */ + (((hp-0x7fff000000000000LL)|lp)!=0))) + return (x*p)/(x*p); + + + if (hp<=0x7ffdffffffffffffLL) x = __ieee754_fmodl(x,p+p); /* now x < 2p */ + if (((hx-hp)|(lx-lp))==0) return zero*x; + x = fabsl(x); + p = fabsl(p); + if (hp<0x0002000000000000LL) { + if(x+x>p) { + x-=p; + if(x+x>=p) x -= p; + } + } else { + p_half = L(0.5)*p; + if(x>p_half) { + x-=p; + if(x>=p_half) x -= p; + } + } + GET_LDOUBLE_MSW64(hx,x); + SET_LDOUBLE_MSW64(x,hx^sx); + return x; +} +strong_alias (__ieee754_remainderl, __remainderl_finite) |