diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-10-09 15:05:19 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-10-09 15:05:19 +0000 |
| commit | 96d268c284c3584a743bb679f06bf3e2bf36b3ed (patch) | |
| tree | 0a37e7ea6e5f81304b60ed42a48d706025863e05 /gcc | |
| parent | 98ebcae86173fe15b568324b37cab4695674749c (diff) | |
| download | gcc-96d268c284c3584a743bb679f06bf3e2bf36b3ed.zip gcc-96d268c284c3584a743bb679f06bf3e2bf36b3ed.tar.gz gcc-96d268c284c3584a743bb679f06bf3e2bf36b3ed.tar.bz2 | |
[Ada] Repinfo: list the mechanism of functions only
2018-10-09 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* repinfo.adb: Remove with/use clause for Stand.
(List_Mechanisms): List the mechanism of functions only.
From-SVN: r264965
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/repinfo.adb | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 624d4bf..ccd9f16 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-10-09 Eric Botcazou <ebotcazou@adacore.com> + + * repinfo.adb: Remove with/use clause for Stand. + (List_Mechanisms): List the mechanism of functions only. + 2018-10-09 Bob Duff <duff@adacore.com> * doc/gnat_ugn/gnat_utility_programs.rst: Correct spelling of diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index d5c099f..e75bb1d 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -43,7 +43,6 @@ with Sem_Aux; use Sem_Aux; with Sinfo; use Sinfo; with Sinput; use Sinput; with Snames; use Snames; -with Stand; use Stand; with Stringt; use Stringt; with Table; with Uname; use Uname; @@ -956,7 +955,7 @@ package body Repinfo is Write_Str (" ]"); end if; - if Etype (Ent) /= Standard_Void_Type then + if Ekind (Ent) = E_Function then if List_Representation_Info_To_JSON then Write_Line (","); Write_Str (" ""mechanism"": """); |