Lines Matching refs:rv
70 double rv; local
73 rv = ulp(x);
75 return rv; /* Is there an example where i <= 0 ? */
78 return rv * u.d;
98 U adj, aadj1, rv, rv0; local
141 dval(&rv) = 0.;
192 ULtod(((U*)&rv)->L, bits, exp, i);
305 word0(&rv) = 0x7ff00000;
306 word1(&rv) = 0;
317 word0(&rv) = 0x7ff00000 | bits[1];
318 word1(&rv) = bits[0];
322 word0(&rv) = NAN_WORD0;
323 word1(&rv) = NAN_WORD1;
347 dval(&rv) = y;
353 dval(&rv) = tens[k - 9] * dval(&rv) + z;
373 rv.d = -rv.d;
377 /* rv = */ rounded_product(dval(&rv), tens[e]);
389 rv.d = -rv.d;
394 dval(&rv) *= tens[i];
400 word0(&rv) -= P*Exp_msk1;
401 /* rv = */ rounded_product(dval(&rv), tens[e]);
402 if ((word0(&rv) & Exp_mask)
405 word0(&rv) += P*Exp_msk1;
407 /* rv = */ rounded_product(dval(&rv), tens[e]);
417 rv.d = -rv.d;
421 /* rv = */ rounded_quotient(dval(&rv), tens[-e]);
453 dval(&rv) *= tens[i];
463 word0(&rv) = Big0;
464 word1(&rv) = Big1;
467 word0(&rv) = Exp_mask;
468 word1(&rv) = 0;
471 word0(&rv) = Exp_mask;
472 word1(&rv) = 0;
480 word0(&rv) = Big0;
481 word1(&rv) = Big1;
499 dval(&rv) *= bigtens[j];
501 word0(&rv) -= P*Exp_msk1;
502 dval(&rv) *= bigtens[j];
503 if ((z = word0(&rv) & Exp_mask)
509 word0(&rv) = Big0;
510 word1(&rv) = Big1;
513 word0(&rv) += P*Exp_msk1;
519 dval(&rv) /= tens[i];
528 dval(&rv) *= tinytens[j];
529 if (scale && (j = 2*P + 1 - ((word0(&rv) & Exp_mask)
533 word1(&rv) = 0;
535 word0(&rv) = (P+2)*Exp_msk1;
537 word0(&rv) &= 0xffffffff << (j-32);
540 word1(&rv) &= 0xffffffff << j;
545 dval(&rv) *= tinytens[j];
547 dval(&rv0) = dval(&rv);
548 dval(&rv) *= tinytens[j];
549 if (!dval(&rv)) {
550 dval(&rv) = 2.*dval(&rv0);
551 dval(&rv) *= tinytens[j];
553 if (!dval(&rv)) {
555 dval(&rv) = 0.;
559 word0(&rv) = Tiny0;
560 word1(&rv) = Tiny1;
582 bb = d2b(dval(&rv), &bbe, &bbbits); /* rv = bb * 2^bbe */
704 if (!word1(&rv)
705 && !(word0(&rv) & Frac_mask)) {
706 y = word0(&rv) & Exp_mask;
722 if (scale && (y = word0(&rv) & Exp_mask)
727 if ((word0(&rv) & Exp_mask) <=
729 word0(&rv) += P*Exp_msk1;
730 dval(&rv) += adj*ulp(&rv);
731 word0(&rv) -= P*Exp_msk1;
736 dval(&rv) += adj.d*ulp(&rv);
753 if (scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
757 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
758 word0(&rv) += P*Exp_msk1;
759 dval(&adj) *= ulp(&rv);
761 dval(&rv) += adj;
763 dval(&rv) -= adj;
764 word0(&rv) -= P*Exp_msk1;
769 dval(&adj) *= ulp(&rv);
771 if (word0(&rv) == Big0 && word1(&rv) == Big1)
773 dval(&rv) += adj.d;
776 dval(&rv) -= adj.d;
785 if (dsign || word1(&rv) || word0(&rv) & Bndry_mask
788 || (word0(&rv) & Exp_mask) <= (2*P+1)*Exp_msk1
790 || (word0(&rv) & Exp_mask) <= Exp_msk1
817 if ((word0(&rv) & Bndry_mask1) == Bndry_mask1
818 && word1(&rv) == (
820 (scale && (y = word0(&rv) & Exp_mask) <= 2*P*Exp_msk1)
825 if (word0(&rv) == Big0 && word1(&rv) == Big1)
827 word0(&rv) = (word0(&rv) & Exp_mask)
833 word1(&rv) = 0;
840 else if (!(word0(&rv) & Bndry_mask) && !word1(&rv)) {
844 L = word0(&rv) & Exp_mask;
859 L = word0(&rv) & Exp_mask;
870 L = (word0(&rv) & Exp_mask) - Exp_msk1;
872 word0(&rv) = L | Bndry_mask1;
873 word1(&rv) = 0xffffffff;
883 if (!(word0(&rv) & Lsb1))
886 else if (!(word1(&rv) & Lsb))
889 if (!(word1(&rv) & LSB))
895 dval(&rv) += sulp(&rv, scale);
897 dval(&rv) += ulp(&rv);
902 dval(&rv) -= sulp(&rv, scale);
904 dval(&rv) -= ulp(&rv);
907 if (!dval(&rv))
920 else if (word1(&rv) || word0(&rv) & Bndry_mask) {
922 if (word1(&rv) == Tiny1 && !word0(&rv))
956 y = word0(&rv) & Exp_mask;
961 dval(&rv0) = dval(&rv);
962 word0(&rv) -= P*Exp_msk1;
963 dval(&adj) = dval(&aadj1) * ulp(&rv);
964 dval(&rv) += dval(&adj);
965 if ((word0(&rv) & Exp_mask) >=
969 word0(&rv) = Big0;
970 word1(&rv) = Big1;
974 word0(&rv) += P*Exp_msk1;
987 dval(&adj) = dval(&aadj1) * ulp(&rv);
988 dval(&rv) += dval(&adj);
991 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1) {
992 dval(&rv0) = dval(&rv);
993 word0(&rv) += P*Exp_msk1;
994 dval(&adj) = dval(&aadj1) * ulp(&rv);
995 dval(&rv) += dval(&adj);
997 if ((word0(&rv) & Exp_mask) < P*Exp_msk1)
999 if ((word0(&rv) & Exp_mask) <= P*Exp_msk1)
1005 word0(&rv) = Tiny0;
1006 word1(&rv) = Tiny1;
1010 word0(&rv) -= P*Exp_msk1;
1013 dval(&adj) = dval(&aadj1) * ulp(&rv);
1014 dval(&rv) += dval(&adj);
1029 dval(&adj) = dval(&aadj1) * ulp(&rv);
1030 dval(&rv) += adj;
1034 z = word0(&rv) & Exp_mask;
1044 if (dsign || word1(&rv) || word0(&rv) & Bndry_mask) {
1078 dval(&rv) *= dval(&rv0);
1082 if (!(word0(&rv) & Exp_mask))
1084 if (word0(&rv) == 0 && word1(&rv) == 0)
1091 if (inexact && !(word0(&rv) & Exp_mask)) {
1100 return sign ? -dval(&rv) : dval(&rv);