From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 7 Sep 2022 14:02:42 +0000 (+0200)
Subject: ada: Simplify detection of pragmas in the context items
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ffe889d7ffcc7e8150413d4de38e066940fb7881;p=platform%2Fupstream%2Fgcc.git

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 --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 471ef87..f33d858 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;
 
       ---------------------------------