From: Sergey Rybin Date: Wed, 28 May 2008 15:34:15 +0000 (+0200) Subject: sem_prag.adb (Process_Extended_Import_Export_Subprogram_Pragma): Set Entity field... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bf8b6bfcec607d75dcb104dac8a501c205b2a222;p=gcc.git sem_prag.adb (Process_Extended_Import_Export_Subprogram_Pragma): Set Entity field for formal_parameter_NAME in MECHANISM_ASSOCIATION. 2008-05-28 Sergey Rybin * 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 15f4e181f7a..c58bc4c1a36 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;