Message ID | 20200710094420.GA35544@adacore.com |
---|---|
State | New |
Headers | show |
Series | [Ada] Revert mistaken negation related to references to labels | expand |
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb --- 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;