[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

gcc/ada/ChangeLog

+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

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