6679 static Int decShiftToMost(Unit *uar, Int digits, Int shift) {  argument
6686     *uar=(Unit)(*uar*powers[shift]);
6691   source=uar+D2U(digits)-1;	   /* where msu comes from */
6695     for (; source>=uar; source--, target--) *target=*source;
6698     first=uar+D2U(digits+shift)-1; /* where msu of source will end up */
6699     for (; source>=uar; source--, target--) {
6715   for (; target>=uar; target--) {
6735 static Int decShiftToLeast(Unit *uar, Int units, Int shift) {  argument
6742     *uar=0;			   /* all digits cleared gives zero */
6746   target=uar;			   /* both paths */
6749     up=uar+D2U(shift);
6750     for (; up<uar+units; target++, up++) *target=*up;
6751     return target-uar;
6755   up=uar+D2U(shift-cut);	   /* source; correct to whole Units */
6779   return target-uar+1;
7761 static Int decGetDigits(Unit *uar, Int len) {  argument
7762   Unit *up=uar+(len-1); 	   /* -> msu */
7772   for (; up>=uar; up--) {