This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH, Ada]: more typos
- From: Ralf Wildenhues <Ralf dot Wildenhues at gmx dot de>
- To: gcc-patches at gcc dot gnu dot org
- Date: Sat, 13 Sep 2008 20:40:23 +0200
- Subject: [PATCH, Ada]: more typos
I threw the 'git diff $lastcheck gcc/ada' difference at my spell checker
script again. Only comment typos, except in gnathtml.pl.
Then, I threw GNU grep at duplicate consecutive words in Ada comments:
LC_ALL=C grep -- '--.*\<\([a-zA-Z]\{2,\}\)\>[ ]*\<\1\>' gcc/ada/*
and examined the list for unintentional instances.
Bootstrap finished, check-ada is running on i686-pc-linux-gnu.
OK for trunk if it passes?
Thanks,
Ralf
gcc/ada/ChangeLog:
2008-09-13 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* a-crbtgk.adb, a-direct.ads, a-tasatt.adb, ali.ads,
bindgen.adb, checks.adb, einfo.ads, exp_aggr.adb, exp_ch11.adb,
exp_ch3.adb, exp_ch4.adb, exp_ch6.adb, exp_ch7.adb, exp_ch9.adb,
exp_dbug.ads, exp_disp.adb, exp_dist.adb, exp_pakd.adb,
exp_util.adb, g-alveop.ads, g-comlin.adb, g-comlin.ads,
g-diopit.adb, g-socket.ads, gcc-interface/decl.c,
gcc-interface/gigi.h, gcc-interface/trans.c,
lib-load.adb, lib-xref.ads, make.adb, mlib-prj.adb, nlists.ads,
opt.ads, par-ch10.adb, par-ch5.adb, par.adb, s-os_lib.ads,
s-oscons-tmplt.c, s-parint.ads, s-regpat.ads, s-shasto.ads,
s-stausa.ads, s-taprop-vms.adb, sem.adb, sem_ch10.adb,
sem_ch11.adb, sem_ch12.adb, sem_ch13.adb, sem_ch3.adb,
sem_ch3.ads, sem_ch4.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb,
sem_elim.adb, sem_prag.adb, sem_util.adb, sem_util.ads,
sem_warn.adb, sinfo.ads, styleg.adb, vms_data.ads: Fix typos in
comments.
* gnathtml.pl: Fix typos.
diff --git a/gcc/ada/a-crbtgk.adb b/gcc/ada/a-crbtgk.adb
index f3f8e07..a8acc40 100644
--- a/gcc/ada/a-crbtgk.adb
+++ b/gcc/ada/a-crbtgk.adb
@@ -205,7 +205,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Keys is
pragma Assert (Tree.Length > 0);
-- A hint can either name the node that immediately follows Key,
- -- or immediately precedes Key. We first test whether Key is is
+ -- or immediately precedes Key. We first test whether Key is
-- less than the hint, and if so we compare Key to the node that
-- precedes the hint. If Key is both less than the hint and
-- greater than the hint's preceding neighbor, then we're done;
diff --git a/gcc/ada/a-direct.ads b/gcc/ada/a-direct.ads
index 8b918f6..40992e0 100644
--- a/gcc/ada/a-direct.ads
+++ b/gcc/ada/a-direct.ads
@@ -317,7 +317,7 @@ package Ada.Directories is
procedure End_Search (Search : in out Search_Type);
-- Ends the search represented by Search. After a successful call on
-- End_Search, the object Search will have no entries available. Note
- -- that is is not necessary to call End_Search if the call to Start_Search
+ -- that it is not necessary to call End_Search if the call to Start_Search
-- was unsuccessful and raised an exception (but it is harmless to make
-- the call in this case).
diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb
index 0140df9..10d29b6 100644
--- a/gcc/ada/a-tasatt.adb
+++ b/gcc/ada/a-tasatt.adb
@@ -719,7 +719,7 @@ begin
In_Use := In_Use or Two_To_J;
Local.Index := J;
- -- This unchecked conversions can give a warning when the the
+ -- This unchecked conversions can give a warning when the
-- alignment is incorrect, but it will not be used in such a
-- case anyway, so the warning can be safely ignored.
diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads
index 3e95595..c4be2ef 100644
--- a/gcc/ada/ali.ads
+++ b/gcc/ada/ali.ads
@@ -959,7 +959,7 @@ package ALI is
-- Ignore_Lines requests that Scan_ALI ignore any lines that start
-- with any given key character. The default value of X causes all
-- Xref lines to be ignored. The corresponding data in the ALI
- -- tables will not be filled in in this case. It is not possible
+ -- tables will not be filled in this case. It is not possible
-- to ignore U (unit) lines, they are always read.
--
-- Read_Lines requests that Scan_ALI process only lines that start
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index 7f3f627..a632dd4 100644
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -205,7 +205,7 @@ package body Bindgen is
-- value of 1 signals its presence in the partition.
-- Default_Stack_Size is the default stack size used when creating an Ada
- -- task with no explicit Storize_Size clause.
+ -- task with no explicit Storage_Size clause.
-- Leap_Seconds_Support denotes whether leap seconds have been enabled or
-- disabled. A value of zero indicates that leap seconds are turned "off",
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb
index 12c5b64..92b66f3 100644
--- a/gcc/ada/checks.adb
+++ b/gcc/ada/checks.adb
@@ -502,7 +502,7 @@ package body Checks is
Type_Level :=
Make_Integer_Literal (Loc, Type_Access_Level (Typ));
- -- Raise Program_Error if the accessibility level of the the access
+ -- Raise Program_Error if the accessibility level of the access
-- parameter is deeper than the level of the target access type.
Insert_Action (Insert_Node,
@@ -1096,7 +1096,7 @@ package body Checks is
Apply_Discriminant_Check (N, Typ);
end if;
- -- Apply the the 2005 Null_Excluding check. Note that we do not apply
+ -- Apply the 2005 Null_Excluding check. Note that we do not apply
-- this check if the constraint node is illegal, as shown by having
-- an error posted. This additional guard prevents cascaded errors
-- and compiler aborts on illegal programs involving Ada 2005 checks.
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index a705874..409b001 100644
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -497,7 +497,7 @@ package Einfo is
-- Checks_May_Be_Suppressed (Flag31)
-- Present in all entities. Set if a pragma Suppress or Unsuppress
-- mentions the entity specifically in the second argument. If this
--- flag is set the the Global_Entity_Suppress and Local_Entity_Suppress
+-- flag is set the Global_Entity_Suppress and Local_Entity_Suppress
-- tables must be consulted to determine if the is actually an active
-- Suppress or Unsuppress pragma that applies to the entity.
@@ -588,7 +588,7 @@ package Einfo is
-- Constant_Value (synthesized)
-- Applies to variables, constants, named integers, and named reals.
-- Obtains the initialization expression for the entity. Will return
--- Empty for for a deferred constant whose full view is not available
+-- Empty for a deferred constant whose full view is not available
-- or in some other cases of internal entities, which cannot be treated
-- as constants from the point of view of constant folding. Empty is
-- also returned for variables with no initialization expression.
@@ -1594,7 +1594,7 @@ package Einfo is
-- Has_Pragma_Pack (Flag121) [implementation base type only]
-- Present in all entities. If set, indicates that a valid pragma Pack
--- was was given for the type. Note that this flag is not inherited by
+-- was given for the type. Note that this flag is not inherited by
-- derived type. See also the Is_Packed flag.
-- Has_Pragma_Pure (Flag203)
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index df5617a..21a0fd8 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -326,7 +326,7 @@ package body Exp_Aggr is
-- The limit is applied to the total number of components that the
-- aggregate will have, which is the number of static expressions
-- that will appear in the flattened array. This requires a recursive
- -- computation of the the number of scalar components of the structure.
+ -- computation of the number of scalar components of the structure.
---------------------
-- Component_Count --
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb
index 7ad1881..13da1ff 100644
--- a/gcc/ada/exp_ch11.adb
+++ b/gcc/ada/exp_ch11.adb
@@ -849,7 +849,7 @@ package body Exp_Ch11 is
begin
-- If we have no Entity, then we are probably in no run time mode
- -- or some weird error has occurred. In either case do do nothing!
+ -- or some weird error has occurred. In either case do nothing!
if Present (Ent) then
declare
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb
index f2b3eaf..4f9df51 100644
--- a/gcc/ada/exp_ch3.adb
+++ b/gcc/ada/exp_ch3.adb
@@ -4428,8 +4428,8 @@ package body Exp_Ch3 is
-- unconstrained nominal subtype, then it acquired its constraints
-- from the expression in the first place, and not only does this
-- mean that the constraint check is not needed, but an attempt to
- -- perform the constraint check can cause order order of
- -- elaboration problems.
+ -- perform the constraint check can cause order of elaboration
+ -- problems.
if not Is_Constr_Subt_For_U_Nominal (Typ) then
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 6e76372..9309c48 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -6552,7 +6552,7 @@ package body Exp_Ch4 is
Determine_Range (Right, ROK, Rlo, Rhi);
Determine_Range (Left, LOK, Llo, Lhi);
- -- The operand type may be private (e.g. in the expansion of an an
+ -- The operand type may be private (e.g. in the expansion of an
-- intrinsic operation) so we must use the underlying type to get the
-- bounds, and convert the literals explicitly.
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index a84b025..ae5b8d5 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -4492,7 +4492,7 @@ package body Exp_Ch6 is
-- which denotes the enclosing protected object. If the enclosing
-- operation is an entry, we are immediately within the protected body,
-- and we can retrieve the object from the service entries procedure. A
- -- barrier function has has the same signature as an entry. A barrier
+ -- barrier function has the same signature as an entry. A barrier
-- function is compiled within the protected object, but unlike
-- protected operations its never needs locks, so that its protected
-- body subprogram points to itself.
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb
index 1d7cb78..9b11ce7 100644
--- a/gcc/ada/exp_ch7.adb
+++ b/gcc/ada/exp_ch7.adb
@@ -2716,7 +2716,7 @@ package body Exp_Ch7 is
With_Attach => Make_Identifier (Loc, Name_B)));
-- When the type is also a controlled type by itself,
- -- Initialize it and attach it to the finalization chain
+ -- initialize it and attach it to the finalization chain.
if Is_Controlled (Typ) then
Append_To (Res,
@@ -2739,7 +2739,7 @@ package body Exp_Ch7 is
Make_Identifier (Loc, Name_B)));
-- When the type is also a controlled type by itself,
- -- Adjust it it and attach it to the finalization chain
+ -- adjust it and attach it to the finalization chain.
if Is_Controlled (Typ) then
Append_To (Res,
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index 53de7a0..de5877c 100644
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -4124,7 +4124,7 @@ package body Exp_Ch9 is
-- objectR
- -- which is a renaming of the _object field of the current object object
+ -- which is a renaming of the _object field of the current object
-- record, passed into protected operations as a parameter.
function Concurrent_Ref (N : Node_Id) return Node_Id is
@@ -8721,7 +8721,7 @@ package body Exp_Ch9 is
Alt_Stats := New_List;
end if;
- -- After the call, if any, branch to to trailing statements. We
+ -- After the call, if any, branch to trailing statements. We
-- create a label for each, as well as the corresponding label
-- declaration.
@@ -12292,7 +12292,7 @@ package body Exp_Ch9 is
when ' ' =>
return True;
- -- FIFO_Within_Priorities certainly certainly does not permit this
+ -- FIFO_Within_Priorities certainly does not permit this
-- optimization since the Rendezvous is a scheduling action that may
-- require some other task to be run.
diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads
index 1552c77..71c2f79 100644
--- a/gcc/ada/exp_dbug.ads
+++ b/gcc/ada/exp_dbug.ads
@@ -1490,7 +1490,7 @@ package Exp_Dbug is
--
-- These are the external names generated for Case_1.Typ (note that
-- Pkg1.Typ is associated with the Primary Dispatch Table, because it
- -- is the the parent of this type, and hence no external name is
+ -- is the parent of this type, and hence no external name is
-- generated for it).
-- case_1__typ0P (associated with Pkg2.Typ)
-- case_1__typ1P (associated with Pkg3.Typ)
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb
index 3d1f776..b44ea2e 100644
--- a/gcc/ada/exp_disp.adb
+++ b/gcc/ada/exp_disp.adb
@@ -767,7 +767,7 @@ package body Exp_Disp is
end if;
-- If the target type is a tagged synchronized type, the dispatch table
- -- info is in the correspondoing record type.
+ -- info is in the corresponding record type.
if Is_Concurrent_Type (Iface_Typ) then
Iface_Typ := Corresponding_Record_Type (Iface_Typ);
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index da7210b..546bbcc 100644
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -10353,7 +10353,7 @@ package body Exp_Dist is
-- to the union parameter list.
-- Ordering of declarations is a complete mess in this
- -- area, it is supposed to be types/varibles, then
+ -- area, it is supposed to be types/variables, then
-- subprogram specs, then subprogram bodies ???
---------------------------------------
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb
index e04d723..d66ed0f 100644
--- a/gcc/ada/exp_pakd.adb
+++ b/gcc/ada/exp_pakd.adb
@@ -1541,7 +1541,7 @@ package body Exp_Pakd is
else
-- We have to convert the right hand side to Etype (Obj).
- -- A special case case arises if what we have now is a Val
+ -- A special case arises if what we have now is a Val
-- attribute reference whose expression type is Etype (Obj).
-- This happens for assignments of fields from the same
-- array. In this case we get the required right hand side
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 8e367e1..b36f80d 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -1895,7 +1895,7 @@ package body Exp_Util is
-- If the variable reference does not come from source, we
-- cannot reliably tell whether it appears in the else part.
- -- In particular, if if appears in generated code for a node
+ -- In particular, if it appears in generated code for a node
-- that requires finalization, it may be attached to a list
-- that has not been yet inserted into the code. For now,
-- treat it as unknown.
diff --git a/gcc/ada/g-alveop.ads b/gcc/ada/g-alveop.ads
index 0897942..55a9fcf 100644
--- a/gcc/ada/g-alveop.ads
+++ b/gcc/ada/g-alveop.ads
@@ -43,7 +43,7 @@ package GNAT.Altivec.Vector_Operations is
-- much smaller set of low level primitives with type conversions around.
--
-- In some cases, a direct binding without any intermediate body is
- -- possible or even even mandatory for technical reasons. What we provide
+ -- possible or even mandatory for technical reasons. What we provide
-- here for such cases are renamings of straight imports exposed by
-- Altivec.Low_Level_Interface. See the comments in the private part for
-- additional details.
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb
index b5a82d5..47f821d 100644
--- a/gcc/ada/g-comlin.adb
+++ b/gcc/ada/g-comlin.adb
@@ -114,10 +114,10 @@ package body GNAT.Command_Line is
-- the beginning, else it is appended.
function Can_Have_Parameter (S : String) return Boolean;
- -- True when S can have a parameter
+ -- True if S can have a parameter.
function Require_Parameter (S : String) return Boolean;
- -- True when S requires a parameter
+ -- True if S requires a parameter.
function Actual_Switch (S : String) return String;
-- Remove any possible trailing '!', ':', '?' and '='
diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads
index 12a9888..1f393af 100644
--- a/gcc/ada/g-comlin.ads
+++ b/gcc/ada/g-comlin.ads
@@ -610,8 +610,8 @@ package GNAT.Command_Line is
-- added if not already present. For example, to add the -g switch into the
-- -cargs section, you need to call (Cmd, "-g", Section => "-cargs")
--
- -- Add_Before allows insertion of the switch at the begining of the command
- -- line.
+ -- Add_Before allows insertion of the switch at the beginning of the
+ -- command line.
procedure Add_Switch
(Cmd : in out Command_Line;
diff --git a/gcc/ada/g-diopit.adb b/gcc/ada/g-diopit.adb
index e88d2ee..4829bb4 100644
--- a/gcc/ada/g-diopit.adb
+++ b/gcc/ada/g-diopit.adb
@@ -376,7 +376,7 @@ package body GNAT.Directory_Operations.Iteration is
end;
-- Exit if Quit set by call to Action, either at this level
- -- or at at some lower recursive call to Next_Level.
+ -- or at some lower recursive call to Next_Level.
exit Dir_Iterator when Quit;
end loop Dir_Iterator;
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads
index 045e3bf..cd12b01 100644
--- a/gcc/ada/g-socket.ads
+++ b/gcc/ada/g-socket.ads
@@ -370,7 +370,7 @@ package GNAT.Sockets is
-- end PingPong;
package SOSC renames System.OS_Constants;
- -- Renaming used to provide short-hand notations thoughout the sockets
+ -- Renaming used to provide short-hand notations throughout the sockets
-- binding. Note that System.OS_Constants is an internal unit, and the
-- entities declared therein are not meant for direct access by users,
-- including through this renaming.
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 65dd02e..c254990 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -1939,7 +1939,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
true, Has_Component_Size_Clause (gnat_entity));
/* If the component type is a RECORD_TYPE that has a self-referential
- size, use the maxium size. */
+ size, use the maximum size. */
if (!gnu_comp_size && TREE_CODE (tem) == RECORD_TYPE
&& CONTAINS_PLACEHOLDER_P (TYPE_SIZE (tem)))
gnu_comp_size = max_size (TYPE_SIZE (tem), true);
@@ -2304,7 +2304,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
Has_Component_Size_Clause (gnat_entity));
/* If the component type is a RECORD_TYPE that has a
- self-referential size, use the maxium size. */
+ self-referential size, use the maximum size. */
if (!gnu_comp_size
&& TREE_CODE (gnu_type) == RECORD_TYPE
&& CONTAINS_PLACEHOLDER_P (TYPE_SIZE (gnu_type)))
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h
index e1c2fe9..7b08f8d 100644
--- a/gcc/ada/gcc-interface/gigi.h
+++ b/gcc/ada/gcc-interface/gigi.h
@@ -782,7 +782,7 @@ extern bool value_factor_p (tree value, HOST_WIDE_INT factor);
desired for the result. Usually the operation is to be performed
in that type. For MODIFY_EXPR and ARRAY_REF, RESULT_TYPE may be 0
in which case the type to be used will be derived from the operands. */
-extern tree build_binary_op (enum tree_code op_code, tree retult_type,
+extern tree build_binary_op (enum tree_code op_code, tree result_type,
tree left_operand, tree right_operand);
/* Similar, but make unary operation. */
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index a67476e..f8265cc 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -1621,7 +1621,7 @@ Case_Statement_to_gnu (Node_Id gnat_node)
/* If the case value is a subtype that raises Constraint_Error at
run-time because of a wrong bound, then gnu_low or gnu_high is
- not transtaleted into an INTEGER_CST. In such a case, we need
+ not translated into an INTEGER_CST. In such a case, we need
to ensure that the when statement is not added in the tree,
otherwise it will crash the gimplifier. */
if ((!gnu_low || TREE_CODE (gnu_low) == INTEGER_CST)
diff --git a/gcc/ada/gnathtml.pl b/gcc/ada/gnathtml.pl
index 9d89326..c72cecb 100644
--- a/gcc/ada/gnathtml.pl
+++ b/gcc/ada/gnathtml.pl
@@ -65,7 +65,7 @@ sub print_usage
print " command line\n";
print " -ext ext : Choose the generated file names extension (default\n";
print " is htm)\n";
- print "This program attemps to generate an html file from an Ada file\n";
+ print "This program attempts to generate an html file from an Ada file\n";
exit;
}
@@ -351,7 +351,7 @@ sub to_type
# return 'generic package' if ($char eq 'K');
return 'block' if ($char eq 'L');
return 'modular integer' if ($char eq 'M');
- return 'enumeration litteral' if ($char eq 'N');
+ return 'enumeration literal' if ($char eq 'N');
return 'ordinary fixed point' if ($char eq 'O');
return 'access' if ($char eq 'P');
return 'label' if ($char eq 'Q');
diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb
index d928b79..29a9090 100644
--- a/gcc/ada/lib-load.adb
+++ b/gcc/ada/lib-load.adb
@@ -711,7 +711,7 @@ package body Lib.Load is
-- it may very likely be the case that there is also pragma
-- Restriction forbidding its usage. This is typically the
-- case when building a configurable run time, where the
- -- usage of certain run-time units units is restricted by
+ -- usage of certain run-time units is restricted by
-- means of both the corresponding pragma Restriction (such
-- as No_Calendar), and by not including the unit. Hence,
-- we check whether this predefined unit is forbidden, so
diff --git a/gcc/ada/lib-xref.ads b/gcc/ada/lib-xref.ads
index 9233448..01e227c 100644
--- a/gcc/ada/lib-xref.ads
+++ b/gcc/ada/lib-xref.ads
@@ -587,7 +587,7 @@ package Lib.Xref is
-- Node N is an operator node, whose entity has been set. If this entity
-- is a user defined operator (i.e. an operator not defined in package
-- Standard), then a reference to the operator is recorded at node N.
- -- T is the operand type of of the operator. A reference to the operator
+ -- T is the operand type of the operator. A reference to the operator
-- is an implicit reference to the type, and that needs to be recorded
-- to avoid spurious warnings on unused entities, when the operator is
-- a renaming of a predefined operator.
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb
index c85e7ff..20813c0 100644
--- a/gcc/ada/make.adb
+++ b/gcc/ada/make.adb
@@ -4363,7 +4363,7 @@ package body Make is
-- directory information.
File_Name : constant String := Base_Name (Main);
- -- The simple file name of the current main main
+ -- The simple file name of the current main
begin
exit when Main = "";
@@ -7220,7 +7220,7 @@ package body Make is
elsif Sfile /= No_File then
- -- If Put_In_Q is False, we add the source as it it were specified
+ -- If Put_In_Q is False, we add the source as if it were specified
-- on the command line, and we set Put_In_Q to True, so that the
-- following sources will be put directly in the queue. This will
-- allow parallel compilation processes if -jx switch is used.
diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb
index 7e86fac..9b532be 100644
--- a/gcc/ada/mlib-prj.adb
+++ b/gcc/ada/mlib-prj.adb
@@ -1163,7 +1163,7 @@ package body MLib.Prj is
Close (FD);
- -- And invoke gnatbind with this this response file
+ -- And invoke gnatbind with this response file
Spawn (Gnatbind_Path.all, Args, Success);
diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads
index 75072e2..77f2a20 100644
--- a/gcc/ada/nlists.ads
+++ b/gcc/ada/nlists.ads
@@ -172,7 +172,7 @@ package Nlists is
function Prev (Node : Node_Id) return Node_Id;
pragma Inline (Prev);
- -- This function returns the previous node on a node list list, or Empty
+ -- This function returns the previous node on a node list, or Empty
-- if Node is the first element of the node list. The argument must be
-- a member of a node list. Note: the implementation does maintain back
-- pointers, so this function executes quickly in constant time.
diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads
index 542dc25..12b6ace 100644
--- a/gcc/ada/opt.ads
+++ b/gcc/ada/opt.ads
@@ -161,7 +161,7 @@ package Opt is
Assume_No_Invalid_Values : Boolean := True;
-- ??? true for now, enable by setting to false later
-- GNAT
- -- Normallly, in accordance with (RM 13.9.1 (9-11)) the front end assumes
+ -- Normally, in accordance with (RM 13.9.1 (9-11)) the front end assumes
-- that values could have invalid representations, unless it can clearly
-- prove that the values are valid. If this switch is set (by -gnatB or by
-- pragma Assume_No_Invalid_Values (Off)), then the compiler assumes values
diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb
index f433352..d90d27b 100644
--- a/gcc/ada/par-ch10.adb
+++ b/gcc/ada/par-ch10.adb
@@ -331,7 +331,7 @@ package body Ch10 is
-- A common error is to omit the body keyword after package. We can
-- often diagnose this early on (before getting loads of errors from
- -- contained subprogram bodies), by knowing that that the file we
+ -- contained subprogram bodies), by knowing that the file we
-- are compiling has a name that requires a body to be found.
Save_Scan_State (Scan_State);
diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb
index ddc7b61..57c5444 100644
--- a/gcc/ada/par-ch5.adb
+++ b/gcc/ada/par-ch5.adb
@@ -1067,7 +1067,7 @@ package body Ch5 is
-- scanned out and is in Prev_Token.
procedure Check_If_Column;
- -- An internal procedure used to check that THEN, ELSE ELSE, or ELSIF
+ -- An internal procedure used to check that THEN, ELSE, or ELSIF
-- appear in the right place if column checking is enabled (i.e. if
-- they are the first token on the line, then they must appear in
-- the same column as the opening IF).
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb
index a76ee25..2f9edeb 100644
--- a/gcc/ada/par.adb
+++ b/gcc/ada/par.adb
@@ -1105,7 +1105,7 @@ is
pragma Inline (Push_Scope_Stack);
-- Push a new entry onto the scope stack. Scope.Last (the stack pointer)
-- is incremented. The Junk field is preinitialized to False. The caller
- -- is expected to fill in all remaining entries of the new new top stack
+ -- is expected to fill in all remaining entries of the new top stack
-- entry at Scope.Table (Scope.Last).
procedure Pop_Scope_Stack;
diff --git a/gcc/ada/s-os_lib.ads b/gcc/ada/s-os_lib.ads
index b5f5548..6d00925 100755
--- a/gcc/ada/s-os_lib.ads
+++ b/gcc/ada/s-os_lib.ads
@@ -307,7 +307,7 @@ package System.OS_Lib is
Append);
-- If the target file exists, the contents of the source file is
-- appended at the end. Otherwise the source file is just copied. The
- -- time stamps and other file attributes are are preserved if the
+ -- time stamps and other file attributes are preserved if the
-- destination file does not exist.
type Attribute is
diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c
index 614a866..36a6b8e 100644
--- a/gcc/ada/s-oscons-tmplt.c
+++ b/gcc/ada/s-oscons-tmplt.c
@@ -243,7 +243,7 @@ CND(FNDELAY, "Nonblocking")
/*
----------------------
- -- Ioctl operatings --
+ -- Ioctl operations --
----------------------
*/
diff --git a/gcc/ada/s-parint.ads b/gcc/ada/s-parint.ads
index 2562b73..99eda8e 100644
--- a/gcc/ada/s-parint.ads
+++ b/gcc/ada/s-parint.ads
@@ -115,7 +115,7 @@ package System.Partition_Interface is
Version : String;
RCI : Boolean := True);
-- Use by the main subprogram to check that a remote receiver
- -- unit has has the same version than the caller's one.
+ -- unit has the same version than the caller's one.
function Same_Partition
(Left : not null access RACW_Stub_Type;
diff --git a/gcc/ada/s-regpat.ads b/gcc/ada/s-regpat.ads
index 077518d..0ab027c 100755
--- a/gcc/ada/s-regpat.ads
+++ b/gcc/ada/s-regpat.ads
@@ -404,7 +404,7 @@ package System.Regpat is
Expression : String;
Final_Code_Size : out Program_Size;
Flags : Regexp_Flags := No_Flags);
- -- Compile a regular expression into into internal code
+ -- Compile a regular expression into internal code
-- This procedure is significantly faster than the Compile function since
-- it avoids the extra step of precomputing the required size.
diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads
index 40089a3..584e253 100644
--- a/gcc/ada/s-shasto.ads
+++ b/gcc/ada/s-shasto.ads
@@ -91,7 +91,7 @@
-- set a new value to the shared variable and, according to the used
-- implementation, propagate this value among processes referencing it.
-- A call to this procedure is generated by the expander after each
--- assignement of the shared varible.
+-- assignment of the shared variable.
-- Note: a special circuit allows the use of stream attributes Read and
-- Write for limited types (using the corresponding attribute for the
diff --git a/gcc/ada/s-stausa.ads b/gcc/ada/s-stausa.ads
index 2aa9dd7..165f82d 100644
--- a/gcc/ada/s-stausa.ads
+++ b/gcc/ada/s-stausa.ads
@@ -107,7 +107,7 @@ package System.Stack_Usage is
-- appear as used in the final measure.
-- Strategy: As the user passes the value of the bottom of stack to
- -- the instrumentation to deal with the bottom offset error, and as as
+ -- the instrumentation to deal with the bottom offset error, and as
-- the instrumentation procedure knows where the pattern filling start
-- on the stack, the difference between the two values is the minimum
-- stack usage that the method can measure. If, when the results are
diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb
index 92d1a18..a193501 100644
--- a/gcc/ada/s-taprop-vms.adb
+++ b/gcc/ada/s-taprop-vms.adb
@@ -822,7 +822,7 @@ package body System.Task_Primitives.Operations is
begin
-- Since the initial signal mask of a thread is inherited from the
- -- creator, we need to set our local signal mask mask all signals
+ -- creator, we need to set our local signal mask to mask all signals
-- during the creation operation, to make sure the new thread is
-- not disturbed by signals before it has set its own Task_Id.
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb
index 20ac16e..32e9657 100644
--- a/gcc/ada/sem.adb
+++ b/gcc/ada/sem.adb
@@ -1339,7 +1339,7 @@ package body Sem is
Current_Sem_Unit := Get_Cunit_Unit_Number (Comp_Unit);
-- Compile predefined units with GNAT_Mode set to True, to properly
- -- process the categorization stuff. However, do not set set GNAT_Mode
+ -- process the categorization stuff. However, do not set GNAT_Mode
-- to True for the renamings units (Text_IO, IO_Exceptions, Direct_IO,
-- Sequential_IO) as this would prevent pragma Extend_System from being
-- taken into account, for example when Text_IO is renaming DEC.Text_IO.
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb
index 6331c04..cbdda92 100644
--- a/gcc/ada/sem_ch10.adb
+++ b/gcc/ada/sem_ch10.adb
@@ -1292,7 +1292,7 @@ package body Sem_Ch10 is
-- the implicit with's on parent units.
-- Skip use clauses at this stage, since we don't want to do any
- -- installing of potentially use visible entities until we we
+ -- installing of potentially use visible entities until we
-- actually install the complete context (in Install_Context).
-- Otherwise things can get installed in the wrong context.
diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb
index 2be7470..b4adf70 100644
--- a/gcc/ada/sem_ch11.adb
+++ b/gcc/ada/sem_ch11.adb
@@ -185,8 +185,7 @@ package body Sem_Ch11 is
-- scope for visibility purposes. We create an entity to denote
-- the whole exception part, and use it as the scope of all the
-- choices, which may even have the same name without conflict.
- -- This scope plays no other role in expansion or or code
- -- generation.
+ -- This scope plays no other role in expansion or code generation.
Choice := Choice_Parameter (Handler);
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index c956e7c..549d5b4 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -896,8 +896,8 @@ package body Sem_Ch12 is
Num_Actuals : Int := 0;
Others_Present : Boolean := False;
- -- In Ada 2005, indicates partial parametrization of of a formal
- -- package. As usual an others association must be last in the list.
+ -- In Ada 2005, indicates partial parametrization of a formal
+ -- package. As usual an other association must be last in the list.
function Matching_Actual
(F : Entity_Id;
@@ -9564,7 +9564,7 @@ package body Sem_Ch12 is
Abandon_Instantiation (Actual);
end if;
- -- This case should be caught by the earlier check for for
+ -- This case should be caught by the earlier check for
-- constrainedness, but the check here is added for completeness.
elsif Has_Discriminants (Act_T)
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 0de30eb..d9b626f 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -420,7 +420,7 @@ package body Sem_Ch13 is
-- 1 .. 4 3 .. 6 1 3
-- 4 .. 7 0 .. 3 4 0
- -- The general rule is that the first bit is is obtained by
+ -- The general rule is that the first bit is obtained by
-- subtracting the old ending bit from machine scalar size - 1.
for C in Start .. Stop loop
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 18538c8..9490c88 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -765,7 +765,7 @@ package body Sem_Ch3 is
-- If the current scope is a protected type, the anonymous access
-- is associated with one of the protected operations, and must
-- be available in the scope that encloses the protected declaration.
- -- Otherwise the type is is in the scope enclosing the subprogram.
+ -- Otherwise the type is in the scope enclosing the subprogram.
if Ekind (Current_Scope) = E_Protected_Type then
Anon_Scope := Scope (Scope (Defining_Entity (Related_Nod)));
@@ -1121,7 +1121,7 @@ package body Sem_Ch3 is
-- A bit of a kludge here. These kludges will be removed when Itypes
-- have proper parent pointers to their declarations???
- -- Kludge 1) Link definining_identifier of formals. Required by
+ -- Kludge 1) Link defining_identifier of formals. Required by
-- First_Formal to provide its functionality.
declare
@@ -1993,7 +1993,7 @@ package body Sem_Ch3 is
End_Scope;
- -- If the type has discriminants, non-trivial subtypes may be be
+ -- If the type has discriminants, non-trivial subtypes may be
-- declared before the full view of the type. The full views of those
-- subtypes will be built after the full view of the type.
@@ -15724,7 +15724,7 @@ package body Sem_Ch3 is
-- Ada 2005 (AI-251): If the parent of the private type declaration
-- is an interface there is no need to check that it is an ancestor
-- of the associated full type declaration. The required tests for
- -- this case case are performed by Build_Derived_Record_Type.
+ -- this case are performed by Build_Derived_Record_Type.
elsif not Is_Interface (Base_Type (Priv_Parent))
and then not Is_Ancestor (Base_Type (Priv_Parent), Full_Parent)
@@ -15960,7 +15960,7 @@ package body Sem_Ch3 is
Prim_Elmt := First_Elmt (Priv_List);
-- In the case of a concurrent type completing a private tagged
- -- type, primivies may have been declared in between the two
+ -- type, primitives may have been declared in between the two
-- views. These subprograms need to be wrapped the same way
-- entries and protected procedures are handled because they
-- cannot be directly shared by the two views.
diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads
index 89b85fe..076966a 100644
--- a/gcc/ada/sem_ch3.ads
+++ b/gcc/ada/sem_ch3.ads
@@ -180,7 +180,7 @@ package Sem_Ch3 is
-- attributes of a class wide type are inherited from those of the type T.
-- If T is introduced by a private declaration, the corresponding class
-- wide type is created at the same time, and therefore there is a private
- -- and a full declaration for the class wide type type as well.
+ -- and a full declaration for the class wide type as well.
function OK_For_Limited_Init_In_05 (Exp : Node_Id) return Boolean;
-- Presuming Exp is an expression of an inherently limited type, returns
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 19afc8d..47fd4e6 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -499,7 +499,7 @@ package body Sem_Ch4 is
Check_Fully_Declared (Type_Id, N);
-- Ada 2005 (AI-231): If the designated type is itself an access
- -- type that excludes null, it's default initializastion will
+ -- type that excludes null, its default initialization will
-- be a null object, and we can insert an unconditional raise
-- before the allocator.
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 9a319d9..a2a5078 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -1602,7 +1602,7 @@ package body Sem_Ch6 is
-- Note that wrappers already have their corresponding specs and
-- bodies set during their creation, so if the candidate spec is
- -- a wrapper, then we definately need to swap all types to their
+ -- a wrapper, then we definitely need to swap all types to their
-- original concurrent status.
if No (Spec_N)
@@ -5098,7 +5098,7 @@ package body Sem_Ch6 is
end if;
-- If this is a derived subprogram then the subtypes of the parent
- -- subprogram's formal parameters will be used to to determine the need
+ -- subprogram's formal parameters will be used to determine the need
-- for extra formals.
if Is_Overloadable (E) and then Present (Alias (E)) then
diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb
index ef9a654..46cd938 100644
--- a/gcc/ada/sem_ch7.adb
+++ b/gcc/ada/sem_ch7.adb
@@ -2115,7 +2115,7 @@ package body Sem_Ch7 is
then
if not Has_Private_Declaration (Etype (Id)) then
- -- We assume that the user did not not intend a deferred
+ -- We assume that the user did not intend a deferred
-- constant declaration, and the expression is just missing.
Error_Msg_N
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 96eac0e..3e231f6 100644
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -2063,7 +2063,7 @@ package body Sem_Ch8 is
Check_Frozen_Renaming (N, Rename_Spec);
-- Check explicitly that renamed entity is not intrinsic, because
- -- in in a generic the renamed body is not built. In this case,
+ -- in a generic the renamed body is not built. In this case,
-- the renaming_as_body is a completion.
if Inside_A_Generic then
@@ -4803,7 +4803,7 @@ package body Sem_Ch8 is
end if;
-- Operator is visible if prefix of expanded name denotes
- -- scope of type, or else type type is defined in System_Aux
+ -- scope of type, or else type is defined in System_Aux
-- and the prefix denotes System.
return Scope (Btyp) = Scop
diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb
index f146123..2badebb 100644
--- a/gcc/ada/sem_elim.adb
+++ b/gcc/ada/sem_elim.adb
@@ -476,7 +476,7 @@ package body Sem_Elim is
end loop;
-- Find last non-space before this colon. If there
- -- is no no space character before this colon, then
+ -- is no space character before this colon, then
-- return False. Otherwise, End_Idx set to point to
-- this non-space character.
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index e2d02ae..065cb97 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -3096,7 +3096,7 @@ package body Sem_Prag is
return;
end if;
- -- Import pragmas must be be for imported entities
+ -- Import pragmas must be for imported entities
if Prag_Id = Pragma_Import_Function
or else
@@ -3395,7 +3395,7 @@ package body Sem_Prag is
Process_Interface_Name (Def_Id, Arg3, Arg4);
-- Note that we do not set Is_Public here. That's because we
- -- only want to set if if there is no address clause, and we
+ -- only want to set it if there is no address clause, and we
-- don't know that yet, so we delay that processing till
-- freeze time.
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 83c3f4b..82dca56 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -8053,7 +8053,7 @@ package body Sem_Util is
return Object_Access_Level (Expression (Obj));
-- Function results are objects, so we get either the access level of
- -- the function or, in the case of an indirect call, the level of of the
+ -- the function or, in the case of an indirect call, the level of the
-- access-to-subprogram type.
elsif Nkind (Obj) = N_Function_Call then
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index a8f7fc8..ce6d4bd 100644
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -457,7 +457,7 @@ package Sem_Util is
-- Given an entity for an exception, package, subprogram or generic unit,
-- returns the ultimately renamed entity if this is a renaming. If this is
-- not a renamed entity, returns its argument. It is an error to call this
- -- with any any other kind of entity.
+ -- with any other kind of entity.
function Get_Subprogram_Entity (Nod : Node_Id) return Entity_Id;
-- Nod is either a procedure call statement, or a function call, or
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index feb19ce..c29c625 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -1025,7 +1025,7 @@ package body Sem_Warn is
-- Suppress warning if private type, and the procedure
-- has a separate declaration in a different unit. This
-- is the case where the client of a package sees only
- -- the private type, and it it may be quite reasonable
+ -- the private type, and it may be quite reasonable
-- for the logical view to be in out, even if the
-- implementation ends up using access types or some
-- other method to achieve the local effect of a
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads
index 29404b2..ddf5c1f 100644
--- a/gcc/ada/sinfo.ads
+++ b/gcc/ada/sinfo.ads
@@ -1392,7 +1392,7 @@ package Sinfo is
-- is undefined and should not be read).
-- No_Ctrl_Actions (Flag7-Sem)
- -- Present in N_Assignment_Statement to indicate that no finalize nor nor
+ -- Present in N_Assignment_Statement to indicate that no finalize nor
-- adjust should take place on this assignment even though the rhs is
-- controlled. This is used in init procs and aggregate expansions where
-- the generated assignments are more initialisations than real
@@ -1592,7 +1592,7 @@ package Sinfo is
-- and N_Extended_Return_Statement nodes. References the entity for the
-- storage pool to be used for the allocate or free call or for the
-- allocation of the returned value from function. Empty indicates that
- -- the global default default pool is to be used. Note that in the case
+ -- the global default pool is to be used. Note that in the case
-- of a return statement, this field is set only if the function returns
-- value of a type whose size is not known at compile time on the
-- secondary stack.
diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb
index f22c828..f54ab35 100644
--- a/gcc/ada/styleg.adb
+++ b/gcc/ada/styleg.adb
@@ -967,7 +967,7 @@ package body Styleg is
-- Non_Lower_Case_Keyword --
----------------------------
- -- In check casing mode (-gnatyk), reserved keywords must be be spelled
+ -- In check casing mode (-gnatyk), reserved keywords must be spelled
-- in all lower case (excluding keywords range, access, delta and digits
-- used as attribute designators).
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index b302791..446f7cb 100644
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -780,7 +780,7 @@ package VMS_Data is
-- /ERROR_LIMIT=nnn
--
-- NNN is a decimal integer in the range of 1 to 1000 and limits the
- -- number of diagnostic messages to be generated into Stdoutto that
+ -- number of diagnostic messages to be generated into Stdout to that
-- number. Once that number has been reached, gnatcheck stops
-- to print out diagnoses into Stderr. If NNN is equal to 0, this means
-- that there is no limit on the number of diagnoses in Stdout
@@ -4878,8 +4878,8 @@ package VMS_Data is
--
-- Specifies the syntax element metrics to be computed (if at least one
-- positive syntax element metric, line metric, complexity or coupling
- -- metric is specified then only explicitly specified specified syntax
- -- element metrics are computed and reported)
+ -- metric is specified then only explicitly specified syntax element
+ -- metrics are computed and reported)
--
-- option may be one of the following:
--
@@ -5012,8 +5012,8 @@ package VMS_Data is
-- Specifies the line metrics to be computed (if at least one positive
-- syntax element metric, line metric, complexity or coupling metric is
- -- specified then only explicitly specified specified line metrics are
- -- computed and reported)
+ -- specified then only explicitly specified line metrics are computed
+ -- and reported)
--
-- option may be one of the following:
--
@@ -5067,8 +5067,8 @@ package VMS_Data is
-- Specifies the complexity metrics to be computed (if at least one
-- positive syntax element metric, line metric, complexity or coupling
- -- metric is specified then only explicitly specified specified complexity
- -- metrics are computed and reported)
+ -- metric is specified then only explicitly specified complexity metrics
+ -- are computed and reported)
--
-- option may be one of the following:
--