Lines Matching refs:wh
411 long double t1, t2, t3, t4, tk, z, wh, w, zh, zk;
457 wh = (long double) dk;
458 *er = half * ((y - wh) * (y + wh) - (t2 - wh * wh));
526 wh = x;
530 ((unsigned *)&wh)[0] = 0; /* 32 bits chopped */
532 lx = ((unsigned *)&wh)[2]; /* 56 rounded */
534 ((unsigned *)&wh)[2] = (j << 25);
535 lx = ((unsigned *)&wh)[1];
537 ((unsigned *)&wh)[1] = ly;
538 ((unsigned *)&wh)[0] += (ly == 0 && lx != 0);
539 ((unsigned *)&wh)[3] = 0;
546 tk = wh - x;
547 t3 = tk * tk - (two * wh * tk - (wh * wh - t1));
548 wh = y;
552 ((unsigned *)&wh)[0] = 0; /* 32 bits chopped */
554 ly = ((unsigned *)&wh)[2]; /* 56 bits rounded */
556 ((unsigned *)&wh)[2] = (j << 25);
557 lx = ((unsigned *)&wh)[1];
559 ((unsigned *)&wh)[1] = ly;
560 ((unsigned *)&wh)[0] += (ly == 0 && lx != 0);
561 ((unsigned *)&wh)[3] = 0;
564 tk = wh - y;
565 t4 = tk * tk - (two * wh * tk - (wh * wh - t2));
582 wh = t3; t3 = t4; t4 = wh;
585 wh = t2; t2 = t3; t3 = wh;
617 wh = half * zk;
618 wh = (t1 - wh) - (wh - t2);
620 wh = tk + t2;
622 *er = ((wh - zh) + t3) + t4;
628 *er = ((wh - zh) + t3) + t4;
630 *er = ((wh + t3) - zh) + t4;