diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-05-30 20:54:49 +0200 |
|---|---|---|
| committer | Giuliano Belinassi <giuliano.belinassi@usp.br> | 2020-08-17 13:17:14 -0300 |
| commit | 3f3602980c46ef183567465d6e43875f63b89854 (patch) | |
| tree | 9b0b84b99f72b79205d75dc5df0d264d497c4973 | |
| parent | 7a615d2ee5a626fbd6e0829e4e1d591ba49bab28 (diff) | |
| download | gcc-3f3602980c46ef183567465d6e43875f63b89854.zip gcc-3f3602980c46ef183567465d6e43875f63b89854.tar.gz gcc-3f3602980c46ef183567465d6e43875f63b89854.tar.bz2 | |
[Ada] Revert mistaken negation related to references to labels
gcc/ada/
* sem_ch8.adb (Find_Direct_Name): Fix code to match the comment.
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 08414b2..f23db52 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; |