From: Jose Ruiz <ruiz@adacore.com>
Date: Mon, 21 May 2018 14:51:42 +0000 (+0000)
Subject: [Ada] Minor typo fixes
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9e40de1d221e0803730de2ab48b6f4587ccaabd5;p=gcc.git

[Ada] Minor typo fixes

2018-05-21  Jose Ruiz  <ruiz@adacore.com>

gcc/ada/

	* doc/gnat_ugn/gnat_utility_programs.rst, exp_attr.adb,
	libgnarl/s-tassta.adb: Minor typo fixes

From-SVN: r260462
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ce5ef73b057..4954a17d0f8 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-04-04  Jose Ruiz  <ruiz@adacore.com>
+
+	* doc/gnat_ugn/gnat_utility_programs.rst, exp_attr.adb,
+	libgnarl/s-tassta.adb: Minor typo fixes
+
 2018-05-21  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_ch4.adb (Analyze_One_Call): Recognize complex cases where an
diff --git a/gcc/ada/doc/gnat_ugn/gnat_utility_programs.rst b/gcc/ada/doc/gnat_ugn/gnat_utility_programs.rst
index cbef8a04ba7..d617dcd7211 100644
--- a/gcc/ada/doc/gnat_ugn/gnat_utility_programs.rst
+++ b/gcc/ada/doc/gnat_ugn/gnat_utility_programs.rst
@@ -4078,8 +4078,8 @@ Alternatively, you may run the script using the following command line:
       for which a body must be created or a library unit body for which subunits
       must be created for the body stubs declared in this body.
       The file name may contain the path information.
-      If the name does not follow GNAT file naming conventions and a set
-      of seitches does not contain a project file that defines naming
+      If the name does not follow GNAT file naming conventions and the set
+      of switches does not contain a project file that defines naming
       conventions, the name of the body file must
       be provided
       explicitly as the value of the :switch:`-o{body-name}` option.
@@ -4146,7 +4146,7 @@ Alternatively, you may run the script using the following command line:
 
   :switch:`--subunits`
     Generate subunits for body stubs. If this switch is specified,
-    ``gnatstub`` expects a library unit body as an agrument file,
+    ``gnatstub`` expects a library unit body as an argument file,
     otherwise a library unit declaration is expected. If a body stub
     already has a corresponding subunit, ``gnatstub`` does not
     generate anything for it.
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 36e1815894e..9a00c4b86c9 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -6506,7 +6506,7 @@ package body Exp_Attr is
          Save_Validity_Checks_On : constant Boolean := Validity_Checks_On;
          --  Save the validity checking mode. We always turn off validity
          --  checking during process of 'Valid since this is one place
-         --  where we do not want the implicit validity checks to intefere
+         --  where we do not want the implicit validity checks to interfere
          --  with the explicit validity check that the programmer is doing.
 
          function Make_Range_Test return Node_Id;
diff --git a/gcc/ada/libgnarl/s-tassta.adb b/gcc/ada/libgnarl/s-tassta.adb
index 635d80514c2..fe982e236b2 100644
--- a/gcc/ada/libgnarl/s-tassta.adb
+++ b/gcc/ada/libgnarl/s-tassta.adb
@@ -655,7 +655,7 @@ package body System.Tasking.Stages is
          T.Common.Task_Image_Len := Len;
       end if;
 
-      --  Note: we used to have code here to initialize T.Commmon.Domain, but
+      --  Note: we used to have code here to initialize T.Common.Domain, but
       --  that is not needed, since this is initialized in System.Tasking.
 
       Unlock (Self_ID);