[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 538f860089075117660268935bcbf35214806e0e..a59ffe70be051f29caad882cbec18c533d2dbd27 100644 (file)
--- 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);