mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-25 09:30:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

sem_prag.adb (Process_Extended_Import_Export_Subprogram_Pragma): Set Entity field for formal_parameter_NAME in MECHANISM_ASSOCIATION.

Browse Source 
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
This commit is contained in:
Sergey Rybin 2008-05-28 17:34:15 +02:00 committed by Arnaud Charlet
parent 8aa15e3bf0
commit bf8b6bfcec
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/sem_prag.adb
View File

@ -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;