[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 624d4bf3c0b00b6331120b5438c71ebadf5d081b..ccd9f1618fc0ae5462688cdd63e2dd51ea0599aa 100644 (file)
--- 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 d5c099fcd5b2e09d1c2f5de1dd39d9013d30152f..e75bb1d5d690e8283e616ad3c124a5f0d77e557e 100644 (file)
--- 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"": """);