diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-07-31 09:56:59 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-07-31 09:56:59 +0000 |
| commit | ae71d81b18382d0967983de64a6bcd5c08bac6ca (patch) | |
| tree | a58cd9d576931f0638926d4c571e9166c729649d /gcc/ada/xoscons.adb | |
| parent | 1c0b35aac933587f8ed9886b2f8435016cb391ea (diff) | |
| download | gcc-ae71d81b18382d0967983de64a6bcd5c08bac6ca.zip gcc-ae71d81b18382d0967983de64a6bcd5c08bac6ca.tar.gz gcc-ae71d81b18382d0967983de64a6bcd5c08bac6ca.tar.bz2 | |
[Ada] Various code clean-ups from CodePeer messages
2018-07-31 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* clean.adb, gnatchop.adb, gnatfind.adb, gnatls.adb,
gnatmake.ads, gnatxref.adb, make.adb, make.ads, make_util.ads,
sfn_scan.adb, vxaddr2line.adb, xeinfo.adb, xoscons.adb,
xr_tabls.adb, xref_lib.adb: Address CodePeer messages.
From-SVN: r263108
Diffstat (limited to 'gcc/ada/xoscons.adb')
| -rw-r--r-- | gcc/ada/xoscons.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb index 48a25d1..ca4121f 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -166,7 +166,7 @@ procedure XOSCons is A2 : Long_Unsigned renames V2.Abs_Value; begin return (P1 and then not P2) - or else (P1 and then P2 and then A1 > A2) + or else (P1 and then A1 > A2) or else (not P1 and then not P2 and then A1 < A2); end ">"; |