gcc/libdecnumber/decNumber.c

134 /*    rounding when more than one shortening takes place (for         */
192 static Unit one[] = { 1 };	/* Unit array of 1, used for incrementing */
705 /* C must have space for one digit.                                   */
719 /* decNumberDivide -- divide one number by another                    */
1201 		  status &= ~(DEC_Underflow | DEC_Subnormal);	/* [one or both] */
1938 /*   dn is the number to set, with space for one digit                */
2074       pre = 1;			/* assume one digit before '.' */
2093 	  /* one zero before the E, still.  Otherwise note the padding. */
2291 	    {			/* one or two infinities */
2398       /* is all in one unit, no operand rounding is needed, and no carry, */
2436          necessary.  If one number is much larger than the other (that is,
2437          if in plain form there is a least one digit between the lowest
2438          digit or one and the highest of the other) we need to pad with up
2701 /* We need two working buffers during the long division; one (digits+ */
2732   Int msu2plus;			/* msu2 plus one [does not vary] */
2733   eInt msu2pair;		/* msu2 pair plus one [does not vary] */
2787 	    {			/* one or two NaNs */
2791 	  /* one or two infinities */
2975       /* We allocated one guard unit above msu1 for rem=rem+rem in REMAINDERNEAR */
3058 	      /* subtract last time around].  Leave at least one unit. */
3087 		      /* would increase digit by one, and the residue will be 0 so */
3103 		  /* The var2 msu is one unit towards the lsu of the var1 msu, */
3104 		  /* so we can only use one unit for var2. */
3137 		  accdigits++;	/* at least one */
3177 	  accunits = 1;		/* show we have one .. */
3485 	    {			/* one or two NaNs */
3489 	  /* one or two infinities. Infinity * 0 is invalid */
3660 	  /* one infinity but not both is bad */
3726 	      /* If we rounded a 999s case, exponent will be off by one; */
3788 /* C must have space for one digit for COMPARE or set->digits for     */
3841       /* (even just one) leads to NaN. */
3849 	      /* here if MIN or MAX, and one or two quiet NaNs */
3852 		{		/* just one quiet NaN */
3984     {				/* one or more infinities */
4056   /* Unaligned.  If one is >1 unit longer than the other, padded */
4113 /*  shift), or one Unit longer than that (if a Unit carry occurred).  */
4135 /*  safe, allowing space if necessary for a one-Unit carry.           */
4194   /* and B contribute, and the second (if necessary) where only one or */
4252   /* we now may have one or other to complete */
4484   /* propagate to one below and clear the rest */
4646 /* decSetSubnormal) the value of set->digits may be less than one,    */
4977   /* the exponent by one (as otherwise we could overflow the array) */
5059   decUnitAddSub (dn->lsu, D2U (dn->digits), one, 1, 0, dn->lsu, bump);
5339   /* if we rounded up a 999s case, exponent will be off by one; adjust */
5448 /*   str1 is one of the strings to compare                            */
5487 /* Called when one or both operands is a NaN, and propagates the      */
5763 /* operation in some valid context (not necessarily the current one). */