sem.adb: Minor reformatting.

2010-09-10  Robert Dewar  <dewar@adacore.com>

	* sem.adb: Minor reformatting.

From-SVN: r164190
This commit is contained in:
Robert Dewar 2010-09-10 15:19:45 +00:00 committed by Arnaud Charlet
parent ac12a18bf4
commit 77fcb50ece
2 changed files with 9 additions and 6 deletions

View File

@ -1,3 +1,7 @@
2010-09-10 Robert Dewar <dewar@adacore.com>
* sem.adb: Minor reformatting.
2010-09-10 Bob Duff <duff@adacore.com>
* s-os_lib.ads, g-expect.ads: Add comments.

View File

@ -2200,12 +2200,11 @@ package body Sem is
Action (Lib_Unit);
-- If the context item indicates that a package body is needed
-- because of an instantiation in CU, traverse the body now,
-- even if CU is not related to the main unit. If the generic
-- itself appears in a package body, the context item is this
-- body, and it already appears in the traversal order, so we
-- only need to examine the case where the context item is a
-- package declaration.
-- because of an instantiation in CU, traverse the body now, even
-- if CU is not related to the main unit. If the generic itself
-- appears in a package body, the context item is this body, and
-- it already appears in the traversal order, so we only need to
-- examine the case of a context item being a package declaration.
if Present (Withed_Body (Context_Item))
and then Nkind (Unit (Lib_Unit)) = N_Package_Declaration