https://gcc.gnu.org/g:a50c1d1dacc876e3ccabba89be2340b04099324c
commit r17-1318-ga50c1d1dacc876e3ccabba89be2340b04099324c Author: Piotr Trojanek <[email protected]> Date: Fri Jun 21 17:22:28 2024 +0200 ada: Tune layout in membership test Whitespace cleanup. gcc/ada/ChangeLog: * freeze.adb, sem_ch13.adb: Tune whitespace. Diff: --- gcc/ada/freeze.adb | 2 +- gcc/ada/sem_ch13.adb | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 5a694c99d632..4c516fe9667f 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -8621,7 +8621,7 @@ package body Freeze is Allocator_Typ : Entity_Id := Empty; - Freeze_Outside_Subp : Entity_Id := Empty; + Freeze_Outside_Subp : Entity_Id := Empty; -- This entity is set if we are inside a subprogram body and the frozen -- entity is defined in the enclosing scope of this subprogram. In such -- case we must skip the subprogram body when climbing the parents chain diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 3de75356d4e6..43120d794005 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -19470,8 +19470,9 @@ package body Sem_Ch13 is procedure Validate_Literal_Aspect (Typ : Entity_Id; ASN : Node_Id) is A_Id : constant Aspect_Id := Get_Aspect_Id (ASN); - pragma Assert (A_Id in Aspect_Integer_Literal | - Aspect_Real_Literal | Aspect_String_Literal); + pragma Assert (A_Id in Aspect_Integer_Literal + | Aspect_Real_Literal + | Aspect_String_Literal); Func_Name : constant Node_Id := Expression (ASN); Overloaded : Boolean := Is_Overloaded (Func_Name);
