From: Piotr Trojanek <[email protected]>
Whitespace cleanup.
gcc/ada/ChangeLog:
* freeze.adb, sem_ch13.adb: Tune whitespace.
Tested on x86_64-pc-linux-gnu, committed on master.
---
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 5a694c99d63..4c516fe9667 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 3de75356d4e..43120d79400 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);
--
2.53.0