OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Eric Botcazou 2018-10-09 15:05:19 +00:00 committed by Pierre-Marie de Rodat
parent 98ebcae861
commit 96d268c284
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -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

3
gcc/ada/repinfo.adb
View File

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