From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 9 Oct 2018 15:05:19 +0000 (+0000)
Subject: [Ada] Repinfo: list the mechanism of functions only
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=96d268c284c3584a743bb679f06bf3e2bf36b3ed;p=gcc.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.

From-SVN: r264965
---

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  <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 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"": """);