diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-01 11:31:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 11:31:18 +0200 |
| commit | 2fc66c69c78fd0877b042dacb124b2c99f8f3477 (patch) | |
| tree | d85a647c0c8cab2874312164ce773d7c4fad9813 /gcc/ada/sem_ch12.adb | |
| parent | 9a7da240bb8918452ec5101794272c7715f2ed5d (diff) | |
| download | gcc-2fc66c69c78fd0877b042dacb124b2c99f8f3477.tar.gz | |
sem_ch12.adb: Minor comment reformatting
2008-08-01 Thomas Quinot <quinot@adacore.com>
* sem_ch12.adb: Minor comment reformatting
From-SVN: r138502
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -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) |