https://gcc.gnu.org/g:679f75ed378bec55dc7c34716c0cc502d69a0255
commit r15-2632-g679f75ed378bec55dc7c34716c0cc502d69a0255
Author: Eric Botcazou <ebotca...@adacore.com>
Date: Tue Jul 2 19:16:45 2024 +0200
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:
---
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 768bcc0de823..95fceb5b71b6 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 --
