Lines Matching refs:rv
390 Bigint *rv; local
394 if ((rv = freelist[k]) != NULL) {
395 freelist[k] = rv->next;
399 rv = (Bigint *)MALLOC(sizeof(Bigint) + (x-1)*sizeof(Long));
400 rv->k = k;
401 rv->maxwds = x;
403 rv->sign = rv->wds = 0;
407 return rv;
1240 _double rv, rv0; local
1258 value(rv) = 0.;
1283 value(rv) = HUGE_VAL;
1291 word0(rv) = NAN_WORD0;
1292 word1(rv) = NAN_WORD1;
1410 value(rv) = y;
1412 value(rv) = tens[k - 9] * value(rv) + z;
1426 /* value(rv) = */ rounded_product(value(rv),
1437 value(rv) *= tens[i];
1443 word0(rv) -= P*Exp_msk1;
1444 /* value(rv) = */ rounded_product(value(rv),
1446 if ((word0(rv) & Exp_mask)
1449 word0(rv) += P*Exp_msk1;
1451 /* value(rv) = */ rounded_product(value(rv),
1459 /* value(rv) = */ rounded_quotient(value(rv),
1471 value(rv) *= tens[i];
1476 value(rv) = HUGE_VAL;
1485 value(rv) *= bigtens[j];
1487 word0(rv) -= P*Exp_msk1;
1488 value(rv) *= bigtens[j];
1489 if ((z = word0(rv) & Exp_mask)
1495 word0(rv) = Big0;
1496 word1(rv) = Big1;
1499 word0(rv) += P*Exp_msk1;
1507 value(rv) /= tens[i];
1515 value(rv) *= tinytens[j];
1517 value(rv0) = value(rv);
1518 value(rv) *= tinytens[j];
1519 if (!value(rv)) {
1520 value(rv) = 2.*value(rv0);
1521 value(rv) *= tinytens[j];
1522 if (!value(rv)) {
1524 value(rv) = 0.;
1530 word0(rv) = Tiny0;
1531 word1(rv) = Tiny1;
1548 bb = d2b(value(rv), &bbe, &bbbits); /* rv = bb * 2^bbe */
1609 if (dsign || word1(rv) || word0(rv) & Bndry_mask)
1619 if ((word0(rv) & Bndry_mask1) == Bndry_mask1
1620 && word1(rv) == 0xffffffff) {
1622 word0(rv) = (word0(rv) & Exp_mask)
1628 word1(rv) = 0;
1632 else if (!(word0(rv) & Bndry_mask) && !word1(rv)) {
1636 L = word0(rv) & Exp_mask;
1645 L = (word0(rv) & Exp_mask) - Exp_msk1;
1647 word0(rv) = L | Bndry_mask1;
1648 word1(rv) = 0xffffffff;
1656 if (!(word1(rv) & LSB))
1660 value(rv) += ulp(value(rv));
1663 value(rv) -= ulp(value(rv));
1665 if (!value(rv))
1675 else if (word1(rv) || word0(rv) & Bndry_mask) {
1677 if (word1(rv) == Tiny1 && !word0(rv))
1711 y = word0(rv) & Exp_mask;
1716 value(rv0) = value(rv);
1717 word0(rv) -= P*Exp_msk1;
1718 adj = aadj1 * ulp(value(rv));
1719 value(rv) += adj;
1720 if ((word0(rv) & Exp_mask) >=
1724 word0(rv) = Big0;
1725 word1(rv) = Big1;
1729 word0(rv) += P*Exp_msk1;
1733 if ((word0(rv) & Exp_mask) <= P*Exp_msk1) {
1734 value(rv0) = value(rv);
1735 word0(rv) += P*Exp_msk1;
1736 adj = aadj1 * ulp(value(rv));
1737 value(rv) += adj;
1739 if ((word0(rv) & Exp_mask) < P*Exp_msk1)
1741 if ((word0(rv) & Exp_mask) <= P*Exp_msk1)
1747 word0(rv) = Tiny0;
1748 word1(rv) = Tiny1;
1752 word0(rv) -= P*Exp_msk1;
1755 adj = aadj1 * ulp(value(rv));
1756 value(rv) += adj;
1771 adj = aadj1 * ulp(value(rv));
1772 value(rv) += adj;
1775 z = word0(rv) & Exp_mask;
1781 if (dsign || word1(rv) || word0(rv) & Bndry_mask) {
1804 return sign ? -value(rv) : value(rv);