|
Packit |
6c4009 |
/* s_floorl.c -- long double version of s_floor.c.
|
|
Packit |
6c4009 |
* Conversion to IEEE quad long double by Jakub Jelinek, jj@ultra.linux.cz.
|
|
Packit |
6c4009 |
*/
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/*
|
|
Packit |
6c4009 |
* ====================================================
|
|
Packit |
6c4009 |
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
|
|
Packit |
6c4009 |
*
|
|
Packit |
6c4009 |
* Developed at SunPro, a Sun Microsystems, Inc. business.
|
|
Packit |
6c4009 |
* Permission to use, copy, modify, and distribute this
|
|
Packit |
6c4009 |
* software is freely granted, provided that this notice
|
|
Packit |
6c4009 |
* is preserved.
|
|
Packit |
6c4009 |
* ====================================================
|
|
Packit |
6c4009 |
*/
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
#if defined(LIBM_SCCS) && !defined(lint)
|
|
Packit |
6c4009 |
static char rcsid[] = "$NetBSD: $";
|
|
Packit |
6c4009 |
#endif
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
/*
|
|
Packit |
6c4009 |
* floorl(x)
|
|
Packit |
6c4009 |
* Return x rounded toward -inf to integral value
|
|
Packit |
6c4009 |
* Method:
|
|
Packit |
6c4009 |
* Bit twiddling.
|
|
Packit |
6c4009 |
*/
|
|
Packit |
6c4009 |
|
|
Packit |
6c4009 |
#include <math.h>
|
|
Packit |
6c4009 |
#include <math_private.h>
|
|
Packit |
6c4009 |
#include <libm-alias-ldouble.h>
|
|
Packit Service |
9b8821 |
#include <math-use-builtins.h>
|
|
Packit |
6c4009 |
|
|
Packit Service |
562438 |
_Float128 __floorl(_Float128 x)
|
|
Packit |
6c4009 |
{
|
|
Packit Service |
9b8821 |
#if USE_FLOORL_BUILTIN
|
|
Packit Service |
9b8821 |
return __builtin_floorl (x);
|
|
Packit Service |
9b8821 |
#else
|
|
Packit Service |
9b8821 |
/* Use generic implementation. */
|
|
Packit Service |
562438 |
int64_t i0,i1,j0;
|
|
Packit Service |
562438 |
uint64_t i,j;
|
|
Packit Service |
562438 |
GET_LDOUBLE_WORDS64(i0,i1,x);
|
|
Packit Service |
562438 |
j0 = ((i0>>48)&0x7fff)-0x3fff;
|
|
Packit Service |
562438 |
if(j0<48) {
|
|
Packit Service |
562438 |
if(j0<0) {
|
|
Packit Service |
562438 |
/* return 0*sign(x) if |x|<1 */
|
|
Packit Service |
562438 |
if(i0>=0) {i0=i1=0;}
|
|
Packit Service |
562438 |
else if(((i0&0x7fffffffffffffffLL)|i1)!=0)
|
|
Packit Service |
562438 |
{ i0=0xbfff000000000000ULL;i1=0;}
|
|
Packit Service |
562438 |
} else {
|
|
Packit Service |
562438 |
i = (0x0000ffffffffffffULL)>>j0;
|
|
Packit Service |
562438 |
if(((i0&i)|i1)==0) return x; /* x is integral */
|
|
Packit Service |
562438 |
if(i0<0) i0 += (0x0001000000000000LL)>>j0;
|
|
Packit Service |
562438 |
i0 &= (~i); i1=0;
|
|
Packit |
6c4009 |
}
|
|
Packit Service |
562438 |
} else if (j0>111) {
|
|
Packit Service |
562438 |
if(j0==0x4000) return x+x; /* inf or NaN */
|
|
Packit Service |
562438 |
else return x; /* x is integral */
|
|
Packit Service |
562438 |
} else {
|
|
Packit Service |
562438 |
i = -1ULL>>(j0-48);
|
|
Packit Service |
562438 |
if((i1&i)==0) return x; /* x is integral */
|
|
Packit Service |
562438 |
if(i0<0) {
|
|
Packit Service |
562438 |
if(j0==48) i0+=1;
|
|
Packit Service |
562438 |
else {
|
|
Packit Service |
562438 |
j = i1+(1LL<<(112-j0));
|
|
Packit Service |
562438 |
if(j
|
|
Packit Service |
562438 |
i1=j;
|
|
Packit Service |
562438 |
}
|
|
Packit |
6c4009 |
}
|
|
Packit Service |
562438 |
i1 &= (~i);
|
|
Packit |
6c4009 |
}
|
|
Packit Service |
562438 |
SET_LDOUBLE_WORDS64(x,i0,i1);
|
|
Packit Service |
562438 |
return x;
|
|
Packit Service |
9b8821 |
#endif /* ! USE_FLOORL_BUILTIN */
|
|
Packit |
6c4009 |
}
|
|
Packit |
6c4009 |
libm_alias_ldouble (__floor, floor)
|