[gcc r13-3720] ada: Simplify detection of pragmas in the context items

[gcc r13-3720] ada: Simplify detection of pragmas in the context items

[Marc Poulhi?s]

https://gcc.gnu.org/g:ffe889d7ffcc7e8150413d4de38e066940fb7881

commit r13-3720-gffe889d7ffcc7e8150413d4de38e066940fb7881
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Wed Sep 7 16:02:42 2022 +0200

    ada: Simplify detection of pragmas in the context items
    
    Code cleanup; semantics is unaffected.
    
    gcc/ada/
    
            * sem_prag.adb (Is_In_Context_Clause): Rewrite without negations
            and inequalities.

Diff:
---
 gcc/ada/sem_prag.adb | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 471ef870fa7..f33d858062d 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -7315,22 +7315,16 @@ package body Sem_Prag is
          Parent_Node : Node_Id;
 
       begin
-         if not Is_List_Member (N) then
-            return False;
-
-         else
+         if Is_List_Member (N) then
             Plist := List_Containing (N);
             Parent_Node := Parent (Plist);
 
-            if Parent_Node = Empty
-              or else Nkind (Parent_Node) /= N_Compilation_Unit
-              or else Context_Items (Parent_Node) /= Plist
-            then
-               return False;
-            end if;
+            return Present (Parent_Node)
+              and then Nkind (Parent_Node) = N_Compilation_Unit
+              and then Context_Items (Parent_Node) = Plist;
          end if;
 
-         return True;
+         return False;
       end Is_In_Context_Clause;
 
       ---------------------------------