summaryrefslogtreecommitdiff
path: root/gcc/ada/sem_mech.adb
diff options
context:
space:
mode:
authorrwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4>2008-04-13 17:41:15 +0000
committerrwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4>2008-04-13 17:41:15 +0000
commit1a34e48c1d7cf4f23d39788e46f64629cddf53b9 (patch)
treed233d5950c2c7ac628ce9413ff3d59a39a79f59c /gcc/ada/sem_mech.adb
parentfebb409f6902e6f6fe5898499b6e4088b8b22f31 (diff)
downloadgcc-1a34e48c1d7cf4f23d39788e46f64629cddf53b9.tar.gz
gcc/ada/
* sem_ch10.adb, sem_ch10.ads, sem_ch12.adb, sem_ch12.ads, sem_ch13.adb, sem_ch13.ads, sem_ch3.adb, sem_ch4.adb, sem_ch5.adb, sem_ch6.adb, sem_ch6.ads, sem_ch8.adb, sem_ch8.ads, sem_ch9.adb, sem_elab.adb, sem_elab.ads, sem_elim.ads, sem_eval.adb, sem_eval.ads, sem_intr.adb, sem_mech.adb, sem_mech.ads, sem_prag.adb, sem_prag.ads, sem_res.adb, sem_res.ads, sem_type.adb, sem_util.adb, sem_util.ads, sem_warn.adb, sem_warn.ads: Fix comment typos. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134242 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_mech.adb')
-rw-r--r--gcc/ada/sem_mech.adb8
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_mech.adb b/gcc/ada/sem_mech.adb
index 62f9af85b75..177a39ca671 100644
--- a/gcc/ada/sem_mech.adb
+++ b/gcc/ada/sem_mech.adb
@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
--- Copyright (C) 1996-2007, Free Software Foundation, Inc. --
+-- Copyright (C) 1996-2008, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -183,7 +183,7 @@ package body Sem_Mech is
is
begin
-- Right now we only do some checks for functions returning arguments
- -- by desctiptor. Probably mode checks need to be added here ???
+ -- by descriptor. Probably mode checks need to be added here ???
if Mech in Descriptor_Codes and then not Is_Formal (Ent) then
if Is_Record_Type (Etype (Ent)) then
@@ -207,7 +207,7 @@ package body Sem_Mech is
begin
-- Skip this processing if inside a generic template. Not only is
- -- it uneccessary (since neither extra formals nor mechanisms are
+ -- it unnecessary (since neither extra formals nor mechanisms are
-- relevant for the template itself), but at least at the moment,
-- procedures get frozen early inside a template so attempting to
-- look at the formal types does not work too well if they are
@@ -241,7 +241,7 @@ package body Sem_Mech is
---------
-- Note: all RM defined conventions are treated the same
- -- from the point of view of parameter passing mechanims
+ -- from the point of view of parameter passing mechanism
when Convention_Ada |
Convention_Intrinsic |