]>
Commit | Line | Data |
---|---|---|
f7a9f785 | 1 | /* Copyright (C) 1992-2016 Free Software Foundation, Inc. |
79bd0564 AO |
2 | This file is part of the GNU C Library. |
3 | ||
4 | The GNU C Library is free software; you can redistribute it and/or | |
5 | modify it under the terms of the GNU Lesser General Public | |
6 | License as published by the Free Software Foundation; either | |
7 | version 2.1 of the License, or (at your option) any later version. | |
8 | ||
9 | The GNU C Library is distributed in the hope that it will be useful, | |
10 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
11 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
12 | Lesser General Public License for more details. | |
13 | ||
14 | You should have received a copy of the GNU Lesser General Public | |
ab84e3ff PE |
15 | License along with the GNU C Library. If not, see |
16 | <http://www.gnu.org/licenses/>. */ | |
79bd0564 AO |
17 | |
18 | #ifndef _IEEE754_H | |
19 | ||
20 | #define _IEEE754_H 1 | |
21 | #include <features.h> | |
22 | ||
23 | #include <endian.h> | |
24 | ||
25 | #include <float.h> | |
26 | ||
27 | __BEGIN_DECLS | |
28 | ||
29 | union ieee754_float | |
30 | { | |
31 | float f; | |
32 | ||
33 | /* This is the IEEE 754 single-precision format. */ | |
34 | struct | |
35 | { | |
36 | #if __BYTE_ORDER == __BIG_ENDIAN | |
37 | unsigned int negative:1; | |
38 | unsigned int exponent:8; | |
39 | unsigned int mantissa:23; | |
40 | #endif /* Big endian. */ | |
41 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
42 | unsigned int mantissa:23; | |
43 | unsigned int exponent:8; | |
44 | unsigned int negative:1; | |
45 | #endif /* Little endian. */ | |
46 | } ieee; | |
47 | ||
48 | /* This format makes it easier to see if a NaN is a signalling NaN. */ | |
49 | struct | |
50 | { | |
51 | #if __BYTE_ORDER == __BIG_ENDIAN | |
52 | unsigned int negative:1; | |
53 | unsigned int exponent:8; | |
54 | unsigned int quiet_nan:1; | |
55 | unsigned int mantissa:22; | |
56 | #endif /* Big endian. */ | |
57 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
58 | unsigned int mantissa:22; | |
59 | unsigned int quiet_nan:1; | |
60 | unsigned int exponent:8; | |
61 | unsigned int negative:1; | |
62 | #endif /* Little endian. */ | |
63 | } ieee_nan; | |
64 | }; | |
65 | ||
66 | #define IEEE754_FLOAT_BIAS 0x7f /* Added to exponent. */ | |
67 | ||
68 | ||
69 | union ieee754_double | |
70 | { | |
71 | double d; | |
72 | ||
73 | /* This is the IEEE 754 double-precision format. */ | |
74 | struct | |
75 | { | |
76 | #if __BYTE_ORDER == __BIG_ENDIAN | |
77 | unsigned int negative:1; | |
78 | unsigned int exponent:11; | |
79 | /* Together these comprise the mantissa. */ | |
80 | unsigned int mantissa0:20; | |
81 | unsigned int mantissa1:32; | |
82 | #endif /* Big endian. */ | |
83 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
2af06d0d | 84 | # if __FLOAT_WORD_ORDER == __BIG_ENDIAN |
79bd0564 AO |
85 | unsigned int mantissa0:20; |
86 | unsigned int exponent:11; | |
87 | unsigned int negative:1; | |
88 | unsigned int mantissa1:32; | |
89 | # else | |
90 | /* Together these comprise the mantissa. */ | |
91 | unsigned int mantissa1:32; | |
92 | unsigned int mantissa0:20; | |
93 | unsigned int exponent:11; | |
94 | unsigned int negative:1; | |
95 | # endif | |
96 | #endif /* Little endian. */ | |
97 | } ieee; | |
98 | ||
99 | /* This format makes it easier to see if a NaN is a signalling NaN. */ | |
100 | struct | |
101 | { | |
102 | #if __BYTE_ORDER == __BIG_ENDIAN | |
103 | unsigned int negative:1; | |
104 | unsigned int exponent:11; | |
105 | unsigned int quiet_nan:1; | |
106 | /* Together these comprise the mantissa. */ | |
107 | unsigned int mantissa0:19; | |
108 | unsigned int mantissa1:32; | |
109 | #else | |
2af06d0d | 110 | # if __FLOAT_WORD_ORDER == __BIG_ENDIAN |
79bd0564 AO |
111 | unsigned int mantissa0:19; |
112 | unsigned int quiet_nan:1; | |
113 | unsigned int exponent:11; | |
114 | unsigned int negative:1; | |
115 | unsigned int mantissa1:32; | |
116 | # else | |
117 | /* Together these comprise the mantissa. */ | |
118 | unsigned int mantissa1:32; | |
119 | unsigned int mantissa0:19; | |
120 | unsigned int quiet_nan:1; | |
121 | unsigned int exponent:11; | |
122 | unsigned int negative:1; | |
123 | # endif | |
124 | #endif | |
125 | } ieee_nan; | |
126 | }; | |
127 | ||
128 | #define IEEE754_DOUBLE_BIAS 0x3ff /* Added to exponent. */ | |
129 | ||
130 | #if LDBL_MANT_DIG == 113 | |
131 | ||
132 | union ieee854_long_double | |
133 | { | |
134 | long double d; | |
135 | ||
136 | /* This is the IEEE 854 quad-precision format. */ | |
137 | struct | |
138 | { | |
139 | #if __BYTE_ORDER == __BIG_ENDIAN | |
140 | unsigned int negative:1; | |
141 | unsigned int exponent:15; | |
142 | /* Together these comprise the mantissa. */ | |
143 | unsigned int mantissa0:16; | |
144 | unsigned int mantissa1:32; | |
145 | unsigned int mantissa2:32; | |
146 | unsigned int mantissa3:32; | |
147 | #endif /* Big endian. */ | |
148 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
149 | /* Together these comprise the mantissa. */ | |
150 | unsigned int mantissa3:32; | |
151 | unsigned int mantissa2:32; | |
152 | unsigned int mantissa1:32; | |
153 | unsigned int mantissa0:16; | |
154 | unsigned int exponent:15; | |
155 | unsigned int negative:1; | |
156 | #endif /* Little endian. */ | |
157 | } ieee; | |
158 | ||
159 | /* This format makes it easier to see if a NaN is a signalling NaN. */ | |
160 | struct | |
161 | { | |
162 | #if __BYTE_ORDER == __BIG_ENDIAN | |
163 | unsigned int negative:1; | |
164 | unsigned int exponent:15; | |
165 | unsigned int quiet_nan:1; | |
166 | /* Together these comprise the mantissa. */ | |
167 | unsigned int mantissa0:15; | |
168 | unsigned int mantissa1:32; | |
169 | unsigned int mantissa2:32; | |
170 | unsigned int mantissa3:32; | |
171 | #endif /* Big endian. */ | |
172 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
173 | /* Together these comprise the mantissa. */ | |
174 | unsigned int mantissa3:32; | |
175 | unsigned int mantissa2:32; | |
176 | unsigned int mantissa1:32; | |
177 | unsigned int mantissa0:15; | |
178 | unsigned int quiet_nan:1; | |
179 | unsigned int exponent:15; | |
180 | unsigned int negative:1; | |
181 | #endif /* Little endian. */ | |
182 | } ieee_nan; | |
79bd0564 AO |
183 | }; |
184 | ||
185 | #define IEEE854_LONG_DOUBLE_BIAS 0x3fff /* Added to exponent. */ | |
186 | ||
187 | #elif LDBL_MANT_DIG == 64 | |
188 | ||
189 | union ieee854_long_double | |
190 | { | |
191 | long double d; | |
192 | ||
193 | /* This is the IEEE 854 double-extended-precision format. */ | |
194 | struct | |
195 | { | |
196 | #if __BYTE_ORDER == __BIG_ENDIAN | |
197 | unsigned int negative:1; | |
198 | unsigned int exponent:15; | |
199 | unsigned int empty:16; | |
200 | unsigned int mantissa0:32; | |
201 | unsigned int mantissa1:32; | |
202 | #endif | |
203 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
2af06d0d | 204 | # if __FLOAT_WORD_ORDER == __BIG_ENDIAN |
79bd0564 AO |
205 | unsigned int exponent:15; |
206 | unsigned int negative:1; | |
207 | unsigned int empty:16; | |
208 | unsigned int mantissa0:32; | |
209 | unsigned int mantissa1:32; | |
210 | # else | |
211 | unsigned int mantissa1:32; | |
212 | unsigned int mantissa0:32; | |
213 | unsigned int exponent:15; | |
214 | unsigned int negative:1; | |
215 | unsigned int empty:16; | |
216 | # endif | |
217 | #endif | |
218 | } ieee; | |
219 | ||
220 | /* This is for NaNs in the IEEE 854 double-extended-precision format. */ | |
221 | struct | |
222 | { | |
223 | #if __BYTE_ORDER == __BIG_ENDIAN | |
224 | unsigned int negative:1; | |
225 | unsigned int exponent:15; | |
226 | unsigned int empty:16; | |
227 | unsigned int one:1; | |
228 | unsigned int quiet_nan:1; | |
229 | unsigned int mantissa0:30; | |
230 | unsigned int mantissa1:32; | |
231 | #endif | |
232 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
2af06d0d | 233 | # if __FLOAT_WORD_ORDER == __BIG_ENDIAN |
79bd0564 AO |
234 | unsigned int exponent:15; |
235 | unsigned int negative:1; | |
236 | unsigned int empty:16; | |
237 | unsigned int mantissa0:30; | |
238 | unsigned int quiet_nan:1; | |
239 | unsigned int one:1; | |
240 | unsigned int mantissa1:32; | |
241 | # else | |
242 | unsigned int mantissa1:32; | |
243 | unsigned int mantissa0:30; | |
244 | unsigned int quiet_nan:1; | |
245 | unsigned int one:1; | |
246 | unsigned int exponent:15; | |
247 | unsigned int negative:1; | |
248 | unsigned int empty:16; | |
249 | # endif | |
250 | #endif | |
251 | } ieee_nan; | |
252 | }; | |
253 | ||
254 | #define IEEE854_LONG_DOUBLE_BIAS 0x3fff | |
255 | ||
256 | #elif LDBL_MANT_DIG == 53 | |
257 | ||
258 | union ieee854_long_double | |
259 | { | |
260 | long double d; | |
261 | ||
262 | /* This is the IEEE 754 double-precision format. */ | |
263 | struct | |
264 | { | |
265 | #if __BYTE_ORDER == __BIG_ENDIAN | |
266 | unsigned int negative:1; | |
267 | unsigned int exponent:11; | |
268 | /* Together these comprise the mantissa. */ | |
269 | unsigned int mantissa0:20; | |
270 | unsigned int mantissa1:32; | |
271 | #endif /* Big endian. */ | |
272 | #if __BYTE_ORDER == __LITTLE_ENDIAN | |
2af06d0d | 273 | # if __FLOAT_WORD_ORDER == __BIG_ENDIAN |
79bd0564 AO |
274 | unsigned int mantissa0:20; |
275 | unsigned int exponent:11; | |
276 | unsigned int negative:1; | |
277 | unsigned int mantissa1:32; | |
278 | # else | |
279 | /* Together these comprise the mantissa. */ | |
280 | unsigned int mantissa1:32; | |
281 | unsigned int mantissa0:20; | |
282 | unsigned int exponent:11; | |
283 | unsigned int negative:1; | |
284 | # endif | |
285 | #endif /* Little endian. */ | |
286 | } ieee; | |
287 | ||
288 | /* This format makes it easier to see if a NaN is a signalling NaN. */ | |
289 | struct | |
290 | { | |
291 | #if __BYTE_ORDER == __BIG_ENDIAN | |
292 | unsigned int negative:1; | |
293 | unsigned int exponent:11; | |
294 | unsigned int quiet_nan:1; | |
295 | /* Together these comprise the mantissa. */ | |
296 | unsigned int mantissa0:19; | |
297 | unsigned int mantissa1:32; | |
298 | #else | |
2af06d0d | 299 | # if __FLOAT_WORD_ORDER == __BIG_ENDIAN |
79bd0564 AO |
300 | unsigned int mantissa0:19; |
301 | unsigned int quiet_nan:1; | |
302 | unsigned int exponent:11; | |
303 | unsigned int negative:1; | |
304 | unsigned int mantissa1:32; | |
305 | # else | |
306 | /* Together these comprise the mantissa. */ | |
307 | unsigned int mantissa1:32; | |
308 | unsigned int mantissa0:19; | |
309 | unsigned int quiet_nan:1; | |
310 | unsigned int exponent:11; | |
311 | unsigned int negative:1; | |
312 | # endif | |
313 | #endif | |
314 | } ieee_nan; | |
315 | }; | |
316 | ||
317 | #define IEEE854_LONG_DOUBLE_BIAS 0x3ff /* Added to exponent. */ | |
318 | ||
319 | #endif /* LDBL_MANT_DIG == 53 */ | |
320 | ||
321 | __END_DECLS | |
322 | ||
323 | #endif /* ieee754.h */ |