Mercurial > hg > CbC > CbC_gcc
comparison libquadmath/math/finiteq.c @ 68:561a7518be6b
update gcc-4.6
author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 21 Aug 2011 07:07:55 +0900 |
parents | |
children | 04ced10e8804 |
comparison
equal
deleted
inserted
replaced
67:f6334be47118 | 68:561a7518be6b |
---|---|
1 /* s_finitel.c -- long double version of s_finite.c. | |
2 * Conversion to IEEE quad long double by Jakub Jelinek, jj@ultra.linux.cz. | |
3 */ | |
4 | |
5 /* | |
6 * ==================================================== | |
7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. | |
8 * | |
9 * Developed at SunPro, a Sun Microsystems, Inc. business. | |
10 * Permission to use, copy, modify, and distribute this | |
11 * software is freely granted, provided that this notice | |
12 * is preserved. | |
13 * ==================================================== | |
14 */ | |
15 | |
16 #include "quadmath-imp.h" | |
17 | |
18 int | |
19 finiteq (const __float128 x) | |
20 { | |
21 int64_t hx; | |
22 GET_FLT128_MSW64(hx,x); | |
23 return (int)((uint64_t)((hx&0x7fffffffffffffffLL) | |
24 -0x7fff000000000000LL)>>63); | |
25 } |