diff options
| author | Ralf Wildenhues <Ralf.Wildenhues@gmx.de> | 2008-04-14 21:07:59 +0000 |
|---|---|---|
| committer | Ralf Wildenhues <rwild@gcc.gnu.org> | 2008-04-14 21:07:59 +0000 |
| commit | f3d0f304ff5dc9bd1836b1a1329038558ea572be (patch) | |
| tree | 3f86f334592314b53781112a469770f9d9d72b3e /gcc/ada/exp_util.adb | |
| parent | 682db6f9c015c7c4abf53493ac87b25b6ea95046 (diff) | |
| download | gcc-f3d0f304ff5dc9bd1836b1a1329038558ea572be.zip gcc-f3d0f304ff5dc9bd1836b1a1329038558ea572be.tar.gz gcc-f3d0f304ff5dc9bd1836b1a1329038558ea572be.tar.bz2 | |
vms_data.ads: Fix typo in constant.
gcc/ada/
* vms_data.ads: Fix typo in constant.
* gen-soccon.c: Fix typo in error string.
* gnat_rm.texi (Pragma Optimize_Alignment, Pragma Postcondition):
Fix typos.
* a-calcon.ads, a-calend-vms.adb, a-calend.adb, a-crdlli.ads,
bcheck.adb, checks.adb, einfo.ads, errout.adb, erroutc.adb,
erroutc.ads, exp_attr.adb, exp_ch11.adb, exp_ch2.adb,
exp_ch5.adb, exp_ch9.adb, exp_ch9.ads, exp_pakd.adb,
exp_util.adb, fmap.adb, g-soccon-linux-mips.ads,
g-soccon-rtems.ads, g-timsta.adb, g-timsta.ads, lib-writ.ads,
mlib-tgt-specific-linux.adb, mlib-tgt-specific-tru64.adb,
s-interr-vxworks.adb, s-interr.adb, s-osinte-lynxos.ads,
s-rident.ads, s-taprop-solaris.adb, s-tassta.adb, s-win32.ads,
sem_aggr.adb, sem_attr.ads, sem_ch10.adb, sem_ch13.ads,
sem_ch3.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_ch9.adb,
sem_prag.ads, sem_res.adb, sem_util.adb, sem_util.ads,
sinfo.ads: Fix typos in comments.
From-SVN: r134291
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 12fea51..fd9fe26 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -967,7 +967,7 @@ package body Exp_Util is -- A protected type without entries that covers an interface and -- overrides the abstract routines with protected procedures is -- considered equivalent to a protected type with entries in the - -- context of dispatching select statements. It is sufficent to + -- context of dispatching select statements. It is sufficient to -- check for the presence of an interface list in the declaration -- node to recognize this case. @@ -3066,7 +3066,7 @@ package body Exp_Util is -- Most predefined primitives have internally generated names. Equality -- must be treated differently; the predefined operation is recognized - -- as a homgeneous binary operator that returns Boolean. + -- as a homogeneous binary operator that returns Boolean. if Name_Len > TSS_Name_Type'Last then TSS_Name := TSS_Name_Type (Name_Buffer (Name_Len - TSS_Name'Length + 1 |