DECDPUN 201 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 334 src/decNumber/decNumber.c #if DECDPUN>1 // split to higher DECDPUN 340 src/decNumber/decNumber.c for (d=DECDPUN; d<dn->digits; up++, d+=DECDPUN) hi+=*up*powers[d-1]; DECDPUN 367 src/decNumber/decNumber.c #if DECDPUN>1 // split to higher DECDPUN 373 src/decNumber/decNumber.c for (d=DECDPUN; d<dn->digits; up++, d+=DECDPUN) hi+=*up*powers[d-1]; DECDPUN 441 src/decNumber/decNumber.c #if DECDPUN>1 DECDPUN 598 src/decNumber/decNumber.c #if DECDPUN>1 DECDPUN 601 src/decNumber/decNumber.c cut=d-(up-res)*DECDPUN; // digits in top unit DECDPUN 610 src/decNumber/decNumber.c cut=DECDPUN; // .. DECDPUN 751 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 1111 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 1385 src/decNumber/decNumber.c #if DECDPUN==1 DECDPUN 1707 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 2371 src/decNumber/decNumber.c units=rotate/DECDPUN; // whole units to rotate DECDPUN 2372 src/decNumber/decNumber.c shift=rotate%DECDPUN; // left-over digits count DECDPUN 2380 src/decNumber/decNumber.c +(Unit)(rem*powers[DECDPUN-(shift-msudigits)]); // .. DECDPUN 2392 src/decNumber/decNumber.c shift=DECDPUN-msudigits; DECDPUN 2773 src/decNumber/decNumber.c #if DECDPUN>=3 DECDPUN 2776 src/decNumber/decNumber.c #elif DECDPUN==2 DECDPUN 2790 src/decNumber/decNumber.c #if DECDPUN>=3 DECDPUN 2793 src/decNumber/decNumber.c #elif DECDPUN==2 DECDPUN 3090 src/decNumber/decNumber.c for (i=0; i<DECDPUN; i++) { DECDPUN 3186 src/decNumber/decNumber.c if (src->digits>DECDPUN) { // more Units to come DECDPUN 3270 src/decNumber/decNumber.c #if DECDPUN==1 // trivial simple copy DECDPUN 3274 src/decNumber/decNumber.c uInt cut=DECDPUN; // downcounter through unit DECDPUN 3282 src/decNumber/decNumber.c cut=DECDPUN; DECDPUN 3304 src/decNumber/decNumber.c #if DECDPUN==1 // trivial simple copy DECDPUN 3312 src/decNumber/decNumber.c cut=DECDPUN; // next Unit has all digits DECDPUN 3454 src/decNumber/decNumber.c cut=DECDPUN-1; // next Unit has all digits DECDPUN 3498 src/decNumber/decNumber.c cut=DECDPUN-1; DECDPUN 3509 src/decNumber/decNumber.c cut=DECDPUN-1; DECDPUN 3525 src/decNumber/decNumber.c cut=DECDPUN-1; DECDPUN 3730 src/decNumber/decNumber.c && rhs->digits<=DECDPUN DECDPUN 3739 src/decNumber/decNumber.c && (lhs->digits>=DECDPUN || // .. and no digits-count change DECDPUN 3794 src/decNumber/decNumber.c mult=powers[padding-(rhsshift*DECDPUN)]; // .. this by multiplication DECDPUN 3832 src/decNumber/decNumber.c *DECDPUN; // [units -> digits] DECDPUN 3988 src/decNumber/decNumber.c Unit accbuff[SD2U(DECBUFFER+DECDPUN+10)]; // local buffer DECDPUN 3996 src/decNumber/decNumber.c Unit varbuff[SD2U(DECBUFFER*2+DECDPUN)]; // buffer for var1 DECDPUN 4164 src/decNumber/decNumber.c acclength=D2U(reqdigits+DECDPUN); // in Units DECDPUN 4243 src/decNumber/decNumber.c var1initpad=(var1units-D2U(lhs->digits))*DECDPUN; DECDPUN 4246 src/decNumber/decNumber.c else cut=DECDPUN-exponent%DECDPUN; DECDPUN 4251 src/decNumber/decNumber.c for (u=msu1; cut>=DECDPUN; cut-=DECDPUN, u--) *u=0; DECDPUN 4259 src/decNumber/decNumber.c exponent-=DECDPUN; // update the exponent DECDPUN 4331 src/decNumber/decNumber.c else accdigits+=DECDPUN; DECDPUN 4354 src/decNumber/decNumber.c exponent-=DECDPUN; // update the exponent DECDPUN 4379 src/decNumber/decNumber.c #if DECDPUN>1 DECDPUN 4386 src/decNumber/decNumber.c # if DECDPUN<=4 DECDPUN 4499 src/decNumber/decNumber.c if (quotdigits>DECDPUN) { DECDPUN 4506 src/decNumber/decNumber.c quotdigits-=DECDPUN; // checked those digits DECDPUN 4517 src/decNumber/decNumber.c expunits=exp/DECDPUN; DECDPUN 4518 src/decNumber/decNumber.c exprem=exp%DECDPUN; DECDPUN 4593 src/decNumber/decNumber.c #define FASTMUL (DECUSE64 && DECDPUN<5) DECDPUN 4613 src/decNumber/decNumber.c # if DECDPUN & 1 // odd DECDPUN 4634 src/decNumber/decNumber.c # if DECDPUN==1 DECDPUN 4703 src/decNumber/decNumber.c # define NEEDTWO (DECDPUN*2) // within two decUnitAddSub calls DECDPUN 4728 src/decNumber/decNumber.c # if DECDPUN==1 DECDPUN 4740 src/decNumber/decNumber.c # if DECDPUN==1 DECDPUN 4747 src/decNumber/decNumber.c p+=DECDPUN, cup++, count-=DECDPUN) DECDPUN 4752 src/decNumber/decNumber.c p+=DECDPUN, cup++, count-=DECDPUN) DECDPUN 4813 src/decNumber/decNumber.c for (p=0; p<FASTDIGS-DECDPUN; p+=DECDPUN, up++) { DECDPUN 5368 src/decNumber/decNumber.c #if DECDPUN==1 DECDPUN 5997 src/decNumber/decNumber.c expunits=exp/DECDPUN; DECDPUN 5998 src/decNumber/decNumber.c exprem=exp%DECDPUN; DECDPUN 6070 src/decNumber/decNumber.c #if DECDPUN<=4 // myriadal, millenary, etc. DECDPUN 6109 src/decNumber/decNumber.c #if DECDPUN==4 // use divide-by-multiply DECDPUN 6127 src/decNumber/decNumber.c #elif DECDPUN==3 DECDPUN 6145 src/decNumber/decNumber.c #elif DECDPUN<=2 DECDPUN 6148 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6155 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6196 src/decNumber/decNumber.c #if DECDPUN==4 // use divide-by-multiply DECDPUN 6214 src/decNumber/decNumber.c #elif DECDPUN==3 DECDPUN 6232 src/decNumber/decNumber.c #elif DECDPUN<=2 DECDPUN 6234 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6241 src/decNumber/decNumber.c est=QUOT10(carry, DECDPUN); DECDPUN 6327 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6342 src/decNumber/decNumber.c if (cut>DECDPUN) { // need new Unit DECDPUN 6403 src/decNumber/decNumber.c if ((digits+shift)<=DECDPUN) { // [fastpath] single-unit case DECDPUN 6411 src/decNumber/decNumber.c cut=DECDPUN-MSUDIGITS(shift); // where to slice DECDPUN 6419 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6428 src/decNumber/decNumber.c next=rem*powers[DECDPUN-cut]; // save remainder for next Unit DECDPUN 6459 src/decNumber/decNumber.c if (shift==units*DECDPUN) { // [fastpath] little to do DECDPUN 6466 src/decNumber/decNumber.c if (cut==DECDPUN) { // unit-boundary case; easy DECDPUN 6474 src/decNumber/decNumber.c count=units*DECDPUN-shift; // the maximum new length DECDPUN 6475 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6482 src/decNumber/decNumber.c count-=(DECDPUN-cut); DECDPUN 6486 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6493 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); DECDPUN 6608 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6618 src/decNumber/decNumber.c for (target=dn->lsu; count>0; target++, up++, count-=DECDPUN) DECDPUN 6637 src/decNumber/decNumber.c for (up=lsu; count>0; up++, count-=DECDPUN) if (*up!=0) { // found non-0 DECDPUN 6656 src/decNumber/decNumber.c count+=DECDPUN; DECDPUN 6662 src/decNumber/decNumber.c cut=discard-(count-DECDPUN)-1; DECDPUN 6663 src/decNumber/decNumber.c if (cut==DECDPUN-1) { // unit-boundary case (fast) DECDPUN 6664 src/decNumber/decNumber.c Unit half=(Unit)powers[DECDPUN]>>1; DECDPUN 6682 src/decNumber/decNumber.c for (target=dn->lsu; count>0; target++, up++, count-=DECDPUN) DECDPUN 6692 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6702 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6728 src/decNumber/decNumber.c count-=(DECDPUN-cut); DECDPUN 6732 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 6739 src/decNumber/decNumber.c *target=(Unit)(*target+rem*powers[DECDPUN-cut]); DECDPUN 6869 src/decNumber/decNumber.c if (count<=DECDPUN) { DECDPUN 6884 src/decNumber/decNumber.c count-=DECDPUN; DECDPUN 6893 src/decNumber/decNumber.c if (count<=DECDPUN) { DECDPUN 6900 src/decNumber/decNumber.c for (up=up-1; up>=dn->lsu; up--) *up=(Unit)powers[DECDPUN]-1; DECDPUN 6922 src/decNumber/decNumber.c count-=DECDPUN; DECDPUN 7108 src/decNumber/decNumber.c if (count>DECDPUN) *up=DECDPUNMAX; // unit full o'nines DECDPUN 7113 src/decNumber/decNumber.c count-=DECDPUN; // filled those digits DECDPUN 7270 src/decNumber/decNumber.c for (; count>=DECDPUN; up++) { DECDPUN 7272 src/decNumber/decNumber.c count-=DECDPUN; DECDPUN 7278 src/decNumber/decNumber.c #if DECDPUN<=4 DECDPUN 7287 src/decNumber/decNumber.c got=DECDPUN-count; // number of digits so far DECDPUN 7294 src/decNumber/decNumber.c if (got==0) {theInt=*up; got+=DECDPUN; up++;} // ensure lsu is there DECDPUN 7301 src/decNumber/decNumber.c got+=DECDPUN; DECDPUN 7304 src/decNumber/decNumber.c if (theInt/(Int)powers[got-DECDPUN]!=(Int)*(up-1)) ilength=11; DECDPUN 7343 src/decNumber/decNumber.c if (cut!=DECDPUN) *msu%=powers[cut]; // clear left digits DECDPUN 7413 src/decNumber/decNumber.c res->digits=D2U(set->digits)*DECDPUN; DECDPUN 7468 src/decNumber/decNumber.c Int digits=(len-1)*DECDPUN+1; // possible digits excluding msu DECDPUN 7469 src/decNumber/decNumber.c #if DECDPUN>4 DECDPUN 7476 src/decNumber/decNumber.c digits-=DECDPUN; // adjust for 0 unit DECDPUN 7479 src/decNumber/decNumber.c #if DECDPUN>1 // not done yet DECDPUN 7482 src/decNumber/decNumber.c # if DECDPUN>2 // not done yet DECDPUN 7485 src/decNumber/decNumber.c # if DECDPUN>3 // not done yet DECDPUN 7488 src/decNumber/decNumber.c # if DECDPUN>4 // count the rest ... DECDPUN 60 src/decNumber/decNumber.h # if DECDPUN<=2 DECDPUN 62 src/decNumber/decNumber.h # elif DECDPUN<=4 DECDPUN 68 src/decNumber/decNumber.h # define DECNUMUNITS ((DECNUMDIGITS+DECDPUN-1)/DECDPUN) DECDPUN 225 src/decNumber/decNumberLocal.h # if DECDPUN==1 DECDPUN 231 src/decNumber/decNumberLocal.h # elif DECDPUN==2 DECDPUN 236 src/decNumber/decNumberLocal.h # elif DECDPUN==3 DECDPUN 241 src/decNumber/decNumberLocal.h # elif DECDPUN==4 DECDPUN 246 src/decNumber/decNumberLocal.h # elif DECDPUN==5 DECDPUN 251 src/decNumber/decNumberLocal.h # elif DECDPUN==6 DECDPUN 256 src/decNumber/decNumberLocal.h # elif DECDPUN==7 DECDPUN 261 src/decNumber/decNumberLocal.h # elif DECDPUN==8 DECDPUN 266 src/decNumber/decNumberLocal.h # elif DECDPUN==9 DECDPUN 271 src/decNumber/decNumberLocal.h # elif defined(DECDPUN) DECDPUN 287 src/decNumber/decNumberLocal.h # if DECDPUN==8 DECDPUN 289 src/decNumber/decNumberLocal.h # elif DECDPUN==4 DECDPUN 292 src/decNumber/decNumberLocal.h # define D2U(d) ((d)<=DECMAXD2U?d2utable[d]:((d)+DECDPUN-1)/DECDPUN) DECDPUN 295 src/decNumber/decNumberLocal.h # define SD2U(d) (((d)+DECDPUN-1)/DECDPUN) DECDPUN 299 src/decNumber/decNumberLocal.h # define MSUDIGITS(d) ((d)-(D2U(d)-1)*DECDPUN) DECDPUN 170 src/dps8/dps8_decimal.c if (cut==DECDPUN) DECDPUN 227 src/dps8/dps8_decimal.c DECDPUN 230 src/dps8/dps8_decimal.c DECDPUN 248 src/dps8/dps8_decimal.c DECDPUN 250 src/dps8/dps8_decimal.c DECDPUN 12037 src/dps8/dps8_eis.c DECDPUN 12040 src/dps8/dps8_eis.c DECDPUN 12058 src/dps8/dps8_eis.c DECDPUN 12060 src/dps8/dps8_eis.c DECDPUN 12205 src/dps8/dps8_eis.c