gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/k_rem_pio2f.c - 6.0KB - 194 lines

78:     /* compute n */
79:         z  = scalbnf(z,q0);            /* actual value of z */
80:         z -= (float)8.0*floorf(z*(float)0.125);        /* trim off integer >= 8 */
111:                 z = one - z;
112:                 if(carry!=0) z -= scalbnf(one,q0);
113:             }
137:         } else { /* break z into 8-bit if necessary */
138:             z = scalbnf(z,-q0);
139:             if(z>=two8) { 
147:     /* convert integer "bit" chunk to floating-point value */
148:         fw = scalbnf(one,q0);
149:         for(i=jz;i>=0;i--) {