diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2008-08-20 16:27:21 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-20 16:27:21 +0200 |
| commit | bb83ec2f5c80cc08d290854657339a55a2de87bc (patch) | |
| tree | 0f7a2748b02a9220d1f0f31be8f22abfb81aa182 | |
| parent | d42ec90cbcf7c0098756f5f32c296d146c459d30 (diff) | |
| download | gcc-bb83ec2f5c80cc08d290854657339a55a2de87bc.zip gcc-bb83ec2f5c80cc08d290854657339a55a2de87bc.tar.gz gcc-bb83ec2f5c80cc08d290854657339a55a2de87bc.tar.bz2 | |
sem_prag.adb: (Analyze_Pragma...
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.
From-SVN: r139301
| -rw-r--r-- | gcc/ada/sem_prag.adb | 6 |
1 files changed, 5 insertions, 1 deletions
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 |