gcc/ada

	* gnatfind.adb, gnatxref.adb: Fix argument parsing typos.
	* s-auxdec-empty.adb, s-auxdec.adb: Fix typos in copyright
	statement.
	* a-ngcoar.adb, a-ngrear.adb, g-awk.adb, g-debpoo.adb,
	gprep.adb, make.adb, makegpr.adb, par-ch6.adb, prj-nmsc.adb,
	sem_attr.adb, sem_ch4.adb, sem_ch8.adb: Fix typos in ada source
	code output strings.
	* sem_type.adb, system-vms-ia64.ads, system-vms.ads,
	system-vms_64.ads: Fix typos in ada source code comments.
	* sinfo-cn.adb: Remove incomplete sentence.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132822 138bc75d-0d04-0410-961f-82ee72b054a4

22 files changed, 35 insertions, 25 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0657b211d72..d990e1005e8 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,16 @@
 2008-03-02  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
+	* gnatfind.adb, gnatxref.adb: Fix argument parsing typos.
+	* s-auxdec-empty.adb, s-auxdec.adb: Fix typos in copyright
+	statement.
+	* a-ngcoar.adb, a-ngrear.adb, g-awk.adb, g-debpoo.adb,
+	gprep.adb, make.adb, makegpr.adb, par-ch6.adb, prj-nmsc.adb,
+	sem_attr.adb, sem_ch4.adb, sem_ch8.adb: Fix typos in ada source
+	code output strings.
+	* sem_type.adb, system-vms-ia64.ads, system-vms.ads,
+	system-vms_64.ads: Fix typos in ada source code comments.
+	* sinfo-cn.adb: Remove incomplete sentence.
+
 	PR documentation/15479
 	* gnat_rm.texi, gnat_ugn.texi: Avoid standalone `non' word.
 
diff --git a/gcc/ada/a-ngcoar.adb b/gcc/ada/a-ngcoar.adb
index 47f4db3674b..4d875283a60 100644
--- a/gcc/ada/a-ngcoar.adb
+++ b/gcc/ada/a-ngcoar.adb
@@ -1194,7 +1194,7 @@ package body Ada.Numerics.Generic_Complex_Arrays is
             Info     => Info'Access);
 
          if Info /= 0 then
-            raise Constraint_Error with "inverting non-Hermetian matrix";
+            raise Constraint_Error with "inverting non-Hermitian matrix";
          end if;
 
          for J in Values'Range loop
diff --git a/gcc/ada/a-ngrear.adb b/gcc/ada/a-ngrear.adb
index 098d5a9a2c5..30eb1365b1d 100644
--- a/gcc/ada/a-ngrear.adb
+++ b/gcc/ada/a-ngrear.adb
@@ -368,7 +368,7 @@ package body Ada.Numerics.Generic_Real_Arrays is
    begin
       if Left'Length (2) /= Right'Length (1) then
          raise Constraint_Error with
-            "incompatible dimensions in matrix-matrix multipication";
+            "incompatible dimensions in matrix-matrix multiplication";
       end if;
 
       gemm (Trans_A => No_Trans'Access,
diff --git a/gcc/ada/g-awk.adb b/gcc/ada/g-awk.adb
index 4239bb38990..57045bf5661 100644
--- a/gcc/ada/g-awk.adb
+++ b/gcc/ada/g-awk.adb
@@ -644,7 +644,7 @@ package body GNAT.AWK is
       when others =>
          Raise_With_Info
            (File_Error'Identity,
-            "Error scaning directory " & Directory
+            "Error scanning directory " & Directory
             & " for files " & Filenames & '.',
             Session);
    end Add_Files;
diff --git a/gcc/ada/g-debpoo.adb b/gcc/ada/g-debpoo.adb
index fa127470712..dc4896c4621 100644
--- a/gcc/ada/g-debpoo.adb
+++ b/gcc/ada/g-debpoo.adb
@@ -1388,7 +1388,7 @@ package body GNAT.Debug_Pools is
 
       if Pool.Marked_Blocks_Deallocated then
          Put_Line ("Marked blocks were physically deallocated. This is");
-         Put_Line ("potentially dangereous, and you might want to run");
+         Put_Line ("potentially dangerous, and you might want to run");
          Put_Line ("again with a lower value of Minimum_To_Free");
       end if;
 
diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb
index 21ba0cbc3ba..a0e05a88d2d 100644
--- a/gcc/ada/gnatfind.adb
+++ b/gcc/ada/gnatfind.adb
@@ -131,7 +131,7 @@ procedure Gnatfind is
             when 'n'    =>
                if GNAT.Command_Line.Full_Switch = "nostdinc" then
                   Opt.No_Stdinc := True;
-               elsif GNAT.Command_Line.Full_Switch = "nostlib" then
+               elsif GNAT.Command_Line.Full_Switch = "nostdlib" then
                   Opt.No_Stdlib := True;
                end if;
 
diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb
index af61ef7c0bb..b2225ff458c 100644
--- a/gcc/ada/gnatxref.adb
+++ b/gcc/ada/gnatxref.adb
@@ -114,7 +114,7 @@ procedure Gnatxref is
             when 'n' =>
                if GNAT.Command_Line.Full_Switch = "nostdinc" then
                   Opt.No_Stdinc := True;
-               elsif GNAT.Command_Line.Full_Switch = "nostlib" then
+               elsif GNAT.Command_Line.Full_Switch = "nostdlib" then
                   Opt.No_Stdlib := True;
                end if;
 
diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb
index 1aed7ef701f..a08ea7dce3d 100644
--- a/gcc/ada/gprep.adb
+++ b/gcc/ada/gprep.adb
@@ -778,7 +778,7 @@ package body GPrep is
             elsif Deffile_Name = No_Name then
                Deffile_Name := Name_Find;
             else
-               Fail ("too many arguments specifed");
+               Fail ("too many arguments specified");
             end if;
          end;
       end loop;
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index cfccbef89c3..ff14dc40a29 100644
--- a/gcc/ada/make.adb
+++ b/gcc/ada/make.adb
@@ -6716,7 +6716,7 @@ package body Make is
       --  Test for simultaneity of -i and -D
 
       if Object_Directory_Path /= null and then In_Place_Mode then
-         Make_Failed ("-i and -D cannot be used simutaneously");
+         Make_Failed ("-i and -D cannot be used simultaneously");
       end if;
 
       --  Deal with -C= switch
diff --git a/gcc/ada/makegpr.adb b/gcc/ada/makegpr.adb
index e8848846958..c6c39cd74b0 100644
--- a/gcc/ada/makegpr.adb
+++ b/gcc/ada/makegpr.adb
@@ -3030,7 +3030,7 @@ package body Makegpr is
 
             else
                Osint.Fail
-                 ("unknow compiler name for language """,
+                 ("unknown compiler name for language """,
                   Get_Name_String (Language_Names.Table (For_Language)),
                   """");
             end if;
diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb
index fee646514be..b2ae242c517 100644
--- a/gcc/ada/par-ch6.adb
+++ b/gcc/ada/par-ch6.adb
@@ -280,7 +280,7 @@ package body Ch6 is
 
          if Token = Tok_New then
             if not Pf_Flags.Gins then
-               Error_Msg_SC ("generic instantation not allowed here!");
+               Error_Msg_SC ("generic instantiation not allowed here!");
             end if;
 
             Scan; -- past NEW
@@ -1289,7 +1289,7 @@ package body Ch6 is
       end if;
 
       if Token = Tok_In then
-         Error_Msg_SC ("IN must preceed OUT in parameter mode");
+         Error_Msg_SC ("IN must precede OUT in parameter mode");
          Scan; -- past IN
          Set_In_Present (Node, True);
       end if;
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb
index 128913b8822..ecad20dd8c2 100644
--- a/gcc/ada/prj-nmsc.adb
+++ b/gcc/ada/prj-nmsc.adb
@@ -5171,7 +5171,7 @@ package body Prj.Nmsc is
                   Error_Msg
                     (Project, In_Tree,
                      "symbol file name { is illegal. " &
-                     "Name canot include directory info.",
+                     "Name cannot include directory info.",
                      Lib_Symbol_File.Location);
                end if;
             end if;
diff --git a/gcc/ada/s-auxdec-empty.adb b/gcc/ada/s-auxdec-empty.adb
index 57fa5812c1d..dd380a812a4 100644
--- a/gcc/ada/s-auxdec-empty.adb
+++ b/gcc/ada/s-auxdec-empty.adb
@@ -13,8 +13,8 @@
 -- ware  Foundation;  either version 2,  Or (at your option) any later ver- --
 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
--- Or FITNESS FOr A PARTICULAR PURPOSE.  See the GNU General Public License --
--- fOr  mOre details.  You should have  received  a copy of the GNU General --
+-- OR FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
+-- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
 -- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
 -- Boston, MA 02110-1301, USA.                                              --
diff --git a/gcc/ada/s-auxdec.adb b/gcc/ada/s-auxdec.adb
index 5bde295d6b5..ed724322958 100644
--- a/gcc/ada/s-auxdec.adb
+++ b/gcc/ada/s-auxdec.adb
@@ -13,8 +13,8 @@
 -- ware  Foundation;  either version 2,  Or (at your option) any later ver- --
 -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
--- Or FITNESS FOr A PARTICULAR PURPOSE.  See the GNU General Public License --
--- fOr  mOre details.  You should have  received  a copy of the GNU General --
+-- OR FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
+-- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
 -- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
 -- Boston, MA 02110-1301, USA.                                              --
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 4bfce0c6cb9..8fc203333a9 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -2191,7 +2191,7 @@ package body Sem_Attr is
            and then Warn_On_Redundant_Constructs
          then
                Error_Msg_NE
-                 ("?redudant attribute, & is its own base type", N, Typ);
+                 ("?redundant attribute, & is its own base type", N, Typ);
          end if;
 
          Set_Etype (N, Base_Type (Entity (P)));
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index ebfdccf86ad..49a1699be51 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -1781,7 +1781,7 @@ package body Sem_Ch4 is
          end loop;
 
          if Etype (N) = Any_Type then
-            Error_Msg_N ("no legal interpetation for indexed component", N);
+            Error_Msg_N ("no legal interpretation for indexed component", N);
             Set_Is_Overloaded (N, False);
          end if;
 
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 0a4ac8e0cd6..609f5575320 100644
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -5257,7 +5257,7 @@ package body Sem_Ch8 is
                     and then False
                   then
                      Error_Msg_N
-                       ("applying 'Class to an untagged imcomplete type"
+                       ("applying 'Class to an untagged incomplete type"
                          & " is an obsolescent feature  (RM J.11)", N);
                   end if;
 
@@ -5347,7 +5347,7 @@ package body Sem_Ch8 is
                  and then Warn_On_Redundant_Constructs
                then
                   Error_Msg_NE
-                    ("?redudant attribute, & is its own base type", N, Typ);
+                    ("?redundant attribute, & is its own base type", N, Typ);
                end if;
 
                T := Base_Type (Typ);
diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb
index c5ae359e7fe..bff22c411bc 100644
--- a/gcc/ada/sem_type.adb
+++ b/gcc/ada/sem_type.adb
@@ -1515,7 +1515,7 @@ package body Sem_Type is
       end if;
 
       --  Check for overloaded CIL convention stuff because the CIL libraries
-      --  do sick things like Console.WriteLine where it matches
+      --  do sick things like Console.Write_Line where it matches
       --  two different overloads, so just pick the first ???
 
       if Convention (Nam1) = Convention_CIL
diff --git a/gcc/ada/sinfo-cn.adb b/gcc/ada/sinfo-cn.adb
index e79c40a4420..14f6e11134f 100644
--- a/gcc/ada/sinfo-cn.adb
+++ b/gcc/ada/sinfo-cn.adb
@@ -29,7 +29,6 @@
 --  record discriminant part, such alterations cannot be permitted in a
 --  general manner, but in some specific cases, the fields of related nodes
 --  have been deliberately layed out in a manner that permits such alteration.
---  that determin
 
 with Atree; use Atree;
 
diff --git a/gcc/ada/system-vms-ia64.ads b/gcc/ada/system-vms-ia64.ads
index 83326521c52..6ba59a3bd3e 100644
--- a/gcc/ada/system-vms-ia64.ads
+++ b/gcc/ada/system-vms-ia64.ads
@@ -250,7 +250,7 @@ private
 
    ADA_GNAT : constant Boolean := True;
    pragma Export_Object (ADA_GNAT, "ADA$GNAT");
-   --  Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
+   --  Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug.
    --  Do not remove!
 
 end System;
diff --git a/gcc/ada/system-vms.ads b/gcc/ada/system-vms.ads
index 65efd10d827..7f95154fa39 100644
--- a/gcc/ada/system-vms.ads
+++ b/gcc/ada/system-vms.ads
@@ -233,7 +233,7 @@ private
 
    ADA_GNAT : constant Boolean := True;
    pragma Export_Object (ADA_GNAT, "ADA$GNAT");
-   --  Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
+   --  Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug.
    --  Do not remove!
 
 end System;
diff --git a/gcc/ada/system-vms_64.ads b/gcc/ada/system-vms_64.ads
index 67eb5c2b40f..4830378f2fc 100644
--- a/gcc/ada/system-vms_64.ads
+++ b/gcc/ada/system-vms_64.ads
@@ -250,7 +250,7 @@ private
 
    ADA_GNAT : constant Boolean := True;
    pragma Export_Object (ADA_GNAT, "ADA$GNAT");
-   --  Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
+   --  Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug.
    --  Do not remove!
 
 end System;