From: Piotr Trojanek <trojanek@adacore.com>
Date: Sat, 22 Jan 2022 18:39:52 +0000 (+0100)
Subject: [Ada] Fix style in resolution of expression with actions
X-Git-Tag: basepoints/gcc-14~6961
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ce63a97b518915b3b6c1221da60af719c7eccd5a;p=thirdparty%2Fgcc.git

[Ada] Fix style in resolution of expression with actions

gcc/ada/

	* sem_res.adb (Resolve_Expression_With_Actions): Fix style in
	nested routines.
---

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 538f8600890..a59ffe70be0 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -9136,6 +9136,10 @@ package body Sem_Res is
       --  Expr is an expression with compile-time-known value. This returns the
       --  literal node that reprsents that value.
 
+      -------------------
+      -- OK_For_Static --
+      -------------------
+
       function OK_For_Static (Act : Node_Id) return Boolean is
       begin
          case Nkind (Act) is
@@ -9161,6 +9165,10 @@ package body Sem_Res is
          return False;
       end OK_For_Static;
 
+      -----------------------
+      -- All_OK_For_Static --
+      -----------------------
+
       function All_OK_For_Static return Boolean is
          Act : Node_Id := First (Actions (N));
       begin
@@ -9175,6 +9183,10 @@ package body Sem_Res is
          return True;
       end All_OK_For_Static;
 
+      -----------------
+      -- Get_Literal --
+      -----------------
+
       function Get_Literal (Expr : Node_Id) return Node_Id is
          pragma Assert (Compile_Time_Known_Value (Expr));
          Result : Node_Id;
@@ -9198,8 +9210,12 @@ package body Sem_Res is
          return Result;
       end Get_Literal;
 
+      --  Local variables
+
       Loc : constant Source_Ptr := Sloc (N);
 
+   --  Start of processing for Resolve_Expression_With_Actions
+
    begin
       Set_Etype (N, Typ);