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