31 	int32_t i1,jj0;  in floorl()  local
33 	GET_LDOUBLE_WORDS(se,i0,i1,x);  in floorl()
41 		    else if(((se&0x7fff)|i0|i1)!=0)  in floorl()
46 		if(((i0&i)|i1)==0) return x; /* x is integral */  in floorl()
57 		    i0 &= (~i); i1=0;  in floorl()
65 	    if((i1&i)==0) return x;	/* x is integral */  in floorl()
70 			j = i1+(1<<(63-jj0));  in floorl()
71 			if(j<i1) i0 +=1 ;	/* got a carry */  in floorl()
72 			i1=j;  in floorl()
75 		i1 &= (~i);  in floorl()
78 	SET_LDOUBLE_WORDS(x,se,i0,i1);  in floorl()