]>
git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/alpha/ots_cmp.c
1 /* Software floating-point emulation: comparison.
2 Copyright (C) 1997-2019 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4 Contributed by Richard Henderson (rth@cygnus.com) and
5 Jakub Jelinek (jj@ultra.linux.cz).
7 The GNU C Library is free software; you can redistribute it and/or
8 modify it under the terms of the GNU Lesser General Public
9 License as published by the Free Software Foundation; either
10 version 2.1 of the License, or (at your option) any later version.
12 The GNU C Library is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 Lesser General Public License for more details.
17 You should have received a copy of the GNU Lesser General Public
18 License along with the GNU C Library. If not, see
19 <https://www.gnu.org/licenses/>. */
21 #include "local-soft-fp.h"
24 internal_equality (long al
, long ah
, long bl
, long bh
, long neq
)
27 FP_DECL_Q(A
); FP_DECL_Q(B
);
30 AXP_UNPACK_RAW_Q(A
, a
);
31 AXP_UNPACK_RAW_Q(B
, b
);
33 if ((A_e
== _FP_EXPMAX_Q
&& !_FP_FRAC_ZEROP_2(A
))
34 || (B_e
== _FP_EXPMAX_Q
&& !_FP_FRAC_ZEROP_2(B
)))
36 /* EQ and NE signal invalid operation only if either operand is SNaN. */
37 if (FP_ISSIGNAN_Q(A
) || FP_ISSIGNAN_Q(B
))
39 FP_SET_EXCEPTION(FP_EX_INVALID
);
46 && _FP_FRAC_EQ_2 (A
, B
)
47 && (A_s
== B_s
|| (!A_e
&& _FP_FRAC_ZEROP_2(A
))));
54 _OtsEqlX (long al
, long ah
, long bl
, long bh
)
56 return internal_equality (al
, ah
, bl
, bh
, 0);
60 _OtsNeqX (long al
, long ah
, long bl
, long bh
)
62 return internal_equality (al
, ah
, bl
, bh
, 1);