[Ada] Typo fixes

2019-07-05  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* einfo.ads, sem_res.adb: Typo fixes in comments.

From-SVN: r273114

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 880f2610bf44d358ae1cfdde942ae775d9606b7e..0d908617ec2d32eb4e171dbfee3e2f1475141aa7 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2019-07-05  Piotr Trojanek  <trojanek@adacore.com>
+
+       * einfo.ads, sem_res.adb: Typo fixes in comments.
+
 2019-07-05  Bob Duff  <duff@adacore.com>
 
        * exp_ch6.adb (Is_Build_In_Place_Function): Narrow the check for

diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index 9dc6cc24799e419cda37a3f97e655bd751b237f2..a24856832c6dc5e76e5305cf77ec98221b87f38c 100644 (file)
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -4490,7 +4490,7 @@ package Einfo is
 --    Suppress_Initialization (Flag105)
 --       Defined in all variable, type and subtype entities. If set for a base
 --       type, then the generation of initialization procedures is suppressed
---       for the type. Any other implicit initialiation (e.g. from the use of
+--       for the type. Any other implicit initialization (e.g. from the use of
 --       pragma Initialize_Scalars) is also suppressed if this flag is set for
 --       either the subtype in question, or for the base type. For variables,
 --       this flag suppresses all implicit initialization for the object, even

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 9c226357483e63444f6098dc2356835f178215e9..7363abf5b4bc5dd503ca8ec13214184a6d0fdd6b 100644 (file)
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -6070,7 +6070,7 @@ package body Sem_Res is
       --  is frozen in the usual fashion, by the appearance of a real body,
       --  or at the end of a declarative part. However an implicit call to
       --  an expression function may appear when it is part of a default
-      --  expression in a call to an initialiation procedure, and must be
+      --  expression in a call to an initialization procedure, and must be
       --  frozen now, even if the body is inserted at a later point.
 
       if Is_Entity_Name (Subp)