320   Bigint *ab, *bb, *bb1, *bd, *bd0, *bs, *delta, *rvb, *rvb0;  in strtodg()  local
327   rvb = 0;  in strtodg()
358       irv = gethex(&s, fpi, expt, &rvb, sign);  in strtodg()
605   rvb = d2b(dval(rv), &rve, &rvbits); /* rv = rvb * 2^rve */  in strtodg()
606   if (rvb == NULL)  in strtodg()
610     rshift(rvb, j);  in strtodg()
623       rvb = lshift(rvb, j);  in strtodg()
631           rvb->wds = 0;  in strtodg()
632           rvb->x[0] = 0;  in strtodg()
637         rvb->x[0] = rvb->wds = rvbits = 1;  in strtodg()
640         rshift(rvb, -j);  in strtodg()
658     bb = Balloc(rvb->k);  in strtodg()
661     Bcopy(bb, rvb);  in strtodg()
751           if (rvb->x[i] & ALL_ON)  in strtodg()
754         if (j > 1 && lo0bits(rvb->x + i) < j - 1)  in strtodg()
757         rvb = set_ones(rvb, rvbits = nbits);  in strtodg()
758         if (rvb == NULL)  in strtodg()
786         if (denorm && all_on(rvb, rvbits)) {  in strtodg()
788           rvb->wds = 1;  in strtodg()
789           rvb->x[0] = 1;  in strtodg()
803           if (rvb->wds == 1 && rvb->x[0] == 1)  in strtodg()
808         rvb = set_ones(rvb, rvbits = nbits);  in strtodg()
809         if (rvb == NULL)  in strtodg()
815       if ((bbbits < nbits && !denorm) || !(rvb->x[0] & 1))  in strtodg()
818         rvb = increment(rvb);  in strtodg()
819         if (rvb == NULL)  in strtodg()
823         if (hi0bits(rvb->x[(unsigned int)(rvb->wds - 1)  in strtodg()
832         decrement(rvb);  in strtodg()
846         rvb->wds = 0;  in strtodg()
887       rvb = lshift(rvb, j = nbits - rvbits);  in strtodg()
888       if (rvb == NULL)  in strtodg()
900     rvb0 = rvb;  in strtodg()
903       j = hi0bits(rvb->x[rvb->wds-1]);  in strtodg()
904       rvb = diff(rvb, ab);  in strtodg()
905       if (rvb == NULL)  in strtodg()
910       else if (rvb->wds <= k  in strtodg()
911         || hi0bits( rvb->x[k]) >  in strtodg()
919           rvb = lshift(rvb, 1);  in strtodg()
920           if (rvb == NULL)  in strtodg()
929       rvb = sum(rvb, ab);  in strtodg()
930       if (rvb == NULL)  in strtodg()
932       k = rvb->wds - 1;  in strtodg()
934        || hi0bits(rvb->x[k]) < hi0bits(rvb0->x[k])) {  in strtodg()
940           rshift(rvb, 1);  in strtodg()
968     bb0 = denorm ? 0 : trailz(rvb);  in strtodg()
976       rvb = lshift(rvb, j);  in strtodg()
978       rshift(rvb, -j);  in strtodg()
989     rvb->wds = 0;  in strtodg()
1002       rvb->wds = 0;  in strtodg()
1007         (rvb->wds > 0 ? STRTOG_Denormal : STRTOG_Zero);  in strtodg()
1016   if (rvb) {  in strtodg()
1017     copybits(bits, nbits, rvb);  in strtodg()
1018     Bfree(rvb);  in strtodg()