[Ada] Remove extra parens around a function call
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 19 Feb 2021 12:05:34 +0000 (13:05 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 16 Jun 2021 08:42:59 +0000 (04:42 -0400)
gcc/ada/

* sem_ch8.adb (End_Scope): Remove extra parens.

gcc/ada/sem_ch8.adb

index 8a1a13c..26fc45f 100644 (file)
@@ -4862,7 +4862,7 @@ package body Sem_Ch8 is
 
             Pop_Scope;
 
-            while not (Is_List_Member (Decl))
+            while not Is_List_Member (Decl)
               or else Nkind (Parent (Decl)) in N_Protected_Definition
                                              | N_Task_Definition
             loop