From: Eric Botcazou <ebotca...@adacore.com>

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.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sinfo.ads | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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 --
-- 
2.45.2

Reply via email to