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/exp_ch6.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/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index b8e5a72..3f81b2a 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -2519,8 +2519,8 @@ package body Exp_Ch6 is or else (Ekind (Formal) = E_In_Out_Parameter and then - (Present (Storage_Model_Copy_From - (Storage_Model_Object (Etype (Prefix (Actual)))))))) + Present (Storage_Model_Copy_From + (Storage_Model_Object (Etype (Prefix (Actual))))))) then Add_Simple_Call_By_Copy_Code (Force => True); |