diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-29 13:21:51 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-05 11:32:36 +0000 |
| commit | 17b7c44f00970f6be2c7fcfc1da0714de8c84b3b (patch) | |
| tree | f37fe25f14645adca92b9798b41fc95e0dba6831 | |
| parent | 08613129bb18b932e8c1108fca1c8e4e39a24e38 (diff) | |
| download | gcc-17b7c44f00970f6be2c7fcfc1da0714de8c84b3b.zip gcc-17b7c44f00970f6be2c7fcfc1da0714de8c84b3b.tar.gz gcc-17b7c44f00970f6be2c7fcfc1da0714de8c84b3b.tar.bz2 | |
[Ada] Align arrows in parameter associations
gcc/ada/
* exp_ch4.adb (Expand_N_Op_Ne): Fix whitespace.
* sem_dim.adb (Expand_Put_Call_With_Symbol): Likewise.
(Reduce): Likewise.
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_dim.adb | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 05124dc..e36410d 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -10067,7 +10067,7 @@ package body Exp_Ch4 is Make_Op_Not (Loc, Right_Opnd => Make_Op_Eq (Loc, - Left_Opnd => Left_Opnd (N), + Left_Opnd => Left_Opnd (N), Right_Opnd => Right_Opnd (N))); -- The level of parentheses is useless in GNATprove mode, and diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index 538da57..a38b129 100644 --- a/gcc/ada/sem_dim.adb +++ b/gcc/ada/sem_dim.adb @@ -3322,13 +3322,13 @@ package body Sem_Dim is if Chars (Name_Call) = Name_Image then Rewrite (N, Make_Function_Call (Loc, - Name => New_Copy (Name_Call), + Name => New_Copy (Name_Call), Parameter_Associations => New_Actuals)); Analyze_And_Resolve (N); else Rewrite (N, Make_Procedure_Call_Statement (Loc, - Name => New_Copy (Name_Call), + Name => New_Copy (Name_Call), Parameter_Associations => New_Actuals)); Analyze (N); end if; @@ -3665,7 +3665,7 @@ package body Sem_Dim is declare G : constant Int := GCD (X.Numerator, X.Denominator); begin - return Rational'(Numerator => Whole (Int (X.Numerator) / G), + return Rational'(Numerator => Whole (Int (X.Numerator) / G), Denominator => Whole (Int (X.Denominator) / G)); end; end Reduce; |