34 	int32_t i0,i1,j0;  in floor()  local
36 	EXTRACT_WORDS(i0,i1,x);  in floor()
37 	j0 = ((i0>>20)&0x7ff)-0x3ff;  in floor()
41 		    if(i0>=0) {i0=i1=0;}  in floor()
42 		    else if(((i0&0x7fffffff)|i1)!=0)  in floor()
43 			{ i0=0xbff00000;i1=0;}  in floor()
47 		if(((i0&i)|i1)==0) return x; /* x is integral */  in floor()
49 		    if(i0<0) i0 += (0x00100000)>>j0;  in floor()
50 		    i0 &= (~i); i1=0;  in floor()
60 		if(i0<0) {  in floor()
61 		    if(j0==20) i0+=1;  in floor()
64 			if(j<i1) i0 +=1 ; 	/* got a carry */  in floor()
71 	INSERT_WORDS(x,i0,i1);  in floor()