From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 2 Jul 2024 17:16:45 +0000 (+0200)
Subject: ada: Fix oversight in documentation of At_End_Proc
X-Git-Tag: basepoints/gcc-16~6921
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=679f75ed378bec55dc7c34716c0cc502d69a0255;p=thirdparty%2Fgcc.git

ada: Fix oversight in documentation of At_End_Proc

It is documented for N_Subprogram_Body_Stub instead of N_Subprogram_Body.

gcc/ada/

	* sinfo.ads (N_Block_Statement): Move At_End_Proc to the end of
	slot list and alphabetize flag list.
	(N_Subprogram_Body): Add At_End_Proc.
	(N_Package_Body): Move At_End_Proc to the end of slot list.
	(N_Subprogram_Body_Stub): Remove At_End_Proc.
---

diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads
index 768bcc0de82..95fceb5b71b 100644
--- a/gcc/ada/sinfo.ads
+++ b/gcc/ada/sinfo.ads
@@ -5174,14 +5174,14 @@ package Sinfo is
       --  Handled_Statement_Sequence
       --  Activation_Chain_Entity
       --  Cleanup_Actions
-      --  Has_Created_Identifier
-      --  Is_Asynchronous_Call_Block
-      --  Is_Task_Allocation_Block
+      --  At_End_Proc (set to Empty if no clean up procedure)
       --  Exception_Junk
+      --  Has_Created_Identifier
       --  Is_Abort_Block
+      --  Is_Asynchronous_Call_Block
       --  Is_Initialization_Block
+      --  Is_Task_Allocation_Block
       --  Is_Task_Master
-      --  At_End_Proc (set to Empty if no clean up procedure)
 
       -------------------------
       -- 5.7  Exit Statement --
@@ -5456,6 +5456,7 @@ package Sinfo is
       --  Handled_Statement_Sequence
       --  Activation_Chain_Entity
       --  Corresponding_Spec
+      --  At_End_Proc (set to Empty if no clean up procedure)
       --  Acts_As_Spec
       --  Bad_Is_Detected used only by parser
       --  Do_Storage_Check
@@ -5693,8 +5694,8 @@ package Sinfo is
       --  Declarations
       --  Handled_Statement_Sequence (set to Empty if no HSS present)
       --  Corresponding_Spec
-      --  Was_Originally_Stub
       --  At_End_Proc (set to Empty if no clean up procedure)
+      --  Was_Originally_Stub
 
       --  Note: if a source level package does not contain a handled sequence
       --  of statements, then the parser supplies a dummy one with a null
@@ -6726,7 +6727,6 @@ package Sinfo is
       --  Corresponding_Spec_Of_Stub
       --  Library_Unit points to the subunit
       --  Corresponding_Body
-      --  At_End_Proc (set to Empty if no clean up procedure)
 
       -------------------------------
       -- 10.1.3  Package Body Stub --