Lines Matching refs:DECDPUNMAX
386 *up=(Unit)(uin%(DECDPUNMAX+1));
387 uin=uin/(DECDPUNMAX+1);
3984 if ((partial<=DECDPUNMAX) /* result fits in unit */
4495 msu2pair=(eInt)*msu2*(DECDPUNMAX+1);/* top two pair .. */
4577 mult=(Int)(((eInt)*msu1*(DECDPUNMAX+1)+*(msu1-1))/msu2pair);
4582 mult=(Int)(((eInt)*msu1*(DECDPUNMAX+1)+*(msu1-1))/msu2plus);
4765 *(up-1)+=(DECDPUNMAX+1)/2;
4779 if (*up!=DECDPUNMAX) break;/* non-nines */
5100 uInt part=item/(DECDPUNMAX+1);
5101 *up=(Unit)(item-(part*(DECDPUNMAX+1)));
6343 /* Where M is in the range -DECDPUNMAX through +DECDPUNMAX. */
6431 if ((ueInt)carry<=DECDPUNMAX) { /* fastpath 0-DECDPUNMAX */
6439 *c=(Unit)(carry-est*(DECDPUNMAX+1)); /* remainder */
6441 if (*c<DECDPUNMAX+1) continue; /* estimate was correct */
6443 *c-=DECDPUNMAX+1;
6447 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6449 *c=(Unit)(carry-est*(DECDPUNMAX+1));
6450 carry=est-(DECDPUNMAX+1); /* correctly negative */
6451 if (*c<DECDPUNMAX+1) continue; /* was OK */
6453 *c-=DECDPUNMAX+1;
6457 *c=(Unit)(carry-est*(DECDPUNMAX+1)); /* remainder */
6459 if (*c<DECDPUNMAX+1) continue; /* estimate was correct */
6461 *c-=DECDPUNMAX+1;
6465 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6467 *c=(Unit)(carry-est*(DECDPUNMAX+1));
6468 carry=est-(DECDPUNMAX+1); /* correctly negative */
6469 if (*c<DECDPUNMAX+1) continue; /* was OK */
6471 *c-=DECDPUNMAX+1;
6476 *c=(Unit)(carry-est*(DECDPUNMAX+1)); /* remainder */
6481 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6483 *c=(Unit)(carry-est*(DECDPUNMAX+1));
6484 carry=est-(DECDPUNMAX+1); /* correctly negative */
6487 if ((ueInt)carry<(DECDPUNMAX+1)*2) { /* fastpath carry +1 */
6488 *c=(Unit)(carry-(DECDPUNMAX+1)); /* [helps additions] */
6493 *c=(Unit)(carry%(DECDPUNMAX+1));
6494 carry=carry/(DECDPUNMAX+1);
6498 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6499 *c=(Unit)(carry%(DECDPUNMAX+1));
6500 carry=carry/(DECDPUNMAX+1)-(DECDPUNMAX+1);
6516 /* magnitude up to DECDPUNMAX squared */
6517 if ((ueInt)carry<=DECDPUNMAX) { /* fastpath 0-DECDPUNMAX */
6522 /* result for this unit is negative or >DECDPUNMAX */
6526 *c=(Unit)(carry-est*(DECDPUNMAX+1)); /* remainder */
6528 if (*c<DECDPUNMAX+1) continue; /* estimate was correct */
6530 *c-=DECDPUNMAX+1;
6534 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6536 *c=(Unit)(carry-est*(DECDPUNMAX+1));
6537 carry=est-(DECDPUNMAX+1); /* correctly negative */
6538 if (*c<DECDPUNMAX+1) continue; /* was OK */
6540 *c-=DECDPUNMAX+1;
6544 *c=(Unit)(carry-est*(DECDPUNMAX+1)); /* remainder */
6546 if (*c<DECDPUNMAX+1) continue; /* estimate was correct */
6548 *c-=DECDPUNMAX+1;
6552 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6554 *c=(Unit)(carry-est*(DECDPUNMAX+1));
6555 carry=est-(DECDPUNMAX+1); /* correctly negative */
6556 if (*c<DECDPUNMAX+1) continue; /* was OK */
6558 *c-=DECDPUNMAX+1;
6562 *c=(Unit)(carry-est*(DECDPUNMAX+1)); /* remainder */
6567 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6569 *c=(Unit)(carry-est*(DECDPUNMAX+1));
6570 carry=est-(DECDPUNMAX+1); /* correctly negative */
6572 if ((ueInt)carry<(DECDPUNMAX+1)*2){ /* fastpath carry 1 */
6573 *c=(Unit)(carry-(DECDPUNMAX+1));
6579 *c=(Unit)(carry%(DECDPUNMAX+1));
6580 carry=carry/(DECDPUNMAX+1);
6584 carry=carry+(eInt)(DECDPUNMAX+1)*(DECDPUNMAX+1); /* make positive */
6585 *c=(Unit)(carry%(DECDPUNMAX+1));
6586 carry=carry/(DECDPUNMAX+1)-(DECDPUNMAX+1);
6601 add=DECDPUNMAX+add-*c;
6602 if (add<=DECDPUNMAX) {
7221 if (*up!=DECDPUNMAX) break; /* not still 9s */
7447 if (count>DECDPUN) *up=DECDPUNMAX; /* unit full o'nines */
8054 if (d>DECDPUN) maxuint=DECDPUNMAX;
