cut 442 src/decNumber/decNumber.c Int cut, out; // .. cut 601 src/decNumber/decNumber.c cut=d-(up-res)*DECDPUN; // digits in top unit cut 606 src/decNumber/decNumber.c cut--; cut 607 src/decNumber/decNumber.c if (cut>0) continue; // more for this unit cut 610 src/decNumber/decNumber.c cut=DECDPUN; // .. cut 3274 src/decNumber/decNumber.c uInt cut=DECDPUN; // downcounter through unit cut 3278 src/decNumber/decNumber.c cut--; cut 3279 src/decNumber/decNumber.c if (cut>0) continue; // more in this unit cut 3282 src/decNumber/decNumber.c cut=DECDPUN; cut 3308 src/decNumber/decNumber.c Int cut=MSUDIGITS(n); // [faster than remainder] cut 3311 src/decNumber/decNumber.c for (; cut>0; ub++, cut--) *up=X10(*up)+*ub; cut 3312 src/decNumber/decNumber.c cut=DECDPUN; // next Unit has all digits cut 3419 src/decNumber/decNumber.c Int cut; // for counting digits in a Unit cut 3447 src/decNumber/decNumber.c cut=MSUDIGITS(dn->digits); // [faster than remainder] cut 3448 src/decNumber/decNumber.c cut--; // power of ten for digit cut 3453 src/decNumber/decNumber.c for (; cut>=0; c++, cut--) TODIGIT(u, cut, c, pow); cut 3454 src/decNumber/decNumber.c cut=DECDPUN-1; // next Unit has all digits cut 3494 src/decNumber/decNumber.c for (; pre>0; pre--, c++, cut--) { cut 3495 src/decNumber/decNumber.c if (cut<0) { // need new Unit cut 3498 src/decNumber/decNumber.c cut=DECDPUN-1; cut 3501 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 3505 src/decNumber/decNumber.c for (;; c++, cut--) { cut 3506 src/decNumber/decNumber.c if (cut<0) { // need new Unit cut 3509 src/decNumber/decNumber.c cut=DECDPUN-1; cut 3512 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 3521 src/decNumber/decNumber.c for (; ; c++, cut--) { cut 3522 src/decNumber/decNumber.c if (cut<0) { // need new Unit cut 3525 src/decNumber/decNumber.c cut=DECDPUN-1; cut 3528 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 3545 src/decNumber/decNumber.c for (cut=9; cut>=0; cut--) { cut 3546 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 4020 src/decNumber/decNumber.c Int shift, cut; // .. cut 4245 src/decNumber/decNumber.c if (exponent<0) cut=-exponent; cut 4246 src/decNumber/decNumber.c else cut=DECDPUN-exponent%DECDPUN; cut 4247 src/decNumber/decNumber.c decShiftToLeast(var1, var1units, cut); cut 4248 src/decNumber/decNumber.c exponent+=cut; // maintain numerical value cut 4249 src/decNumber/decNumber.c var1initpad-=cut; // .. and reduce padding cut 4251 src/decNumber/decNumber.c for (u=msu1; cut>=DECDPUN; cut-=DECDPUN, u--) *u=0; cut 6310 src/decNumber/decNumber.c uInt cut; // .. cut 6323 src/decNumber/decNumber.c cut=1; // digit (1-DECDPUN) in Unit cut 6328 src/decNumber/decNumber.c uInt quot=QUOT10(*up, cut); cut 6329 src/decNumber/decNumber.c if ((*up-quot*powers[cut])!=0) break; // found non-0 digit cut 6331 src/decNumber/decNumber.c if (*up%powers[cut]!=0) break; // found non-0 digit cut 6341 src/decNumber/decNumber.c cut++; // next power cut 6342 src/decNumber/decNumber.c if (cut>DECDPUN) { // need new Unit cut 6344 src/decNumber/decNumber.c cut=1; cut 6399 src/decNumber/decNumber.c Int cut; // odd 0's to add cut 6411 src/decNumber/decNumber.c cut=DECDPUN-MSUDIGITS(shift); // where to slice cut 6412 src/decNumber/decNumber.c if (cut==0) { // unit-boundary case cut 6420 src/decNumber/decNumber.c uInt quot=QUOT10(*source, cut); cut 6421 src/decNumber/decNumber.c uInt rem=*source-quot*powers[cut]; cut 6424 src/decNumber/decNumber.c uInt rem=*source%powers[cut]; cut 6425 src/decNumber/decNumber.c next+=*source/powers[cut]; cut 6428 src/decNumber/decNumber.c next=rem*powers[DECDPUN-cut]; // save remainder for next Unit cut 6455 src/decNumber/decNumber.c Int cut, count; // work cut 6465 src/decNumber/decNumber.c cut=MSUDIGITS(shift); cut 6466 src/decNumber/decNumber.c if (cut==DECDPUN) { // unit-boundary case; easy cut 6473 src/decNumber/decNumber.c up=uar+D2U(shift-cut); // source; correct to whole Units cut 6476 src/decNumber/decNumber.c quot=QUOT10(*up, cut); cut 6478 src/decNumber/decNumber.c quot=*up/powers[cut]; cut 6482 src/decNumber/decNumber.c count-=(DECDPUN-cut); cut 6487 src/decNumber/decNumber.c quot=QUOT10(quot, cut); cut 6488 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; cut 6490 src/decNumber/decNumber.c rem=quot%powers[cut]; cut 6491 src/decNumber/decNumber.c quot=quot/powers[cut]; cut 6493 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); cut 6494 src/decNumber/decNumber.c count-=cut; cut 6604 src/decNumber/decNumber.c uInt cut; // cut point in Unit cut 6662 src/decNumber/decNumber.c cut=discard-(count-DECDPUN)-1; cut 6663 src/decNumber/decNumber.c if (cut==DECDPUN-1) { // unit-boundary case (fast) cut 6690 src/decNumber/decNumber.c if (cut==0) quot=*up; // is at bottom of unit cut 6693 src/decNumber/decNumber.c quot=QUOT10(*up, cut); cut 6694 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; cut 6696 src/decNumber/decNumber.c rem=*up%powers[cut]; cut 6697 src/decNumber/decNumber.c quot=*up/powers[cut]; cut 6714 src/decNumber/decNumber.c cut++; // update cut cut 6728 src/decNumber/decNumber.c count-=(DECDPUN-cut); cut 6733 src/decNumber/decNumber.c quot=QUOT10(quot, cut); cut 6734 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; cut 6736 src/decNumber/decNumber.c rem=quot%powers[cut]; cut 6737 src/decNumber/decNumber.c quot=quot/powers[cut]; cut 6739 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); cut 6740 src/decNumber/decNumber.c count-=cut; cut 7335 src/decNumber/decNumber.c Int cut; // work cut 7342 src/decNumber/decNumber.c cut=MSUDIGITS(dn->digits-drop); // digits to be in use in msu cut 7343 src/decNumber/decNumber.c if (cut!=DECDPUN) *msu%=powers[cut]; // clear left digits cut 316 src/decNumber/decNumberLocal.h # define TODIGIT(u, cut, c, pow) { \ cut 318 src/decNumber/decNumberLocal.h pow=DECPOWERS[cut]*2; \ cut 104 src/dps8/dps8_decimal.c Int cut=0; // phase of output cut 162 src/dps8/dps8_decimal.c if (cut==0) cut 165 src/dps8/dps8_decimal.c *up=(Unit)(*up+nib*DECPOWERS[cut]); cut 169 src/dps8/dps8_decimal.c cut++; cut 170 src/dps8/dps8_decimal.c if (cut==DECDPUN) cut 173 src/dps8/dps8_decimal.c cut=0; cut 227 src/dps8/dps8_decimal.c cut 245 src/dps8/dps8_decimal.c cut 248 src/dps8/dps8_decimal.c cut 261 src/dps8/dps8_decimal.c cut 12037 src/dps8/dps8_eis.c cut 12055 src/dps8/dps8_eis.c cut 12058 src/dps8/dps8_eis.c cut 12071 src/dps8/dps8_eis.c cut 12162 src/dps8/dps8_eis.c cut 12200 src/dps8/dps8_eis.c cut 12201 src/dps8/dps8_eis.c cut 12204 src/dps8/dps8_eis.c cut 12205 src/dps8/dps8_eis.c cut 12207 src/dps8/dps8_eis.c