uintp.adb (Most_Sig_2_Digits): In case Direct (Right)...
authorBob Duff <duff@adacore.com>
Tue, 25 Apr 2017 08:23:06 +0000 (08:23 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 25 Apr 2017 08:23:06 +0000 (10:23 +0200)
commitf607cacf5db527077abc7904c4dc511468c82c0a
treeb3a532479d308517de4607be3ab55c5e4e41942c
parent28ad2460d238188741c7e2a0207ed99578cb3e4d
uintp.adb (Most_Sig_2_Digits): In case Direct (Right)...

2017-04-25  Bob Duff  <duff@adacore.com>

* uintp.adb (Most_Sig_2_Digits): In case Direct (Right), fetch
Direct_Val (Right), instead of the incorrect Direct_Val (Left).
(UI_GCD): Remove ??? comment involving possible efficiency
improvements. This just isn't important after all these years.
Also minor cleanup.
* uintp.ads: Minor cleanup.

From-SVN: r247144
gcc/ada/ChangeLog
gcc/ada/uintp.adb
gcc/ada/uintp.ads