diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 15:19:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 15:19:45 +0000 |
| commit | 452142c5b57f86b81ad9aa7acfbb539904c7bf9e (patch) | |
| tree | 49e52a91ca9d717e2b2f2c17752fee97c05037d5 /gcc/ada/sem.adb | |
| parent | 1b8f51363d06bd4e864fccc6ecf9f9a03e2da6cb (diff) | |
| download | gcc-452142c5b57f86b81ad9aa7acfbb539904c7bf9e.tar.gz | |
2010-09-10 Robert Dewar <dewar@adacore.com>
* sem.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164190 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 6b1032bad7b..32ad831db45 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -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 |