diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2020-05-30 20:54:49 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-07-10 05:16:23 -0400 |
| commit | c4fc6a3e0a209e01d0f223ca9987f93083f89882 (patch) | |
| tree | ce64ac17806c0868732cde204b54c83154c68640 /gcc | |
| parent | db6c298d166d22cdd33761d37a1dc94ec20b6969 (diff) | |
| download | gcc-c4fc6a3e0a209e01d0f223ca9987f93083f89882.zip gcc-c4fc6a3e0a209e01d0f223ca9987f93083f89882.tar.gz gcc-c4fc6a3e0a209e01d0f223ca9987f93083f89882.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.
Diffstat (limited to 'gcc')
| -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; |