OSDN Git Service

gcc/ada
authorrwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 2 Mar 2008 22:39:38 +0000 (22:39 +0000)
committerrwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 2 Mar 2008 22:39:38 +0000 (22:39 +0000)
* 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:
gcc/ada/ChangeLog
gcc/ada/a-ngcoar.adb
gcc/ada/a-ngrear.adb
gcc/ada/g-awk.adb
gcc/ada/g-debpoo.adb
gcc/ada/gnatfind.adb
gcc/ada/gnatxref.adb
gcc/ada/gprep.adb
gcc/ada/make.adb
gcc/ada/makegpr.adb
gcc/ada/par-ch6.adb
gcc/ada/prj-nmsc.adb
gcc/ada/s-auxdec-empty.adb
gcc/ada/s-auxdec.adb
gcc/ada/sem_attr.adb
gcc/ada/sem_ch4.adb
gcc/ada/sem_ch8.adb
gcc/ada/sem_type.adb
gcc/ada/sinfo-cn.adb
gcc/ada/system-vms-ia64.ads
gcc/ada/system-vms.ads
gcc/ada/system-vms_64.ads

index 0657b21..d990e10 100644 (file)
@@ -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.
 
index 47f4db3..4d87528 100644 (file)
@@ -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
index 098d5a9..30eb136 100644 (file)
@@ -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,
index 4239bb3..57045bf 100644 (file)
@@ -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;
index fa12747..dc4896c 100644 (file)
@@ -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;
 
index 21ba0cb..a0e05a8 100644 (file)
@@ -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;
 
index af61ef7..b2225ff 100644 (file)
@@ -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;
 
index 1aed7ef..a08ea7d 100644 (file)
@@ -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;
index cfccbef..ff14dc4 100644 (file)
@@ -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
index e884884..c6c39cd 100644 (file)
@@ -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;
index fee6465..b2ae242 100644 (file)
@@ -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;
index 128913b..ecad20d 100644 (file)
@@ -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;
index 57fa581..dd380a8 100644 (file)
@@ -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.                                              --
index 5bde295..ed72432 100644 (file)
@@ -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.                                              --
index 4bfce0c..8fc2033 100644 (file)
@@ -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)));
index ebfdccf..49a1699 100644 (file)
@@ -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;
 
index 0a4ac8e..609f557 100644 (file)
@@ -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);
index c5ae359..bff22c4 100644 (file)
@@ -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
index e79c40a..14f6e11 100644 (file)
@@ -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;
 
index 8332652..6ba59a3 100644 (file)
@@ -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;
index 65efd10..7f95154 100644 (file)
@@ -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;
index 67eb5c2..4830378 100644 (file)
@@ -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;