29 	int32_t n,hx,hy,hz,ix,iy,sx,i;  in fmod()  local
33 	EXTRACT_WORDS(hy,ly,y);  in fmod()
36 	hy &= 0x7fffffff;	/* |y| */  in fmod()
39 	if((hy|ly)==0||(hx>=0x7ff00000)||	/* y=0,or x not finite */  in fmod()
40 	  ((hy|((ly|-ly)>>31))>0x7ff00000))	/* or y is NaN */  in fmod()
42 	if(hx<=hy) {  in fmod()
43 	    if((hx<hy)||(lx<ly)) return x;	/* |x|<|y| return x */  in fmod()
58 	if(hy<0x00100000) {	/* subnormal y */  in fmod()
59 	    if(hy==0) {  in fmod()
62 		for (iy = -1022,i=(hy<<11); i>0; i<<=1) iy -=1;  in fmod()
64 	} else iy = (hy>>20)-1023;  in fmod()
80 	    hy = 0x00100000|(0x000fffff&hy);  in fmod()
84 	        hy = (hy<<n)|(ly>>(32-n));  in fmod()
87 		hy = ly<<(n-32);  in fmod()
95 	    hz=hx-hy;lz=lx-ly; if(lx<ly) hz -= 1;  in fmod()
103 	hz=hx-hy;lz=lx-ly; if(lx<ly) hz -= 1;  in fmod()