Mercurial > hg > CbC > CbC_gcc
comparison libgcc/config/i386/32/tf-signs.c @ 0:a06113de4d67
first commit
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 14:47:48 +0900 |
parents | |
children | 04ced10e8804 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:a06113de4d67 |
---|---|
1 /* Copyright (C) 2008, 2009 Free Software Foundation, Inc. | |
2 | |
3 This file is part of GCC. | |
4 | |
5 GCC is free software; you can redistribute it and/or modify it under | |
6 the terms of the GNU General Public License as published by the Free | |
7 Software Foundation; either version 3, or (at your option) any later | |
8 version. | |
9 | |
10 GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
11 WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
12 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
13 for more details. | |
14 | |
15 Under Section 7 of GPL version 3, you are granted additional | |
16 permissions described in the GCC Runtime Library Exception, version | |
17 3.1, as published by the Free Software Foundation. | |
18 | |
19 You should have received a copy of the GNU General Public License and | |
20 a copy of the GCC Runtime Library Exception along with this program; | |
21 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see | |
22 <http://www.gnu.org/licenses/>. */ | |
23 | |
24 union _FP_UNION_Q | |
25 { | |
26 __float128 flt; | |
27 struct | |
28 { | |
29 unsigned long frac0 : 32; | |
30 unsigned long frac1 : 32; | |
31 unsigned long frac2 : 32; | |
32 unsigned long frac3 : 16; | |
33 unsigned exp : 15; | |
34 unsigned sign : 1; | |
35 } bits __attribute__((packed)); | |
36 }; | |
37 | |
38 __float128 __copysigntf3 (__float128, __float128); | |
39 __float128 __fabstf2 (__float128); | |
40 | |
41 __float128 | |
42 __copysigntf3 (__float128 a, __float128 b) | |
43 { | |
44 union _FP_UNION_Q A, B; | |
45 | |
46 A.flt = a; | |
47 B.flt = b; | |
48 A.bits.sign = B.bits.sign; | |
49 | |
50 return A.flt; | |
51 } | |
52 | |
53 __float128 | |
54 __fabstf2 (__float128 a) | |
55 { | |
56 union _FP_UNION_Q A; | |
57 | |
58 A.flt = a; | |
59 A.bits.sign = 0; | |
60 | |
61 return A.flt; | |
62 } |