| 1 | //===-- int_lib.h - configuration header for compiler-rt -----------------===// |
| 2 | // |
| 3 | // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
| 4 | // See https://llvm.org/LICENSE.txt for license information. |
| 5 | // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
| 6 | // |
| 7 | //===----------------------------------------------------------------------===// |
| 8 | // |
| 9 | // This file is not part of the interface of this library. |
| 10 | // |
| 11 | // This file defines various standard types, most importantly a number of unions |
| 12 | // used to access parts of larger types. |
| 13 | // |
| 14 | //===----------------------------------------------------------------------===// |
| 15 | |
| 16 | #ifndef INT_TYPES_H |
| 17 | #define INT_TYPES_H |
| 18 | |
| 19 | #include "int_endianness.h" |
| 20 | |
| 21 | // si_int is defined in Linux sysroot's asm-generic/siginfo.h |
| 22 | #ifdef si_int |
| 23 | #undef si_int |
| 24 | #endif |
| 25 | typedef int32_t si_int; |
| 26 | typedef uint32_t su_int; |
| 27 | #if UINT_MAX == 0xFFFFFFFF |
| 28 | #define clzsi __builtin_clz |
| 29 | #define ctzsi __builtin_ctz |
| 30 | #elif ULONG_MAX == 0xFFFFFFFF |
| 31 | #define clzsi __builtin_clzl |
| 32 | #define ctzsi __builtin_ctzl |
| 33 | #else |
| 34 | #error could not determine appropriate clzsi macro for this system |
| 35 | #endif |
| 36 | |
| 37 | typedef int64_t di_int; |
| 38 | typedef uint64_t du_int; |
| 39 | |
| 40 | typedef union { |
| 41 | di_int all; |
| 42 | struct { |
| 43 | #if _YUGA_LITTLE_ENDIAN |
| 44 | su_int low; |
| 45 | si_int high; |
| 46 | #else |
| 47 | si_int high; |
| 48 | su_int low; |
| 49 | #endif // _YUGA_LITTLE_ENDIAN |
| 50 | } s; |
| 51 | } dwords; |
| 52 | |
| 53 | typedef union { |
| 54 | du_int all; |
| 55 | struct { |
| 56 | #if _YUGA_LITTLE_ENDIAN |
| 57 | su_int low; |
| 58 | su_int high; |
| 59 | #else |
| 60 | su_int high; |
| 61 | su_int low; |
| 62 | #endif // _YUGA_LITTLE_ENDIAN |
| 63 | } s; |
| 64 | } udwords; |
| 65 | |
| 66 | #if defined(__LP64__) || defined(__wasm__) || defined(__mips64) || \ |
| 67 | defined(__SIZEOF_INT128__) || defined(_WIN64) |
| 68 | #define CRT_HAS_128BIT |
| 69 | #endif |
| 70 | |
| 71 | // MSVC doesn't have a working 128bit integer type. Users should really compile |
| 72 | // compiler-rt with clang, but if they happen to be doing a standalone build for |
| 73 | // asan or something else, disable the 128 bit parts so things sort of work. |
| 74 | #if defined(_MSC_VER) && !defined(__clang__) |
| 75 | #undef CRT_HAS_128BIT |
| 76 | #endif |
| 77 | |
| 78 | #ifdef CRT_HAS_128BIT |
| 79 | typedef int ti_int __attribute__((mode(TI))); |
| 80 | typedef unsigned tu_int __attribute__((mode(TI))); |
| 81 | |
| 82 | typedef union { |
| 83 | ti_int all; |
| 84 | struct { |
| 85 | #if _YUGA_LITTLE_ENDIAN |
| 86 | du_int low; |
| 87 | di_int high; |
| 88 | #else |
| 89 | di_int high; |
| 90 | du_int low; |
| 91 | #endif // _YUGA_LITTLE_ENDIAN |
| 92 | } s; |
| 93 | } twords; |
| 94 | |
| 95 | typedef union { |
| 96 | tu_int all; |
| 97 | struct { |
| 98 | #if _YUGA_LITTLE_ENDIAN |
| 99 | du_int low; |
| 100 | du_int high; |
| 101 | #else |
| 102 | du_int high; |
| 103 | du_int low; |
| 104 | #endif // _YUGA_LITTLE_ENDIAN |
| 105 | } s; |
| 106 | } utwords; |
| 107 | |
| 108 | static __inline ti_int make_ti(di_int h, di_int l) { |
| 109 | twords r; |
| 110 | r.s.high = (du_int)h; |
| 111 | r.s.low = (du_int)l; |
| 112 | return r.all; |
| 113 | } |
| 114 | |
| 115 | static __inline tu_int make_tu(du_int h, du_int l) { |
| 116 | utwords r; |
| 117 | r.s.high = h; |
| 118 | r.s.low = l; |
| 119 | return r.all; |
| 120 | } |
| 121 | |
| 122 | #endif // CRT_HAS_128BIT |
| 123 | |
| 124 | // FreeBSD's boot environment does not support using floating-point and poisons |
| 125 | // the float and double keywords. |
| 126 | #if defined(__FreeBSD__) && defined(_STANDALONE) |
| 127 | #define CRT_HAS_FLOATING_POINT 0 |
| 128 | #else |
| 129 | #define CRT_HAS_FLOATING_POINT 1 |
| 130 | #endif |
| 131 | |
| 132 | #if CRT_HAS_FLOATING_POINT |
| 133 | typedef union { |
| 134 | su_int u; |
| 135 | float f; |
| 136 | } float_bits; |
| 137 | |
| 138 | typedef union { |
| 139 | udwords u; |
| 140 | double f; |
| 141 | } double_bits; |
| 142 | |
| 143 | typedef struct { |
| 144 | #if _YUGA_LITTLE_ENDIAN |
| 145 | udwords low; |
| 146 | udwords high; |
| 147 | #else |
| 148 | udwords high; |
| 149 | udwords low; |
| 150 | #endif // _YUGA_LITTLE_ENDIAN |
| 151 | } uqwords; |
| 152 | |
| 153 | // Check if the target supports 80 bit extended precision long doubles. |
| 154 | // Notably, on x86 Windows, MSVC only provides a 64-bit long double, but GCC |
| 155 | // still makes it 80 bits. Clang will match whatever compiler it is trying to |
| 156 | // be compatible with. On 32-bit x86 Android, long double is 64 bits, while on |
| 157 | // x86_64 Android, long double is 128 bits. |
| 158 | #if (defined(__i386__) || defined(__x86_64__)) && \ |
| 159 | !(defined(_MSC_VER) || defined(__ANDROID__)) |
| 160 | #define HAS_80_BIT_LONG_DOUBLE 1 |
| 161 | #elif defined(__m68k__) || defined(__ia64__) |
| 162 | #define HAS_80_BIT_LONG_DOUBLE 1 |
| 163 | #else |
| 164 | #define HAS_80_BIT_LONG_DOUBLE 0 |
| 165 | #endif |
| 166 | |
| 167 | #if HAS_80_BIT_LONG_DOUBLE |
| 168 | typedef long double xf_float; |
| 169 | typedef union { |
| 170 | uqwords u; |
| 171 | xf_float f; |
| 172 | } xf_bits; |
| 173 | #endif |
| 174 | |
| 175 | #ifdef __powerpc64__ |
| 176 | // From https://gcc.gnu.org/wiki/Ieee128PowerPC: |
| 177 | // PowerPC64 uses the following suffixes: |
| 178 | // IFmode: IBM extended double |
| 179 | // KFmode: IEEE 128-bit floating point |
| 180 | // TFmode: Matches the default for long double. With -mabi=ieeelongdouble, |
| 181 | // it is IEEE 128-bit, with -mabi=ibmlongdouble IBM extended double |
| 182 | // Since compiler-rt only implements the tf set of libcalls, we use long double |
| 183 | // for the tf_float typedef. |
| 184 | typedef long double tf_float; |
| 185 | #define CRT_LDBL_128BIT |
| 186 | #define CRT_HAS_F128 |
| 187 | #if __LDBL_MANT_DIG__ == 113 && !defined(__LONG_DOUBLE_IBM128__) |
| 188 | #define CRT_HAS_IEEE_TF |
| 189 | #define CRT_LDBL_IEEE_F128 |
| 190 | #endif |
| 191 | #define TF_C(x) x##L |
| 192 | #elif __LDBL_MANT_DIG__ == 113 || \ |
| 193 | (__FLT_RADIX__ == 16 && __LDBL_MANT_DIG__ == 28) |
| 194 | // Use long double instead of __float128 if it matches the IEEE 128-bit format |
| 195 | // or the IBM hexadecimal format. |
| 196 | #define CRT_LDBL_128BIT |
| 197 | #define CRT_HAS_F128 |
| 198 | #if __LDBL_MANT_DIG__ == 113 |
| 199 | #define CRT_HAS_IEEE_TF |
| 200 | #define CRT_LDBL_IEEE_F128 |
| 201 | #endif |
| 202 | typedef long double tf_float; |
| 203 | #define TF_C(x) x##L |
| 204 | #elif defined(__FLOAT128__) || defined(__SIZEOF_FLOAT128__) |
| 205 | #define CRT_HAS___FLOAT128_KEYWORD |
| 206 | #define CRT_HAS_F128 |
| 207 | // NB: we assume the __float128 type uses IEEE representation. |
| 208 | #define CRT_HAS_IEEE_TF |
| 209 | typedef __float128 tf_float; |
| 210 | #define TF_C(x) x##Q |
| 211 | #endif |
| 212 | |
| 213 | #ifdef CRT_HAS_F128 |
| 214 | typedef union { |
| 215 | uqwords u; |
| 216 | tf_float f; |
| 217 | } tf_bits; |
| 218 | #endif |
| 219 | |
| 220 | // __(u)int128_t is currently needed to compile the *tf builtins as we would |
| 221 | // otherwise need to manually expand the bit manipulation on two 64-bit value. |
| 222 | #if defined(CRT_HAS_128BIT) && defined(CRT_HAS_F128) |
| 223 | #define CRT_HAS_TF_MODE |
| 224 | #endif |
| 225 | |
| 226 | #if __STDC_VERSION__ >= 199901L |
| 227 | typedef float _Complex Fcomplex; |
| 228 | typedef double _Complex Dcomplex; |
| 229 | typedef long double _Complex Lcomplex; |
| 230 | #if defined(CRT_LDBL_128BIT) |
| 231 | typedef Lcomplex Qcomplex; |
| 232 | #define CRT_HAS_NATIVE_COMPLEX_F128 |
| 233 | #elif defined(CRT_HAS___FLOAT128_KEYWORD) |
| 234 | #if defined(__clang_major__) && __clang_major__ > 10 |
| 235 | // Clang prior to 11 did not support __float128 _Complex. |
| 236 | typedef __float128 _Complex Qcomplex; |
| 237 | #define CRT_HAS_NATIVE_COMPLEX_F128 |
| 238 | #elif defined(__GNUC__) && __GNUC__ >= 7 |
| 239 | // GCC does not allow __float128 _Complex, but accepts _Float128 _Complex. |
| 240 | typedef _Float128 _Complex Qcomplex; |
| 241 | #define CRT_HAS_NATIVE_COMPLEX_F128 |
| 242 | #endif |
| 243 | #endif |
| 244 | |
| 245 | #define COMPLEX_REAL(x) __real__(x) |
| 246 | #define COMPLEX_IMAGINARY(x) __imag__(x) |
| 247 | #else |
| 248 | typedef struct { |
| 249 | float real, imaginary; |
| 250 | } Fcomplex; |
| 251 | |
| 252 | typedef struct { |
| 253 | double real, imaginary; |
| 254 | } Dcomplex; |
| 255 | |
| 256 | typedef struct { |
| 257 | long double real, imaginary; |
| 258 | } Lcomplex; |
| 259 | |
| 260 | #define COMPLEX_REAL(x) (x).real |
| 261 | #define COMPLEX_IMAGINARY(x) (x).imaginary |
| 262 | #endif |
| 263 | |
| 264 | #ifdef CRT_HAS_NATIVE_COMPLEX_F128 |
| 265 | #define COMPLEXTF_REAL(x) __real__(x) |
| 266 | #define COMPLEXTF_IMAGINARY(x) __imag__(x) |
| 267 | #elif defined(CRT_HAS_F128) |
| 268 | typedef struct { |
| 269 | tf_float real, imaginary; |
| 270 | } Qcomplex; |
| 271 | #define COMPLEXTF_REAL(x) (x).real |
| 272 | #define COMPLEXTF_IMAGINARY(x) (x).imaginary |
| 273 | #endif |
| 274 | |
| 275 | #endif // CRT_HAS_FLOATING_POINT |
| 276 | #endif // INT_TYPES_H |
| 277 | |