diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-07-30 13:59:28 +0200 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2024-08-23 10:51:04 +0200 |
| commit | 0020cae9fba4409c4c776129c3c45c27b79edf62 (patch) | |
| tree | 4fcba37b92e9ada1a222c4b6e1f9f5fc656dfac4 /gcc/ada/exp_ch4.adb | |
| parent | ff356c0ab4cf514eaffc847df3c8717a5ee705d6 (diff) | |
| download | gcc-0020cae9fba4409c4c776129c3c45c27b79edf62.zip gcc-0020cae9fba4409c4c776129c3c45c27b79edf62.tar.gz gcc-0020cae9fba4409c4c776129c3c45c27b79edf62.tar.bz2 | |
ada: Fix style in lines starting with assignment operator
Style cleanup; semantics is unaffected. Offending occurrences found with
grep "^ *:=" and fixed manually.
gcc/ada/
* checks.ads, cstand.adb, exp_aggr.adb, exp_ch4.adb, exp_ch5.adb,
exp_dbug.adb, exp_util.adb, gnatlink.adb, lib-util.adb,
libgnat/a-except.adb, libgnat/a-exexpr.adb, libgnat/a-ngcoar.adb,
libgnat/s-rannum.adb, libgnat/s-trasym__dwarf.adb, osint.adb,
rtsfind.adb, sem_case.adb, sem_ch12.adb, sem_ch13.adb,
sem_ch3.adb, sem_ch6.adb, sem_eval.adb, sem_prag.adb,
sem_util.adb: Fix style.
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 106305f..9024c1a 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -2799,9 +2799,9 @@ package body Exp_Ch4 is if Is_Constrained (Opnd_Typ) then declare - Low_Bound : constant Node_Id - := Type_Low_Bound - (Underlying_Type (Etype (First_Index (Opnd_Typ)))); + Low_Bound : constant Node_Id := + Type_Low_Bound + (Underlying_Type (Etype (First_Index (Opnd_Typ)))); begin if Compile_Time_Known_Value (Low_Bound) then @@ -3013,11 +3013,11 @@ package body Exp_Ch4 is else declare Known_Bound : constant Node_Id := Get_Known_Bound (J + 1); - Comparison : constant Compare_Result - := Compile_Time_Compare - (Opnd_Low_Bound (J), - Known_Bound, - Assume_Valid => True); + Comparison : constant Compare_Result := + Compile_Time_Compare + (Opnd_Low_Bound (J), + Known_Bound, + Assume_Valid => True); begin if Comparison = EQ then |