diff options
| author | jsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-16 01:13:56 +0000 |
|---|---|---|
| committer | jsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-16 01:13:56 +0000 |
| commit | 3d069ad47acec10e0ef434afbd79b5d3e0d77596 (patch) | |
| tree | 2cd8aefc64fec3e76f720d71eb36492e54d37507 /gcc/ada/sem_ch8.adb | |
| parent | 8626dbb9ba26fc1b06f3de7738aae45f5e302725 (diff) | |
| download | gcc-3d069ad47acec10e0ef434afbd79b5d3e0d77596.tar.gz | |
* 5ataprop.adb, 5atpopsp.adb, 5ftaprop.adb, 5gmastop.adb,
5gtaprop.adb, 5htaprop.adb, 5itaprop.adb, 5lintman.adb,
5omastop.adb, 5oosinte.adb, 5otaprop.adb, 5staprop.adb,
5vinterr.adb, 5vtaprop.adb, 5vtpopde.adb, 5wintman.adb,
5wtaprop.adb, 5zinterr.adb, 5ztaprop.adb, 6vcstrea.adb,
7sintman.adb, 7staprop.adb, 9drpc.adb, ChangeLog, Makefile.in,
a-except.adb, a-tags.ads, a-tasatt.adb, a-teioed.adb,
a-textio.ads, a-witeio.ads, a-wtedit.adb, ali.ads, comperr.adb,
cstand.adb, einfo.ads, errout.adb, exp_ch11.adb, exp_ch2.adb,
exp_ch3.adb, exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch9.adb,
exp_util.adb, exp_util.ads, fname-uf.adb, g-cgi.ads, g-exctra.ads,
g-expect.ads, g-regist.adb, g-spipat.adb, gnatchop.adb,
gnatlink.adb, gnatls.adb, gnatmain.adb, gnatmem.adb, init.c,
make.adb, make.ads, mdlltool.adb, nlists.ads, osint.ads,
par-ch3.adb, par-ch4.adb, par-ch5.adb, par-ch6.adb, par.adb,
repinfo.adb, s-fatflt.ads, s-fatlfl.ads, s-fatllf.ads,
s-fatsfl.ads, s-finimp.adb, s-finimp.ads, s-interr.adb,
s-secsta.ads, s-shasto.ads, s-stalib.adb, s-stalib.ads,
s-tarest.ads, s-tasdeb.adb, s-tassta.adb, s-tassta.ads,
s-vaflop.ads, scans.ads, scn.adb, sem.ads, sem_aggr.adb,
sem_attr.adb, sem_case.ads, sem_ch10.adb, sem_ch12.adb,
sem_ch13.adb, sem_ch3.adb, sem_ch3.ads, sem_ch5.adb, sem_ch7.adb,
sem_ch8.adb, sem_ch8.ads, sem_type.adb, sem_util.ads, sinfo.ads,
sprint.adb, tbuild.ads, types.ads, utils.c, xeinfo.adb: Fix
spelling errors.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48055 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch8.adb')
| -rw-r--r-- | gcc/ada/sem_ch8.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 7e24ef65b9a..6d4e43044fc 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -258,7 +258,7 @@ package body Sem_Ch8 is -- a) The defining occurrence for a package holds a flag -In_Use- to -- indicate that it is currently in the scope of a use clause. If a - -- redundant use clause is encountered, then the corresponding occurence + -- redundant use clause is encountered, then the corresponding occurrence -- of the package name is flagged -Redundant_Use-. -- b) On exit from a scope, the use clauses in its declarative part are @@ -281,14 +281,14 @@ package body Sem_Ch8 is -- with the presence of two separate definitions for private types: the -- first is the private type declaration, and 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 + -- 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 |