From aa07dfe7a053e6c7faad05c87306ee6829356eb3 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 12 Oct 2016 17:34:33 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r241064 --- gcc/ada/sem.adb | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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; -- 2.30.2