290 	int bdif, e, j, k, k1, nb, rv;  in rvOK()  local
292 	carry = rv = 0;  in rvOK()
412 	rv = 1;  in rvOK()
415 	return rv;  in rvOK()
449 	U adj, rv;  in _strtodg_l()  local
458 	dval(rv) = 0.;  in _strtodg_l()
651 	dval(rv) = y;  in _strtodg_l()
653 		dval(rv) = tens[k - 9] * dval(rv) + z;  in _strtodg_l()
657 			if (rvOK(dval(rv), fpi, exp, bits, 1, rd, &irv))  in _strtodg_l()
665 				i = fivesbits[e] + mantbits(rv) <= P;  in _strtodg_l()
666 				/* rv = */ rounded_product(dval(rv), tens[e]);  in _strtodg_l()
667 				if (rvOK(dval(rv), fpi, exp, bits, i, rd, &irv))  in _strtodg_l()
680 				dval(rv) *= tens[i];  in _strtodg_l()
686 				dval(adj) = dval(rv);  in _strtodg_l()
693 				dval(rv) = dval(adj);  in _strtodg_l()
695 				/* rv = */ rounded_product(dval(rv), tens[e2]);  in _strtodg_l()
697 				if (rvOK(dval(rv), fpi, exp, bits, 0, rd, &irv))  in _strtodg_l()
704 			/* rv = */ rounded_quotient(dval(rv), tens[-e]);  in _strtodg_l()
705 			if (rvOK(dval(rv), fpi, exp, bits, 0, rd, &irv))  in _strtodg_l()
719 			dval(rv) *= tens[i];  in _strtodg_l()
723 				e2 += ((word0(rv) & Exp_mask)  in _strtodg_l()
725 				word0(rv) &= ~Exp_mask;  in _strtodg_l()
726 				word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
727 				dval(rv) *= bigtens[n_bigtens-1];  in _strtodg_l()
730 			e2 += ((word0(rv) & Exp_mask) >> Exp_shift1) - Bias;  in _strtodg_l()
731 			word0(rv) &= ~Exp_mask;  in _strtodg_l()
732 			word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
735 					dval(rv) *= bigtens[j];  in _strtodg_l()
741 			dval(rv) /= tens[i];  in _strtodg_l()
745 				e2 += ((word0(rv) & Exp_mask)  in _strtodg_l()
747 				word0(rv) &= ~Exp_mask;  in _strtodg_l()
748 				word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
749 				dval(rv) *= tinytens[n_bigtens-1];  in _strtodg_l()
752 			e2 += ((word0(rv) & Exp_mask) >> Exp_shift1) - Bias;  in _strtodg_l()
753 			word0(rv) &= ~Exp_mask;  in _strtodg_l()
754 			word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
757 					dval(rv) *= tinytens[j];  in _strtodg_l()
768 	rvb = d2b(dval(rv), &rve, &rvbits);	/* rv = rvb * 2^rve */  in _strtodg_l()