Lines Matching refs:rv
96 double aadj, aadj1, adj, rv, rv0; in strtod() local
109 dval(rv) = 0.; in strtod()
164 ULtod((/* LINTED */(U*)&rv)->L, bits, expt, i); in strtod()
276 word0(rv) = 0x7ff00000; in strtod()
277 word1(rv) = 0; in strtod()
288 word0(rv) = (UINT32)(0x7ff00000U | bits[1]); in strtod()
289 word1(rv) = (UINT32)bits[0]; in strtod()
293 word0(rv) = NAN_WORD0; in strtod()
294 word1(rv) = NAN_WORD1; in strtod()
318 dval(rv) = (double)y; in strtod()
324 dval(rv) = tens[k - 9] * dval(rv) + z; in strtod()
344 rv = -rv; in strtod()
348 /* rv = */ rounded_product(dval(rv), tens[e]); in strtod()
360 rv = -rv; in strtod()
365 dval(rv) *= tens[i]; in strtod()
371 word0(rv) -= P*Exp_msk1; in strtod()
372 /* rv = */ rounded_product(dval(rv), tens[e]); in strtod()
373 if ((word0(rv) & Exp_mask) in strtod()
376 word0(rv) += P*Exp_msk1; in strtod()
378 /* rv = */ rounded_product(dval(rv), tens[e]); in strtod()
388 rv = -rv; in strtod()
392 /* rv = */ rounded_quotient(dval(rv), tens[-e]); in strtod()
423 dval(rv) *= tens[i]; in strtod()
436 word0(rv) = Big0; in strtod()
437 word1(rv) = Big1; in strtod()
440 word0(rv) = Exp_mask; in strtod()
441 word1(rv) = 0; in strtod()
444 word0(rv) = Exp_mask; in strtod()
445 word1(rv) = 0; in strtod()
453 word0(rv) = Big0; in strtod()
454 word1(rv) = Big1; in strtod()
463 dval(rv) *= bigtens[j]; in strtod()
465 word0(rv) -= P*Exp_msk1; in strtod()
466 dval(rv) *= bigtens[j]; in strtod()
467 if ((z = word0(rv) & Exp_mask) in strtod()
473 word0(rv) = Big0; in strtod()
474 word1(rv) = Big1; in strtod()
477 word0(rv) += P*Exp_msk1; in strtod()
483 dval(rv) /= tens[i]; in strtod()
492 dval(rv) *= tinytens[j]; in strtod()
493 if (scale && (j = 2*P + 1 - (unsigned int)((word0(rv) & Exp_mask) in strtod()
497 word1(rv) = 0; in strtod()
499 word0(rv) = (P+2)*Exp_msk1; in strtod()
501 word0(rv) &= 0xffffffff << (j-32); in strtod()
504 word1(rv) &= 0xffffffff << j; in strtod()
509 dval(rv) *= tinytens[j]; in strtod()
511 dval(rv0) = dval(rv); in strtod()
512 dval(rv) *= tinytens[j]; in strtod()
513 if (!dval(rv)) { in strtod()
514 dval(rv) = 2.*dval(rv0); in strtod()
515 dval(rv) *= tinytens[j]; in strtod()
517 if (!dval(rv)) { in strtod()
519 dval(rv) = 0.; in strtod()
528 word0(rv) = Tiny0; in strtod()
529 word1(rv) = Tiny1; in strtod()
551 bb = d2b(dval(rv), &bbe, &bbbits); /* rv = bb * 2^bbe */ in strtod()
666 if (!word1(rv) in strtod()
667 && !(word0(rv) & Frac_mask)) { in strtod()
668 y = word0(rv) & Exp_mask; in strtod()
682 if (scale && (y = word0(rv) & Exp_mask) in strtod()
687 if ((word0(rv) & Exp_mask) <= in strtod()
689 word0(rv) += P*Exp_msk1; in strtod()
690 dval(rv) += adj*ulp(dval(rv)); in strtod()
691 word0(rv) -= P*Exp_msk1; in strtod()
696 dval(rv) += adj*ulp(dval(rv)); in strtod()
713 if (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1) in strtod()
717 if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { in strtod()
718 word0(rv) += P*Exp_msk1; in strtod()
719 adj *= ulp(dval(rv)); in strtod()
721 dval(rv) += adj; in strtod()
723 dval(rv) -= adj; in strtod()
724 word0(rv) -= P*Exp_msk1; in strtod()
729 adj *= ulp(dval(rv)); in strtod()
731 dval(rv) += adj; in strtod()
733 dval(rv) -= adj; in strtod()
742 if (dsign || word1(rv) || word0(rv) & Bndry_mask in strtod()
745 || (word0(rv) & Exp_mask) <= (2*P+1)*Exp_msk1 in strtod()
747 || (word0(rv) & Exp_mask) <= Exp_msk1 in strtod()
772 if ((word0(rv) & Bndry_mask1) == Bndry_mask1 in strtod()
773 && word1(rv) == ( in strtod()
775 (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1) in strtod()
780 word0(rv) = (word0(rv) & Exp_mask) in strtod()
786 word1(rv) = 0; in strtod()
793 else if (!(word0(rv) & Bndry_mask) && !word1(rv)) { in strtod()
797 L = word0(rv) & Exp_mask; in strtod()
812 L = word0(rv) & Exp_mask; in strtod()
823 L = (word0(rv) & Exp_mask) - Exp_msk1; in strtod()
825 word0(rv) = (UINT32)(L | Bndry_mask1); in strtod()
826 word1(rv) = 0xffffffffU; in strtod()
834 if (!(word1(rv) & LSB)) in strtod()
838 dval(rv) += ulp(dval(rv)); in strtod()
841 dval(rv) -= ulp(dval(rv)); in strtod()
843 if (!dval(rv)) in strtod()
856 else if (word1(rv) || word0(rv) & Bndry_mask) { in strtod()
858 if (word1(rv) == Tiny1 && !word0(rv)) in strtod()
892 y = word0(rv) & Exp_mask; in strtod()
897 dval(rv0) = dval(rv); in strtod()
898 word0(rv) -= P*Exp_msk1; in strtod()
899 adj = aadj1 * ulp(dval(rv)); in strtod()
900 dval(rv) += adj; in strtod()
901 if ((word0(rv) & Exp_mask) >= in strtod()
905 word0(rv) = Big0; in strtod()
906 word1(rv) = Big1; in strtod()
910 word0(rv) += P*Exp_msk1; in strtod()
923 adj = aadj1 * ulp(dval(rv)); in strtod()
924 dval(rv) += adj; in strtod()
927 if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { in strtod()
928 dval(rv0) = dval(rv); in strtod()
929 word0(rv) += P*Exp_msk1; in strtod()
930 adj = aadj1 * ulp(dval(rv)); in strtod()
931 dval(rv) += adj; in strtod()
933 if ((word0(rv) & Exp_mask) < P*Exp_msk1) in strtod()
935 if ((word0(rv) & Exp_mask) <= P*Exp_msk1) in strtod()
941 word0(rv) = Tiny0; in strtod()
942 word1(rv) = Tiny1; in strtod()
946 word0(rv) -= P*Exp_msk1; in strtod()
949 adj = aadj1 * ulp(dval(rv)); in strtod()
950 dval(rv) += adj; in strtod()
965 adj = aadj1 * ulp(dval(rv)); in strtod()
966 dval(rv) += adj; in strtod()
970 z = word0(rv) & Exp_mask; in strtod()
980 if (dsign || word1(rv) || word0(rv) & Bndry_mask) { in strtod()
1009 dval(rv) *= dval(rv0); in strtod()
1012 if (word0(rv) == 0 && word1(rv) == 0) in strtod()
1018 if (inexact && !(word0(rv) & Exp_mask)) { in strtod()
1033 return sign ? -dval(rv) : dval(rv); in strtod()