* [Ada] semantic information on pragma Obsolescent.
@ 2008-08-20 15:08 Arnaud Charlet
0 siblings, 0 replies; only message in thread
From: Arnaud Charlet @ 2008-08-20 15:08 UTC (permalink / raw)
To: gcc-patches; +Cc: Ed Schonberg
[-- Attachment #1: Type: text/plain, Size: 361 bytes --]
This patch adds semantic annotations on the argument of pragma Obsolescent,
which was missing entity information, for ASIS use.
Tested on i686-pc-linux-gnu, committed on trunk
2008-08-20 Ed Schonberg <schonberg@adacore.com>
* sem_prag.adb:
(Analyze_Pragma, case Obsolescent): Add entity information on the pragma
argument for ASIS and navigation use.
[-- Attachment #2: difs --]
[-- Type: text/plain, Size: 1018 bytes --]
Index: sem_prag.adb
===================================================================
--- sem_prag.adb (revision 139262)
+++ sem_prag.adb (working copy)
@@ -9063,9 +9063,11 @@
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 @@
"enumeration literal");
elsif Chars (Ent) = Chars (Ename) then
+ Set_Entity (Ename, Ent);
+ Generate_Reference (Ent, Ename);
exit;
else
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2008-08-20 15:04 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-08-20 15:08 [Ada] semantic information on pragma Obsolescent Arnaud Charlet
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).