[Ada] Small tweaks to couple of Value routines
commitdef0e5b83ddb5d4916d0e804b9044f73ffb2923c
authorEric Botcazou <ebotcazou@adacore.com>
Fri, 6 Nov 2020 12:51:45 +0000 (6 13:51 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 27 Nov 2020 09:16:05 +0000 (27 04:16 -0500)
tree0e2bf236895806ac1def143a2ad5b2e41a704ed2
parent4e6b87e933bbbf3671f02210261615076b998644
[Ada] Small tweaks to couple of Value routines

gcc/ada/

* libgnat/s-valuef.adb (Integer_To_Fixed): Take into account the
extra digit when scaling up the input.
* libgnat/s-valuer.adb (Scan_Decimal_Digits): Restrict previous
change to fixed-point types.
(Scan_Integral_Digits): Likewise.
gcc/ada/libgnat/s-valuef.adb
gcc/ada/libgnat/s-valuer.adb