diff options
| author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-03 17:41:43 +0000 |
|---|---|---|
| committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-06-03 17:41:43 +0000 |
| commit | 15c4d81d34753771380e9afc30d54ed3c3f5081d (patch) | |
| tree | 1c48a0061eef05b5d0e354f42467d46fe33b1fc2 /gcc/ada/exp_ch4.adb | |
| parent | aecf75a3a8830fe17b60725f551e6a3dc29e78a3 (diff) | |
| download | gcc-15c4d81d34753771380e9afc30d54ed3c3f5081d.tar.gz | |
gcc/ada/
* Makefile.in (common_tools): Fix typos in $(exeext) extension.
* gnat_ugn.texi (Style Checking)
(Adding the Results of Compiler Checks to gnatcheck Output)
(Example of Binder Output File): Fix typos.
* ali.ads, einfo.ads, exp_ch4.adb, exp_ch6.adb,
exp_dbug.ads, exp_dist.adb, exp_smem.adb, g-socket.ads,
s-osinte-rtems.ads, s-shasto.ads, s-stausa.adb,
s-stausa.ads, sem_cat.adb, sem_ch12.adb, sem_ch3.adb,
sem_ch4.adb, sem_ch6.adb, sem_ch8.adb, sem_util.ads,
sinfo.ads, utils.c: Fix typos in comments.
* sem_ch6.adb, vms_data.ads: Fix typos in strings.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136329 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 2d275a9bc80..798da67036e 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -2422,7 +2422,7 @@ package body Exp_Ch4 is begin -- If the index type is an enumeration type, the computation can be -- done in standard integer. Otherwise, choose a large enough integer - -- type to accomodate the index type computation. + -- type to accommodate the index type computation. if Is_Enumeration_Type (Ind_Typ) or else Root_Type (Ind_Typ) = Standard_Integer @@ -5947,7 +5947,7 @@ package body Exp_Ch4 is -- the mod value is always 0, and we can just ignore the left operand -- completely in this case. - -- The operand type may be private (e.g. in the expansion of an an + -- The operand type may be private (e.g. in the expansion of an -- intrinsic operation) so we must use the underlying type to get the -- bounds, and convert the literals explicitly. |