| s_expm1f.c | 42 float y,hi,lo,c,t,e,hxs,hfx,r1; local in function:expm1f 93 hxs = x*hfx; 94 r1 = one+hxs*(Q1+hxs*(Q2+hxs*(Q3+hxs*(Q4+hxs*Q5)))); 96 e = hxs*((r1-t)/((float)6.0 - x*t)); 97 if(k==0) return x - (x*e-hxs); /* c is 0 */ 100 e -= hxs; [all...] |