diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2009-04-29 10:54:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 12:54:12 +0200 |
| commit | 9af094a198db7091b941610984126441ec78cf42 (patch) | |
| tree | 9865229b6c47e230373705d71e4b30c3e7b21b37 /gcc/ada/sinfo.adb | |
| parent | 1923a3f9d89d4869783647a43468073ab27e629a (diff) | |
| download | gcc-9af094a198db7091b941610984126441ec78cf42.zip gcc-9af094a198db7091b941610984126441ec78cf42.tar.gz gcc-9af094a198db7091b941610984126441ec78cf42.tar.bz2 | |
sinfo.ads, sinfo.adb: New attribute Next_Implicit_With...
2009-04-29 Ed Schonberg <schonberg@adacore.com>
* sinfo.ads, sinfo.adb: New attribute Next_Implicit_With, to chain
with_clauses generated for the same unit through rtsfind, and that
appear in the context of different units.
* rtsfind.adb: New attribute First_Implicit_With, component of the
Unit_Record that stores information about a unit loaded through rtsfind.
From-SVN: r146951
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 59ddd5c..30ba980 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -1979,6 +1979,14 @@ package body Sinfo is return Node2 (N); end Next_Entity; + function Next_Implicit_With + (N : Node_Id) return Node_Id is + begin + pragma Assert (False + or else NT (N).Nkind = N_With_Clause); + return Node3 (N); + end Next_Implicit_With; + function Next_Named_Actual (N : Node_Id) return Node_Id is begin @@ -4759,6 +4767,14 @@ package body Sinfo is Set_Node2 (N, Val); -- semantic field, no parent set end Set_Next_Entity; + procedure Set_Next_Implicit_With + (N : Node_Id; Val : Node_Id) is + begin + pragma Assert (False + or else NT (N).Nkind = N_With_Clause); + Set_Node3 (N, Val); -- semantic field, no parent set + end Set_Next_Implicit_With; + procedure Set_Next_Named_Actual (N : Node_Id; Val : Node_Id) is begin |