gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/k_rem_pio2.c - 17.2KB - 434 lines

317:     /* compute n */
318:         z  = scalbn(z,q0);             /* actual value of z */
319:         z -= 8.0*floor(z*0.125);               /* trim off integer >= 8 */
350:                 z = one - z;
351:                 if(carry!=0) z -= scalbn(one,q0);
352:             }
376:         } else { /* break z into 24-bit if necessary */
377:             z = scalbn(z,-q0);
378:             if(z>=two24) { 
386:     /* convert integer "bit" chunk to floating-point value */
387:         fw = scalbn(one,q0);
388:         for(i=jz;i>=0;i--) {