From 17b7c44f00970f6be2c7fcfc1da0714de8c84b3b Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Mon, 29 Nov 2021 13:21:51 +0100 Subject: [PATCH] [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. --- gcc/ada/exp_ch4.adb | 2 +- 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; -- 2.7.4