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