Lines Matching refs:ha
52 int32_t j,k,ha,hb;
54 GET_HIGH_WORD(ha,x);
55 ha &= 0x7fff;
58 if(hb > ha) {a=y;b=x;j=ha; ha=hb;hb=j;} else {a=x;b=y;}
61 if((ha-hb)>DESW(MANT_DIG+7)) {return a+b;} /* x/y > 2**(MANT_DIG+7) */
63 if(ha > ESW(MAX_EXP/2-12)) { /* a>2**(MAX_EXP/2-12) */
64 if(ha >= ESW(MAX_EXP)) { /* Inf or NaN */
75 ha -= DESW(MAX_EXP/2+88); hb -= DESW(MAX_EXP/2+88);
77 SET_HIGH_WORD(a,ha);
91 ha += DESW(MAX_EXP/2+88);
94 SET_HIGH_WORD(a,ha);
