6731 static Int decShiftToMost(Unit *uar, Int digits, Int shift) {  argument
6738     *uar=(Unit)(*uar*powers[shift]);
6743   source=uar+D2U(digits)-1;        /* where msu comes from  */
6747     for (; source>=uar; source--, target--) *target=*source;
6750     first=uar+D2U(digits+shift)-1; /* where msu of source will end up  */
6751     for (; source>=uar; source--, target--) {
6767   for (; target>=uar; target--) {
6787 static Int decShiftToLeast(Unit *uar, Int units, Int shift) {  argument
6794     *uar=0;                        /* all digits cleared gives zero  */
6798   target=uar;                      /* both paths  */
6801     up=uar+D2U(shift);
6802     for (; up<uar+units; target++, up++) *target=*up;
6803     return static_cast<int32_t>(target-uar);
6807   up=uar+D2U(shift-cut);           /* source; correct to whole Units  */
6831   return static_cast<int32_t>(target-uar+1);
7814 static Int decGetDigits(Unit *uar, Int len) {  argument
7815   Unit *up=uar+(len-1);            /* -> msu  */
7825   for (; up>=uar; up--) {