mirror/glibc
2
0
Fork 0
mirror of git://sourceware.org/git/glibc.git synced 2025-03-07 13:28:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

Adjust s_nearbyintf.c and s_nearbyintl.c regarding code style.

Browse Source 
This patch just adjusts the generic implementation regarding code style.
No functional change.

Reviewed-by: Adhemerval Zanella <adhemerval.zanella@linaro.org>
This commit is contained in:
Stefan Liebler 2019-12-11 15:09:25 +01:00
parent f818afdd3b
commit 6a3866dae9
2 changed files with 68 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
sysdeps/ieee754/flt-32/s_nearbyintf.c
View File

@ -24,7 +24,7 @@
#include <math-use-builtins.h>
float
__nearbyintf(float x)
__nearbyintf (float x)
{
#if USE_NEARBYINTF_BUILTIN
return __builtin_nearbyintf (x);
@ -35,33 +35,39 @@ __nearbyintf(float x)
8.3886080000e+06, /* 0x4b000000 */
-8.3886080000e+06, /* 0xcb000000 */
};
fenv_t env;
int32_t i0,j0,sx;
float w,t;
GET_FLOAT_WORD(i0,x);
sx = (i0>>31)&1;
j0 = ((i0>>23)&0xff)-0x7f;
if(j0<23) {
if(j0<0) {
libc_feholdexceptf (&env);
w = TWO23[sx] + math_opt_barrier (x);
t = w-TWO23[sx];
math_force_eval (t);
libc_fesetenvf (&env);
GET_FLOAT_WORD(i0,t);
SET_FLOAT_WORD(t,(i0&0x7fffffff)|(sx<<31));
return t;
}
} else {
if(__builtin_expect(j0==0x80, 0)) return x+x; /* inf or NaN */
else return x; /* x is integral */
fenv_t env;
int32_t i0, j0, sx;
float w, t;
GET_FLOAT_WORD (i0, x);
sx = (i0 >> 31) & 1;
j0 = ((i0 >> 23) & 0xff) - 0x7f;
if (j0 < 23)
{
if (j0 < 0)
{
libc_feholdexceptf (&env);
w = TWO23[sx] + math_opt_barrier (x);
t = w - TWO23[sx];
math_force_eval (t);
libc_fesetenvf (&env);
GET_FLOAT_WORD (i0, t);
SET_FLOAT_WORD (t, (i0 & 0x7fffffff) | (sx << 31));
return t;
}
libc_feholdexceptf (&env);
w = TWO23[sx] + math_opt_barrier (x);
t = w-TWO23[sx];
math_force_eval (t);
libc_fesetenvf (&env);
return t;
}
else
{
if (__glibc_unlikely (j0 == 0x80))
return x + x; /* inf or NaN */
else
return x; /* x is integral */
}
libc_feholdexceptf (&env);
w = TWO23[sx] + math_opt_barrier (x);
t = w - TWO23[sx];
math_force_eval (t);
libc_fesetenvf (&env);
return t;
#endif /* ! USE_NEARBYINT_BUILTIN */
}
libm_alias_float (__nearbyint, nearbyint)

63
sysdeps/ieee754/ldbl-128/s_nearbyintl.c
View File

@ -30,7 +30,8 @@
#include <libm-alias-ldouble.h>
#include <math-use-builtins.h>
_Float128 __nearbyintl(_Float128 x)
_Float128
__nearbyintl (_Float128 x)
{
#if USE_NEARBYINTL_BUILTIN
return __builtin_nearbyintl (x);
@ -41,34 +42,40 @@ _Float128 __nearbyintl(_Float128 x)
L(5.19229685853482762853049632922009600E+33), /* 0x406F000000000000, 0 */
L(-5.19229685853482762853049632922009600E+33) /* 0xC06F000000000000, 0 */
};
fenv_t env;
int64_t i0,j0,sx;
uint64_t i1 __attribute__ ((unused));
_Float128 w,t;
GET_LDOUBLE_WORDS64(i0,i1,x);
sx = (((uint64_t)i0)>>63);
j0 = ((i0>>48)&0x7fff)-0x3fff;
if(j0<112) {
if(j0<0) {
feholdexcept (&env);
w = TWO112[sx] + math_opt_barrier (x);
t = w-TWO112[sx];
math_force_eval (t);
fesetenv (&env);
GET_LDOUBLE_MSW64(i0,t);
SET_LDOUBLE_MSW64(t,(i0&0x7fffffffffffffffLL)|(sx<<63));
return t;
}
} else {
if(j0==0x4000) return x+x; /* inf or NaN */
else return x; /* x is integral */
fenv_t env;
int64_t i0, j0, sx;
uint64_t i1 __attribute__ ((unused));
_Float128 w, t;
GET_LDOUBLE_WORDS64 (i0, i1, x);
sx = (((uint64_t) i0) >> 63);
j0 = ((i0 >> 48) & 0x7fff) - 0x3fff;
if (j0 < 112)
{
if (j0 < 0)
{
feholdexcept (&env);
w = TWO112[sx] + math_opt_barrier (x);
t = w - TWO112[sx];
math_force_eval (t);
fesetenv (&env);
GET_LDOUBLE_MSW64 (i0, t);
SET_LDOUBLE_MSW64 (t, (i0 & 0x7fffffffffffffffLL) | (sx << 63));
return t;
}
feholdexcept (&env);
w = TWO112[sx] + math_opt_barrier (x);
t = w-TWO112[sx];
math_force_eval (t);
fesetenv (&env);
return t;
}
else
{
if (j0 == 0x4000)
return x + x; /* inf or NaN */
else
return x; /* x is integral */
}
feholdexcept (&env);
w = TWO112[sx] + math_opt_barrier (x);
t = w - TWO112[sx];
math_force_eval (t);
fesetenv (&env);
return t;
#endif /* ! USE_NEARBYINTL_BUILTIN */
}
libm_alias_ldouble (__nearbyint, nearbyint)