[gcc r13-3741] ada: Inline composite node kind AST queries

[gcc r13-3741] ada: Inline composite node kind AST queries

[Marc Poulhi?s]

https://gcc.gnu.org/g:9b07c1752b9bf49143a41c810e2db86f633fdb1c

commit r13-3741-g9b07c1752b9bf49143a41c810e2db86f633fdb1c
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Mon Oct 17 16:28:20 2022 +0200

    ada: Inline composite node kind AST queries
    
    Queries that ultimately examine the same field of an AST
    node (e.g. Nkind) are visibly more efficient when inlined.
    
    In particular, routines Is_Body_Or_Package_Declaration and Is_Body can
    apparently be inlined into a single Nkind membership test.
    
    This patch fixes some of the performance lost with the recent changes,
    which increased the number of calls to Is_Body_Or_Package_Declaration
    (as it is typically used to prevent AST search from climbing too far).
    However, it should be generally beneficial to inline routines like this.
    
    gcc/ada/
    
            * sem_aux.ads (Is_Body): Annotate with Inline.
            * sem_util.ads (Is_Body_Or_Package_Declaration): Likewise.

Diff:
---
 gcc/ada/sem_aux.ads  | 2 +-
 gcc/ada/sem_util.ads | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/sem_aux.ads b/gcc/ada/sem_aux.ads
index 66cbcfbb97c..004aadbd704 100644
--- a/gcc/ada/sem_aux.ads
+++ b/gcc/ada/sem_aux.ads
@@ -279,7 +279,7 @@ package Sem_Aux is
    --  or subtype. This is true if Suppress_Initialization is set either for
    --  the subtype itself, or for the corresponding base type.
 
-   function Is_Body (N : Node_Id) return Boolean;
+   function Is_Body (N : Node_Id) return Boolean with Inline;
    --  Determine whether an arbitrary node denotes a body
 
    function Is_By_Copy_Type (Ent : Entity_Id) return Boolean;
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index 5c08cb8b9ab..2126beda510 100644
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -1881,7 +1881,8 @@ package Sem_Util is
    function Is_Attribute_Update (N : Node_Id) return Boolean;
    --  Determine whether node N denotes attribute 'Update
 
-   function Is_Body_Or_Package_Declaration (N : Node_Id) return Boolean;
+   function Is_Body_Or_Package_Declaration (N : Node_Id) return Boolean
+     with Inline;
    --  Determine whether node N denotes a body or a package declaration
 
    function Is_Bounded_String (T : Entity_Id) return Boolean;