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

Reply via email to