s-imgdec.adb (Set_Decimal_Digits): Fix error when input is zero with negative scale
authorRobert Dewar <dewar@adacore.com>
Tue, 8 Apr 2008 06:55:17 +0000 (08:55 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 8 Apr 2008 06:55:17 +0000 (08:55 +0200)
commitfc5c20afff6cfc1139d2fafbb671cfcf7339e633
tree606575cd1e87c03094b83637575a2f6aa6427b45
parentca44152fc58297f5c0bef56190b6968549e1438e
s-imgdec.adb (Set_Decimal_Digits): Fix error when input is zero with negative scale

2008-04-08  Robert Dewar  <dewar@adacore.com>

* s-imgdec.adb (Set_Decimal_Digits): Fix error when input is zero with
negative scale
(Set_Decimal_Digits): Properly handle Aft=0 (equivalent to Aft=1)
Properly handle case where Aft > Scale and input number is less than
one.

From-SVN: r134050
gcc/ada/s-imgdec.adb