From c4fc6a3e0a209e01d0f223ca9987f93083f89882 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 08414b2170c..f23db52c289 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.30.2