Lines Matching refs:ha
54 int64_t j,k,ha,hb;
56 GET_FLT128_MSW64(ha,x);
57 ha &= 0x7fffffffffffffffLL;
60 if(hb > ha) {a=y;b=x;j=ha; ha=hb;hb=j;} else {a=x;b=y;}
61 SET_FLT128_MSW64(a,ha); /* a <- |a| */
63 if((ha-hb)>0x78000000000000LL) {return a+b;} /* x/y > 2**120 */
65 if(ha > 0x5f3f000000000000LL) { /* a>2**8000 */
66 if(ha >= 0x7fff000000000000LL) { /* Inf or NaN */
72 if(((ha&0xffffffffffffLL)|low)==0) w = a;
78 ha -= 0x2580000000000000LL;
80 SET_FLT128_MSW64(a,ha);
93 GET_FLT128_MSW64 (ha, a);
95 if (hb > ha)
100 j = ha;
101 ha = hb;
105 ha += 0x2580000000000000LL; /* a *= 2^9600 */
108 SET_FLT128_MSW64(a,ha);
116 SET_FLT128_MSW64(t1,ha);
125 SET_FLT128_MSW64(t1,ha+0x0001000000000000LL);
Indexes created Sun Mar 01 05:31:48 UTC 2026