sem_prag.adb (Process_Extended_Import_Export_Subprogram_Pragma): Set Entity…

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

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;