289 	int bdif, e, j, k, k1, nb, rv;  in rvOK()  local
291 	carry = rv = 0;  in rvOK()
411 	rv = 1;  in rvOK()
414 	return rv;  in rvOK()
448 	U adj, rv;  in _strtodg_l()  local
457 	dval(rv) = 0.;  in _strtodg_l()
650 	dval(rv) = y;  in _strtodg_l()
652 		dval(rv) = tens[k - 9] * dval(rv) + z;  in _strtodg_l()
656 			if (rvOK(dval(rv), fpi, exp, bits, 1, rd, &irv))  in _strtodg_l()
664 				i = fivesbits[e] + mantbits(rv) <= P;  in _strtodg_l()
665 				/* rv = */ rounded_product(dval(rv), tens[e]);  in _strtodg_l()
666 				if (rvOK(dval(rv), fpi, exp, bits, i, rd, &irv))  in _strtodg_l()
679 				dval(rv) *= tens[i];  in _strtodg_l()
685 				dval(adj) = dval(rv);  in _strtodg_l()
692 				dval(rv) = dval(adj);  in _strtodg_l()
694 				/* rv = */ rounded_product(dval(rv), tens[e2]);  in _strtodg_l()
696 				if (rvOK(dval(rv), fpi, exp, bits, 0, rd, &irv))  in _strtodg_l()
703 			/* rv = */ rounded_quotient(dval(rv), tens[-e]);  in _strtodg_l()
704 			if (rvOK(dval(rv), fpi, exp, bits, 0, rd, &irv))  in _strtodg_l()
718 			dval(rv) *= tens[i];  in _strtodg_l()
722 				e2 += ((word0(rv) & Exp_mask)  in _strtodg_l()
724 				word0(rv) &= ~Exp_mask;  in _strtodg_l()
725 				word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
726 				dval(rv) *= bigtens[n_bigtens-1];  in _strtodg_l()
729 			e2 += ((word0(rv) & Exp_mask) >> Exp_shift1) - Bias;  in _strtodg_l()
730 			word0(rv) &= ~Exp_mask;  in _strtodg_l()
731 			word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
734 					dval(rv) *= bigtens[j];  in _strtodg_l()
740 			dval(rv) /= tens[i];  in _strtodg_l()
744 				e2 += ((word0(rv) & Exp_mask)  in _strtodg_l()
746 				word0(rv) &= ~Exp_mask;  in _strtodg_l()
747 				word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
748 				dval(rv) *= tinytens[n_bigtens-1];  in _strtodg_l()
751 			e2 += ((word0(rv) & Exp_mask) >> Exp_shift1) - Bias;  in _strtodg_l()
752 			word0(rv) &= ~Exp_mask;  in _strtodg_l()
753 			word0(rv) |= (uint32_t) Bias << Exp_shift1;  in _strtodg_l()
756 					dval(rv) *= tinytens[j];  in _strtodg_l()
767 	rvb = d2b(dval(rv), &rve, &rvbits);	/* rv = rvb * 2^rve */  in _strtodg_l()