Commit 77fcb50e by Robert Dewar Committed by Arnaud Charlet

sem.adb: Minor reformatting.

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

	* sem.adb: Minor reformatting.

From-SVN: r164190
parent ac12a18b
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.
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment