[gcc r13-246] [Ada] Fix style in resolution of expression with actions

[gcc r13-246] [Ada] Fix style in resolution of expression with actions

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:ce63a97b518915b3b6c1221da60af719c7eccd5a

commit r13-246-gce63a97b518915b3b6c1221da60af719c7eccd5a
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Sat Jan 22 19:39:52 2022 +0100

    [Ada] Fix style in resolution of expression with actions
    
    gcc/ada/
    
            * sem_res.adb (Resolve_Expression_With_Actions): Fix style in
            nested routines.

Diff:
---
 gcc/ada/sem_res.adb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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);