sem_prag.adb (Process_Extended_Import_Export_Subprogram_Pragma): Set Entity field...

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

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 15f4e181f7a1c79a8bbb81f6b00abbdf567892e2..c58bc4c1a36c0abe9b779ce42b1bc4652f26bf04 100644 (file)
--- 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;