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>
44 register unsigned int resultp1 = 0, resultp2 = 0; in dbl_fsub()
67 if (Dbl_isinfinity(rightp1,rightp2) && save==0) in dbl_fsub()
167 if((right_exponent = Dbl_exponent(rightp1)) == 0) in dbl_fsub()
191 if( (result_exponent == 0) && Is_underflowtrap_enabled() ) in dbl_fsub()
210 if(result_exponent == 0 ) in dbl_fsub()
215 if( (/*signed*/int) save >= 0 ) in dbl_fsub()
266 diff_exponent = result_exponent - right_exponent; in dbl_fsub()
284 if( (/*signed*/int) save >= 0 ) in dbl_fsub()
313 /* Must have been "x-x" or "x+(-x)". */ in dbl_fsub()
319 result_exponent--; in dbl_fsub()
323 if(result_exponent==0) in dbl_fsub()
341 result_exponent==0) goto underflow; in dbl_fsub()
355 if((result_exponent -= 8) <= 0 && !underflowtrap) in dbl_fsub()
363 if((result_exponent -= 4) <= 0 && !underflowtrap) in dbl_fsub()
371 if(result_exponent <= 0) goto underflow; in dbl_fsub()
383 result_exponent -= 3; in dbl_fsub()
390 result_exponent -= 2; in dbl_fsub()
399 result_exponent -= 1; in dbl_fsub()
403 if(result_exponent > 0) in dbl_fsub()
423 Dbl_fix_overshift(resultp1,resultp2,(1-result_exponent),extent); in dbl_fsub()
430 } /* end if(save >= 0)... */ in dbl_fsub()
457 /* at least 1/2 ulp */ in dbl_fsub()
461 /* either exactly half way and odd or more than 1/2ulp */ in dbl_fsub()