sem.adb: Minor reformatting.
2010-09-10 Robert Dewar <dewar@adacore.com> * sem.adb: Minor reformatting. From-SVN: r164190
This commit is contained in:
parent
ac12a18bf4
commit
77fcb50ece
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue