diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-22 13:15:15 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 15:15:15 +0200 |
| commit | f6da8aff3dfd442088e586dc69bb7cc5c67167bd (patch) | |
| tree | 69eb259722c9b0825b0b815a931a22adb180d32a /gcc/ada/uintp.adb | |
| parent | a181e8690b35be34cc4f60fe5898f30aeda4d97d (diff) | |
| download | gcc-f6da8aff3dfd442088e586dc69bb7cc5c67167bd.zip gcc-f6da8aff3dfd442088e586dc69bb7cc5c67167bd.tar.gz gcc-f6da8aff3dfd442088e586dc69bb7cc5c67167bd.tar.bz2 | |
uintp.adb, [...]: Minor reformatting.
2010-06-22 Robert Dewar <dewar@adacore.com>
* uintp.adb, osint.adb, prj-conf.adb, prj-part.adb, prj.adb: Minor
reformatting.
* s-taprop-vxworks.adb: Add comment for Set_Priority.
* impunit.adb (Map_Array): Add entries for s-htable.ads and s-crc32.ads
* projects.texi: Move @cindex to the left margin, since otherwise we
are missing entries in the index.
From-SVN: r161179
Diffstat (limited to 'gcc/ada/uintp.adb')
| -rw-r--r-- | gcc/ada/uintp.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index b84ae5a..a3ed817 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -1345,9 +1345,11 @@ package body Uintp is if not Discard_Quotient then Quotient := Uint_0; end if; + if not Discard_Remainder then Remainder := Left; end if; + return; end if; @@ -1377,6 +1379,7 @@ package body Uintp is if not Discard_Remainder then Remainder := UI_From_Int (Remainder_I); end if; + return; end; end if; |