]> git.ipfire.org Git - thirdparty/gcc.git/blame - libgcc/config/ia64/quadlib.c
Update copyright years.
[thirdparty/gcc.git] / libgcc / config / ia64 / quadlib.c
CommitLineData
23c108af 1/* Subroutines for long double support.
83ffe9cd 2 Copyright (C) 2000-2023 Free Software Foundation, Inc.
23c108af 3
3bed2930 4This file is part of GCC.
23c108af 5
3bed2930 6GCC is free software; you can redistribute it and/or modify
23c108af 7it under the terms of the GNU General Public License as published by
748086b7 8the Free Software Foundation; either version 3, or (at your option)
23c108af
SE
9any later version.
10
3bed2930 11GCC is distributed in the hope that it will be useful,
23c108af
SE
12but WITHOUT ANY WARRANTY; without even the implied warranty of
13MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14GNU General Public License for more details.
15
748086b7
JJ
16Under Section 7 of GPL version 3, you are granted additional
17permissions described in the GCC Runtime Library Exception, version
183.1, as published by the Free Software Foundation.
19
20You should have received a copy of the GNU General Public License and
21a copy of the GCC Runtime Library Exception along with this program;
22see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23<http://www.gnu.org/licenses/>. */
23c108af 24
1a7e1470
SE
25extern int _U_Qfcmp (long double a, long double b, int);
26
27int _U_Qfeq (long double, long double);
28int _U_Qfne (long double, long double);
29int _U_Qfgt (long double, long double);
30int _U_Qfge (long double, long double);
31int _U_Qflt (long double, long double);
32int _U_Qfle (long double, long double);
33int _U_Qfcomp (long double, long double);
23c108af
SE
34
35int
36_U_Qfeq (long double a, long double b)
37{
38 return (_U_Qfcmp (a, b, 4) != 0);
39}
40
41int
42_U_Qfne (long double a, long double b)
43{
44 return (_U_Qfcmp (a, b, 4) == 0);
45}
46
47int
48_U_Qfgt (long double a, long double b)
49{
50 return (_U_Qfcmp (a, b, 17) != 0);
51}
52
53int
54_U_Qfge (long double a, long double b)
55{
56 return (_U_Qfcmp (a, b, 21) != 0);
57}
58
59int
60_U_Qflt (long double a, long double b)
61{
62 return (_U_Qfcmp (a, b, 9) != 0);
63}
64
65int
66_U_Qfle (long double a, long double b)
67{
68 return (_U_Qfcmp (a, b, 13) != 0);
69}
70
71int
72_U_Qfcomp (long double a, long double b)
73{
74 if (_U_Qfcmp (a, b, 4) == 0)
75 return 0;
76
77 return (_U_Qfcmp (a, b, 22) != 0 ? 1 : -1);
78}