s_asinhf.c (2dcc228679cb39677331f1064bedb9eac825a52f) s_asinhf.c (59b19ff14a36bb975819fff8c7bd8648a9b29537)
1/* s_asinhf.c -- float version of s_asinh.c.
2 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3 */
4
5/*
6 * ====================================================
7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8 *

--- 11 unchanged lines hidden (view full) ---

20#include "math.h"
21#include "math_private.h"
22
23static const float
24one = 1.0000000000e+00, /* 0x3F800000 */
25ln2 = 6.9314718246e-01, /* 0x3f317218 */
26huge= 1.0000000000e+30;
27
1/* s_asinhf.c -- float version of s_asinh.c.
2 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3 */
4
5/*
6 * ====================================================
7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8 *

--- 11 unchanged lines hidden (view full) ---

20#include "math.h"
21#include "math_private.h"
22
23static const float
24one = 1.0000000000e+00, /* 0x3F800000 */
25ln2 = 6.9314718246e-01, /* 0x3f317218 */
26huge= 1.0000000000e+30;
27
28 float asinhf(float x)
28float
29asinhf(float x)
29{
30 float t,w;
31 int32_t hx,ix;
32 GET_FLOAT_WORD(hx,x);
33 ix = hx&0x7fffffff;
34 if(ix>=0x7f800000) return x+x; /* x is inf or NaN */
35 if(ix< 0x31800000) { /* |x|<2**-28 */
36 if(huge+x>one) return x; /* return x inexact except 0 */

--- 12 unchanged lines hidden --- 		30{
31 float t,w;
32 int32_t hx,ix;
33 GET_FLOAT_WORD(hx,x);
34 ix = hx&0x7fffffff;
35 if(ix>=0x7f800000) return x+x; /* x is inf or NaN */
36 if(ix< 0x31800000) { /* |x|<2**-28 */
37 if(huge+x>one) return x; /* return x inexact except 0 */

--- 12 unchanged lines hidden ---