Minor reformatting.

From-SVN: r241064

diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb
index 6e8ab45575e62ce6cd45313227ea0df306b9bd01..1b1720d3c7bf611e7c0940eb37b36fff9be8b1d5 100644 (file)
--- a/gcc/ada/sem.adb
+++ b/gcc/ada/sem.adb
@@ -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;