Mercurial > hg > CbC > CbC_gcc
annotate libgcc/config/libbid/bid_gcc_intrinsics.h @ 67:f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
| author | nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 22 Mar 2011 17:18:12 +0900 |
| parents | a06113de4d67 |
| children | 04ced10e8804 |
| rev | line source |
|---|---|
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
1 /* Copyright (C) 2007, 2009, 2010 Free Software Foundation, Inc. |
| 0 | 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 #ifndef _BID_GCC_INTRINSICS_H | |
| 25 #define _BID_GCC_INTRINSICS_H | |
| 26 | |
| 27 #ifdef IN_LIBGCC2 | |
| 28 | |
| 29 #include "tconfig.h" | |
| 30 #include "coretypes.h" | |
| 31 #include "tm.h" | |
| 32 | |
| 33 #ifndef LIBGCC2_LONG_DOUBLE_TYPE_SIZE | |
| 34 #define LIBGCC2_LONG_DOUBLE_TYPE_SIZE LONG_DOUBLE_TYPE_SIZE | |
| 35 #endif | |
| 36 | |
| 37 #ifndef LIBGCC2_HAS_XF_MODE | |
| 38 #define LIBGCC2_HAS_XF_MODE \ | |
| 39 (BITS_PER_UNIT == 8 && LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 80) | |
| 40 #endif | |
| 41 | |
| 42 #ifndef LIBGCC2_HAS_TF_MODE | |
| 43 #define LIBGCC2_HAS_TF_MODE \ | |
| 44 (BITS_PER_UNIT == 8 && LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 128) | |
| 45 #endif | |
| 46 | |
| 47 #ifndef BID_HAS_XF_MODE | |
| 48 #define BID_HAS_XF_MODE LIBGCC2_HAS_XF_MODE | |
| 49 #endif | |
| 50 | |
| 51 #ifndef BID_HAS_TF_MODE | |
| 52 #define BID_HAS_TF_MODE LIBGCC2_HAS_TF_MODE | |
| 53 #endif | |
| 54 | |
| 55 /* Some handy typedefs. */ | |
| 56 | |
| 57 typedef float SFtype __attribute__ ((mode (SF))); | |
| 58 typedef float DFtype __attribute__ ((mode (DF))); | |
| 59 #if LIBGCC2_HAS_XF_MODE | |
| 60 typedef float XFtype __attribute__ ((mode (XF))); | |
| 61 #endif /* LIBGCC2_HAS_XF_MODE */ | |
| 62 #if LIBGCC2_HAS_TF_MODE | |
| 63 typedef float TFtype __attribute__ ((mode (TF))); | |
| 64 #endif /* LIBGCC2_HAS_XF_MODE */ | |
| 65 | |
| 66 typedef int SItype __attribute__ ((mode (SI))); | |
| 67 typedef int DItype __attribute__ ((mode (DI))); | |
| 68 typedef unsigned int USItype __attribute__ ((mode (SI))); | |
| 69 typedef unsigned int UDItype __attribute__ ((mode (DI))); | |
| 70 | |
| 71 /* The type of the result of a decimal float comparison. This must | |
| 72 match `word_mode' in GCC for the target. */ | |
| 73 | |
| 74 typedef int CMPtype __attribute__ ((mode (word))); | |
| 75 | |
| 76 typedef int SINT8 __attribute__ ((mode (QI))); | |
| 77 typedef unsigned int UINT8 __attribute__ ((mode (QI))); | |
| 78 typedef USItype UINT32; | |
| 79 typedef SItype SINT32; | |
| 80 typedef UDItype UINT64; | |
| 81 typedef DItype SINT64; | |
| 82 | |
| 83 /* It has to be identical to the one defined in bid_functions.h. */ | |
| 84 typedef __attribute__ ((aligned(16))) struct | |
| 85 { | |
| 86 UINT64 w[2]; | |
| 87 } UINT128; | |
| 88 #else /* if not IN_LIBGCC2 */ | |
| 89 | |
| 90 #ifndef BID_HAS_XF_MODE | |
| 91 #define BID_HAS_XF_MODE 1 | |
| 92 #endif | |
| 93 | |
| 94 #ifndef BID_HAS_TF_MODE | |
| 95 #if defined __i386__ | |
| 96 #define BID_HAS_TF_MODE 0 | |
| 97 #else | |
| 98 #define BID_HAS_TF_MODE 1 | |
| 99 #endif | |
| 100 #endif | |
| 101 | |
| 102 #ifndef SFtype | |
| 103 #define SFtype float | |
| 104 #endif | |
| 105 | |
| 106 #ifndef DFtype | |
| 107 #define DFtype double | |
| 108 #endif | |
| 109 | |
| 110 #if BID_HAS_XF_MODE | |
| 111 #ifndef XFtype | |
| 112 #define XFtype long double | |
| 113 #endif | |
| 114 | |
| 115 #endif /* IN_LIBGCC2 */ | |
| 116 | |
| 117 #if BID_HAS_TF_MODE | |
| 118 #ifndef TFtype | |
| 119 #define TFtype __float128 | |
| 120 #endif | |
| 121 #endif | |
| 122 | |
| 123 #ifndef SItype | |
| 124 #define SItype SINT32 | |
| 125 #endif | |
| 126 | |
| 127 #ifndef DItype | |
| 128 #define DItype SINT64 | |
| 129 #endif | |
| 130 | |
| 131 #ifndef USItype | |
| 132 #define USItype UINT32 | |
| 133 #endif | |
| 134 | |
| 135 #ifndef UDItype | |
| 136 #define UDItype UINT64 | |
| 137 #endif | |
| 138 | |
| 139 #ifndef CMPtype | |
| 140 #define CMPtype long | |
| 141 #endif | |
| 142 #endif /* IN_LIBGCC2 */ | |
| 143 | |
| 144 #if BID_HAS_GCC_DECIMAL_INTRINSICS | |
| 145 /* Prototypes for gcc instrinsics */ | |
| 146 | |
| 147 extern _Decimal64 __bid_adddd3 (_Decimal64, _Decimal64); | |
| 148 extern _Decimal64 __bid_subdd3 (_Decimal64, _Decimal64); | |
| 149 extern _Decimal32 __bid_addsd3 (_Decimal32, _Decimal32); | |
| 150 extern _Decimal32 __bid_subsd3 (_Decimal32, _Decimal32); | |
| 151 extern _Decimal128 __bid_addtd3 (_Decimal128, _Decimal128); | |
| 152 extern _Decimal128 __bid_subtd3 (_Decimal128, _Decimal128); | |
| 153 extern DFtype __bid_truncdddf (_Decimal64); | |
| 154 extern DItype __bid_fixdddi (_Decimal64); | |
| 155 extern _Decimal32 __bid_truncddsd2 (_Decimal64); | |
| 156 extern SFtype __bid_truncddsf (_Decimal64); | |
| 157 extern SItype __bid_fixddsi (_Decimal64); | |
| 158 extern _Decimal128 __bid_extendddtd2 (_Decimal64); | |
| 159 #if BID_HAS_TF_MODE | |
| 160 extern TFtype __bid_extendddtf (_Decimal64); | |
| 161 #endif | |
| 162 extern UDItype __bid_fixunsdddi (_Decimal64); | |
| 163 extern USItype __bid_fixunsddsi (_Decimal64); | |
| 164 #if BID_HAS_XF_MODE | |
| 165 extern XFtype __bid_extendddxf (_Decimal64); | |
| 166 #endif | |
| 167 extern _Decimal64 __bid_extenddfdd (DFtype); | |
| 168 extern _Decimal32 __bid_truncdfsd (DFtype); | |
| 169 extern _Decimal128 __bid_extenddftd (DFtype); | |
| 170 extern _Decimal64 __bid_floatdidd (DItype); | |
| 171 extern _Decimal32 __bid_floatdisd (DItype); | |
| 172 extern _Decimal128 __bid_floatditd (DItype); | |
| 173 extern _Decimal64 __bid_divdd3 (_Decimal64, _Decimal64); | |
| 174 extern _Decimal32 __bid_divsd3 (_Decimal32, _Decimal32); | |
| 175 extern _Decimal128 __bid_divtd3 (_Decimal128, _Decimal128); | |
| 176 extern CMPtype __bid_eqdd2 (_Decimal64, _Decimal64); | |
| 177 extern CMPtype __bid_eqsd2 (_Decimal32, _Decimal32); | |
| 178 extern CMPtype __bid_eqtd2 (_Decimal128, _Decimal128); | |
| 179 extern CMPtype __bid_gedd2 (_Decimal64, _Decimal64); | |
| 180 extern CMPtype __bid_gesd2 (_Decimal32, _Decimal32); | |
| 181 extern CMPtype __bid_getd2 (_Decimal128, _Decimal128); | |
| 182 extern CMPtype __bid_gtdd2 (_Decimal64, _Decimal64); | |
| 183 extern CMPtype __bid_gtsd2 (_Decimal32, _Decimal32); | |
| 184 extern CMPtype __bid_gttd2 (_Decimal128, _Decimal128); | |
| 185 extern CMPtype __bid_ledd2 (_Decimal64, _Decimal64); | |
| 186 extern CMPtype __bid_lesd2 (_Decimal32, _Decimal32); | |
| 187 extern CMPtype __bid_letd2 (_Decimal128, _Decimal128); | |
| 188 extern CMPtype __bid_ltdd2 (_Decimal64, _Decimal64); | |
| 189 extern CMPtype __bid_ltsd2 (_Decimal32, _Decimal32); | |
| 190 extern CMPtype __bid_lttd2 (_Decimal128, _Decimal128); | |
| 191 extern CMPtype __bid_nedd2 (_Decimal64, _Decimal64); | |
| 192 extern CMPtype __bid_nesd2 (_Decimal32, _Decimal32); | |
| 193 extern CMPtype __bid_netd2 (_Decimal128, _Decimal128); | |
| 194 extern CMPtype __bid_unorddd2 (_Decimal64, _Decimal64); | |
| 195 extern CMPtype __bid_unordsd2 (_Decimal32, _Decimal32); | |
| 196 extern CMPtype __bid_unordtd2 (_Decimal128, _Decimal128); | |
| 197 extern _Decimal64 __bid_muldd3 (_Decimal64, _Decimal64); | |
| 198 extern _Decimal32 __bid_mulsd3 (_Decimal32, _Decimal32); | |
| 199 extern _Decimal128 __bid_multd3 (_Decimal128, _Decimal128); | |
| 200 extern _Decimal64 __bid_extendsddd2 (_Decimal32); | |
| 201 extern DFtype __bid_extendsddf (_Decimal32); | |
| 202 extern DItype __bid_fixsddi (_Decimal32); | |
| 203 extern SFtype __bid_truncsdsf (_Decimal32); | |
| 204 extern SItype __bid_fixsdsi (_Decimal32); | |
| 205 extern _Decimal128 __bid_extendsdtd2 (_Decimal32); | |
| 206 #if BID_HAS_TF_MODE | |
| 207 extern TFtype __bid_extendsdtf (_Decimal32); | |
| 208 #endif | |
| 209 extern UDItype __bid_fixunssddi (_Decimal32); | |
| 210 extern USItype __bid_fixunssdsi (_Decimal32); | |
| 211 #if BID_HAS_XF_MODE | |
| 212 extern XFtype __bid_extendsdxf (_Decimal32); | |
| 213 #endif | |
| 214 extern _Decimal64 __bid_extendsfdd (SFtype); | |
| 215 extern _Decimal32 __bid_extendsfsd (SFtype); | |
| 216 extern _Decimal128 __bid_extendsftd (SFtype); | |
| 217 extern _Decimal64 __bid_floatsidd (SItype); | |
| 218 extern _Decimal32 __bid_floatsisd (SItype); | |
| 219 extern _Decimal128 __bid_floatsitd (SItype); | |
| 220 extern _Decimal64 __bid_trunctddd2 (_Decimal128); | |
| 221 extern DFtype __bid_trunctddf (_Decimal128); | |
| 222 extern DItype __bid_fixtddi (_Decimal128); | |
| 223 extern _Decimal32 __bid_trunctdsd2 (_Decimal128); | |
| 224 extern SFtype __bid_trunctdsf (_Decimal128); | |
| 225 extern SItype __bid_fixtdsi (_Decimal128); | |
| 226 #if BID_HAS_TF_MODE | |
| 227 extern TFtype __bid_trunctdtf (_Decimal128); | |
| 228 #endif | |
| 229 extern UDItype __bid_fixunstddi (_Decimal128); | |
| 230 extern USItype __bid_fixunstdsi (_Decimal128); | |
| 231 #if BID_HAS_XF_MODE | |
| 232 extern XFtype __bid_trunctdxf (_Decimal128); | |
| 233 #endif | |
| 234 #if BID_HAS_TF_MODE | |
| 235 extern _Decimal64 __bid_trunctfdd (TFtype); | |
| 236 extern _Decimal32 __bid_trunctfsd (TFtype); | |
| 237 extern _Decimal128 __bid_extendtftd (TFtype); | |
| 238 #endif | |
| 239 extern _Decimal64 __bid_floatunsdidd (UDItype); | |
| 240 extern _Decimal32 __bid_floatunsdisd (UDItype); | |
| 241 extern _Decimal128 __bid_floatunsditd (UDItype); | |
| 242 extern _Decimal64 __bid_floatunssidd (USItype); | |
| 243 extern _Decimal32 __bid_floatunssisd (USItype); | |
| 244 extern _Decimal128 __bid_floatunssitd (USItype); | |
| 245 #if BID_HAS_XF_MODE | |
| 246 extern _Decimal64 __bid_truncxfdd (XFtype); | |
| 247 extern _Decimal32 __bid_truncxfsd (XFtype); | |
| 248 extern _Decimal128 __bid_extendxftd (XFtype); | |
| 249 #endif | |
| 250 extern int isinfd32 (_Decimal32); | |
| 251 extern int isinfd64 (_Decimal64); | |
| 252 extern int isinfd128 (_Decimal128); | |
| 253 #endif /* BID_HAS_GCC_DECIMAL_INTRINSICS */ | |
| 254 | |
| 255 extern void __dfp_set_round (int); | |
| 256 extern int __dfp_get_round (void); | |
| 257 extern void __dfp_clear_except (void); | |
| 258 extern int __dfp_test_except (int); | |
| 259 extern void __dfp_raise_except (int); | |
| 260 | |
| 261 #if BID_HAS_GCC_DECIMAL_INTRINSICS | |
| 262 /* Used by gcc intrinsics. We have to define them after UINT128 | |
| 263 is defined. */ | |
| 264 union decimal32 { | |
| 265 _Decimal32 d; | |
| 266 UINT32 i; | |
| 267 }; | |
| 268 | |
| 269 union decimal64 { | |
| 270 _Decimal64 d; | |
| 271 UINT64 i; | |
| 272 }; | |
| 273 | |
| 274 union decimal128 { | |
| 275 _Decimal128 d; | |
| 276 UINT128 i; | |
| 277 }; | |
| 278 | |
| 279 #if BID_HAS_TF_MODE | |
| 280 union float128 { | |
| 281 TFtype f; | |
| 282 UINT128 i; | |
| 283 }; | |
| 284 #endif | |
| 285 #endif /* BID_HAS_GCC_DECIMAL_INTRINSICS */ | |
| 286 | |
| 287 #endif /* _BID_GCC_INTRINSICS_H */ |