From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Wed, 12 Oct 2016 15:34:33 +0000 (+0200)
Subject: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=aa07dfe7a053e6c7faad05c87306ee6829356eb3;p=gcc.git

Minor reformatting.

From-SVN: r241064
---

diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb
index 6e8ab45575e..1b1720d3c7b 100644
--- 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;