diff options
Diffstat (limited to 'gcc/ada/sem_ch7.adb')
| -rw-r--r-- | gcc/ada/sem_ch7.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index 74d70d1fed8..91f2ad14202 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -69,14 +69,14 @@ package body Sem_Ch7 is -- with the presence of two separate definitions for private types: the -- first is the private type declaration, and the second is the full type -- declaration. It is important that all references to the type point to - -- the same defining occurence, namely the first one. To enforce the two + -- the same defining occurrence, namely the first one. To enforce the two -- separate views of the entity, the corresponding information is swapped -- between the two declarations. Outside of the package, the defining - -- occurence only contains the private declaration information, while in + -- occurrence only contains the private declaration information, while in -- the private part and the body of the package the defining occurrence -- contains the full declaration. To simplify the swap, the defining -- occurrence that currently holds the private declaration points to the - -- full declaration. During semantic processing the defining occurence also + -- full declaration. During semantic processing the defining occurrence also -- points to a list of private dependents, that is to say access types or -- composite types whose designated types or component types are subtypes -- or derived types of the private type in question. After the full decla- @@ -151,7 +151,7 @@ package body Sem_Ch7 is Write_Eol; end if; - -- Set Body_Id. Note that this wil be reset to point to the + -- Set Body_Id. Note that this will be reset to point to the -- generic copy later on in the generic case. Body_Id := Defining_Entity (N); |