Mercurial > hg > CbC > CbC_gcc

comparison libquadmath/math/asinhq.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents 561a7518be6b
children 1830386684a0
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 /* s_asinhl.c -- long double version of s_asinh.c. 1 /* asinhq.c -- __float128 version of s_asinh.c.
2 * Conversion to long double by Ulrich Drepper, 2 * Conversion to long double by Ulrich Drepper,
3 * Cygnus Support, drepper@cygnus.com. 3 * Cygnus Support, drepper@cygnus.com.
4 */ 4 */
5 5
6 /* 6 /*
44 ix = sign & 0x7fffffff; 44 ix = sign & 0x7fffffff;
45 if (ix == 0x7fff0000) 45 if (ix == 0x7fff0000)
46 return x + x; /* x is inf or NaN */ 46 return x + x; /* x is inf or NaN */
47 if (ix < 0x3fc70000) 47 if (ix < 0x3fc70000)
48 { /* |x| < 2^ -56 */ 48 { /* |x| < 2^ -56 */
49 math_check_force_underflow (x);
49 if (huge + x > one) 50 if (huge + x > one)
50 return x; /* return x inexact except 0 */ 51 return x; /* return x inexact except 0 */
51 } 52 }
52 u.words32.w0 = ix; 53 u.words32.w0 = ix;
53 if (ix > 0x40350000) 54 if (ix > 0x40350000)