aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--gcc/ada/ChangeLog14
-rw-r--r--gcc/ada/Makefile.in18
-rw-r--r--gcc/ada/ali.ads2
-rw-r--r--gcc/ada/einfo.ads2
-rw-r--r--gcc/ada/exp_ch4.adb4
-rw-r--r--gcc/ada/exp_ch6.adb4
-rw-r--r--gcc/ada/exp_dbug.ads2
-rw-r--r--gcc/ada/exp_dist.adb2
-rw-r--r--gcc/ada/exp_smem.adb4
-rw-r--r--gcc/ada/g-socket.ads6
-rw-r--r--gcc/ada/gnat_ugn.texi8
-rw-r--r--gcc/ada/s-osinte-rtems.ads2
-rw-r--r--gcc/ada/s-shasto.ads4
-rw-r--r--gcc/ada/s-stausa.adb2
-rw-r--r--gcc/ada/s-stausa.ads2
-rw-r--r--gcc/ada/sem_cat.adb2
-rw-r--r--gcc/ada/sem_ch12.adb2
-rw-r--r--gcc/ada/sem_ch3.adb2
-rw-r--r--gcc/ada/sem_ch4.adb2
-rw-r--r--gcc/ada/sem_ch6.adb4
-rw-r--r--gcc/ada/sem_ch8.adb4
-rw-r--r--gcc/ada/sem_util.ads4
-rw-r--r--gcc/ada/sinfo.ads2
-rw-r--r--gcc/ada/utils.c2
-rw-r--r--gcc/ada/vms_data.ads2
25 files changed, 58 insertions, 44 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 48aee98..246f6fc 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,17 @@
+2008-06-03 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.
+
2008-05-29 Thomas Quinot <quinot@adacore.com>
* sem_eval.adb: Minor reformatting
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..0116a83 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 ("\\overriding 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 " &
generated by cgit v1.1 at 2024-11-03 19:29:06 +0000