diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:33:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-01-03 15:33:59 +0000 |
| commit | be489ae0b3d8da2a509806a3438683f3906a5492 (patch) | |
| tree | 557f21681ba00d33a252d030b4b7124351eb028e /gcc/ada/einfo.adb | |
| parent | e0521a36726eeeabf7bf46626f1b9a27a27fe373 (diff) | |
| download | gcc-be489ae0b3d8da2a509806a3438683f3906a5492.tar.gz | |
* atree.adb: Add a fifth component to entities
This allows us to add 32 flags and four new fields
* atree.ads: Add a fifth component to entities
This allows us to add 32 flags and four new fields
* einfo.ads, einfo.adb: Document new fields and new flags now available
Add routines for printing new fields
* treepr.adb: Call routines to print out additional fields if present
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92830 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/einfo.adb')
| -rw-r--r-- | gcc/ada/einfo.adb | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/gcc/ada/einfo.adb b/gcc/ada/einfo.adb index 85af819efb2..39ab9634e75 100644 --- a/gcc/ada/einfo.adb +++ b/gcc/ada/einfo.adb @@ -209,6 +209,11 @@ package body Einfo is -- Privals_Chain Elist23 -- Protected_Operation Node23 + -- (unused) Node24 + -- (unused) Node25 + -- (unused) Node26 + -- (unused) Node27 + --------------------------------------------- -- Usage of Flags in Defining Entity Nodes -- --------------------------------------------- @@ -421,6 +426,38 @@ package body Einfo is -- Must_Be_On_Byte_Boundary Flag183 -- (unused) Flag153 + -- (unused) Flag184 + -- (unused) Flag185 + -- (unused) Flag186 + -- (unused) Flag187 + -- (unused) Flag188 + -- (unused) Flag189 + -- (unused) Flag190 + -- (unused) Flag191 + -- (unused) Flag192 + -- (unused) Flag193 + -- (unused) Flag194 + -- (unused) Flag195 + -- (unused) Flag196 + -- (unused) Flag197 + -- (unused) Flag198 + -- (unused) Flag199 + -- (unused) Flag200 + -- (unused) Flag201 + -- (unused) Flag202 + -- (unused) Flag203 + -- (unused) Flag204 + -- (unused) Flag205 + -- (unused) Flag206 + -- (unused) Flag207 + -- (unused) Flag208 + -- (unused) Flag209 + -- (unused) Flag210 + -- (unused) Flag211 + -- (unused) Flag212 + -- (unused) Flag213 + -- (unused) Flag214 + -- (unused) Flag215 -------------------------------- -- Attribute Access Functions -- @@ -6078,6 +6115,10 @@ package body Einfo is procedure W (Flag_Name : String; Flag : Boolean); -- Write out given flag if it is set + ------- + -- W -- + ------- + procedure W (Flag_Name : String; Flag : Boolean) is begin if Flag then @@ -7159,6 +7200,54 @@ package body Einfo is end case; end Write_Field23_Name; + ------------------------ + -- Write_Field24_Name -- + ------------------------ + + procedure Write_Field24_Name (Id : Entity_Id) is + begin + case Ekind (Id) is + when others => + Write_Str ("Field24??"); + end case; + end Write_Field24_Name; + + ------------------------ + -- Write_Field25_Name -- + ------------------------ + + procedure Write_Field25_Name (Id : Entity_Id) is + begin + case Ekind (Id) is + when others => + Write_Str ("Field25??"); + end case; + end Write_Field25_Name; + + ------------------------ + -- Write_Field26_Name -- + ------------------------ + + procedure Write_Field26_Name (Id : Entity_Id) is + begin + case Ekind (Id) is + when others => + Write_Str ("Field26??"); + end case; + end Write_Field26_Name; + + ------------------------ + -- Write_Field27_Name -- + ------------------------ + + procedure Write_Field27_Name (Id : Entity_Id) is + begin + case Ekind (Id) is + when others => + Write_Str ("Field27??"); + end case; + end Write_Field27_Name; + ------------------------- -- Iterator Procedures -- ------------------------- |