1 #ifdef __MINGW32__ 2 /* Make sure we are using gnu-style bitfield handling. */ 3 #define _FP_STRUCT_LAYOUT __attribute__ ((gcc_struct)) 4 #endif 5 6 /* The type of the result of a floating point comparison. This must 7 match `__libgcc_cmp_return__' in GCC for the target. */ 8 typedef int __gcc_CMPtype __attribute__ ((mode (__libgcc_cmp_return__))); 9 #define CMPtype __gcc_CMPtype 10 11 #ifdef __x86_64__ 12 #include "config/i386/64/sfp-machine.h" 13 #else 14 #include "config/i386/32/sfp-machine.h" 15 #endif 16 17 #define _FP_KEEPNANFRACP 1 18 #define _FP_QNANNEGATEDP 0 19 20 #define _FP_NANSIGN_S 1 21 #define _FP_NANSIGN_D 1 22 #define _FP_NANSIGN_E 1 23 #define _FP_NANSIGN_Q 1 24 25 /* Here is something Intel misdesigned: the specs don't define 26 the case where we have two NaNs with same mantissas, but 27 different sign. Different operations pick up different NaNs. */ 28 #define _FP_CHOOSENAN(fs, wc, R, X, Y, OP) \ 29 do { \ 30 if (_FP_FRAC_GT_##wc(X, Y) \ 31 || (_FP_FRAC_EQ_##wc(X,Y) && (OP == '+' || OP == '*'))) \ 32 { \ 33 R##_s = X##_s; \ 34 _FP_FRAC_COPY_##wc(R,X); \ 35 } \ 36 else \ 37 { \ 38 R##_s = Y##_s; \ 39 _FP_FRAC_COPY_##wc(R,Y); \ 40 } \ 41 R##_c = FP_CLS_NAN; \ 42 } while (0) 43 44 #ifndef _SOFT_FLOAT 45 #define FP_EX_INVALID 0x01 46 #define FP_EX_DENORM 0x02 47 #define FP_EX_DIVZERO 0x04 48 #define FP_EX_OVERFLOW 0x08 49 #define FP_EX_UNDERFLOW 0x10 50 #define FP_EX_INEXACT 0x20 51 #define FP_EX_ALL \ 52 (FP_EX_INVALID | FP_EX_DENORM | FP_EX_DIVZERO | FP_EX_OVERFLOW \ 53 | FP_EX_UNDERFLOW | FP_EX_INEXACT) 54 55 void __sfp_handle_exceptions (int); 56 57 #define FP_HANDLE_EXCEPTIONS \ 58 do { \ 59 if (__builtin_expect (_fex, 0)) \ 60 __sfp_handle_exceptions (_fex); \ 61 } while (0); 62 63 #define FP_TRAPPING_EXCEPTIONS ((~_fcw >> FP_EX_SHIFT) & FP_EX_ALL) 64 65 #define FP_ROUNDMODE (_fcw & FP_RND_MASK) 66 #endif 67 68 #define _FP_TININESS_AFTER_ROUNDING 1 69 70 #define __LITTLE_ENDIAN 1234 71 #define __BIG_ENDIAN 4321 72 73 #define __BYTE_ORDER __LITTLE_ENDIAN 74 75 /* Define ALIASNAME as a strong alias for NAME. */ 76 #if defined __MACH__ 77 /* Mach-O doesn't support aliasing. If these functions ever return 78 anything but CMPtype we need to revisit this... */ 79 #define strong_alias(name, aliasname) \ 80 CMPtype aliasname (TFtype a, TFtype b) { return name(a, b); } 81 #else 82 # define strong_alias(name, aliasname) _strong_alias(name, aliasname) 83 # define _strong_alias(name, aliasname) \ 84 extern __typeof (name) aliasname __attribute__ ((alias (#name))); 85 #endif 86