From 2654596337105a6da7f8209c82f5c00d2fdda49f Mon Sep 17 00:00:00 2001 From: rwild Date: Sun, 2 Mar 2008 22:39:38 +0000 Subject: [PATCH] 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 --- gcc/ada/ChangeLog | 11 +++++++++++ gcc/ada/a-ngcoar.adb | 2 +- gcc/ada/a-ngrear.adb | 2 +- gcc/ada/g-awk.adb | 2 +- gcc/ada/g-debpoo.adb | 2 +- gcc/ada/gnatfind.adb | 2 +- gcc/ada/gnatxref.adb | 2 +- gcc/ada/gprep.adb | 2 +- gcc/ada/make.adb | 2 +- gcc/ada/makegpr.adb | 2 +- gcc/ada/par-ch6.adb | 4 ++-- gcc/ada/prj-nmsc.adb | 2 +- gcc/ada/s-auxdec-empty.adb | 4 ++-- gcc/ada/s-auxdec.adb | 4 ++-- gcc/ada/sem_attr.adb | 2 +- gcc/ada/sem_ch4.adb | 2 +- gcc/ada/sem_ch8.adb | 4 ++-- gcc/ada/sem_type.adb | 2 +- gcc/ada/sinfo-cn.adb | 1 - gcc/ada/system-vms-ia64.ads | 2 +- gcc/ada/system-vms.ads | 2 +- gcc/ada/system-vms_64.ads | 2 +- 22 files changed, 35 insertions(+), 25 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0657b21..d990e10 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,16 @@ 2008-03-02 Ralf Wildenhues + * 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 47f4db3..4d87528 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 098d5a9..30eb136 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 4239bb3..57045bf 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 fa12747..dc4896c 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 21ba0cb..a0e05a8 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 af61ef7..b2225ff 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 1aed7ef..a08ea7d 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 cfccbef..ff14dc4 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 e884884..c6c39cd 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 fee64651..b2ae242 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 128913b..ecad20d 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 57fa581..dd380a8 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 5bde295..ed72432 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 4bfce0c..8fc2033 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 ebfdccf..49a1699 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 0a4ac8e..609f557 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 c5ae359..bff22c4 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 e79c40a..14f6e11 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 8332652..6ba59a3 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 65efd10..7f95154 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 67eb5c2..4830378 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; -- 2.7.4