From: Piotr Trojanek <trojanek@adacore.com>
Date: Sat, 30 May 2020 18:54:49 +0000 (+0200)
Subject: [Ada] Revert mistaken negation related to references to labels
X-Git-Tag: basepoints/gcc-12~6246
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c4fc6a3e0a209e01d0f223ca9987f93083f89882;p=thirdparty%2Fgcc.git

[Ada] Revert mistaken negation related to references to labels

gcc/ada/

	* sem_ch8.adb (Find_Direct_Name): Fix code to match the comment.
---

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 08414b2170c2..f23db52c2891 100644
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -6047,9 +6047,9 @@ package body Sem_Ch8 is
 
                begin
                   --  Generate reference unless this is an actual parameter
-                  --  (see comment below)
+                  --  (see comment below).
 
-                  if Reference_OK and then Is_Actual_Parameter then
+                  if Reference_OK and then not Is_Actual_Parameter then
                      Generate_Reference (E, N);
                      Set_Referenced (E, R);
                   end if;