39 	float y,hi,lo,c,t,e,hxs,hfx,r1;  in expm1f()  local
89 	e  = hxs*((r1-t)/(6.0f - x*t));  in expm1f()
90 	if(k==0) return x - (x*e-hxs);		/* c is 0 */  in expm1f()
92 	    e  = (x*(e-c)-c);  in expm1f()
93 	    e -= hxs;  in expm1f()
94 	    if(k== -1) return 0.5f*(x-e)-0.5f;  in expm1f()
96 	       	if(x < -0.25f) return -2.0f*(e-(x+0.5f));  in expm1f()
97 	       	else 	      return  one+2.0f*(x-e);  in expm1f()
101 	        y = one-(e-x);  in expm1f()
110 	       	y = t-(e-x);  in expm1f()
116 	       	y = x-(e+t);  in expm1f()