diff options
author | Ralf Wildenhues <Ralf.Wildenhues@gmx.de> | 2008-04-13 17:41:15 +0000 |
---|---|---|
committer | Ralf Wildenhues <rwild@gcc.gnu.org> | 2008-04-13 17:41:15 +0000 |
commit | f3d57416230c94a56d89bb6119c47d46f68bc4e6 (patch) | |
tree | d233d5950c2c7ac628ce9413ff3d59a39a79f59c /gcc/ada/sem_intr.adb | |
parent | 12a13f016fb663988db80b030c4ef8761dc9c2a9 (diff) | |
download | gcc-f3d57416230c94a56d89bb6119c47d46f68bc4e6.zip gcc-f3d57416230c94a56d89bb6119c47d46f68bc4e6.tar.gz gcc-f3d57416230c94a56d89bb6119c47d46f68bc4e6.tar.bz2 |
sem_ch10.adb, [...]: Fix comment typos.
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.
From-SVN: r134242
Diffstat (limited to 'gcc/ada/sem_intr.adb')
-rw-r--r-- | gcc/ada/sem_intr.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb index 42d78ba..9d73197 100644 --- a/gcc/ada/sem_intr.adb +++ b/gcc/ada/sem_intr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -132,7 +132,7 @@ package body Sem_Intr is end if; -- Check for the case of freeing a non-null object which will raise - -- Constaint_Error. Issue warning here, do the expansion in Exp_Intr. + -- Constraint_Error. Issue warning here, do the expansion in Exp_Intr. elsif Cnam = Name_Free and then Can_Never_Be_Null (Etype (Arg1)) @@ -158,7 +158,7 @@ package body Sem_Intr is T2 : Entity_Id; begin - -- Aritnmetic operators + -- Arithmetic operators if Nam = Name_Op_Add or else @@ -304,7 +304,7 @@ package body Sem_Intr is Errint ("unrecognized intrinsic subprogram", E, N); -- We always allow intrinsic specifications in language defined units - -- and in expanded code. We assume that the GNAT implemetors know what + -- and in expanded code. We assume that the GNAT implementors know what -- they are doing, and do not write or generate junk use of intrinsic! elsif not Comes_From_Source (E) |