1 /* Manipulation of the bit representation of 'long double' quantities.
2 Copyright (C) 1999-2018 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
20 #define _MATH_LDBL_H_ 1
25 /* A union which permits us to convert between a long double and
28 #if __FLOAT_WORD_ORDER == __BIG_ENDIAN
36 unsigned int empty
:16;
40 } ieee_long_double_shape_type
;
44 #if __FLOAT_WORD_ORDER == __LITTLE_ENDIAN
54 unsigned int empty
:16;
56 } ieee_long_double_shape_type
;
60 /* Get three 32 bit ints from a double. */
62 #define GET_LDOUBLE_WORDS(exp,ix0,ix1,d) \
64 ieee_long_double_shape_type ew_u; \
66 (exp) = ew_u.parts.sign_exponent; \
67 (ix0) = ew_u.parts.msw; \
68 (ix1) = ew_u.parts.lsw; \
71 /* Set a double from two 32 bit ints. */
73 #define SET_LDOUBLE_WORDS(d,exp,ix0,ix1) \
75 ieee_long_double_shape_type iw_u; \
76 iw_u.parts.sign_exponent = (exp); \
77 iw_u.parts.msw = (ix0); \
78 iw_u.parts.lsw = (ix1); \
82 /* Get the more significant 32 bits of a long double mantissa. */
84 #define GET_LDOUBLE_MSW(v,d) \
86 ieee_long_double_shape_type sh_u; \
88 (v) = sh_u.parts.msw; \
91 /* Set the more significant 32 bits of a long double mantissa from an int. */
93 #define SET_LDOUBLE_MSW(d,v) \
95 ieee_long_double_shape_type sh_u; \
97 sh_u.parts.msw = (v); \
101 /* Get int from the exponent of a long double. */
103 #define GET_LDOUBLE_EXP(exp,d) \
105 ieee_long_double_shape_type ge_u; \
107 (exp) = ge_u.parts.sign_exponent; \
110 /* Set exponent of a long double from an int. */
112 #define SET_LDOUBLE_EXP(d,exp) \
114 ieee_long_double_shape_type se_u; \
116 se_u.parts.sign_exponent = (exp); \
120 #endif /* math_ldbl.h */