projects / platform / upstream / gcc.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 07b7dc0) | patch
[Ada] Fix floating-point exponentiation with Integer'First exponent
authorEric Botcazou <ebotcazou@adacore.com>
Wed, 3 Mar 2021 19:15:42 +0000 (20:15 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 16 Jun 2021 08:43:04 +0000 (04:43 -0400)
commitf4fe186bfe3e74c7c9b2d49b635565ea9a4df1b2
treed05d7cef7094ef78e900aa25cd6e0749dc094ab8tree | snapshot
parent07b7dc09b21d1a2f000f2861a87b017b764b38b4commit | diff
[Ada] Fix floating-point exponentiation with Integer'First exponent

gcc/ada/

* urealp.adb (Scale): Change first paramter to Uint and adjust.
(Equivalent_Decimal_Exponent): Pass U.Den directly to Scale.
* libgnat/s-exponr.adb (Negative): Rename to...
(Safe_Negative): ...this and change its lower bound.
(Exponr): Adjust to above renaming and deal with Integer'First.
gcc/ada/libgnat/s-exponr.adb diff | blob | history
gcc/ada/urealp.adb diff | blob | history
Domain: System / Toolchain;