[PATCH, Ada] another round of typos
Ralf Wildenhues
Ralf.Wildenhues@gmx.de
Sun Jun 1 09:28:00 GMT 2008
This patch fixes typos I found in the last five weeks of changes to
gcc/ada. Note that the patch contains several non-comment typos.
(Kudos to 'git reflog' and 'git diff' for making it easy to track
changes since the last check.)
bootstrap and regtest on i686-pc-linux-gnu are running. OK for trunk if
they succeed?
Does this patch need testing on w32, and if yes, can somebody do it
for me, and how come the Makefile.in typos were not found earlier?
Is the change in vms_data.ads right?
Thanks,
Ralf
gcc/ada/ChangeLog:
2008-06-01 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* Makefile.in (common_tools): Fix typos in $(exeext) extension.
* gnat_ugn.texi (Style Checking)
(Adding the Results of Compiler Checks to gnatcheck Output)
(Example of Binder Output File): Fix typos.
* ali.ads, einfo.ads, exp_ch4.adb, exp_ch6.adb,
exp_dbug.ads, exp_dist.adb, exp_smem.adb, g-socket.ads,
s-osinte-rtems.ads, s-shasto.ads, s-stausa.adb,
s-stausa.ads, sem_cat.adb, sem_ch12.adb, sem_ch3.adb,
sem_ch4.adb, sem_ch6.adb, sem_ch8.adb, sem_util.ads,
sinfo.ads, utils.c: Fix typos in comments.
* sem_ch6.adb, vms_data.ads: Fix typos in strings.
diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in
index 4fc101a..9ffc02e 100644
--- a/gcc/ada/Makefile.in
+++ b/gcc/ada/Makefile.in
@@ -1781,23 +1781,23 @@ common-tools:
--GNATBIND="$(GNATBIND)" --GCC="$(CC) $(ALL_ADAFLAGS)" \
gnatchop gnatcmd gnatkr gnatls gnatprep gnatxref gnatfind gnatname \
gnatclean -bargs $(ADA_INCLUDES) $(GNATBIND_FLAGS)
- $(GNATLINK) -v gnatcmd -o ../../gnat$(exext) \
+ $(GNATLINK) -v gnatcmd -o ../../gnat$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatchop -o ../../gnatchop$(exext) \
+ $(GNATLINK) -v gnatchop -o ../../gnatchop$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatkr -o ../../gnatkr$(exext) \
+ $(GNATLINK) -v gnatkr -o ../../gnatkr$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatls -o ../../gnatls$(exext) \
+ $(GNATLINK) -v gnatls -o ../../gnatls$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatprep -o ../../gnatprep$(exext) \
+ $(GNATLINK) -v gnatprep -o ../../gnatprep$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatxref -o ../../gnatxref$(exext) \
+ $(GNATLINK) -v gnatxref -o ../../gnatxref$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatfind -o ../../gnatfind$(exext) \
+ $(GNATLINK) -v gnatfind -o ../../gnatfind$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatname -o ../../gnatname$(exext) \
+ $(GNATLINK) -v gnatname -o ../../gnatname$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
- $(GNATLINK) -v gnatclean -o ../../gnatclean$(exext) \
+ $(GNATLINK) -v gnatclean -o ../../gnatclean$(exeext) \
--GCC="$(GCC_LINK)" $(TOOLS_LIBS)
../../gnatsym$(exeext):
diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads
index dd3b6cd..3e95595 100644
--- a/gcc/ada/ali.ads
+++ b/gcc/ada/ali.ads
@@ -444,7 +444,7 @@ package ALI is
Float_Format_Specified : Character := ' ';
-- Set to blank by Initialize_ALI. Set to appropriate float format
- -- character (V or I, see Opt.Float_Format) if an an ali file that
+ -- character (V or I, see Opt.Float_Format) if an ali file that
-- is read contains an F line setting the floating point format.
Initialize_Scalars_Used : Boolean := False;
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index c0377a5..41d53c0 100644
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -2602,7 +2602,7 @@ package Einfo is
-- Is_Remote_Call_Interface (Flag62)
-- Present in all entities. Set in E_Package and E_Generic_Package
--- entities to which a pragma Remote_Call_Interace is applied, and
+-- entities to which a pragma Remote_Call_Interface is applied, and
-- also on entities declared in the visible part of such a package.
-- Is_Remote_Types (Flag61)
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 2d275a9..798da67 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -2422,7 +2422,7 @@ package body Exp_Ch4 is
begin
-- If the index type is an enumeration type, the computation can be
-- done in standard integer. Otherwise, choose a large enough integer
- -- type to accomodate the index type computation.
+ -- type to accommodate the index type computation.
if Is_Enumeration_Type (Ind_Typ)
or else Root_Type (Ind_Typ) = Standard_Integer
@@ -5947,7 +5947,7 @@ package body Exp_Ch4 is
-- the mod value is always 0, and we can just ignore the left operand
-- completely in this case.
- -- 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 3afb769..cddc021 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -3839,7 +3839,7 @@ package body Exp_Ch6 is
Make_Defining_Identifier (Loc, New_Internal_Name ('C'));
Set_Is_Internal (Temp);
- -- For the unconstrained case. the generated temporary has the
+ -- For the unconstrained case, the generated temporary has the
-- same constrained declaration as the result variable.
-- It may eventually be possible to remove that temporary and
-- use the result variable directly.
@@ -3967,7 +3967,7 @@ package body Exp_Ch6 is
-- If the return value of a foreign compiled function is
-- VAX Float then expand the return (adjusts the location
- -- of the return value on Alpha/VMS, noop everywere else).
+ -- of the return value on Alpha/VMS, noop everywhere else).
-- Comes_From_Source intercepts recursive expansion.
if Vax_Float (Etype (N))
diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads
index 9a9d537..2f8b322 100644
--- a/gcc/ada/exp_dbug.ads
+++ b/gcc/ada/exp_dbug.ads
@@ -358,7 +358,7 @@ package Exp_Dbug is
-- the protected/non-locking version of the operation.
-- Operations generated for protected entries follow the same encoding.
- -- Each entry results in two suprograms: a procedure that holds the
+ -- Each entry results in two subprograms: a procedure that holds the
-- entry body, and a function that holds the evaluation of the barrier.
-- The names of these subprograms include the prefix '_E' or '_B' res-
-- pectively. The names also include a numeric suffix to render them
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 973948c..c222392 100644
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -3087,7 +3087,7 @@ package body Exp_Dist is
Set_Etype (Stubbed_Result, Stub_Type_Access);
-- If the Address is Null_Address, then return a null object, unless
- -- RACW_Type is null-excluding, in which case inconditionally raise
+ -- RACW_Type is null-excluding, in which case unconditionally raise
-- CONSTRAINT_ERROR instead.
declare
diff --git a/gcc/ada/exp_smem.adb b/gcc/ada/exp_smem.adb
index 0e3fc23..60d1385 100644
--- a/gcc/ada/exp_smem.adb
+++ b/gcc/ada/exp_smem.adb
@@ -300,7 +300,7 @@ package body Exp_Smem is
-- with Ent.
Instantiation : Node_Id;
- -- Package instanciation node for SVP_Instance
+ -- Package instantiation node for SVP_Instance
-- Start of processing for Make_Shared_Var_Procs
@@ -308,7 +308,7 @@ package body Exp_Smem is
Build_Full_Name (Ent, Vnm);
-- We turn off Shared_Passive during construction and analysis of
- -- the generic package instantition, to avoid improper attempts to
+ -- the generic package instantiation, to avoid improper attempts to
-- process the variable references within these instantiation.
Set_Is_Shared_Passive (Ent, False);
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads
index 7ebf243..58255f0 100644
--- a/gcc/ada/g-socket.ads
+++ b/gcc/ada/g-socket.ads
@@ -788,7 +788,7 @@ package GNAT.Sockets is
Status : out Selector_Status);
-- Accept a new connection on Server using Accept_Socket, waiting no longer
-- than the given timeout duration. Status is set to indicate whether the
- -- operation completed successully, timed out, or was aborted. If Selector
+ -- operation completed successfully, timed out, or was aborted. If Selector
-- is not null, the designated selector is used to wait for the socket to
-- become available, else a private selector object is created by this
-- procedure and destroyed before it returns.
@@ -816,7 +816,7 @@ package GNAT.Sockets is
Status : out Selector_Status);
-- Connect Socket to the given Server address using Connect_Socket, waiting
-- no longer than the given timeout duration. Status is set to indicate
- -- whether the operation completed successully, timed out, or was aborted.
+ -- whether the operation completed successfully, timed out, or was aborted.
-- If Selector is not null, the designated selector is used to wait for the
-- socket to become available, else a private selector object is created
-- by this procedure and destroyed before it returns.
@@ -1049,7 +1049,7 @@ package GNAT.Sockets is
-- it is used in the visible part of GNAT.Sockets.Thin_Common. This is
-- really an inversion of abstraction. The private part of GNAT.Sockets
-- needs to have visibility on this type, but since Thin_Common is a child
- -- of Sokcets, the type can't be declared there. The correct fix would
+ -- of Sockets, the type can't be declared there. The correct fix would
-- be to move the thin sockets binding outside of GNAT.Sockets altogether,
-- e.g. by renaming it to GNAT.Sockets_Thin.
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi
index d40d0e8..2aac8e8 100644
--- a/gcc/ada/gnat_ugn.texi
+++ b/gcc/ada/gnat_ugn.texi
@@ -6134,7 +6134,7 @@ use @option{L} parameter witout any integer value after that, because any
digit following @option{-} in the parameter string of the @option{-gnaty}
option will be threated as canceling indentation check. The same is true
for @option{M} parameter. @option{y} and @option{N} parameters are not
-alloved after @option{-}.
+allowed after @option{-}.
@item +
This causes any subsequent options in the string to enable the corresponding
@@ -20401,7 +20401,7 @@ gnat_rm, GNAT Reference Manual}). Note, that in case of gnatcheck
's' parameter, that corresponds to the GNAT @option{-gnatws} option, disables
all the specific warnings, but not suppresses the warning mode,
and 'e' parameter, corresponding to @option{-gnatwe} that means
-"therat warnings as errors", does not have any effect.
+"treat warnings as errors", does not have any effect.
@end table
@@ -26224,7 +26224,7 @@ package body ada_main is
-- a-except.ads/adb for full details of how zero cost
-- exception handling works. This procedure, the call to
-- it, and the two following tables are all omitted if the
- -- build is in longjmp/setjump exception mode.
+ -- build is in longjmp/setjmp exception mode.
@findex SDP_Table_Build
@findex Zero Cost Exceptions
@@ -26299,7 +26299,7 @@ package body ada_main is
-- Call SDP_Table_Build to build the top level procedure
-- table for zero cost exception handling (omitted in
- -- longjmp/setjump mode).
+ -- longjmp/setjmp mode).
SDP_Table_Build (ST'Address, 23, EA'Address, 23);
diff --git a/gcc/ada/s-osinte-rtems.ads b/gcc/ada/s-osinte-rtems.ads
index 8d5483b..6d28ec5 100644
--- a/gcc/ada/s-osinte-rtems.ads
+++ b/gcc/ada/s-osinte-rtems.ads
@@ -146,7 +146,7 @@ package System.OS_Interface is
SA_SIGINFO : constant := 16#02#;
SA_ONSTACK : constant := 16#00#;
- -- SA_ONSTACK is not defined on RTEMS, but it is refered to in the POSIX
+ -- SA_ONSTACK is not defined on RTEMS, but it is referred to in the POSIX
-- implementation of System.Interrupt_Management. Therefore we define a
-- dummy value of zero here so that setting this flag is a nop.
diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads
index 8046fd5..2fd0341 100644
--- a/gcc/ada/s-shasto.ads
+++ b/gcc/ada/s-shasto.ads
@@ -79,7 +79,7 @@
-- The approach is as follows:
--- For each shared variable, var, an instanciation of the below generic
+-- For each shared variable, var, an instantiation of the below generic
-- package is created which provides Read and Write supporting procedures.
-- The routine Shared_Var_ROpen in package System.Shared_Storage
@@ -214,7 +214,7 @@ package System.Shared_Storage is
-- the shared storage.
procedure Write;
- -- Shared passive variable assignement routine. Each assignment to
+ -- Shared passive variable assignment routine. Each assignment to
-- the shared variable, V, is followed by a call to the corresponding
-- Write procedure, which writes the new value to the shared storage.
diff --git a/gcc/ada/s-stausa.adb b/gcc/ada/s-stausa.adb
index 07668da..700c685 100644
--- a/gcc/ada/s-stausa.adb
+++ b/gcc/ada/s-stausa.adb
@@ -261,7 +261,7 @@ package body System.Stack_Usage is
Current_Stack_Level : aliased Integer;
begin
- -- Reajust the pattern size. When we arrive in this function, there is
+ -- Readjust the pattern size. When we arrive in this function, there is
-- already a given amount of stack used, that we won't analyze.
Analyzer.Stack_Used_When_Filling :=
diff --git a/gcc/ada/s-stausa.ads b/gcc/ada/s-stausa.ads
index 7c500bf..8a6e2b6 100644
--- a/gcc/ada/s-stausa.ads
+++ b/gcc/ada/s-stausa.ads
@@ -216,7 +216,7 @@ package System.Stack_Usage is
-- Max_Pattern_Size is the size of the pattern zone, might be smaller than
-- the full stack size in order to take into account e.g. the secondary
-- stack and a guard against overflow. The actual size taken will be
- -- reajusted with data already used at the time the stack is actually
+ -- readjusted with data already used at the time the stack is actually
-- filled.
Is_Enabled : Boolean := False;
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb
index 3e4a036..367f255 100644
--- a/gcc/ada/sem_cat.adb
+++ b/gcc/ada/sem_cat.adb
@@ -1394,7 +1394,7 @@ package body Sem_Cat is
elsif Ekind (Param_Type) = E_Anonymous_Access_Type
or else Ekind (Param_Type) = E_Anonymous_Access_Subprogram_Type
then
- -- From RM E.2.2(14), no anonumous access parameter other than
+ -- From RM E.2.2(14), no anonymous access parameter other than
-- controlling ones may be used (because an anonymous access
-- type never supports external streaming).
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 4a7c91f..cae8409 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -454,7 +454,7 @@ package body Sem_Ch12 is
Inst : Node_Id) return Boolean;
-- True if the instantiation Inst and the given freeze_node F_Node appear
-- within the same declarative part, ignoring subunits, but with no inter-
- -- vening suprograms or concurrent units. If true, the freeze node
+ -- vening subprograms or concurrent units. If true, the freeze node
-- of the instance can be placed after the freeze node of the parent,
-- which it itself an instance.
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index f0065b7..b6ccb60 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -11339,7 +11339,7 @@ package body Sem_Ch3 is
and then Is_Tagged_Type (Tagged_Type)
and then Has_Interfaces (Tagged_Type));
- -- Step 1: Transfer to the full-view primitives asociated with the
+ -- Step 1: Transfer to the full-view primitives associated with the
-- partial-view that cover interface primitives. Conceptually this
-- work should be done later by Process_Full_View; done here to
-- simplify its implementation at later stages. It can be safely
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index b59cd4b..e14fb43 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -2246,7 +2246,7 @@ package body Sem_Ch4 is
end if;
-- If the call has been transformed into a slice, it is of the form
- -- F (Subtype) where F is paramterless. The node has ben rewritten in
+ -- F (Subtype) where F is parameterless. The node has been rewritten in
-- Try_Indexed_Call and there is nothing else to do.
if Is_Indexed
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 640a20d..c15fbea 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -1370,7 +1370,7 @@ package body Sem_Ch6 is
Plist : List_Id;
function Is_Inline_Pragma (N : Node_Id) return Boolean;
- -- True when N is a pragma Inline or Inline_Awlays that applies
+ -- True when N is a pragma Inline or Inline_Always that applies
-- to this subprogram.
-----------------------
@@ -3555,7 +3555,7 @@ package body Sem_Ch6 is
if not Is_Overriding_Operation (Op) then
Error_Msg_N ("\\primitive % defined #", Typ);
else
- Error_Msg_N ("\\overridding operation % with " &
+ Error_Msg_N ("\\overridden operation % with " &
"convention % defined #", Typ);
end if;
diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 6ebb647..c5edce6 100644
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -1729,7 +1729,7 @@ package body Sem_Ch8 is
then
-- Input stream functions are abstract if the object type is
-- abstract. Similarly, all default stream functions for an
- -- interface type are abstract. However, these suprograms may
+ -- interface type are abstract. However, these subprograms may
-- receive explicit declarations in representation clauses, making
-- the attribute subprograms usable as defaults in subsequent
-- type extensions.
@@ -3851,7 +3851,7 @@ package body Sem_Ch8 is
Only_One_Visible := False;
All_Overloadable := All_Overloadable and Is_Overloadable (E2);
- -- Ada 2005 (AI-262): Protect against a form of Beujolais effect
+ -- Ada 2005 (AI-262): Protect against a form of Beaujolais effect
-- that can occur in private_with clauses. Example:
-- with A;
diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads
index bbd4c86..64d5cfb 100644
--- a/gcc/ada/sem_util.ads
+++ b/gcc/ada/sem_util.ads
@@ -942,8 +942,8 @@ package Sem_Util is
-- Returns True if the names of both entities correspond with matching
-- primitives. This routine includes support for the case in which one
-- or both entities correspond with entities built by Derive_Subprogram
- -- with a special name to avoid being overriden (ie. return true in case
- -- of entities with names "nameP" and "name" or viceversa).
+ -- with a special name to avoid being overridden (i.e. return true in case
+ -- of entities with names "nameP" and "name" or vice versa).
function Private_Component (Type_Id : Entity_Id) return Entity_Id;
-- Returns some private component (if any) of the given Type_Id.
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads
index c2043b1..29404b2 100644
--- a/gcc/ada/sinfo.ads
+++ b/gcc/ada/sinfo.ads
@@ -3266,7 +3266,7 @@ package Sinfo is
-- to Ada 2005 (AI-287).
----------------------------------
- -- 4.3.1 Cmmponent Choice List --
+ -- 4.3.1 Component Choice List --
----------------------------------
-- COMPONENT_CHOICE_LIST ::=
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c
index 8dd445f..4d10940 100644
--- a/gcc/ada/utils.c
+++ b/gcc/ada/utils.c
@@ -95,7 +95,7 @@ static tree handle_type_generic_attribute (tree *, tree, tree, int, bool *);
static tree fake_attribute_handler (tree *, tree, tree, int, bool *);
/* Table of machine-independent internal attributes for Ada. We support
- this minimal set ot attributes to accomodate the needs of builtins. */
+ this minimal set of attributes to accommodate the needs of builtins. */
const struct attribute_spec gnat_internal_attribute_table[] =
{
/* { name, min_len, max_len, decl_req, type_req, fn_type_req, handler } */
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index 545080f..3270e8f 100644
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -6601,7 +6601,7 @@ package VMS_Data is
--
-- Output the execution time
- S_Sync_Details : aliased constant S := "/DETAILs=" &
+ S_Sync_Details : aliased constant S := "/DETAILS=" &
"MEDIUM " &
"-om " &
"SHORT " &
More information about the Gcc-patches
mailing list