From 3f3602980c46ef183567465d6e43875f63b89854 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Sat, 30 May 2020 20:54:49 +0200 Subject: [PATCH] [Ada] Revert mistaken negation related to references to labels gcc/ada/ * sem_ch8.adb (Find_Direct_Name): Fix code to match the comment. --- gcc/ada/sem_ch8.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.47.2