procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Fully qualify name in JSON representation info

Browse source 
The current termination condition of the recursion is wrong.  When in
JSON mode, names should be fully qualified. This requires to stop not at
the first encountered compilation unit but to recurse up to Standard.

gcc/ada/

	* repinfo.adb (List_Name): Rework termination condition.
This commit is contained in:
Etienne Servais 2022-01-17 16:26:00 +01:00 • committed by Pierre-Marie de Rodat
parent a746131d37
commit ebbe48015e
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gcc/ada/repinfo.adb
View file

@ -44,6 +44,7 @@ with Sinfo.Nodes; use Sinfo.Nodes;
with Sinfo.Utils; use Sinfo.Utils;
with Sinput; use Sinput;
with Snames; use Snames;
with Stand; use Stand;
with Stringt; use Stringt;
with Table;
with Ttypes;
@ -874,10 +875,11 @@ package body Repinfo is
C : Character;
begin
-- List the qualified name recursively, except
-- at compilation unit level in default mode.
-- In JSON mode, we recurse up to Standard. This is also valid in
-- default mode where we recurse up to the first compilation unit and
-- should not get to Standard.
if Is_Compilation_Unit (Ent) then
if Scope (Ent) = Standard_Standard then
null;
elsif not Is_Compilation_Unit (Scope (Ent))
or else List_Representation_Info_To_JSON