Home | History | Annotate | Download | only in spmath

Lines Matching defs:opnd1

57 	register unsigned int opnd1, opnd2, result;
61 	opnd1 = *srcptr1;
66 	if ((opnd1_exponent = Sgl_exponent(opnd1)) == SGL_INFINITY_EXPONENT) {
67 		if (Sgl_iszero_mantissa(opnd1)) {
82 			if (Sgl_isone_signaling(opnd1)) {
88 				Sgl_set_quiet(opnd1);
106 			*dstptr = opnd1;
118 			*dstptr = opnd1;
152 	result = opnd1;
159 		if (Sgl_iszero_mantissa(opnd1)) {
160 			*dstptr = opnd1;
165 		Sgl_normalize(opnd1,opnd1_exponent);
168 		Sgl_clear_signexponent_set_hidden(opnd1);
184 	 * check for opnd1/opnd2 < 1
188 		 * check for opnd1/opnd2 > 1/2
191 		 *    r = opnd1 - opnd2
193 		if (stepcount == -1 && Sgl_isgreaterthan(opnd1,opnd2)) {
195 			/* align opnd2 with opnd1 */
197 			Sgl_subtract(opnd2,opnd1,opnd2);
207 		 * opnd1/opnd2 <= 1/2
210 		 *    r = opnd1
212 		Sgl_set_exponentmantissa(result,opnd1);
222 	while (stepcount-- > 0 && Sgl_all(opnd1)) {
223 		if (Sgl_isnotlessthan(opnd1,opnd2))
224 			Sgl_subtract(opnd1,opnd2,opnd1);
225 		Sgl_leftshiftby1(opnd1);
231 	if (Sgl_isnotlessthan(opnd1,opnd2)) {
232 		Sgl_subtract(opnd1,opnd2,opnd1);
235 	if (stepcount > 0 || Sgl_iszero(opnd1)) {
243 	 * Check for cases where opnd1/opnd2 < n
246 	 * opnd1.  The mantissa also needs some correction.
248 	Sgl_leftshiftby1(opnd1);
249 	if (Sgl_isgreaterthan(opnd1,opnd2)) {
251 		Sgl_subtract((opnd2<<1),opnd1,opnd1);
254 	else if (Sgl_isequal(opnd1,opnd2) && roundup) {
259 	while (Sgl_iszero_hidden(opnd1)) {
261 		Sgl_leftshiftby1(opnd1);
263 	Sgl_set_exponentmantissa(result,opnd1);