]> git.ipfire.org Git - thirdparty/glibc.git/blame - math/s_fdim_template.c
Fix the inaccuracy of j0f/j1f/y0f/y1f [BZ #14469, #14470, #14471, #14472]
[thirdparty/glibc.git] / math / s_fdim_template.c
CommitLineData
377a515b 1/* Return positive difference between arguments.
2b778ceb 2 Copyright (C) 1997-2021 Free Software Foundation, Inc.
377a515b
UD
3 This file is part of the GNU C Library.
4 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
5
6 The GNU C Library is free software; you can redistribute it and/or
41bdb6e2
AJ
7 modify it under the terms of the GNU Lesser General Public
8 License as published by the Free Software Foundation; either
9 version 2.1 of the License, or (at your option) any later version.
377a515b
UD
10
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
41bdb6e2 14 Lesser General Public License for more details.
377a515b 15
41bdb6e2 16 You should have received a copy of the GNU Lesser General Public
59ba27a6 17 License along with the GNU C Library; if not, see
5a82c748 18 <https://www.gnu.org/licenses/>. */
377a515b 19
f0c281e0 20#include <errno.h>
377a515b 21#include <math.h>
aaee3cd8 22#include <math-narrow-eval.h>
377a515b 23
7b7c3945
PM
24FLOAT
25M_DECL_FUNC (__fdim) (FLOAT x, FLOAT y)
377a515b 26{
4fea2cda 27 if (islessequal (x, y))
7b7c3945 28 return 0;
f0c281e0 29
7b7c3945 30 FLOAT r = math_narrow_eval (x - y);
4fea2cda 31 if (isinf (r) && !isinf (x) && !isinf (y))
f0c281e0
UD
32 __set_errno (ERANGE);
33
34 return r;
377a515b 35}
7b7c3945 36declare_mgen_alias (__fdim, fdim);