diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-23 09:01:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-23 09:01:32 +0000 |
| commit | 4a377444a7409e73967de08b797d6a83d7589330 (patch) | |
| tree | 47ee806dd8fb95243c84dee353eada67ae6fb03c /gcc/ada/treepr.adb | |
| parent | a234977f7e406f68a658f9ea4fd5541935d08783 (diff) | |
| download | gcc-4a377444a7409e73967de08b797d6a83d7589330.tar.gz | |
2010-06-23 Olivier Hainque <hainque@adacore.com>
* einfo.adb (Has_Foreign_Convention): Consider Intrinsic with
Interface_Name as foreign. These are GCC builtin imports for
which Ada specific processing doesn't apply.
2010-06-23 Thomas Quinot <quinot@adacore.com>
* sem_ch12.adb: Minor reformatting.
2010-06-23 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (Is_VMS_Operator): Use scope of system extension to
determine whether an intrinsic subprogram is VMS specific.
2010-06-23 Hristian Kirtchev <kirtchev@adacore.com>
* treepr.adb (Print_Entity_Info): Output the contents of Field28 if it
is present in the entity.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161262 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/treepr.adb')
| -rw-r--r-- | gcc/ada/treepr.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index 6102453de8c..087170f69fe 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -627,6 +627,14 @@ package body Treepr is Print_Eol; end if; + if Field_Present (Field28 (Ent)) then + Print_Str (Prefix); + Write_Field28_Name (Ent); + Write_Str (" = "); + Print_Field (Field28 (Ent)); + Print_Eol; + end if; + Write_Entity_Flags (Ent, Prefix); end Print_Entity_Info; |