diff options
| author | Sergey Rybin <rybin@adacore.com> | 2008-05-28 17:34:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-28 17:34:15 +0200 |
| commit | bf8b6bfcec607d75dcb104dac8a501c205b2a222 (patch) | |
| tree | 0e45f3d331bafed69fd578c96924ac4c9286c564 | |
| parent | 8aa15e3bf0f1e38966c421f536bf9f6e95b32776 (diff) | |
| download | gcc-bf8b6bfcec607d75dcb104dac8a501c205b2a222.zip gcc-bf8b6bfcec607d75dcb104dac8a501c205b2a222.tar.gz gcc-bf8b6bfcec607d75dcb104dac8a501c205b2a222.tar.bz2 | |
sem_prag.adb (Process_Extended_Import_Export_Subprogram_Pragma): Set Entity field for formal_parameter_NAME in MECHANISM_ASSOCIATION.
2008-05-28 Sergey Rybin <rybin@adacore.com>
* sem_prag.adb (Process_Extended_Import_Export_Subprogram_Pragma): Set
Entity field for formal_parameter_NAME in MECHANISM_ASSOCIATION.
From-SVN: r136106
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 15f4e18..c58bc4c 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -3194,6 +3194,10 @@ package body Sem_Prag is if Chars (Choice) = Chars (Formal) then Set_Mechanism_Value (Formal, Expression (Massoc)); + + -- Set entity on identifier for ASIS + Set_Entity (Choice, Formal); + exit; end if; |