Mercurial > hg > CbC > CbC_gcc

annotate libquadmath/math/isinfq.c @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
68
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 /*
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 * Written by J.T. Conklin <jtc@netbsd.org>.
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 * Change for long double by Jakub Jelinek <jj@ultra.linux.cz>
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 * Public domain.
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 */
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
7 #if defined(LIBM_SCCS) && !defined(lint)
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
8 static char rcsid[] = "$NetBSD: $";
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
9 #endif
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
10
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
11 /*
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
12 * isinfq(x) returns 1 if x is inf, -1 if x is -inf, else 0;
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
13 * no branching!
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
14 */
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
15
68
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 #include "quadmath-imp.h"
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 int
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 isinfq (__float128 x)
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 {
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
21 int64_t hx,lx;
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
22 GET_FLT128_WORDS64(hx,lx,x);
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
23 lx |= (hx & 0x7fffffffffffffffLL) ^ 0x7fff000000000000LL;
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
24 lx |= -lx;
1830386684a0 gcc-9.2.0
anatofuz
parents: 68
diff changeset
25 return ~(lx >> 63) & (hx >> 62);
68
561a7518be6b update gcc-4.6
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 }