123 	long double p, z, thi, tlo, xhi, xlo;  in large_gam()  local
142 	tlo = xlo * u.a + x * u.b;  in large_gam()
145 	tlo += ln2pi_lo;  in large_gam()
146 	tlo += p;  in large_gam()
147 	u.a = ln2pi_hi + tlo;  in large_gam()
151 	u.b += tlo;  in large_gam()
205 	long double p, q, thi, tlo;  in ratfun_gam()  local
216 	tlo = (z - thi) + c;  in ratfun_gam()
217 	tlo *= (thi + z);  in ratfun_gam()
223 	tlo += (q - thi);  in ratfun_gam()
229 	tlo = tlo * p + thi * r.b + a0_lo;  in ratfun_gam()
232 	r.b = ((a0_hi - r.a) + thi) + tlo;  in ratfun_gam()