Lines Matching refs:p_h
2670 double z, ax, z_h, z_l, p_h, p_l;
2831 p_h = u + v;
2832 SET_LOW_WORD(p_h, 0);
2833 p_l = v - (p_h - u);
2834 z_h = cp_h * p_h; /* cp_h+cp_l = 2/(3*log2) */
2835 z_l = cp_l * p_h + p_l * cp + dp_l[k];
2847 p_h = y1 * t1;
2848 z = p_l + p_h;
2854 if (p_l + ovt > z - p_h) return s * huge * huge; /* overflow */
2860 if (p_l <= z - p_h) return s * tiny * tiny; /* underflow */
2864 * compute 2**(p_h+p_l)
2876 p_h -= t;
2878 t = p_l + p_h;
2881 v = (p_l - (t - p_h)) * lg2 + t * lg2_l;