451 … = NULL, *bb1 = NULL, *bd = NULL, *bd0 = NULL, *bs = NULL, *delta = NULL, *rvb = NULL, *rvb0 = NUL…  in _strtodg_l()  local
458 	rvb = 0;  in _strtodg_l()
489 			irv = gethex(&s, fpi, exp, &rvb, sign, loc);  in _strtodg_l()
767 	rvb = d2b(dval(rv), &rve, &rvbits);	/* rv = rvb * 2^rve */  in _strtodg_l()
768 	if (!rvb)  in _strtodg_l()
772 		rshift(rvb, j);  in _strtodg_l()
785 			rvb = lshift(rvb, j);  in _strtodg_l()
786 			if (!rvb)  in _strtodg_l()
795 					rvb->_wds = 0;  in _strtodg_l()
796 					rvb->_x[0] = 0;  in _strtodg_l()
804 				rvb->_x[0] = rvb->_wds = rvbits = 1;  in _strtodg_l()
807 				rshift(rvb, -j);  in _strtodg_l()
827 		bb = Balloc(rvb->_k);  in _strtodg_l()
830 		Bcopy(bb, rvb);  in _strtodg_l()
919 					if (rvb->_x[i] & ALL_ON)  in _strtodg_l()
922 				if (j > 1 && lo0bits(rvb->_x + i) < j - 1)  in _strtodg_l()
925 				rvb = set_ones(rvb, rvbits = nbits);  in _strtodg_l()
926 				if (!rvb)  in _strtodg_l()
954 				if (denorm && all_on(rvb, rvbits)) {  in _strtodg_l()
956 					rvb->_wds = 1;  in _strtodg_l()
957 					rvb->_x[0] = 1;  in _strtodg_l()
971 					if (rvb->_wds == 1 && rvb->_x[0] == 1)  in _strtodg_l()
976 				rvb = set_ones(rvb, rvbits = nbits);  in _strtodg_l()
977 				if (!rvb)  in _strtodg_l()
983 			if ((bbbits < nbits && !denorm) || !(rvb->_x[0] & 1))  in _strtodg_l()
986 				rvb = increment(rvb);  in _strtodg_l()
987 				if (!rvb)  in _strtodg_l()
990 				if (hi0bits(rvb->_x[rvb->_wds - 1]) != j)  in _strtodg_l()
997 				decrement(rvb);  in _strtodg_l()
1011 				rvb->_wds = 0;  in _strtodg_l()
1055 			rvb = lshift(rvb, j = nbits - rvbits);  in _strtodg_l()
1056 			if (!rvb)  in _strtodg_l()
1071 		rvb0 = rvb;  in _strtodg_l()
1074 			j = hi0bits(rvb->_x[rvb->_wds-1]);  in _strtodg_l()
1075 			rvb = diff(rvb, ab);  in _strtodg_l()
1076 			if (!rvb)  in _strtodg_l()
1081 			else if (rvb->_wds <= k  in _strtodg_l()
1082 				|| hi0bits( rvb->_x[k]) >  in _strtodg_l()
1090 					rvb = lshift(rvb, 1);  in _strtodg_l()
1091 					if (!rvb)  in _strtodg_l()
1100 			rvb = sum(rvb, ab);  in _strtodg_l()
1101 			if (!rvb)  in _strtodg_l()
1103 			k = rvb->_wds - 1;  in _strtodg_l()
1105 			 || hi0bits(rvb->_x[k]) < hi0bits(rvb0->_x[k])) {  in _strtodg_l()
1111 					rshift(rvb, 1);  in _strtodg_l()
1141 		bb0 = denorm ? 0 : trailz(rvb);  in _strtodg_l()
1153 			rvb = lshift(rvb, j);  in _strtodg_l()
1154 			if (!rvb)  in _strtodg_l()
1158 			rshift(rvb, -j);  in _strtodg_l()
1169 		rvb->_wds = 0;  in _strtodg_l()
1180 			rvb->_wds = 0;  in _strtodg_l()
1188 				(rvb->_wds > 0 ? STRTOG_Denormal : STRTOG_Zero);  in _strtodg_l()
1200 	if (rvb) {  in _strtodg_l()
1201 		copybits(bits, nbits, rvb);  in _strtodg_l()
1202 		Bfree(rvb);  in _strtodg_l()
1212 	Bfree(rvb);  in _strtodg_l()
1213 	if (rvb0 != rvb)  in _strtodg_l()