FASTBASE         4787 src/decNumber/decNumber.c           if (*lp<FASTBASE) continue;        // it fits
FASTBASE         4788 src/decNumber/decNumber.c           lcarry=*lp/FASTBASE;               // top part [slow divide]
FASTBASE         4793 src/decNumber/decNumber.c           if (lcarry<FASTBASE) carry=(uInt)lcarry;  // [usual]
FASTBASE         4795 src/decNumber/decNumber.c             uInt carry2=(uInt)(lcarry/FASTBASE);    // top top part
FASTBASE         4797 src/decNumber/decNumber.c             *lp-=((uLong)FASTBASE*FASTBASE*carry2); // [slow]
FASTBASE         4798 src/decNumber/decNumber.c             carry=(uInt)(lcarry-((uLong)FASTBASE*carry2)); // [inline]
FASTBASE         4801 src/decNumber/decNumber.c           *lp-=((uLong)FASTBASE*carry);      // [inline]