/illumos-gate/usr/src/lib/libm/common/Q/ |
H A D | acosl.c | 51 static const long double zero = 0.0L, one = 1.0L; variable 57 else if (fabsl(x) < one) 58 x = atanl(sqrtl((one - x) / (one + x))); 59 else if (x == -one) 60 x = atan2l(one, zero); /* x <- PI */ 61 else if (x == one)
|
H A D | atanhl.c | 50 static const long double zero = 0.0L, half = 0.5L, one = 1.0L; variable 57 if (t == one) 59 t = t / (one - t);
|
H A D | acoshl.c | 37 one = 1.0L, variable 48 else if (x > one) { 49 t = sqrtl(x - one); 50 return (log1pl(t * (t + sqrtl(x + one)))); 51 } else if (x == one)
|
H A D | asinhl.c | 36 one = 1.0L, variable 56 t = one / w; 57 return (copysignl(log1pl(w + w / (t + sqrtl(one + t * t))), x));
|
H A D | log2l.c | 50 one = 1.0L, variable 64 return (n - one);
|
H A D | rintl.c | 45 static const double one = 1.0; variable 57 if (*(int *) &one != 0) { /* set two112 = 2^112 */
|
H A D | asinl.c | 46 static const long double zero = 0.0L, small = 1.0e-20L, half = 0.5L, one = 1.0L; variable 69 return (atanl(x / sqrtl(one - x * x))); 70 } else if (w < one) { 71 t = one - w; 74 } else if (w == one)
|
/illumos-gate/usr/src/lib/libm/common/C/ |
H A D | acosh.c | 54 one = 1.0, variable 89 return (log(2.0 * x - one / (x + sqrt(t - one)))); 92 t = x - one;
|
H A D | rint.c | 53 one = 1.0; variable 65 return (x * one);
|
H A D | asinh.c | 50 /* one */ 1.00000000000000000000e+00, /* 3FF00000, 00000000 */ 54 #define one xxx[0] macro 73 if (huge + x > one) 81 w = log(2.0 * t + one / (sqrt(x * x + one) + t)); 85 w = log1p(fabs(x) + t / (one + sqrt(one + t)));
|
H A D | ceil.c | 42 one = 1.0, variable 54 return (x * one); 62 return ((hx < 0)? -zero : one); 64 return ((t >= x)? t : t + one);
|
H A D | exp2.c | 54 #define one C[1] macro 80 return (one + x);
|
H A D | floor.c | 42 one = 1.0, variable 54 return (x * one); 62 return ((hx < 0)? -one : zero); 64 return ((t <= x)? t : t - one);
|
H A D | tanh.c | 63 one = 1.0, variable 79 z = one; 81 if (t > one) 82 z = one - two / (expm1(t + t) + two);
|
/illumos-gate/usr/src/lib/libm/amd64/src/ |
H A D | powl.s | 66 one: label 191 fdivrs PIC_L(one) / 1/x , y , x 254 fadds PIC_L(one) / 2**(t-[t]) , [t] , y , x 289 flds PIC_L(one) / 1 , |x| , y , x 299 flds PIC_L(one) / 1 , |x| , y , x 387 fdivrs PIC_L(one) / 1/0
|
/illumos-gate/usr/src/lib/libm/common/LD/ |
H A D | acoshl.c | 37 one = 1.0L, variable 48 else if (x > one) { 49 t = sqrtl(x - one); 50 return (log1pl(t * (t + sqrtl(x + one)))); 51 } else if (x == one)
|
H A D | asinhl.c | 36 one = 1.0L, variable 56 t = one / w; 57 return (copysignl(log1pl(w + w / (t + sqrtl(one + t * t))), x));
|
H A D | atanhl.c | 63 one = (GENERIC) 1.0; variable 70 if (t == one) return x/zero; 71 t = t/(one-t);
|
H A D | sinhl.c | 68 #define one C[1] macro 82 r = copysignl((t + t / (one + t)) * half, x);
|
H A D | coshl.c | 54 * 0.3465 a number that is near one half of ln2. 78 #define one C[1] macro 94 return (one + w); /* inexact+directed rounding */ 96 w = one + t; 97 w = one + (t * t) / (w + w); 102 return (half * (t + one / t));
|
H A D | tanhl.c | 63 static const long double small = 1.0e-20L, one = 1.0, two = 2.0, variable 81 z = one; 83 if (t > one) 84 z = one - two / (expm1l(t + t) + two); 96 return (copysignl(one, x));
|
/illumos-gate/usr/src/lib/libm/i386/src/ |
H A D | pow.s | 69 one: label 165 fcoms PIC_L(one) / y , x 213 fdivrs PIC_L(one) / 1/x , y , x 270 fadds PIC_L(one) / 2**(t-[t]) , [t] , y , x 330 fcomps PIC_L(one) / y , x 340 fcomps PIC_L(one) / y , x
|
H A D | powf.s | 70 one: label 151 fcoms PIC_L(one) / y , x 199 fdivrs PIC_L(one) / 1/x , y , x 269 fadds PIC_L(one) / 2**(t-[t]) , [t] , y , x 309 fcomps PIC_L(one) / y , x 319 fcomps PIC_L(one) / y , x 410 fdivrs PIC_L(one) / 1/0
|
H A D | powl.s | 66 one: label 147 fcoms PIC_L(one) / y , x 195 fdivrs PIC_L(one) / 1/x , y , x 265 fadds PIC_L(one) / 2**(t-[t]) , [t] , y , x 301 fcomps PIC_L(one) / y , x 311 fcomps PIC_L(one) / y , x 402 fdivrs PIC_L(one) / 1/0
|
/illumos-gate/usr/src/lib/libast/common/uwin/ |
H A D | asinh.c | 93 one =1.0 ; local 98 if((t=copysign(x,one))>small) 100 s=one/t; return(copysign(log1p(t+t/(s+sqrt(one+s*s))),x)); }
|