cut 427 src/decNumber/decNumber.c Int cut, out; // .. cut 586 src/decNumber/decNumber.c cut=d-(up-res)*DECDPUN; // digits in top unit cut 591 src/decNumber/decNumber.c cut--; cut 592 src/decNumber/decNumber.c if (cut>0) continue; // more for this unit cut 595 src/decNumber/decNumber.c cut=DECDPUN; // .. cut 3258 src/decNumber/decNumber.c uInt cut=DECDPUN; // downcounter through unit cut 3262 src/decNumber/decNumber.c cut--; cut 3263 src/decNumber/decNumber.c if (cut>0) continue; // more in this unit cut 3266 src/decNumber/decNumber.c cut=DECDPUN; cut 3292 src/decNumber/decNumber.c Int cut=MSUDIGITS(n); // [faster than remainder] cut 3295 src/decNumber/decNumber.c for (; cut>0; ub++, cut--) *up=X10(*up)+*ub; cut 3296 src/decNumber/decNumber.c cut=DECDPUN; // next Unit has all digits cut 3402 src/decNumber/decNumber.c Int cut; // for counting digits in a Unit cut 3430 src/decNumber/decNumber.c cut=MSUDIGITS(dn->digits); // [faster than remainder] cut 3431 src/decNumber/decNumber.c cut--; // power of ten for digit cut 3436 src/decNumber/decNumber.c for (; cut>=0; c++, cut--) TODIGIT(u, cut, c, pow); cut 3437 src/decNumber/decNumber.c cut=DECDPUN-1; // next Unit has all digits cut 3477 src/decNumber/decNumber.c for (; pre>0; pre--, c++, cut--) { cut 3478 src/decNumber/decNumber.c if (cut<0) { // need new Unit cut 3481 src/decNumber/decNumber.c cut=DECDPUN-1; cut 3484 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 3488 src/decNumber/decNumber.c for (;; c++, cut--) { cut 3489 src/decNumber/decNumber.c if (cut<0) { // need new Unit cut 3492 src/decNumber/decNumber.c cut=DECDPUN-1; cut 3495 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 3504 src/decNumber/decNumber.c for (; ; c++, cut--) { cut 3505 src/decNumber/decNumber.c if (cut<0) { // need new Unit cut 3508 src/decNumber/decNumber.c cut=DECDPUN-1; cut 3511 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 3528 src/decNumber/decNumber.c for (cut=9; cut>=0; cut--) { cut 3529 src/decNumber/decNumber.c TODIGIT(u, cut, c, pow); cut 4002 src/decNumber/decNumber.c Int shift, cut; // .. cut 4225 src/decNumber/decNumber.c if (exponent<0) cut=-exponent; cut 4226 src/decNumber/decNumber.c else cut=DECDPUN-exponent%DECDPUN; cut 4227 src/decNumber/decNumber.c decShiftToLeast(var1, var1units, cut); cut 4228 src/decNumber/decNumber.c exponent+=cut; // maintain numerical value cut 4229 src/decNumber/decNumber.c var1initpad-=cut; // .. and reduce padding cut 4231 src/decNumber/decNumber.c for (u=msu1; cut>=DECDPUN; cut-=DECDPUN, u--) *u=0; cut 6290 src/decNumber/decNumber.c uInt cut; // .. cut 6303 src/decNumber/decNumber.c cut=1; // digit (1-DECDPUN) in Unit cut 6308 src/decNumber/decNumber.c uInt quot=QUOT10(*up, cut); cut 6309 src/decNumber/decNumber.c if ((*up-quot*powers[cut])!=0) break; // found non-0 digit cut 6311 src/decNumber/decNumber.c if (*up%powers[cut]!=0) break; // found non-0 digit cut 6321 src/decNumber/decNumber.c cut++; // next power cut 6322 src/decNumber/decNumber.c if (cut>DECDPUN) { // need new Unit cut 6324 src/decNumber/decNumber.c cut=1; cut 6379 src/decNumber/decNumber.c Int cut; // odd 0's to add cut 6391 src/decNumber/decNumber.c cut=DECDPUN-MSUDIGITS(shift); // where to slice cut 6392 src/decNumber/decNumber.c if (cut==0) { // unit-boundary case cut 6400 src/decNumber/decNumber.c uInt quot=QUOT10(*source, cut); cut 6401 src/decNumber/decNumber.c uInt rem=*source-quot*powers[cut]; cut 6404 src/decNumber/decNumber.c uInt rem=*source%powers[cut]; cut 6405 src/decNumber/decNumber.c next+=*source/powers[cut]; cut 6408 src/decNumber/decNumber.c next=rem*powers[DECDPUN-cut]; // save remainder for next Unit cut 6435 src/decNumber/decNumber.c Int cut, count; // work cut 6445 src/decNumber/decNumber.c cut=MSUDIGITS(shift); cut 6446 src/decNumber/decNumber.c if (cut==DECDPUN) { // unit-boundary case; easy cut 6453 src/decNumber/decNumber.c up=uar+D2U(shift-cut); // source; correct to whole Units cut 6456 src/decNumber/decNumber.c quot=QUOT10(*up, cut); cut 6458 src/decNumber/decNumber.c quot=*up/powers[cut]; cut 6462 src/decNumber/decNumber.c count-=(DECDPUN-cut); cut 6467 src/decNumber/decNumber.c quot=QUOT10(quot, cut); cut 6468 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; cut 6470 src/decNumber/decNumber.c rem=quot%powers[cut]; cut 6471 src/decNumber/decNumber.c quot=quot/powers[cut]; cut 6473 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); cut 6474 src/decNumber/decNumber.c count-=cut; cut 6584 src/decNumber/decNumber.c uInt cut; // cut point in Unit cut 6642 src/decNumber/decNumber.c cut=discard-(count-DECDPUN)-1; cut 6643 src/decNumber/decNumber.c if (cut==DECDPUN-1) { // unit-boundary case (fast) cut 6670 src/decNumber/decNumber.c if (cut==0) quot=*up; // is at bottom of unit cut 6673 src/decNumber/decNumber.c quot=QUOT10(*up, cut); cut 6674 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; cut 6676 src/decNumber/decNumber.c rem=*up%powers[cut]; cut 6677 src/decNumber/decNumber.c quot=*up/powers[cut]; cut 6694 src/decNumber/decNumber.c cut++; // update cut cut 6708 src/decNumber/decNumber.c count-=(DECDPUN-cut); cut 6715 src/decNumber/decNumber.c quot=QUOT10(quot, cut); cut 6716 src/decNumber/decNumber.c rem=*up-quot*powers[cut]; cut 6718 src/decNumber/decNumber.c rem=quot%powers[cut]; cut 6719 src/decNumber/decNumber.c quot=quot/powers[cut]; cut 6721 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); cut 6722 src/decNumber/decNumber.c count-=cut; cut 7315 src/decNumber/decNumber.c Int cut; // work cut 7322 src/decNumber/decNumber.c cut=MSUDIGITS(dn->digits-drop); // digits to be in use in msu cut 7323 src/decNumber/decNumber.c if (cut!=DECDPUN) *msu%=powers[cut]; // clear left digits cut 318 src/decNumber/decNumberLocal.h # define TODIGIT(u, cut, c, pow) { \ cut 320 src/decNumber/decNumberLocal.h pow=DECPOWERS[cut]*2; \ cut 104 src/dps8/dps8_decimal.c Int cut=0; // phase of output cut 163 src/dps8/dps8_decimal.c if (cut==0) cut 166 src/dps8/dps8_decimal.c *up=(Unit)(*up+nib*DECPOWERS[cut]); cut 170 src/dps8/dps8_decimal.c cut++; cut 171 src/dps8/dps8_decimal.c if (cut==DECDPUN) cut 174 src/dps8/dps8_decimal.c cut=0; cut 228 src/dps8/dps8_decimal.c cut 246 src/dps8/dps8_decimal.c cut 249 src/dps8/dps8_decimal.c cut 262 src/dps8/dps8_decimal.c cut 12164 src/dps8/dps8_eis.c cut 12182 src/dps8/dps8_eis.c cut 12185 src/dps8/dps8_eis.c cut 12198 src/dps8/dps8_eis.c cut 12289 src/dps8/dps8_eis.c cut 12327 src/dps8/dps8_eis.c cut 12328 src/dps8/dps8_eis.c cut 12331 src/dps8/dps8_eis.c cut 12332 src/dps8/dps8_eis.c cut 12334 src/dps8/dps8_eis.c