Lines Matching +full:ulp +full:- +full:0
1 // SPDX-License-Identifier: GPL-2.0-or-later
3 * Linux/PA-RISC Project (http://www.parisc-linux.org/)
5 * Floating-point emulation code
6 * Copyright (C) 2001 Hewlett-Packard (Paul Bame) <bame@debian.org>
43 register unsigned int resultp1 = 0, resultp2 = 0; in dbl_fadd()
67 if (Dbl_isinfinity(rightp1,rightp2) && save!=0) in dbl_fadd()
165 if((right_exponent = Dbl_exponent(rightp1)) == 0) in dbl_fadd()
188 if( (result_exponent == 0) && Is_underflowtrap_enabled() ) in dbl_fadd()
207 if(result_exponent == 0 ) in dbl_fadd()
212 if( (/*signed*/int) save < 0 ) in dbl_fadd()
263 diff_exponent = result_exponent - right_exponent; in dbl_fadd()
281 if( (/*signed*/int) save < 0 ) in dbl_fadd()
310 /* Must have been "x-x" or "x+(-x)". */ in dbl_fadd()
316 result_exponent--; in dbl_fadd()
320 if(result_exponent==0) in dbl_fadd()
338 result_exponent==0) goto underflow; in dbl_fadd()
352 if((result_exponent -= 8) <= 0 && !underflowtrap) in dbl_fadd()
360 if((result_exponent -= 4) <= 0 && !underflowtrap) in dbl_fadd()
368 if(result_exponent <= 0) goto underflow; in dbl_fadd()
380 result_exponent -= 3; in dbl_fadd()
387 result_exponent -= 2; in dbl_fadd()
396 result_exponent -= 1; in dbl_fadd()
400 if(result_exponent > 0) in dbl_fadd()
420 Dbl_fix_overshift(resultp1,resultp2,(1-result_exponent),extent); in dbl_fadd()
427 } /* end if(save < 0)... */ in dbl_fadd()
454 /* at least 1/2 ulp */ in dbl_fadd()
458 /* either exactly half way and odd or more than 1/2ulp */ in dbl_fadd()