From bb83ec2f5c80cc08d290854657339a55a2de87bc Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Wed, 20 Aug 2008 16:27:21 +0200 Subject: sem_prag.adb: (Analyze_Pragma... 2008-08-20 Ed Schonberg * sem_prag.adb: (Analyze_Pragma, case Obsolescent): Add entity information on the pragma argument for ASIS and navigation use. From-SVN: r139301 --- gcc/ada/sem_prag.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 44b5c88..d5d39b97 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -9063,9 +9063,11 @@ package body Sem_Prag is if Present (Ename) then -- If entity name matches, we are fine + -- Save entity in pragma argument, for ASIS use. if Chars (Ename) = Chars (Ent) then - null; + Set_Entity (Ename, Ent); + Generate_Reference (Ent, Ename); -- If entity name does not match, only possibility is an -- enumeration literal from an enumeration type declaration. @@ -9083,6 +9085,8 @@ package body Sem_Prag is "enumeration literal"); elsif Chars (Ent) = Chars (Ename) then + Set_Entity (Ename, Ent); + Generate_Reference (Ent, Ename); exit; else -- cgit v1.1