/dragonfly/tools/regression/lib/libm/ |
H A D | test-fma.c | 116 testall(-one, one, one, rd ? -0.0 : 0.0, ALL_STD_EXCEPT, 0); in test_zeroes() 117 testall(one, -one, one, rd ? -0.0 : 0.0, ALL_STD_EXCEPT, 0); in test_zeroes() 118 testall(-one, -one, -one, rd ? -0.0 : 0.0, ALL_STD_EXCEPT, 0); in test_zeroes() 198 test(fmaf, one, one, 0x1.0p-100, 1.0 + FLT_EPSILON, in test_small_z() 200 test(fma, one, one, 0x1.0p-200, 1.0 + DBL_EPSILON, in test_small_z() 202 test(fmal, one, one, 0x1.0p-200, 1.0 + LDBL_EPSILON, in test_small_z() 211 test(fmaf, -one, one, -0x1.0p-100, -(1.0 + FLT_EPSILON), in test_small_z() 213 test(fma, -one, one, -0x1.0p-200, -(1.0 + DBL_EPSILON), in test_small_z() 224 test(fmaf, one, one, -0x1.0p-100, 1.0 - FLT_EPSILON / 2, in test_small_z() 226 test(fma, one, one, -0x1.0p-200, 1.0 - DBL_EPSILON / 2, in test_small_z() [all …]
|
/dragonfly/contrib/gcc-4.7/gcc/ |
H A D | graphite-flattening.c | 185 ppl_Coefficient_t one; in lst_offset() local 190 ppl_new_Coefficient (&one); in lst_offset() 209 ppl_Coefficient_t one; in lst_scale() local 219 ppl_new_Coefficient (&one); in lst_scale() 244 ppl_Coefficient_t one; in lst_project_loop() local 250 ppl_new_Coefficient (&one); in lst_project_loop() 319 mpz_init (one); in lst_flatten_loop() 323 mpz_set_si (one, 1); in lst_flatten_loop() 342 mpz_sub (n, n, one); in lst_flatten_loop() 357 mpz_clear (one); in lst_flatten_loop() [all …]
|
/dragonfly/contrib/openbsd_libm/src/ |
H A D | s_erf.c | 212 s = fabs(x)-one; in erf() 218 if(hx>=0) return one-tiny; else return tiny-one; in erf() 221 s = one/(x*x); in erf() 225 S=one+s*(sa1+s*(sa2+s*(sa3+s*(sa4+s*( in erf() 236 if(hx>=0) return one-r/x; else return r/x-one; in erf() 253 return one-x; in erfc() 259 return one-(x+x*y); in erfc() 267 s = fabs(x)-one; in erfc() 271 z = one-erx; return z - P/Q; in erfc() 273 z = erx+P/Q; return one+z; in erfc() [all …]
|
H A D | s_erff.c | 22 one = 1.0000000000e+00, /* 0x3F800000 */ variable 120 s = fabsf(x)-one; in erff() 126 if(hx>=0) return one-tiny; else return tiny-one; in erff() 129 s = one/(x*x); in erff() 144 if(hx>=0) return one-r/x; else return r/x-one; in erff() 161 return one-x; in erfcf() 167 return one-(x+x*y); in erfcf() 175 s = fabsf(x)-one; in erfcf() 179 z = one-erx; return z - P/Q; in erfcf() 181 z = erx+P/Q; return one+z; in erfcf() [all …]
|
H A D | e_j0.c | 65 one = 1.0, variable 88 if(ix>=0x7ff00000) return one/(x*x); in j0() 119 s = one+z*(S01+z*(S02+z*(S03+z*S04))); in j0() 121 return one + z*(-0.25+(r/s)); in j0() 124 return((one+u)*(one-u)+z*(r/s)); in j0() 150 if(ix>=0x7ff00000) return one/(x+x*x); in y0() 151 if((ix|lx)==0) return -one/zero; in y0() 190 v = one+z*(v01+z*(v02+z*(v03+z*v04))); in y0() 279 z = one/(x*x); in pzero() 282 return one+ r/s; in pzero() [all …]
|
H A D | e_j0f.c | 23 one = 1.0, variable 46 if(ix>=0x7f800000) return one/(x*x); in j0f() 77 s = one+z*(S01+z*(S02+z*(S03+z*S04))); in j0f() 79 return one + z*((float)-0.25+(r/s)); in j0f() 82 return((one+u)*(one-u)+z*(r/s)); in j0f() 108 if(ix>=0x7f800000) return one/(x+x*x); in y0f() 109 if(ix==0) return -one/zero; in y0f() 148 v = one+z*(v01+z*(v02+z*(v03+z*v04))); in y0f() 236 z = one/(x*x); in pzerof() 239 return one+ r/s; in pzerof() [all …]
|
H A D | s_tanhf.c | 19 static const float one=1.0, two=2.0, tiny = 1.0e-30; variable 32 if (jx>=0) return one/x+one; /* tanh(+-inf)=+-1 */ in tanhf() 33 else return one/x-one; /* tanh(NaN) = NaN */ in tanhf() 41 return x*(one+x); /* tanh(small) = small */ in tanhf() 44 z = one - two/(t+two); in tanhf() 51 z = one - tiny; /* raised inexact flag */ in tanhf()
|
H A D | s_tanh.c | 42 static const double one=1.0, two=2.0, tiny = 1.0e-300; variable 56 if (jx>=0) return one/x+one; /* tanh(+-inf)=+-1 */ in tanh() 57 else return one/x-one; /* tanh(NaN) = NaN */ in tanh() 65 return x*(one+x); /* tanh(small) = small */ in tanh() 68 z = one - two/(t+two); in tanh() 75 z = one - tiny; /* raised inexact flag */ in tanh()
|
H A D | e_j1.c | 65 one = 1.0, variable 89 if(ix>=0x7ff00000) return one/x; in j1() 118 s = one+z*(s01+z*(s02+z*(s03+z*(s04+z*s05)))); in j1() 147 if(ix>=0x7ff00000) return one/(x+x*x); in y1() 148 if((ix|lx)==0) return -one/zero; in y1() 184 return(x*(u/v) + tpi*(j1(x)*log(x)-one/x)); in y1() 273 z = one/(x*x); in pone() 275 s = one+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*q[4])))); in pone() 276 return one+ r/s; in pone() 370 z = one/(x*x); in qone() [all …]
|
H A D | e_j1f.c | 23 one = 1.0, variable 47 if(ix>=0x7f800000) return one/x; in j1f() 76 s = one+z*(s01+z*(s02+z*(s03+z*(s04+z*s05)))); in j1f() 105 if(ix>=0x7f800000) return one/(x+x*x); in y1f() 106 if(ix==0) return -one/zero; in y1f() 142 return(x*(u/v) + tpi*(j1f(x)*logf(x)-one/x)); in y1f() 231 z = one/(x*x); in ponef() 233 s = one+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*q[4])))); in ponef() 234 return one+ r/s; in ponef() 328 z = one/(x*x); in qonef() [all …]
|
H A D | e_lgamma_r.c | 214 return one/zero; in lgamma_r() 224 return one/zero; in lgamma_r() 226 if(t==zero) return one/zero; /* -integer */ in lgamma_r() 238 if(ix>=0x3FE76944) {y = one-x; i= 0;} in lgamma_r() 239 else if(ix>=0x3FCDA661) {y= x-(tc-one); i=1;} in lgamma_r() 245 else {y=x-one;i=2;} in lgamma_r() 264 p2 = one+y*(v1+y*(v2+y*(v3+y*(v4+y*v5)))); in lgamma_r() 275 z = one; /* lgamma(1+s) = log(s) + lgamma(s) */ in lgamma_r() 287 z = one/x; in lgamma_r() 290 r = (x-half)*(t-one)+w; in lgamma_r() [all …]
|
H A D | e_lgammaf_r.c | 22 one = 1.0000000000e+00, /* 0x3f800000 */ variable 150 return one/zero; in lgammaf_r() 160 return one/zero; in lgammaf_r() 162 if(t==zero) return one/zero; /* -integer */ in lgammaf_r() 174 if(ix>=0x3f3b4a20) {y = one-x; i= 0;} in lgammaf_r() 175 else if(ix>=0x3e6d3308) {y= x-(tc-one); i=1;} in lgammaf_r() 181 else {y=x-one;i=2;} in lgammaf_r() 200 p2 = one+y*(v1+y*(v2+y*(v3+y*(v4+y*v5)))); in lgammaf_r() 223 z = one/x; in lgammaf_r() 226 r = (x-half)*(t-one)+w; in lgammaf_r() [all …]
|
H A D | b_tgamma.c | 140 return (one/x); in tgamma() 170 z = one/(x*x); in large_gam() 175 u.a -= one; in large_gam() 199 y = x - one; in small_gam() 200 ym1 = y - one; in small_gam() 207 yy.a = r.a - one; in small_gam() 242 t = (one-x0); t += x; in smaller_gam() 243 d = (one-x0); d -= t; d += x; in smaller_gam() 304 z = one - z; in neg_gam() 327 y = one-x; in neg_gam() [all …]
|
H A D | s_asinhf.c | 20 one = 1.0000000000e+00, /* 0x3F800000 */ variable 33 if(huge+x>one) return x; /* return x inexact except 0 */ in asinhf() 39 w = logf((float)2.0*t+one/(sqrtf(x*x+one)+t)); in asinhf() 42 w =log1pf(fabsf(x)+t/(one+sqrtf(one+t))); in asinhf()
|
H A D | s_asinh.c | 30 one = 1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */ variable 43 if(huge+x>one) return x; /* return x inexact except 0 */ in asinh() 49 w = log(2.0*t+one/(sqrt(x*x+one)+t)); in asinh() 52 w =log1p(fabs(x)+t/(one+sqrt(one+t))); in asinh()
|
H A D | s_expm1.c | 114 one = 1.0, variable 154 return tiny-one; /* return -1 */ in expm1() 183 r1 = one+hxs*(Q1+hxs*(Q2+hxs*(Q3+hxs*(Q4+hxs*Q5)))); in expm1() 193 else return one+2.0*(x-e); in expm1() 197 y = one-(e-x); in expm1() 200 return y-one; in expm1() 202 t = one; in expm1() 213 y += one; in expm1()
|
H A D | s_expm1f.c | 22 one = 1.0, variable 57 return tiny-one; /* return -1 */ in expm1f() 86 r1 = one+hxs*(Q1+hxs*(Q2+hxs*(Q3+hxs*(Q4+hxs*Q5)))); in expm1f() 96 else return one+(float)2.0*(x-e); in expm1f() 100 y = one-(e-x); in expm1f() 103 return y-one; in expm1f() 105 t = one; in expm1f() 116 y += one; in expm1f()
|
H A D | s_atanf.c | 48 one = 1.0, variable 66 if(huge+x>one) return x; /* raise inexact */ in atanf() 73 id = 0; x = ((float)2.0*x-one)/((float)2.0+x); in atanf() 75 id = 1; x = (x-one)/(x+one); in atanf() 79 id = 2; x = (x-(float)1.5)/(one+(float)1.5*x); in atanf()
|
H A D | s_atan.c | 67 one = 1.0, variable 88 if(huge+x>one) return x; /* raise inexact */ in atan() 95 id = 0; x = (2.0*x-one)/(2.0+x); in atan() 97 id = 1; x = (x-one)/(x+one); in atan() 101 id = 2; x = (x-1.5)/(one+1.5*x); in atan()
|
H A D | e_powf.c | 26 one = 1.0, variable 65 if(iy==0) return one; in powf() 68 if (hx==0x3f800000) return one; in powf() 93 return one; /* (-1)**+-inf is NaN */ in powf() 100 if(hy<0) return one/x; else return x; in powf() 112 if(hy<0) z = one/z; /* z = (1/|x|) */ in powf() 132 t = ax-one; /* t has 20 trailing zeros */ in powf() 157 v = one/(ax+bp[k]); in powf() 193 s = one; /* s (sign of result -ve**odd) = -1 else = 1 */ in powf() 195 s = -one; /* (-ve)**(odd int) */ in powf() [all …]
|
/dragonfly/contrib/openbsd_libm/src/ld80/ |
H A D | s_tanhl.c | 41 static const long double one=1.0, two=2.0, tiny = 1.0e-4900L; variable 57 if (se&0x8000) return one/x-one; /* tanhl(-inf)= -1; */ in tanhl() 58 else return one/x+one; /* tanhl(+inf)=+1 */ in tanhl() 66 return x*(one+tiny); /* tanh(small) = small */ in tanhl() 69 z = one - two/(t+two); in tanhl() 76 z = one - tiny; /* raised inexact flag */ in tanhl()
|
H A D | s_erfl.c | 109 one = 1.0L, variable 283 s = fabsl (x) - one; in erfl() 296 return one - tiny; in erfl() 298 return tiny - one; in erfl() 301 s = one / (x * x); in erfl() 323 return one - r / x; in erfl() 325 return r / x - one; in erfl() 347 return one - x; in erfcl() 374 z = one - erx; in erfcl() 380 return one + z; in erfcl() [all …]
|
H A D | s_asinhl.c | 29 one = 1.000000000000000000000e+00L, /* 0x3FFF, 0x00000000, 0x00000000 */ variable 42 if(huge+x>one) return x; /* return x inexact except 0 */ in asinhl() 48 w = logl(2.0*t+one/(sqrtl(x*x+one)+t)); in asinhl() 51 w =log1pl(fabsl(x)+t/(one+sqrtl(one+t))); in asinhl()
|
H A D | e_lgammal.c | 95 one = 1.0L, variable 254 y = sinl (pi * (one - y)); in sin_pi() 283 return one / fabsl (x); in lgammal() 306 return one / fabsl (t); /* -integer */ in lgammal() 326 y = x - one; in lgammal() 331 y = x - (tc - one); in lgammal() 359 y = x - one; in lgammal() 392 z = one; /* lgamma(1+s) = log(s) + lgamma(s) */ in lgammal() 413 z = one / x; in lgammal() 417 r = (x - half) * (t - one) + w; in lgammal() [all …]
|
/dragonfly/usr.bin/ctags/test/ |
H A D | ctags.test | 17 char qq[] = " quote(one,two) {int bar;} "; 38 multiple(one,two); \ 40 callroute(one,two); \ 50 routine1(one,two) /* comments here are fun... */ 54 } *one; 59 five(one,two); 61 routine2 (one,two) { puts("hello\n"); } 63 (one, 65 routine4(int one, char (*two)(void)) /* test ANSI arguments */
|