Lines Matching defs:cut
616 Int cut; /* work */
638 target=uar+D2U(digits)-1+D2U(shift);/* where upper part of first cut goes */
639 cut=DECDPUN-MSUDIGITS(shift); /* where to slice */
640 if (cut==0) { /* unit-boundary case */
648 uInt quot=QUOT10(*source, cut);
649 uInt rem=*source-quot*DECPOWERS[cut];
652 uInt rem=*source%DECPOWERS[cut];
653 next+=*source/DECPOWERS[cut];
656 next=rem*DECPOWERS[DECDPUN-cut]; /* save remainder for next Unit */
672 cut=0; /* at lowest digit */
699 cut++;
700 if (cut==DECDPUN) {inu++; in=*inu; cut=0;}
754 Int cut=0; /* power of ten in current unit */
783 cut++;
784 if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}
786 cut++;
787 if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}
788 cut++;
789 if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}
797 if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);
798 cut++;
799 if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}
809 if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);
810 cut++;
811 if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}
815 if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);
816 cut++;
817 if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}
819 if (cut!=0) { /* some more left over */