From 93b2e53e872d4cd3c1f9521df2923ea74e473193 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 16 Dec 2021 21:54:04 +0100 Subject: [Ada] Remove extra space before THEN keywords gcc/ada/ * exp_ch5.adb, exp_disp.adb, exp_util.adb, par-ch4.adb, sem_ch13.adb: Remove extra space before THEN that occurs at the end of a line. --- gcc/ada/exp_ch5.adb | 2 +- gcc/ada/exp_disp.adb | 2 +- gcc/ada/exp_util.adb | 2 +- gcc/ada/par-ch4.adb | 2 +- gcc/ada/sem_ch13.adb | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 0adf9f07..9536da3 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -2664,7 +2664,7 @@ package body Exp_Ch5 is Rewrite (Lhs, OK_Convert_To (Base_Type (Typ), Lhs)); Apply_Discriminant_Check (Rhs, Typ, Lhs); - elsif Is_Array_Type (Typ) and then Is_Constrained (Typ) then + elsif Is_Array_Type (Typ) and then Is_Constrained (Typ) then Rewrite (Rhs, OK_Convert_To (Base_Type (Typ), Rhs)); Rewrite (Lhs, OK_Convert_To (Base_Type (Typ), Lhs)); Apply_Length_Check (Rhs, Typ); diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 7396c3e..968347e 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -4615,7 +4615,7 @@ package body Exp_Disp is -- case concerning the need for this check, and this topic may -- go back to the ARG. - if not Is_Abstract_Subprogram (Prim) then + if not Is_Abstract_Subprogram (Prim) then Formal := First_Formal (Prim); while Present (Formal) loop Check_Premature_Freezing (Prim, Typ, Etype (Formal)); diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 7a3e4b5..e17e8ac 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -3752,7 +3752,7 @@ package body Exp_Util is -- Anonymous arrays in object declarations have no explicit declaration -- so use the related object declaration as the insertion point. - elsif Is_Itype (Work_Typ) and then Is_Array_Type (Work_Typ) then + elsif Is_Itype (Work_Typ) and then Is_Array_Type (Work_Typ) then Typ_Decl := Associated_Node_For_Itype (Work_Typ); -- Derived types with the full view as parent do not have a partial diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 4b021e7..483e1af 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -2968,7 +2968,7 @@ package body Ch4 is Save_Scan_State (Scan_State); Scan; -- past FOR - if Token = Tok_All or else Token = Tok_Some then + if Token = Tok_All or else Token = Tok_Some then Restore_Scan_State (Scan_State); -- To FOR Node1 := P_Quantified_Expression; diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index f462951..af685f5 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -16005,7 +16005,7 @@ package body Sem_Ch13 is function Valid_Empty (E : Entity_Id) return Boolean is begin - if Etype (E) /= Typ or else Scope (E) /= Scope (Typ) then + if Etype (E) /= Typ or else Scope (E) /= Scope (Typ) then return False; elsif Ekind (E) = E_Constant then -- cgit v1.1