diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2023-02-03 11:07:24 +0000 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-22 10:44:09 +0200 |
| commit | 8f563162db870d42d7306551a9dda51201ad9862 (patch) | |
| tree | 8efdfafe95aba46a6c3e61a41f3a6a40f74cda0e /gcc/ada/sem_disp.adb | |
| parent | d516e77b5ed1d8cce0a03227a7c1946c9de21e2f (diff) | |
| download | gcc-8f563162db870d42d7306551a9dda51201ad9862.zip gcc-8f563162db870d42d7306551a9dda51201ad9862.tar.gz gcc-8f563162db870d42d7306551a9dda51201ad9862.tar.bz2 | |
ada: Remove extra parentheses
In preparation of enhancing -gnatyx to check for these automatically.
gcc/ada/
* ali-util.adb, par-endh.adb, par-prag.adb, par-ch2.adb,
checks.adb, fmap.adb, libgnat/a-nbnbig.ads, libgnat/g-dynhta.adb,
libgnat/s-carun8.adb, libgnat/s-strcom.adb, libgnat/a-dhfina.adb,
libgnat/a-direct.adb, libgnat/a-rbtgbo.adb, libgnat/a-strsea.adb,
libgnat/a-ststio.adb, libgnat/a-suenco.adb, libgnat/a-costso.adb,
libgnat/a-strmap.adb, libgnat/g-alleve.adb,
libgnat/g-debpoo.adb, libgnat/g-sercom__linux.adb,
libgnat/s-genbig.adb, libgnat/s-mmap.adb, libgnat/s-regpat.adb,
par-ch5.adb, sem_case.adb, sem_ch12.adb, sem_ch13.adb,
sem_ch8.adb, sem_eval.adb, sem_prag.adb, sem_type.adb,
exp_ch11.adb, exp_ch2.adb, exp_ch3.adb, exp_ch4.adb, exp_ch5.adb,
exp_ch6.adb, exp_ch9.adb, exp_put_image.adb, freeze.adb, live.adb,
sem_aggr.adb, sem_cat.adb, sem_ch10.adb, sem_ch3.adb, sem_ch6.adb,
sem_ch9.adb, sem_disp.adb, sem_elab.adb, sem_res.adb,
sem_util.adb, sinput.adb, uintp.adb, bcheck.adb, binde.adb,
binderr.adb, einfo-utils.adb, clean.adb, sem_ch4.adb, gnatls.adb,
gprep.adb, sem_ch11.adb: Remove extra parentheses.
Diffstat (limited to 'gcc/ada/sem_disp.adb')
| -rw-r--r-- | gcc/ada/sem_disp.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index 7820a50..b01e3d4 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -1441,7 +1441,7 @@ package body Sem_Disp is -- where it can be a dispatching op is when it overrides an operation -- before the freezing point of the type. - elsif ((not Is_Package_Or_Generic_Package (Scope (Subp))) + elsif (not Is_Package_Or_Generic_Package (Scope (Subp)) or else In_Package_Body (Scope (Subp))) and then not Has_Dispatching_Parent then @@ -1488,7 +1488,7 @@ package body Sem_Disp is Decl_Item := Next (Parent (Tagged_Type)); while Present (Decl_Item) - and then (Decl_Item /= Subp_Body) + and then Decl_Item /= Subp_Body loop if Comes_From_Source (Decl_Item) and then (Nkind (Decl_Item) in N_Proper_Body @@ -2969,7 +2969,7 @@ package body Sem_Disp is end loop; end if; - if (not Is_Package_Or_Generic_Package (Current_Scope)) + if not Is_Package_Or_Generic_Package (Current_Scope) or else not In_Private_Part (Current_Scope) then -- Not a private primitive |