[PATCH, ADA] Typos in Ada source code
Ralf Wildenhues
Ralf.Wildenhues@gmx.de
Sun Feb 24 13:06:00 GMT 2008
I pointed my spell checker at the Ada source code and fixed typos.
Lots of them.
Below is the first patch, which contains in some sense the "interesting"
few percent of them that either change actual (non-comment) code, or
that I figured may warrant an extra look, because I wasn't completely
sure about the intended spelling or wording.
What testing do I need to run for this patch (make check is running)?
For the nostdlib typos, is it necessary to add new test cases (and if
yes, a pointer to where and how would be appreciated)?
Other than that, OK for trunk? Not asking for branches, as I don't
think these are regressions.
For the rest that I have, I would like to know an appropriate way to
send them to this list for review. The unidiff weighs in at about 570KB
uncompressed, and 120KB bzip2'ed, which still exceeds list limits (and
hampers review). Do you prefer several messages slightly below 100KB
(one patch each message), and do you prefer packed or inline patches?
Thanks,
Ralf
PS: There are still a couple of patches missing for PR #15479, but they
need more work at this time.
gcc/ada/ChangeLog:
2008-02-24 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.
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 fee6465..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;
More information about the Gcc-patches
mailing list