Lines Matching defs:var1
4204 /* Exp =Exp +len(var1) -len(var2) */
4206 /* Pad accumulator (Var1) to double-length with 0's (pad1) */
4207 /* Pad Var2 to same length as Var1 */
4236 /* Return (Result is defined by Var1) */
4241 /* long subtractions. These are acc and var1 respectively. */
4242 /* var1 is a copy of the lhs coefficient, var2 is the rhs coefficient.*/
4261 Unit varbuff[SD2U(DECBUFFER*2+DECDPUN)]; /* buffer for var1 */
4262 Unit *var1=varbuff; /* -> var1 array for long subtraction */
4264 Unit *msu1; /* -> msu of var1 */
4273 Int var1initpad=0; /* var1 initial padding (digits) */
4443 /* var1 is the padded LHS ready for subtractions. */
4445 /* The maximum units needed for var1 (long subtraction) is: */
4465 var1=varalloc; /* use the allocated space */
4469 /* is truly extended into the var1 buffer, with 0 padding, so a */
4474 msu1=var1+var1units-1; /* msu of var1 */
4477 for (; target>=var1; target--) *target=0;
4479 /* rhs (var2) is left-aligned with var1 at the start */
4498 /* number of leading zeros in var1 msu and subtract those in var2 msu. */
4505 /* the result will be Unit-aligned. To do this, shift the var1 */
4511 /* save the initial 'false' padding of var1, in digits */
4516 decShiftToLeast(var1, var1units, cut);
4542 for (; *msu1==0 && msu1>var1; msu1--) var1units--;
4544 if (var1units<var2ulen) break; /* var1 too low for subtract */
4555 if (pv1==var1) break; /* done; leave pv1 as is */
4558 if (*pv1<v2) break; /* var1 too low to subtract */
4559 if (*pv1==v2) { /* var1 == var2 */
4560 /* reach here if var1 and var2 are identical; subtraction */
4564 *var1=0; /* set var1 to 0 */
4567 } /* var1 == var2 */
4574 /* The var2 msu is one unit towards the lsu of the var1 msu, */
4579 /* subtraction needed; var1 is > var2 */
4581 /* subtract var1-var2, into var1; only the overlap needs */
4585 decDumpAr('1', &var1[shift], var1units-shift);
4589 decUnitAddSub(&var1[shift], var1units-shift,
4591 &var1[shift], -mult);
4593 decDumpAr('#', &var1[shift], var1units-shift);
4595 /* var1 now probably has leading zeros; these are removed at the */
4616 if (*var1==0 && var1units==1) { /* residue is 0 */
4625 /* to get here, var1 is less than var2, so divide var2 by the per- */
4634 /* var1 has any residue at the stopping point */
4647 if (*var1!=0 || var1units>1) residue=1;
4685 /* [Here, the exponent will be 0, because var1 was adjusted */
4696 if (*var1==0 && var1units==1) { /* residue is 0 */
4713 /* treat the residue, in var1, as the value to return, via acc */
4715 /* var1 initial padding (saved above) */
4721 /* shift var1 the requested amount, and adjust its digits */
4722 var1units=decShiftToLeast(var1, var1units, postshift);
4723 accnext=var1;
4724 accdigits=decGetDigits(var1, var1units);
4736 /* calculate remainder*2 into the var1 buffer (which has */
4743 /* Here, accnext (var1) holds tarunits Units with twice the */
4786 /* rem-rhs is needed; the sign will invert. Again, var1 */
