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