From: pmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 9 Oct 2018 15:05:19 +0000 (+0000)
Subject: [Ada] Repinfo: list the mechanism of functions only
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=26354491ecbcdb0a23709ce690e1837158120d63;p=thirdparty%2Fgcc.git

[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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@264965 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 624d4bf3c0b0..ccd9f1618fc0 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 d5c099fcd5b2..e75bb1d5d690 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"": """);