Lines Matching defs:adjust
665 exponent-=(last-dotchar); /* adjust exponent */
2304 /* lhs is A, the number to adjust */
2393 /* lhs is A, the number to adjust */
2629 /* lhs is A, the number to adjust */
2663 res->exponent+=reqexp; /* adjust the exponent */
3054 approxset.emin-=exp/2; /* adjust to match a */
3068 approxset.emin-=exp/2; /* adjust to match a */
3076 /* Here, 0.1 <= a < 1 (still), so adjust back */
3704 if (eng && (e!=0)) { /* engineering: may need to adjust */
3899 Int adjust; /* work */
3909 adjust=lexp-res->exponent; /* adjustment needed [if -ve] */
3911 if (adjust<0) res->exponent=lexp; /* set exponent */
3919 if (adjust<0) { /* 0-padding needed */
3920 if ((res->digits-adjust)>set->digits) {
3921 adjust=res->digits-set->digits; /* to fit exactly */
3924 res->digits=decShiftToMost(res->lsu, res->digits, -adjust);
3925 res->exponent+=adjust; /* set the exponent. */
3935 Int adjust; /* work */
3945 adjust=rexp-res->exponent; /* adjustment needed [if -ve] */
3946 if (adjust<0) { /* 0-padding needed */
3947 if ((res->digits-adjust)>set->digits) {
3948 adjust=res->digits-set->digits; /* to fit exactly */
3951 res->digits=decShiftToMost(res->lsu, res->digits, -adjust);
3952 res->exponent+=adjust; /* set the exponent. */
4039 res->exponent-=shift; /* adjust the exponent. */
4452 /* +1 -- for pre-adjust if a remainder or DIVIDEINT */
4497 /* both left-aligned. Adjust the exponent to compensate: add the */
4540 /* strip leading zero units [from either pre-adjust or from */
4721 /* shift var1 the requested amount, and adjust its digits */
5747 if (t<10) t=X10(t); /* adjust single-digit b */
5859 /* lhs is A, the number to adjust */
5948 Int adjust=reqexp-lhs->exponent; /* digit adjustment needed */
5950 if ((lhs->digits-adjust)>reqdigits) {
5955 if (adjust>0) { /* increasing exponent */
5956 /* this will decrease the length of the coefficient by adjust */
5960 workset.digits=lhs->digits-adjust; /* set requested length */
5966 /* adjust back (after checking space), if so. */
5976 res->exponent--; /* (re)adjust the exponent. */
5982 else /* adjust<=0 */ { /* decreasing or = exponent */
5983 /* this will increase the length of the coefficient by -adjust */
5987 /* if padding needed (adjust<0), add it now... */
5988 if (adjust<0) {
5989 res->digits=decShiftToMost(res->lsu, res->digits, -adjust);
5990 res->exponent+=adjust; /* adjust the exponent */
7194 /* and adjust the exponent by one (as otherwise could overflow */
7373 dn->exponent-=shift; /* adjust the exponent to match */
7472 Int etiny, adjust; /* .. */
7504 adjust=etiny-dn->exponent; /* calculate digits to remove */
7505 if (adjust<=0) { /* not out of range; unrounded */
7513 /* adjust>0, so need to rescale the result so exponent becomes Etiny */
7516 workset.digits=dn->digits-adjust; /* set requested length */
7517 workset.emin-=adjust; /* and adjust emin to match */
7526 /* if rounded up a 999s case, exponent will be off by one; adjust */
7530 dn->exponent--; /* (re)adjust the exponent. */
7822 digits-=DECDPUN; /* adjust for 0 unit */
