| /src/lib/libm/src/ |
| s_copysignf.c | 33 u_int32_t ix,iy; local in function:copysignf
35 GET_FLOAT_WORD(iy,y);
36 SET_FLOAT_WORD(x,(ix&0x7fffffff)|(iy&0x80000000));
|
| s_nextafterf.c | 27 int32_t hx,hy,ix,iy; local in function:nextafterf
32 iy = hy&0x7fffffff; /* |y| */
35 (iy>0x7f800000)) /* y is nan */
|
| s_nextafter.c | 37 int32_t hx,hy,ix,iy; local in function:__strong_alias
43 iy = hy&0x7fffffff; /* |y| */
46 ((iy>=0x7ff00000)&&((iy-0x7ff00000)|ly)!=0)) /* y is nan */
|
| e_atan2f.c | 36 int32_t k,m,hx,hy,ix,iy; local in function:__ieee754_atan2f
41 iy = hy&0x7fffffff;
43 (iy>0x7f800000)) /* x or y is NaN */
49 if(iy==0) {
62 if(iy==0x7f800000) {
79 if(iy==0x7f800000) return (hy<0)? -pi_o_2-tiny: pi_o_2+tiny;
82 k = (iy-ix)>>23;
|
| e_fmod.c | 36 int32_t n,hx,hy,hz,ix,iy,sx,i; local in function:__strong_alias
64 /* determine iy = ilogb(y) */
67 for (iy = -1043, i=ly; i>0; i<<=1) iy -=1;
69 for (iy = -1022,i=(hy<<11); i>0; i<<=1) iy -=1;
71 } else iy = (hy>>20)-1023;
86 if(iy >= -1022)
89 n = -1022-iy;
100 n = ix - iy;
[all...] |
| e_fmodf.c | 35 int32_t n,hx,hy,hz,ix,iy,sx,i; local in function:__ieee754_fmodf
56 /* determine iy = ilogb(y) */
58 for (iy = -126,i=(hy<<8); i>=0; i<<=1) iy -=1;
59 } else iy = (hy>>23)-127;
68 if(iy >= -126)
71 n = -126-iy;
76 n = ix - iy;
94 iy -= 1;
96 if(iy>= -126) { /* normalize output *
[all...] |
| s_remquof.c | 37 int32_t n,hx,hy,hz,ix,iy,sx,i; local in function:remquof
63 /* determine iy = ilogb(y) */
65 for (iy = -126,i=(hy<<8); i>0; i<<=1) iy -=1;
66 } else iy = (hy>>23)-127;
75 if(iy >= -126)
78 n = -126-iy;
83 n = ix - iy;
101 iy -= 1;
103 if(iy>= -126) { /* normalize output *
[all...] |
| s_remquo.c | 39 int32_t n,hx,hy,hz,ix,iy,sx,i; local in function:remquo
73 /* determine iy = ilogb(y) */
76 for (iy = -1043, i=ly; i>0; i<<=1) iy -=1;
78 for (iy = -1022,i=(hy<<11); i>0; i<<=1) iy -=1;
80 } else iy = (hy>>20)-1023;
95 if(iy >= -1022)
98 n = -1022-iy;
109 n = ix - iy;
[all...] |
| e_atan2.c | 22 * ARG (x+iy) = arctan(y/x) ... if x > 0,
23 * ARG (x+iy) = pi - arctan[y/(-x)] ... if x < 0,
60 int32_t k,m,hx,hy,ix,iy; local in function:__ieee754_atan2
66 iy = hy&0x7fffffff;
68 ((iy|((ly|-ly)>>31))>0x7ff00000)) /* x or y is NaN */
74 if((iy|ly)==0) {
87 if(iy==0x7ff00000) {
104 if(iy==0x7ff00000) return (hy<0)? -pi_o_2-tiny: pi_o_2+tiny;
107 k = (iy-ix)>>20;
|
| e_fmodl.c | 80 int ix,iy,n,sx; local in function:__ieee754_fmodl
110 /* determine iy = ilogb(y) */
113 iy = uy.extu_exp - (BIAS + 512);
115 iy = uy.extu_exp - BIAS;
125 n = ix - iy;
144 iy -= 1;
148 if (iy < LDBL_MIN_EXP) {
149 ux.extu_exp = iy + (BIAS + 512);
152 ux.extu_exp = iy + BIAS;
|
| s_remquol.c | 84 int ix,iy,n,q,sx,sxy; local in function:remquol
121 /* determine iy = ilogb(y) */
124 iy = uy.extu_exp - (BIAS + 512);
126 iy = uy.extu_exp - BIAS;
136 n = ix - iy;
155 iy -= 1;
159 if (iy < LDBL_MIN_EXP) {
160 ux.extu_exp = iy + (BIAS + 512);
163 ux.extu_exp = iy + BIAS;
|
| e_pow.c | 105 int32_t hx,hy,ix,iy; local in function:__ieee754_pow
110 ix = hx&0x7fffffff; iy = hy&0x7fffffff;
113 if((iy|ly)==0) return one;
120 iy > 0x7ff00000 || ((iy==0x7ff00000)&&(ly!=0)))
130 if(iy>=0x43400000) yisint = 2; /* even integer y */
131 else if(iy>=0x3ff00000) {
132 k = (iy>>20)-0x3ff; /* exponent */
137 j = iy>>(20-k);
138 if((j<<(20-k))==iy) yisint = 2-(j&1)
[all...] |
| e_powf.c | 64 int32_t hx,hy,ix,iy,is; local in function:__ieee754_powf
68 ix = hx&0x7fffffff; iy = hy&0x7fffffff;
71 if(iy==0) return one;
78 iy > 0x7f800000)
88 if(iy>=0x4b800000) yisint = 2; /* even integer y */
89 else if(iy>=0x3f800000) {
90 k = ((uint32_t)iy>>23)-0x7f; /* exponent */
91 j = (uint32_t)iy>>(23-k);
92 if((j<<(23-k))==iy) yisint = 2-(j&1);
97 if (iy==0x7f800000) { /* y is +-inf *
[all...] |
| /src/games/trek/ |
| visual.c | 73 int ix, iy; local in function:visual
83 iy = Ship.secty + v->y;
84 if (ix < 0 || ix >= NSECTS || iy < 0 || iy >= NSECTS)
87 co = Sect[ix][iy];
88 printf("%d,%d %c ", ix, iy, co);
91 iy = Ship.secty + v->y;
92 if (ix < 0 || ix >= NSECTS || iy < 0 || iy >= NSECTS)
95 co = Sect[ix][iy];
[all...] |
| snova.c | 49 ** otherwise, the current quadrant is taken, and (ix, iy) give
70 int ix, iy = 0; local in function:snova
91 for (iy = 0; iy < NSECTS; iy++)
92 if (Sect[ix][iy] == STAR ||
93 Sect[ix][iy] == INHABIT)
103 iy = y;
111 printf("\a\nRED ALERT: supernova occurring at %d,%d\n", ix, iy);
113 dy = iy - Ship.secty
[all...] |
| events.c | 68 int ix, iy; local in function:events
152 for (iy = 0; iy < NQUADS; iy++) {
153 q = &Quad[ix][iy];
164 if (Ship.quadx == ix && Ship.quady == iy)
169 Ship.quady = iy;
193 iy = Now.base[i].y;
195 q = &Quad[ix][iy];
204 if (e->x == ix && e->y == iy)
[all...] |
| move.c | 86 int ix = 0, iy = 0; local in function:move
150 iy = (y += dy);
153 printf("ix = %d, x = %.2f, iy = %d, y = %.2f\n",
154 ix, x, iy, y);
165 iy = -1;
167 iy = dy + 0.5;
170 printf("New quad: ix = %d, iy = %d\n", ix, iy);
179 Ship.quady = iy / NSECTS;
181 Ship.secty = iy % NSECTS
[all...] |
| setup.c | 88 int ix, iy; local in function:setup
257 iy = ranf(NQUADS);
258 q = &Quad[ix][iy];
265 Now.base[i].y = iy;
270 Ship.quady = iy;
281 iy = ranf(NQUADS);
282 q = &Quad[ix][iy];
|
| torped.c | 72 int ix, iy; local in function:torped
153 iy = y += dy;
160 switch (Sect[ix][iy]) {
172 Etc.klingon[k].y != iy)
179 ix, iy);
182 killk(ix, iy);
188 nova(ix, iy);
192 kills(ix, iy, -1);
202 Sect[ix][iy], ix, iy);
[all...] |
| computer.c | 113 int ix, iy; local in function:computer
196 iy = getintpar("q-y");
197 if (iy < 0 || iy >= NSECTS)
200 tqy = iy;
205 iy = getintpar("s-y");
206 if (iy < 0 || iy >= NSECTS)
208 course = kalc(tqx, tqy, ix, iy, &dist);
215 tqx, tqy, ix, iy);
[all...] |
| /src/lib/libm/noieee_src/ |
| n_fmod.c | 85 int ir,iy; local in function:_fmod
97 (void)frexp(y,&iy);
100 w = ldexp(y,ir-iy);
|
| /src/lib/libm/complex/ |
| catrig.c | 551 int32_t ix, iy; local in function:real_part_reciprocal
560 iy = hy & 0x7ff00000;
564 if (ix - iy >= CUTOFF << 20 || isinf(x))
566 if (iy - ix >= CUTOFF << 20)
|
| catrigf.c | 331 int32_t ix, iy; local in function:real_part_reciprocal
336 iy = hy & 0x7f800000;
339 if (ix - iy >= CUTOFF << 23 || isinf(x))
341 if (iy - ix >= CUTOFF << 23)
|
| catrigl.c | 358 int16_t ix, iy; local in function:real_part_reciprocal
363 iy = hy & 0x7fff;
366 if (ix - iy >= CUTOFF || isinf(x))
368 if (iy - ix >= CUTOFF)
|
| /src/lib/libm/ld128/ |
| e_powl.c | 152 u_int32_t ix, iy; local in function:powl
162 iy = hy & 0x7fffffff;
166 if ((iy | q.parts32.mswlo | q.parts32.lswhi | q.parts32.lswlo) == 0)
172 if (x == -1.0L && iy == 0x7fff0000
180 || (iy > 0x7fff0000)
181 || ((iy == 0x7fff0000)
193 if (iy >= 0x40700000) /* 2^113 */
195 else if (iy >= 0x3fff0000) /* 1.0 */
211 if (iy == 0x7fff0000) /* y is +-inf */
221 if (iy == 0x3fff0000
[all...] |
