994   decContext workset;		/* working context */  in decNumberPower()  local
1083       workset = *set;		/* copy all fields */  in decNumberPower()
1085       workset.digits = reqdigits + (inrhs->digits + inrhs->exponent) + 1;  in decNumberPower()
1087       if (workset.digits > DECNUMMAXP)  in decNumberPower()
1096 	sizeof (decNumber) + (D2U (workset.digits) - 1) * sizeof (Unit);  in decNumberPower()
1136 	      decDivideOp (dac, &dnOne, lhs, &workset, DIVIDE, &status);  in decNumberPower()
1180 	      decMultiplyOp (dac, dac, lhs, &workset, &status);	/* dac=dac*x */  in decNumberPower()
1186 	  decMultiplyOp (dac, dac, dac, &workset, &status);	/* dac=dac*dac [square] */  in decNumberPower()
1219 	  decDivideOp (dac, &dnOne, dac, &workset, DIVIDE, &status);  in decNumberPower()
1457   decContext workset, approxset;	/* work contexts */  in decNumberSquareRoot()  local
1583       decContextDefault (&workset, DEC_INIT_DECIMAL64);  in decNumberSquareRoot()
1591       workset.digits = set->digits;	/* p for initial calculation */  in decNumberSquareRoot()
1642       decMultiplyOp (a, a, f, &workset, &ignore);	/* a=a*f */  in decNumberSquareRoot()
1643       decAddOp (a, a, t, &workset, 0, &ignore);	/* ..+t */  in decNumberSquareRoot()
1652       workset.digits = 3;	/* initial p */  in decNumberSquareRoot()
1656 	  workset.digits = workset.digits * 2 - 2;  in decNumberSquareRoot()
1657 	  if (workset.digits > maxp)  in decNumberSquareRoot()
1658 	    workset.digits = maxp;  in decNumberSquareRoot()
1661 	  decDivideOp (b, f, a, &workset, DIVIDE, &ignore);	/* b=f/a */  in decNumberSquareRoot()
1662 	  decAddOp (b, b, a, &workset, 0, &ignore);	/* b=b+a */  in decNumberSquareRoot()
1663 	  decMultiplyOp (a, b, t, &workset, &ignore);	/* a=b*0.5 */  in decNumberSquareRoot()
1666 	  if (workset.digits == maxp)  in decNumberSquareRoot()
1674       workset.digits--;		/* maxp-1 is OK now */  in decNumberSquareRoot()
1677       decAddOp (b, b, t, &workset, DECNEG, &ignore);	/* b = a - 0.5 ulp */  in decNumberSquareRoot()
1678       workset.round = DEC_ROUND_UP;  in decNumberSquareRoot()
1679       decMultiplyOp (b, b, b, &workset, &ignore);	/* b = mulru(b, b) */  in decNumberSquareRoot()
1680       decCompareOp (b, f, b, &workset, COMPARE, &ignore);	/* b ? f, reversed */  in decNumberSquareRoot()
1686 	  decAddOp (a, a, t, &workset, DECNEG, &ignore);	/* a = a - 1 ulp */  in decNumberSquareRoot()
1693 	  decAddOp (b, b, t, &workset, 0, &ignore);	/* b = a + 0.5 ulp */  in decNumberSquareRoot()
1694 	  workset.round = DEC_ROUND_DOWN;  in decNumberSquareRoot()
1695 	  decMultiplyOp (b, b, b, &workset, &ignore);	/* b = mulrd(b, b) */  in decNumberSquareRoot()
1696 	  decCompareOp (b, b, f, &workset, COMPARE, &ignore);	/* b ? f */  in decNumberSquareRoot()
1701 	      decAddOp (a, a, t, &workset, 0, &ignore);	/* a = a + 1 ulp */  in decNumberSquareRoot()
1730 	  decMultiplyOp (b, b, b, &workset, &mstatus);	/* try the multiply */  in decNumberSquareRoot()
1737 	      decCompareOp (t, b, rhs, &workset, COMPARE, &mstatus);	/* b ? rhs */  in decNumberSquareRoot()
1828   decContext workset;		/* working context */  in decNumberToIntegralValue()  local
1852   workset = *set;		/* clone rounding, etc. */  in decNumberToIntegralValue()
1853   workset.digits = rhs->digits;	/* no length rounding */  in decNumberToIntegralValue()
1854   workset.traps = 0;		/* no traps */  in decNumberToIntegralValue()
1856   return decNumberQuantize (res, rhs, &dn, &workset);  in decNumberToIntegralValue()
3719 	      decContext workset;	/* work */  in decQuantizeOp()  local
3720 	      workset = *set;	/* clone rounding, etc. */  in decQuantizeOp()
3721 	      workset.digits = lhs->digits - adjust;	/* set requested length */  in decQuantizeOp()
3723 	      decCopyFit (res, lhs, &workset, &residue, status);	/* fit to result */  in decQuantizeOp()
3724 	      decApplyRound (res, &workset, residue, status);	/* .. and round */  in decQuantizeOp()
5269   decContext workset;		/* work */  in decSetSubnormal()  local
5327   workset = *set;		/* clone rounding, etc. */  in decSetSubnormal()
5328   workset.digits = dn->digits - adjust;	/* set requested length */  in decSetSubnormal()
5329   workset.emin -= adjust;	/* and adjust emin to match */  in decSetSubnormal()
5331   decSetCoeff (dn, &workset, dn->lsu, dn->digits, residue, status);  in decSetSubnormal()
5332   decApplyRound (dn, &workset, *residue, status);  in decSetSubnormal()