DECDPUN 186 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 319 src/decNumber/decNumber.c #if DECDPUN>1 // split to higher DECDPUN 325 src/decNumber/decNumber.c for (d=DECDPUN; d<dn->digits; up++, d+=DECDPUN) hi+=*up*powers[d-1]; DECDPUN 352 src/decNumber/decNumber.c #if DECDPUN>1 // split to higher DECDPUN 358 src/decNumber/decNumber.c for (d=DECDPUN; d<dn->digits; up++, d+=DECDPUN) hi+=*up*powers[d-1]; DECDPUN 426 src/decNumber/decNumber.c #if DECDPUN>1 DECDPUN 583 src/decNumber/decNumber.c #if DECDPUN>1 DECDPUN 586 src/decNumber/decNumber.c cut=d-(up-res)*DECDPUN; // digits in top unit DECDPUN 595 src/decNumber/decNumber.c cut=DECDPUN; // .. DECDPUN 736 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 1095 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 1369 src/decNumber/decNumber.c #if DECDPUN==1 DECDPUN 1691 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 2355 src/decNumber/decNumber.c units=rotate/DECDPUN; // whole units to rotate DECDPUN 2356 src/decNumber/decNumber.c shift=rotate%DECDPUN; // left-over digits count DECDPUN 2364 src/decNumber/decNumber.c +(Unit)(rem*powers[DECDPUN-(shift-msudigits)]); // .. DECDPUN 2376 src/decNumber/decNumber.c shift=DECDPUN-msudigits; DECDPUN 2757 src/decNumber/decNumber.c #if DECDPUN>=3 DECDPUN 2760 src/decNumber/decNumber.c #elif DECDPUN==2 DECDPUN 2774 src/decNumber/decNumber.c #if DECDPUN>=3 DECDPUN 2777 src/decNumber/decNumber.c #elif DECDPUN==2 DECDPUN 3074 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 3170 src/decNumber/decNumber.c if (src->digits>DECDPUN) { // more Units to come DECDPUN 3254 src/decNumber/decNumber.c #if DECDPUN==1 // trivial simple copy DECDPUN 3258 src/decNumber/decNumber.c uInt cut=DECDPUN; // downcounter through unit DECDPUN 3266 src/decNumber/decNumber.c cut=DECDPUN; DECDPUN 3288 src/decNumber/decNumber.c #if DECDPUN==1 // trivial simple copy DECDPUN 3296 src/decNumber/decNumber.c cut=DECDPUN; // next Unit has all digits DECDPUN 3437 src/decNumber/decNumber.c cut=DECDPUN-1; // next Unit has all digits DECDPUN 3481 src/decNumber/decNumber.c cut=DECDPUN-1; DECDPUN 3492 src/decNumber/decNumber.c cut=DECDPUN-1; DECDPUN 3508 src/decNumber/decNumber.c cut=DECDPUN-1; DECDPUN 3713 src/decNumber/decNumber.c && rhs->digits<=DECDPUN DECDPUN 3722 src/decNumber/decNumber.c && (lhs->digits>=DECDPUN || // .. and no digits-count change DECDPUN 3777 src/decNumber/decNumber.c mult=powers[padding-(rhsshift*DECDPUN)]; // .. this by multiplication DECDPUN 3814 src/decNumber/decNumber.c *DECDPUN; // [units -> digits] DECDPUN 3970 src/decNumber/decNumber.c Unit accbuff[SD2U(DECBUFFER+DECDPUN+10)]; // local buffer DECDPUN 3978 src/decNumber/decNumber.c Unit varbuff[SD2U(DECBUFFER*2+DECDPUN)]; // buffer for var1 DECDPUN 4146 src/decNumber/decNumber.c acclength=D2U(reqdigits+DECDPUN); // in Units DECDPUN 4223 src/decNumber/decNumber.c var1initpad=(var1units-D2U(lhs->digits))*DECDPUN; DECDPUN 4226 src/decNumber/decNumber.c else cut=DECDPUN-exponent%DECDPUN; DECDPUN 4231 src/decNumber/decNumber.c for (u=msu1; cut>=DECDPUN; cut-=DECDPUN, u--) *u=0; DECDPUN 4239 src/decNumber/decNumber.c exponent-=DECDPUN; // update the exponent DECDPUN 4311 src/decNumber/decNumber.c else accdigits+=DECDPUN; DECDPUN 4334 src/decNumber/decNumber.c exponent-=DECDPUN; // update the exponent DECDPUN 4359 src/decNumber/decNumber.c #if DECDPUN>1 DECDPUN 4366 src/decNumber/decNumber.c # if DECDPUN<=4 DECDPUN 4479 src/decNumber/decNumber.c if (quotdigits>DECDPUN) { DECDPUN 4486 src/decNumber/decNumber.c quotdigits-=DECDPUN; // checked those digits DECDPUN 4497 src/decNumber/decNumber.c expunits=exp/DECDPUN; DECDPUN 4498 src/decNumber/decNumber.c exprem=exp%DECDPUN; DECDPUN 4573 src/decNumber/decNumber.c #define FASTMUL (DECUSE64 && DECDPUN<5) DECDPUN 4593 src/decNumber/decNumber.c # if DECDPUN & 1 // odd DECDPUN 4614 src/decNumber/decNumber.c # if DECDPUN==1 DECDPUN 4683 src/decNumber/decNumber.c # define NEEDTWO (DECDPUN*2) // within two decUnitAddSub calls DECDPUN 4708 src/decNumber/decNumber.c # if DECDPUN==1 DECDPUN 4720 src/decNumber/decNumber.c # if DECDPUN==1 DECDPUN 4727 src/decNumber/decNumber.c p+=DECDPUN, cup++, count-=DECDPUN) DECDPUN 4732 src/decNumber/decNumber.c p+=DECDPUN, cup++, count-=DECDPUN) DECDPUN 4793 src/decNumber/decNumber.c for (p=0; p<FASTDIGS-DECDPUN; p+=DECDPUN, up++) { DECDPUN 5348 src/decNumber/decNumber.c #if DECDPUN==1 DECDPUN 5977 src/decNumber/decNumber.c expunits=exp/DECDPUN; DECDPUN 5978 src/decNumber/decNumber.c exprem=exp%DECDPUN; DECDPUN 6050 src/decNumber/decNumber.c #if DECDPUN<=4 // myriadal, millenary, etc. DECDPUN 6089 src/decNumber/decNumber.c #if DECDPUN==4 // use divide-by-multiply DECDPUN 6107 src/decNumber/decNumber.c #elif DECDPUN==3 DECDPUN 6125 src/decNumber/decNumber.c #elif DECDPUN<=2 DECDPUN 6128 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6135 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6176 src/decNumber/decNumber.c #if DECDPUN==4 // use divide-by-multiply DECDPUN 6194 src/decNumber/decNumber.c #elif DECDPUN==3 DECDPUN 6212 src/decNumber/decNumber.c #elif DECDPUN<=2 DECDPUN 6214 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6221 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6307 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6322 src/decNumber/decNumber.c if (cut>DECDPUN) { // need new Unit DECDPUN 6383 src/decNumber/decNumber.c if ((digits+shift)<=DECDPUN) { // [fastpath] single-unit case DECDPUN 6391 src/decNumber/decNumber.c cut=DECDPUN-MSUDIGITS(shift); // where to slice DECDPUN 6399 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6408 src/decNumber/decNumber.c next=rem*powers[DECDPUN-cut]; // save remainder for next Unit DECDPUN 6439 src/decNumber/decNumber.c if (shift==units*DECDPUN) { // [fastpath] little to do DECDPUN 6446 src/decNumber/decNumber.c if (cut==DECDPUN) { // unit-boundary case; easy DECDPUN 6454 src/decNumber/decNumber.c count=units*DECDPUN-shift; // the maximum new length DECDPUN 6455 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6462 src/decNumber/decNumber.c count-=(DECDPUN-cut); DECDPUN 6466 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6473 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); DECDPUN 6588 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6598 src/decNumber/decNumber.c for (target=dn->lsu; count>0; target++, up++, count-=DECDPUN) DECDPUN 6617 src/decNumber/decNumber.c for (up=lsu; count>0; up++, count-=DECDPUN) if (*up!=0) { // found non-0 DECDPUN 6636 src/decNumber/decNumber.c count+=DECDPUN; DECDPUN 6642 src/decNumber/decNumber.c cut=discard-(count-DECDPUN)-1; DECDPUN 6643 src/decNumber/decNumber.c if (cut==DECDPUN-1) { // unit-boundary case (fast) DECDPUN 6644 src/decNumber/decNumber.c Unit half=(Unit)powers[DECDPUN]>>1; DECDPUN 6662 src/decNumber/decNumber.c for (target=dn->lsu; count>0; target++, up++, count-=DECDPUN) DECDPUN 6672 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6682 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6708 src/decNumber/decNumber.c count-=(DECDPUN-cut); DECDPUN 6712 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6719 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); DECDPUN 6849 src/decNumber/decNumber.c if (count<=DECDPUN) { DECDPUN 6864 src/decNumber/decNumber.c count-=DECDPUN; DECDPUN 6873 src/decNumber/decNumber.c if (count<=DECDPUN) { DECDPUN 6880 src/decNumber/decNumber.c for (up=up-1; up>=dn->lsu; up--) *up=(Unit)powers[DECDPUN]-1; DECDPUN 6900 src/decNumber/decNumber.c count-=DECDPUN; DECDPUN 7086 src/decNumber/decNumber.c if (count>DECDPUN) *up=DECDPUNMAX; // unit full o'nines DECDPUN 7091 src/decNumber/decNumber.c count-=DECDPUN; // filled those digits DECDPUN 7248 src/decNumber/decNumber.c for (; count>=DECDPUN; up++) { DECDPUN 7250 src/decNumber/decNumber.c count-=DECDPUN; DECDPUN 7256 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 7265 src/decNumber/decNumber.c got=DECDPUN-count; // number of digits so far DECDPUN 7272 src/decNumber/decNumber.c if (got==0) {theInt=*up; got+=DECDPUN; up++;} // ensure lsu is there DECDPUN 7279 src/decNumber/decNumber.c got+=DECDPUN; DECDPUN 7282 src/decNumber/decNumber.c if (theInt/(Int)powers[got-DECDPUN]!=(Int)*(up-1)) ilength=11; DECDPUN 7321 src/decNumber/decNumber.c if (cut!=DECDPUN) *msu%=powers[cut]; // clear left digits DECDPUN 7391 src/decNumber/decNumber.c res->digits=D2U(set->digits)*DECDPUN; DECDPUN 7446 src/decNumber/decNumber.c Int digits=(len-1)*DECDPUN+1; // possible digits excluding msu DECDPUN 7447 src/decNumber/decNumber.c #if DECDPUN>4 DECDPUN 7454 src/decNumber/decNumber.c digits-=DECDPUN; // adjust for 0 unit DECDPUN 7457 src/decNumber/decNumber.c #if DECDPUN>1 // not done yet DECDPUN 7460 src/decNumber/decNumber.c # if DECDPUN>2 // not done yet DECDPUN 7463 src/decNumber/decNumber.c # if DECDPUN>3 // not done yet DECDPUN 7466 src/decNumber/decNumber.c # if DECDPUN>4 // count the rest ... DECDPUN 59 src/decNumber/decNumber.h # if DECDPUN<=2 DECDPUN 61 src/decNumber/decNumber.h # elif DECDPUN<=4 DECDPUN 67 src/decNumber/decNumber.h # define DECNUMUNITS ((DECNUMDIGITS+DECDPUN-1)/DECDPUN) DECDPUN 227 src/decNumber/decNumberLocal.h # if DECDPUN==1 DECDPUN 233 src/decNumber/decNumberLocal.h # elif DECDPUN==2 DECDPUN 238 src/decNumber/decNumberLocal.h # elif DECDPUN==3 DECDPUN 243 src/decNumber/decNumberLocal.h # elif DECDPUN==4 DECDPUN 248 src/decNumber/decNumberLocal.h # elif DECDPUN==5 DECDPUN 253 src/decNumber/decNumberLocal.h # elif DECDPUN==6 DECDPUN 258 src/decNumber/decNumberLocal.h # elif DECDPUN==7 DECDPUN 263 src/decNumber/decNumberLocal.h # elif DECDPUN==8 DECDPUN 268 src/decNumber/decNumberLocal.h # elif DECDPUN==9 DECDPUN 273 src/decNumber/decNumberLocal.h # elif defined(DECDPUN) DECDPUN 289 src/decNumber/decNumberLocal.h # if DECDPUN==8 DECDPUN 291 src/decNumber/decNumberLocal.h # elif DECDPUN==4 DECDPUN 294 src/decNumber/decNumberLocal.h # define D2U(d) ((d)<=DECMAXD2U?d2utable[d]:((d)+DECDPUN-1)/DECDPUN) DECDPUN 297 src/decNumber/decNumberLocal.h # define SD2U(d) (((d)+DECDPUN-1)/DECDPUN) DECDPUN 301 src/decNumber/decNumberLocal.h # define MSUDIGITS(d) ((d)-(D2U(d)-1)*DECDPUN) DECDPUN 171 src/dps8/dps8_decimal.c if (cut==DECDPUN) DECDPUN 228 src/dps8/dps8_decimal.c DECDPUN 231 src/dps8/dps8_decimal.c DECDPUN 249 src/dps8/dps8_decimal.c DECDPUN 251 src/dps8/dps8_decimal.c DECDPUN 12164 src/dps8/dps8_eis.c DECDPUN 12167 src/dps8/dps8_eis.c DECDPUN 12185 src/dps8/dps8_eis.c DECDPUN 12187 src/dps8/dps8_eis.c DECDPUN 12332 src/dps8/dps8_eis.c