Lines Matching defs:ha
53 int64_t j,k,ha,hb;
55 GET_LDOUBLE_MSW64(ha,x);
56 ha &= 0x7fffffffffffffffLL;
59 if(hb > ha) {a=y;b=x;j=ha; ha=hb;hb=j;} else {a=x;b=y;}
60 SET_LDOUBLE_MSW64(a,ha); /* a <- |a| */
62 if((ha-hb)>0x78000000000000LL) {return a+b;} /* x/y > 2**120 */
64 if(ha > 0x5f3f000000000000LL) { /* a>2**8000 */
65 if(ha >= 0x7fff000000000000LL) { /* Inf or NaN */
69 if(((ha&0xffffffffffffLL)|low)==0) w = a;
75 ha -= 0x2580000000000000LL;
77 SET_LDOUBLE_MSW64(a,ha);
91 ha += 0x2580000000000000LL; /* a *= 2^9600 */
94 SET_LDOUBLE_MSW64(a,ha);
102 SET_LDOUBLE_MSW64(t1,ha);
111 SET_LDOUBLE_MSW64(t1,ha+0x0001000000000000LL);