From 96d268c284c3584a743bb679f06bf3e2bf36b3ed Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 9 Oct 2018 15:05:19 +0000 Subject: [PATCH] [Ada] Repinfo: list the mechanism of functions only 2018-10-09 Eric Botcazou gcc/ada/ * repinfo.adb: Remove with/use clause for Stand. (List_Mechanisms): List the mechanism of functions only. From-SVN: r264965 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/repinfo.adb | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 624d4bf3c0b..ccd9f1618fc 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-10-09 Eric Botcazou + + * repinfo.adb: Remove with/use clause for Stand. + (List_Mechanisms): List the mechanism of functions only. + 2018-10-09 Bob Duff * doc/gnat_ugn/gnat_utility_programs.rst: Correct spelling of diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index d5c099fcd5b..e75bb1d5d69 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"": """); -- 2.30.2