]> git.ipfire.org Git - thirdparty/glibc.git/blob - sysdeps/sparc/sparc64/soft-fp/qp_fgt.c
Moved from soft-fp/sysdeps/sparc/sparc64/s_scalbnl.c
[thirdparty/glibc.git] / sysdeps / sparc / sparc64 / soft-fp / qp_fgt.c
1 /* Software floating-point emulation.
2 Return 1 if (*a) > (*b)
3 Copyright (C) 1997,1999 Free Software Foundation, Inc.
4 This file is part of the GNU C Library.
5 Contributed by Richard Henderson (rth@cygnus.com) and
6 Jakub Jelinek (jj@ultra.linux.cz).
7
8 The GNU C Library is free software; you can redistribute it and/or
9 modify it under the terms of the GNU Library General Public License as
10 published by the Free Software Foundation; either version 2 of the
11 License, or (at your option) any later version.
12
13 The GNU C Library is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 Library General Public License for more details.
17
18 You should have received a copy of the GNU Library General Public
19 License along with the GNU C Library; see the file COPYING.LIB. If
20 not, write to the Free Software Foundation, Inc.,
21 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
22
23 #include "soft-fp.h"
24 #include "quad.h"
25
26 int _Qp_fgt(const long double *a, const long double *b)
27 {
28 FP_DECL_EX;
29 FP_DECL_Q(A); FP_DECL_Q(B);
30 int r;
31
32 FP_INIT_ROUNDMODE;
33 FP_UNPACK_RAW_QP(A, a);
34 FP_UNPACK_RAW_QP(B, b);
35 FP_CMP_Q(r, B, A, 3);
36 if (r == 3)
37 FP_SET_EXCEPTION(FP_EX_INVALID);
38
39 QP_HANDLE_EXCEPTIONS(
40 __asm (
41 "ldd [%0], %%f52
42 ldd [%0+8], %%f54
43 ldd [%1], %%f56
44 ldd [%1+8], %%f58
45 fcmpeq %%fcc3, %%f52, %%f56
46 " : : "r" (a), "r" (b) : QP_CLOBBER_CC);
47 _FPU_GETCW(_fcw);
48 r = ((_fcw >> 36) & 3) - 3);
49
50 return (r == -1);
51 }