gcc/config/dfp-bit.h

   1 /* Header file for dfp-bit.c.
   2    Copyright (C) 2005, 2006 Free Software Foundation, Inc.
   3
   4 This file is part of GCC.
   5
   6 GCC is free software; you can redistribute it and/or modify it under
   7 the terms of the GNU General Public License as published by the Free
   8 Software Foundation; either version 2, or (at your option) any later
   9 version.
  10
  11 In addition to the permissions in the GNU General Public License, the
  12 Free Software Foundation gives you unlimited permission to link the
  13 compiled version of this file into combinations with other programs,
  14 and to distribute those combinations without any restriction coming
  15 from the use of this file.  (The General Public License restrictions
  16 do apply in other respects; for example, they cover modification of
  17 the file, and distribution when not linked into a combine
  18 executable.)
  19
  20 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
  21 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  22 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  23 for more details.
  24
  25 You should have received a copy of the GNU General Public License
  26 along with GCC; see the file COPYING.  If not, write to the Free
  27 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  28 02110-1301, USA.  */
  29
  30 #ifndef _DFPBIT_H
  31 #define _DFPBIT_H
  32
  33 #include "tconfig.h"
  34 #include "coretypes.h"
  35 #include "tm.h"
  36
  37 #ifndef LIBGCC2_WORDS_BIG_ENDIAN
  38 #define LIBGCC2_WORDS_BIG_ENDIAN WORDS_BIG_ENDIAN
  39 #endif
  40
  41 #ifndef LIBGCC2_FLOAT_WORDS_BIG_ENDIAN
  42 #define LIBGCC2_FLOAT_WORDS_BIG_ENDIAN LIBGCC2_WORDS_BIG_ENDIAN
  43 #endif
  44
  45 #ifndef LIBGCC2_LONG_DOUBLE_TYPE_SIZE
  46 #define LIBGCC2_LONG_DOUBLE_TYPE_SIZE LONG_DOUBLE_TYPE_SIZE
  47 #endif
  48
  49 #ifndef LIBGCC2_HAS_XF_MODE
  50 #define LIBGCC2_HAS_XF_MODE \
  51   (BITS_PER_UNIT == 8 && LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 80)
  52 #endif
  53
  54 /* Depending on WIDTH, define a number of macros:
  55
  56    DFP_C_TYPE: type of the arguments to the libgcc functions;
  57         (eg _Decimal32)
  58
  59    IEEE_TYPE: the corresponding (encoded) IEEE754R type;
  60         (eg decimal32)
  61
  62    TO_INTERNAL: the name of the decNumber function to convert an
  63    encoded value into the decNumber internal representation;
  64
  65    TO_ENCODED: the name of the decNumber function to convert an
  66    internally represented decNumber into the encoded
  67    representation.
  68
  69    FROM_STRING: the name of the decNumber function to read an
  70    encoded value from a string.
  71
  72    TO_STRING: the name of the decNumber function to write an
  73    encoded value to a string.  */
  74
  75 #if WIDTH == 32
  76 #define DFP_C_TYPE      _Decimal32
  77 #define IEEE_TYPE       decimal32
  78 #define HOST_TO_IEEE    __host_to_ieee_32
  79 #define IEEE_TO_HOST    __ieee_to_host_32
  80 #define TO_INTERNAL     __decimal32ToNumber
  81 #define TO_ENCODED      __decimal32FromNumber
  82 #define FROM_STRING     __decimal32FromString
  83 #define TO_STRING       __decimal32ToString
  84 #elif WIDTH == 64
  85 #define DFP_C_TYPE      _Decimal64
  86 #define IEEE_TYPE       decimal64
  87 #define HOST_TO_IEEE    __host_to_ieee_64
  88 #define IEEE_TO_HOST    __ieee_to_host_64
  89 #define TO_INTERNAL     __decimal64ToNumber
  90 #define TO_ENCODED      __decimal64FromNumber
  91 #define FROM_STRING     __decimal64FromString
  92 #define TO_STRING       __decimal64ToString
  93 #elif WIDTH == 128
  94 #define DFP_C_TYPE      _Decimal128
  95 #define IEEE_TYPE       decimal128
  96 #define HOST_TO_IEEE    __host_to_ieee_128
  97 #define IEEE_TO_HOST    __ieee_to_host_128
  98 #define TO_INTERNAL     __decimal128ToNumber
  99 #define TO_ENCODED      __decimal128FromNumber
 100 #define FROM_STRING     __decimal128FromString
 101 #define TO_STRING       __decimal128ToString
 102 #else
 103 #error invalid decimal float word width
 104 #endif
 105
 106 /* We define __DEC_EVAL_METHOD__ to 2, saying that we evaluate all
 107    operations and constants to the range and precision of the _Decimal128
 108    type.  Make it so.  */
 109 #if WIDTH == 32
 110 #define CONTEXT_INIT DEC_INIT_DECIMAL32
 111 #elif WIDTH == 64
 112 #define CONTEXT_INIT DEC_INIT_DECIMAL64
 113 #elif WIDTH == 128
 114 #define CONTEXT_INIT DEC_INIT_DECIMAL128
 115 #endif
 116
 117 /* Define CONTEXT_ROUND to obtain the current decNumber rounding mode.  */
 118 extern enum rounding    __decGetRound (void);
 119 #define CONTEXT_ROUND   __decGetRound ()
 120
 121 extern int __dfp_traps;
 122 #define CONTEXT_TRAPS   __dfp_traps
 123 #define CONTEXT_ERRORS(context) context.status & DEC_Errors
 124 extern void __dfp_raise (int);
 125 #define DFP_RAISE(A)    __dfp_raise(A)
 126
 127 /* Conversions between different decimal float types use WIDTH_TO to
 128    determine additional macros to define.  */
 129
 130 #if defined (L_dd_to_sd) || defined (L_td_to_sd)
 131 #define WIDTH_TO 32
 132 #elif defined (L_sd_to_dd) || defined (L_td_to_dd)
 133 #define WIDTH_TO 64
 134 #elif defined (L_sd_to_td) || defined (L_dd_to_td)
 135 #define WIDTH_TO 128
 136 #endif
 137
 138 /* If WIDTH_TO is defined, define additional macros:
 139
 140    DFP_C_TYPE_TO: type of the result of dfp to dfp conversion.
 141
 142    IEEE_TYPE_TO: the corresponding (encoded) IEEE754R type.
 143
 144    TO_ENCODED_TO: the name of the decNumber function to convert an
 145    internally represented decNumber into the encoded representation
 146    for the destination.  */
 147
 148 #if WIDTH_TO == 32
 149 #define DFP_C_TYPE_TO   _Decimal32
 150 #define IEEE_TYPE_TO    decimal32
 151 #define TO_ENCODED_TO   __decimal32FromNumber
 152 #define IEEE_TO_HOST_TO __ieee_to_host_32
 153 #elif WIDTH_TO == 64
 154 #define DFP_C_TYPE_TO   _Decimal64
 155 #define IEEE_TYPE_TO    decimal64
 156 #define TO_ENCODED_TO   __decimal64FromNumber
 157 #define IEEE_TO_HOST_TO __ieee_to_host_64
 158 #elif WIDTH_TO == 128
 159 #define DFP_C_TYPE_TO   _Decimal128
 160 #define IEEE_TYPE_TO    decimal128
 161 #define TO_ENCODED_TO   __decimal128FromNumber
 162 #define IEEE_TO_HOST_TO __ieee_to_host_128
 163 #endif
 164
 165 /* Conversions between decimal float types and integral types use INT_KIND
 166    to determine the data type and C functions to use.  */
 167
 168 #if defined (L_sd_to_si) || defined (L_dd_to_si) || defined (L_td_to_si)  \
 169    || defined (L_si_to_sd) || defined (L_si_to_dd) || defined (L_si_to_td)
 170 #define INT_KIND 1
 171 #elif defined (L_sd_to_di) || defined (L_dd_to_di) || defined (L_td_to_di) \
 172    || defined (L_di_to_sd) || defined (L_di_to_dd) || defined (L_di_to_td)
 173 #define INT_KIND 2
 174 #elif defined (L_sd_to_usi) || defined (L_dd_to_usi) || defined (L_td_to_usi) \
 175    || defined (L_usi_to_sd) || defined (L_usi_to_dd) || defined (L_usi_to_td)
 176 #define INT_KIND 3
 177 #elif defined (L_sd_to_udi) || defined (L_dd_to_udi) || defined (L_td_to_udi) \
 178    || defined (L_udi_to_sd) || defined (L_udi_to_dd) || defined (L_udi_to_td)
 179 #define INT_KIND 4
 180 #endif
 181
 182 /*  If INT_KIND is defined, define additional macros:
 183
 184     INT_TYPE: The integer data type.
 185
 186     INT_FMT: The format string for writing the integer to a string.
 187
 188     CAST_FOR_FMT: Cast variable of INT_KIND to C type for sprintf.
 189     This works for ILP32 and LP64, won't for other type size systems.
 190
 191     STR_TO_INT: The function to read the integer from a string.  */
 192
 193 #if INT_KIND == 1
 194 #define INT_TYPE SItype
 195 #define INT_FMT "%d"
 196 #define CAST_FOR_FMT(A) (int)A
 197 #define STR_TO_INT strtol
 198 #elif INT_KIND == 2
 199 #define INT_TYPE DItype
 200 #define INT_FMT "%lld"
 201 #define CAST_FOR_FMT(A) (long long)A
 202 #define STR_TO_INT strtoll
 203 #elif INT_KIND == 3
 204 #define INT_TYPE USItype
 205 #define INT_FMT "%u"
 206 #define CAST_FOR_FMT(A) (unsigned int)A
 207 #define STR_TO_INT strtoul
 208 #elif INT_KIND == 4
 209 #define INT_TYPE UDItype
 210 #define INT_FMT "%llu"
 211 #define CAST_FOR_FMT(A) (unsigned long long)A
 212 #define STR_TO_INT strtoull
 213 #endif
 214
 215 /* Conversions between decimal float types and binary float types use
 216    BFP_KIND to determine the data type and C functions to use.  */
 217
 218 #if defined (L_sd_to_sf) || defined (L_dd_to_sf) || defined (L_td_to_sf) \
 219  || defined (L_sf_to_sd) || defined (L_sf_to_dd) || defined (L_sf_to_td)
 220 #define BFP_KIND 1
 221 #elif defined (L_sd_to_df) || defined (L_dd_to_df ) || defined (L_td_to_df) \
 222  ||   defined (L_df_to_sd) || defined (L_df_to_dd) || defined (L_df_to_td)
 223 #define BFP_KIND 2
 224 #elif defined (L_sd_to_xf) || defined (L_dd_to_xf ) || defined (L_td_to_xf) \
 225  ||   defined (L_xf_to_sd) || defined (L_xf_to_dd) || defined (L_xf_to_td)
 226 #define BFP_KIND 3
 227 #endif
 228
 229 /*  If BFP_KIND is defined, define additional macros:
 230
 231     BFP_TYPE: The binary floating point data type.
 232
 233     BFP_FMT: The format string for writing the value to a string.
 234
 235     STR_TO_BFP: The function to read the value from a string.  */
 236
 237 #if BFP_KIND == 1
 238 /* strtof is declared in <stdlib.h> only for C99.  */
 239 extern float strtof (const char *, char **);
 240 #define BFP_TYPE SFtype
 241 #define BFP_FMT "%e"
 242 #define STR_TO_BFP strtof
 243
 244 #elif BFP_KIND == 2
 245 #define BFP_TYPE DFtype
 246 #define BFP_FMT "%e"
 247 #define STR_TO_BFP strtod
 248
 249 #elif BFP_KIND == 3
 250 #if LIBGCC2_HAS_XF_MODE
 251 /* These aren't used if XF mode is not supported.  */
 252 #define BFP_TYPE XFtype
 253 #define BFP_FMT "%e"
 254 #define BFP_VIA_TYPE double
 255 #define STR_TO_BFP strtod
 256 #endif
 257
 258 #endif /* BFP_KIND */
 259
 260 #if WIDTH == 128 || WIDTH_TO == 128
 261 #include "decimal128.h"
 262 #endif
 263 #if WIDTH == 64 || WIDTH_TO == 64
 264 #include "decimal64.h"
 265 #endif
 266 #if WIDTH == 32 || WIDTH_TO == 32
 267 #include "decimal32.h"
 268 #endif
 269 #include "decNumber.h"
 270
 271 /* Names of arithmetic functions.  */
 272
 273 #if WIDTH == 32
 274 #define DFP_ADD         __addsd3
 275 #define DFP_SUB         __subsd3
 276 #define DFP_MULTIPLY    __mulsd3
 277 #define DFP_DIVIDE      __divsd3
 278 #define DFP_EQ          __eqsd2
 279 #define DFP_NE          __nesd2
 280 #define DFP_LT          __ltsd2
 281 #define DFP_GT          __gtsd2
 282 #define DFP_LE          __lesd2
 283 #define DFP_GE          __gesd2
 284 #define DFP_UNORD       __unordsd2
 285 #elif WIDTH == 64
 286 #define DFP_ADD         __adddd3
 287 #define DFP_SUB         __subdd3
 288 #define DFP_MULTIPLY    __muldd3
 289 #define DFP_DIVIDE      __divdd3
 290 #define DFP_EQ          __eqdd2
 291 #define DFP_NE          __nedd2
 292 #define DFP_LT          __ltdd2
 293 #define DFP_GT          __gtdd2
 294 #define DFP_LE          __ledd2
 295 #define DFP_GE          __gedd2
 296 #define DFP_UNORD       __unorddd2
 297 #elif WIDTH == 128
 298 #define DFP_ADD         __addtd3
 299 #define DFP_SUB         __subtd3
 300 #define DFP_MULTIPLY    __multd3
 301 #define DFP_DIVIDE      __divtd3
 302 #define DFP_EQ          __eqtd2
 303 #define DFP_NE          __netd2
 304 #define DFP_LT          __lttd2
 305 #define DFP_GT          __gttd2
 306 #define DFP_LE          __letd2
 307 #define DFP_GE          __getd2
 308 #define DFP_UNORD       __unordtd2
 309 #endif
 310
 311 /* Names of functions to convert between different decimal float types.  */
 312
 313 #if WIDTH == 32
 314 #if WIDTH_TO == 64
 315 #define DFP_TO_DFP      __extendsddd2
 316 #elif WIDTH_TO == 128
 317 #define DFP_TO_DFP      __extendsdtd2
 318 #endif
 319 #elif WIDTH == 64
 320 #if WIDTH_TO == 32
 321 #define DFP_TO_DFP      __truncddsd2
 322 #elif WIDTH_TO == 128
 323 #define DFP_TO_DFP      __extendddtd2
 324 #endif
 325 #elif WIDTH == 128
 326 #if WIDTH_TO == 32
 327 #define DFP_TO_DFP      __trunctdsd2
 328 #elif WIDTH_TO == 64
 329 #define DFP_TO_DFP      __trunctddd2
 330 #endif
 331 #endif
 332
 333 /* Names of functions to convert between decimal float and integers.  */
 334
 335 #if WIDTH == 32
 336 #if INT_KIND == 1
 337 #define INT_TO_DFP      __floatsisd
 338 #define DFP_TO_INT      __fixsdsi
 339 #elif INT_KIND == 2
 340 #define INT_TO_DFP      __floatdisd
 341 #define DFP_TO_INT      __fixsddi
 342 #elif INT_KIND == 3
 343 #define INT_TO_DFP      __floatunssisd
 344 #define DFP_TO_INT      __fixunssdsi
 345 #elif INT_KIND == 4
 346 #define INT_TO_DFP      __floatunsdisd
 347 #define DFP_TO_INT      __fixunssddi
 348 #endif
 349 #elif WIDTH == 64
 350 #if INT_KIND == 1
 351 #define INT_TO_DFP      __floatsidd
 352 #define DFP_TO_INT      __fixddsi
 353 #elif INT_KIND == 2
 354 #define INT_TO_DFP      __floatdidd
 355 #define DFP_TO_INT      __fixdddi
 356 #elif INT_KIND == 3
 357 #define INT_TO_DFP      __floatunssidd
 358 #define DFP_TO_INT      __fixunsddsi
 359 #elif INT_KIND == 4
 360 #define INT_TO_DFP      __floatunsdidd
 361 #define DFP_TO_INT      __fixunsdddi
 362 #endif
 363 #elif WIDTH == 128
 364 #if INT_KIND == 1
 365 #define INT_TO_DFP      __floatsitd
 366 #define DFP_TO_INT      __fixtdsi
 367 #elif INT_KIND == 2
 368 #define INT_TO_DFP      __floatditd
 369 #define DFP_TO_INT      __fixtddi
 370 #elif INT_KIND == 3
 371 #define INT_TO_DFP      __floatunssitd
 372 #define DFP_TO_INT      __fixunstdsi
 373 #elif INT_KIND == 4
 374 #define INT_TO_DFP      __floatunsditd
 375 #define DFP_TO_INT      __fixunstddi
 376 #endif
 377 #endif
 378
 379 /* Names of functions to convert between decimal float and binary float.  */
 380
 381 #if WIDTH == 32
 382 #if BFP_KIND == 1
 383 #define BFP_TO_DFP      __extendsfsd
 384 #define DFP_TO_BFP      __truncsdsf
 385 #elif BFP_KIND == 2
 386 #define BFP_TO_DFP      __truncdfsd
 387 #define DFP_TO_BFP      __extendsddf
 388 #elif BFP_KIND == 3
 389 #define BFP_TO_DFP      __truncxfsd
 390 #define DFP_TO_BFP      __extendsdxf
 391 #endif /* BFP_KIND */
 392
 393 #elif WIDTH == 64
 394 #if BFP_KIND == 1
 395 #define BFP_TO_DFP      __extendsfdd
 396 #define DFP_TO_BFP      __truncddsf
 397 #elif BFP_KIND == 2
 398 #define BFP_TO_DFP      __extenddfdd
 399 #define DFP_TO_BFP      __truncdddf
 400 #elif BFP_KIND == 3
 401 #define BFP_TO_DFP      __truncxfdd
 402 #define DFP_TO_BFP      __extendddxf
 403 #endif /* BFP_KIND */
 404
 405 #elif WIDTH == 128
 406 #if BFP_KIND == 1
 407 #define BFP_TO_DFP      __extendsftd
 408 #define DFP_TO_BFP      __trunctdsf
 409 #elif BFP_KIND == 2
 410 #define BFP_TO_DFP      __extenddftd
 411 #define DFP_TO_BFP      __trunctddf
 412 #elif BFP_KIND == 3
 413 #define BFP_TO_DFP      __extendxftd
 414 #define DFP_TO_BFP      __trunctdxf
 415 #endif /* BFP_KIND */
 416
 417 #endif /* WIDTH */
 418
 419 /* Some handy typedefs.  */
 420
 421 typedef float SFtype __attribute__ ((mode (SF)));
 422 typedef float DFtype __attribute__ ((mode (DF)));
 423 #if LIBGCC2_HAS_XF_MODE
 424 typedef float XFtype __attribute__ ((mode (XF)));
 425 #endif /* LIBGCC2_HAS_XF_MODE */
 426
 427 typedef int SItype __attribute__ ((mode (SI)));
 428 typedef int DItype __attribute__ ((mode (DI)));
 429 typedef unsigned int USItype __attribute__ ((mode (SI)));
 430 typedef unsigned int UDItype __attribute__ ((mode (DI)));
 431
 432 /* The type of the result of a decimal float comparison.  This must
 433    match `word_mode' in GCC for the target.  */
 434
 435 typedef int CMPtype __attribute__ ((mode (word)));
 436
 437 /* Prototypes.  */
 438
 439 #if defined (L_mul_sd) || defined (L_mul_dd) || defined (L_mul_td)
 440 extern DFP_C_TYPE DFP_MULTIPLY (DFP_C_TYPE, DFP_C_TYPE);
 441 #endif
 442
 443 #if defined (L_div_sd) || defined (L_div_dd) || defined (L_div_td)
 444 extern DFP_C_TYPE DFP_DIVIDE (DFP_C_TYPE, DFP_C_TYPE);
 445 #endif
 446
 447 #if defined (L_addsub_sd) || defined (L_addsub_dd) || defined (L_addsub_td)
 448 extern DFP_C_TYPE DFP_ADD (DFP_C_TYPE, DFP_C_TYPE);
 449 extern DFP_C_TYPE DFP_SUB (DFP_C_TYPE, DFP_C_TYPE);
 450 #endif
 451
 452 #if defined (L_eq_sd) || defined (L_eq_dd) || defined (L_eq_td)
 453 extern CMPtype DFP_EQ (DFP_C_TYPE, DFP_C_TYPE);
 454 #endif
 455
 456 #if defined (L_ne_sd) || defined (L_ne_dd) || defined (L_ne_td)
 457 extern CMPtype DFP_NE (DFP_C_TYPE, DFP_C_TYPE);
 458 #endif
 459
 460 #if defined (L_lt_sd) || defined (L_lt_dd) || defined (L_lt_td)
 461 extern CMPtype DFP_LT (DFP_C_TYPE, DFP_C_TYPE);
 462 #endif
 463
 464 #if defined (L_gt_sd) || defined (L_gt_dd) || defined (L_gt_td)
 465 extern CMPtype DFP_GT (DFP_C_TYPE, DFP_C_TYPE);
 466 #endif
 467
 468 #if defined (L_le_sd) || defined (L_le_dd) || defined (L_le_td)
 469 extern CMPtype DFP_LE (DFP_C_TYPE, DFP_C_TYPE);
 470 #endif
 471
 472 #if defined (L_ge_sd) || defined (L_ge_dd) || defined (L_ge_td)
 473 extern CMPtype DFP_GE (DFP_C_TYPE, DFP_C_TYPE);
 474 #endif
 475
 476 #if defined (L_unord_sd) || defined (L_unord_dd) || defined (L_unord_td)
 477 extern CMPtype DFP_UNORD (DFP_C_TYPE, DFP_C_TYPE);
 478 #endif
 479
 480 #if defined (L_sd_to_dd) || defined (L_sd_to_td) || defined (L_dd_to_sd) \
 481  || defined (L_dd_to_td) || defined (L_td_to_sd) || defined (L_td_to_dd)
 482 extern DFP_C_TYPE_TO DFP_TO_DFP (DFP_C_TYPE);
 483 #endif
 484
 485 #if defined (L_sd_to_si) || defined (L_dd_to_si) || defined (L_td_to_si) \
 486  || defined (L_sd_to_di) || defined (L_dd_to_di) || defined (L_td_to_di) \
 487  || defined (L_sd_to_usi) || defined (L_dd_to_usi) || defined (L_td_to_usi) \
 488  || defined (L_sd_to_udi) || defined (L_dd_to_udi) || defined (L_td_to_udi)
 489 extern INT_TYPE DFP_TO_INT (DFP_C_TYPE);
 490 #endif
 491
 492 #if defined (L_si_to_sd) || defined (L_si_to_dd) || defined (L_si_to_td) \
 493  || defined (L_di_to_sd) || defined (L_di_to_dd) || defined (L_di_to_td) \
 494  || defined (L_usi_to_sd) || defined (L_usi_to_dd) || defined (L_usi_to_td) \
 495  || defined (L_udi_to_sd) || defined (L_udi_to_dd) || defined (L_udi_to_td)
 496 extern DFP_C_TYPE INT_TO_DFP (INT_TYPE);
 497 #endif
 498
 499 #if defined (L_sd_to_sf) || defined (L_dd_to_sf) || defined (L_td_to_sf) \
 500  || defined (L_sd_to_df) || defined (L_dd_to_df) || defined (L_td_to_df) \
 501  || ((defined (L_sd_to_xf) || defined (L_dd_to_xf) || defined (L_td_to_xf)) \
 502      && LIBGCC2_HAS_XF_MODE)
 503 extern BFP_TYPE DFP_TO_BFP (DFP_C_TYPE);
 504 #endif
 505
 506 #if defined (L_sf_to_sd) || defined (L_sf_to_dd) || defined (L_sf_to_td) \
 507  || defined (L_df_to_sd) || defined (L_df_to_dd) || defined (L_df_to_td) \
 508  || ((defined (L_xf_to_sd) || defined (L_xf_to_dd) || defined (L_xf_to_td)) \
 509      && LIBGCC2_HAS_XF_MODE)
 510 extern DFP_C_TYPE BFP_TO_DFP (BFP_TYPE);
 511 #endif
 512
 513 #endif /* _DFPBIT_H */