commit | f4fe186bfe3e74c7c9b2d49b635565ea9a4df1b2 | [log] [tgz] |
---|---|---|
author | Eric Botcazou <ebotcazou@adacore.com> | Wed Mar 03 20:15:42 2021 +0100 |
committer | Pierre-Marie de Rodat <derodat@adacore.com> | Wed Jun 16 04:43:04 2021 -0400 |
tree | d05d7cef7094ef78e900aa25cd6e0749dc094ab8 | |
parent | 07b7dc09b21d1a2f000f2861a87b017b764b38b4 [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.