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.ads | |
| 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.ads')
| -rw-r--r-- | gcc/ada/einfo.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index d77f811ec57..c61ce663a28 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -5960,6 +5960,10 @@ package Einfo is procedure Write_Field21_Name (Id : Entity_Id); procedure Write_Field22_Name (Id : Entity_Id); procedure Write_Field23_Name (Id : Entity_Id); + procedure Write_Field24_Name (Id : Entity_Id); + procedure Write_Field25_Name (Id : Entity_Id); + procedure Write_Field26_Name (Id : Entity_Id); + procedure Write_Field27_Name (Id : Entity_Id); -- These routines are used to output a nice symbolic name for the given -- field, depending on the Ekind. No blanks or end of lines are output, -- just the characters of the field name. |