FASTBASE         4767 src/decNumber/decNumber.c           if (*lp<FASTBASE) continue;        // it fits
FASTBASE         4768 src/decNumber/decNumber.c           lcarry=*lp/FASTBASE;               // top part [slow divide]
FASTBASE         4773 src/decNumber/decNumber.c           if (lcarry<FASTBASE) carry=(uInt)lcarry;  // [usual]
FASTBASE         4775 src/decNumber/decNumber.c             uInt carry2=(uInt)(lcarry/FASTBASE);    // top top part
FASTBASE         4777 src/decNumber/decNumber.c             *lp-=((uLong)FASTBASE*FASTBASE*carry2); // [slow]
FASTBASE         4778 src/decNumber/decNumber.c             carry=(uInt)(lcarry-((uLong)FASTBASE*carry2)); // [inline]
FASTBASE         4781 src/decNumber/decNumber.c           *lp-=((uLong)FASTBASE*carry);      // [inline]