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

Minor reformatting. 

From-SVN: r241064
This commit is contained in:
Arnaud Charlet 2016-10-12 17:34:33 +02:00
parent c997869f16
commit aa07dfe7a0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gcc/ada/sem.adb
View File

@ -1768,8 +1768,10 @@ package body Sem is
null;
when N_Null_Statement =>
pragma Assert (Is_Ignored_Ghost_Node (Original_Node (Item)));
-- Do not call Action for an ignored ghost unit
pragma Assert (Is_Ignored_Ghost_Node (Original_Node (Item)));
return;
when others =>
@ -2095,13 +2097,14 @@ package body Sem is
Unit (Library_Unit (Main_CU)));
end if;
-- It's a spec, process it, and the units it depends on,
-- unless it is a descendant of the main unit. This can
-- happen when the body of a parent depends on some other
-- descendant.
-- It is a spec, process it, and the units it depends on,
-- unless it is a descendant of the main unit. This can happen
-- when the body of a parent depends on some other descendant.
when N_Null_Statement =>
-- Ignore an ignored ghost unit
pragma Assert (Is_Ignored_Ghost_Node (Original_Node (N)));
null;