diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-01 09:31:18 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-01 09:31:18 +0000 |
commit | edeff8016281775ee3e9e883a4ea0be40f0c20f7 (patch) | |
tree | d85a647c0c8cab2874312164ce773d7c4fad9813 /gcc/ada | |
parent | 506e771e3082c6096ceaf8a18228b07e7186a78d (diff) | |
download | gcc-edeff8016281775ee3e9e883a4ea0be40f0c20f7.tar.gz |
2008-08-01 Thomas Quinot <quinot@adacore.com>
* sem_ch12.adb: Minor comment reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138502 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/sem_ch12.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 48011e71ade..282104fdd9a 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -10877,11 +10877,11 @@ package body Sem_Ch12 is Set_Is_Immediately_Visible (P, False); -- If the current scope is itself an instantiation of a generic - -- nested within P, and we are in the private part of body of - -- this instantiation, restore the full views of P, that were - -- removed in End_Package_Scope above. This obscure case can - -- occur when a subunit of a generic contains an instance of - -- of a child unit of its generic parent unit. + -- nested within P, and we are in the private part of body of this + -- instantiation, restore the full views of P, that were removed + -- in End_Package_Scope above. This obscure case can occur when a + -- subunit of a generic contains an instance of a child unit of + -- its generic parent unit. elsif S = Current_Scope and then Is_Generic_Instance (S) |