summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2010-09-10 15:19:45 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2010-09-10 17:19:45 +0200
commit77fcb50eced279547ad891c2ec9c8cb65baae90d (patch)
tree49e52a91ca9d717e2b2f2c17752fee97c05037d5
parentac12a18bf44ae0d77db2c6a582db464327202227 (diff)
downloadgcc-77fcb50eced279547ad891c2ec9c8cb65baae90d.tar.gz
sem.adb: Minor reformatting.
2010-09-10 Robert Dewar <dewar@adacore.com> * sem.adb: Minor reformatting. From-SVN: r164190
-rw-r--r--gcc/ada/ChangeLog4
-rw-r--r--gcc/ada/sem.adb11
2 files changed, 9 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 62087b4f44e..84cc9466fe1 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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.
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