Lines Matching defs:result
55 register unsigned int left, right, result, extent;
88 Sgl_makequietnan(result);
89 *dstptr = result;
198 /* Left is not a zero and must be the result. Trapped
221 /* Both operands are denormalized. The result must be exact
226 Sgl_subtract(left,/*minus*/right,/*into*/result);
227 if(Sgl_iszero_mantissa(result))
231 Sgl_setone_sign(result);
235 Sgl_setzero_sign(result);
237 *dstptr = result;
243 Sgl_addition(left,right,/*into*/result);
244 if(Sgl_isone_hidden(result))
246 *dstptr = result;
252 /* need to normalize result */
253 sign_save = Sgl_signextendedsign(result);
254 Sgl_leftshiftby1(result);
255 Sgl_normalize(result,result_exponent);
256 Sgl_set_sign(result,/*using*/sign_save);
257 Sgl_setwrapped_exponent(result,result_exponent,unfl);
258 *dstptr = result;
261 *dstptr = result;
297 Sgl_subtract_withextension(left,/*minus*/right,/*with*/extent,/*into*/result);
298 if(Sgl_iszero_hidden(result))
301 /* A straight foward algorithm would now shift the result
310 sign_save = Sgl_signextendedsign(result);
311 Sgl_leftshiftby1_withextent(result,extent,result);
313 /* Need to check for a zero result. The sign and exponent
317 if(Sgl_iszero(result))
320 if(Is_rounding_mode(ROUNDMINUS)) Sgl_setone_sign(result);
321 *dstptr = result;
326 if(Sgl_isone_hidden(result))
337 Sgl_set_sign(result,/*using*/sign_save);
353 * modified binary search. We have already shifted the result
357 while(Sgl_iszero_hiddenhigh7mantissa(result))
359 Sgl_leftshiftby8(result);
364 if(Sgl_iszero_hiddenhigh3mantissa(result))
367 Sgl_leftshiftby4(result);
373 if((jumpsize = Sgl_hiddenhigh3mantissa(result)) > 7)
377 Sgl_set_sign(result,/*using*/sign_save);
378 Sgl_set_exponent(result,/*using*/result_exponent);
379 *dstptr = result;
382 Sgl_sethigh4bits(result,/*using*/sign_save);
387 Sgl_leftshiftby3(result);
394 Sgl_leftshiftby2(result);
403 Sgl_leftshiftby1(result);
410 Sgl_set_exponent(result,/*using*/result_exponent);
411 *dstptr = result;
418 Sgl_set_sign(result,sign_save);
419 Sgl_setwrapped_exponent(result,result_exponent,unfl);
420 *dstptr = result;
425 * Since we cannot get an inexact denormalized result,
428 Sgl_right_align(result,/*by*/(1-result_exponent),extent);
429 Sgl_clear_signexponent(result);
430 Sgl_set_sign(result,sign_save);
431 *dstptr = result;
439 Sgl_addition(left,right,/*to*/result);
440 if(Sgl_isone_hiddenoverflow(result))
443 Sgl_rightshiftby1_withextent(result,extent,extent);
444 Sgl_arithrightshiftby1(result);
449 /* Round the result. If the extension is all zeros,then the result is
464 Sgl_isone_lowmantissa(result))
467 Sgl_increment(result);
473 if(Sgl_iszero_sign(result))
476 Sgl_increment(result);
481 if(Sgl_isone_sign(result))
484 Sgl_increment(result);
490 if(Sgl_isone_hiddenoverflow(result)) result_exponent++;
497 Sgl_setwrapped_exponent(result,result_exponent,ovfl);
498 *dstptr = result;
509 Sgl_setoverflow(result);
512 else Sgl_set_exponent(result,result_exponent);
513 *dstptr = result;