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_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/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 8c1fb8c..ba88c07 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -9025,8 +9025,8 @@ package body Sem_Ch6 is or else not (Is_Limited_Type (Formal_Type) and then - (Is_Tagged_Type - (Underlying_Type (Formal_Type))))) + Is_Tagged_Type + (Underlying_Type (Formal_Type)))) then Set_Extra_Constrained (Formal, Add_Extra_Formal (Formal, Standard_Boolean, E, "O")); @@ -10357,7 +10357,7 @@ package body Sem_Ch6 is FCL (Expressions (E1), Expressions (E2)); when N_Integer_Literal => - return (Intval (E1) = Intval (E2)) + return Intval (E1) = Intval (E2) and then not User_Defined_Numeric_Literal_Mismatch; when N_Null => @@ -10444,7 +10444,7 @@ package body Sem_Ch6 is FCE (High_Bound (E1), High_Bound (E2)); when N_Real_Literal => - return (Realval (E1) = Realval (E2)) + return Realval (E1) = Realval (E2) and then not User_Defined_Numeric_Literal_Mismatch; when N_Selected_Component => @@ -11726,7 +11726,7 @@ package body Sem_Ch6 is begin while Present (Param_E1) and then Present (Param_E2) loop - if (Ctype >= Mode_Conformant) and then + if Ctype >= Mode_Conformant and then Ekind (Defining_Identifier (Param_E1)) /= Ekind (Defining_Identifier (Param_E2)) then |