From bf8b6bfcec607d75dcb104dac8a501c205b2a222 Mon Sep 17 00:00:00 2001 From: Sergey Rybin Date: Wed, 28 May 2008 17:34:15 +0200 Subject: [PATCH] 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 --- gcc/ada/sem_prag.adb | 4 ++++ 1 file changed, 4 insertions(+) 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; -- 2.30.2