diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9a2e07f8d9a..703721bb286 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,40 @@ +2008-03-30 Ralf Wildenhues + + * a-textio.ads, a-witeio.ads, a-ztexio.ads, ali.ads, + einfo.ads, erroutc.adb, erroutc.ads, exp_attr.adb, + exp_imgv.adb, exp_intr.adb, exp_pakd.adb, + exp_pakd.ads, exp_prag.adb, exp_smem.adb, + exp_tss.ads, exp_util.adb, exp_util.ads, + exp_vfpt.adb, freeze.adb, freeze.ads, + frontend.adb, g-alleve.adb, g-altcon.adb, + g-altive.ads, g-alveop.ads, g-alvevi.ads, + g-arrspl.adb, g-busorg.ads, g-calend.adb, + g-calend.ads, g-casuti.ads, g-cgideb.adb, + g-comlin.adb, g-comlin.ads, g-curexc.ads, + g-debpoo.adb, g-debpoo.ads, g-decstr.adb, + g-dirope.adb, g-dirope.ads, g-dynhta.ads, + g-dyntab.adb, g-encstr.ads, g-excact.ads, + g-except.ads, g-expect.ads, g-heasor.adb, + g-hesora.adb, g-hesorg.adb, g-htable.ads, + g-locfil.ads, g-md5.adb, g-md5.ads, + g-memdum.ads, g-moreex.ads, g-os_lib.adb, + g-pehage.adb, g-pehage.ads, g-regexp.adb, + g-regexp.ads, g-regpat.adb, g-regpat.ads, + g-soccon-aix.ads, g-soccon-darwin.ads, + g-soccon-freebsd.ads, g-soccon-hpux-ia64.ads, + g-soccon-hpux.ads, g-soccon-irix.ads, + g-soccon-linux-64.ads, g-soccon-linux-ppc.ads, + g-soccon-linux-x86.ads, g-soccon-lynxos.ads, + g-soccon-mingw.ads, g-soccon-solaris-64.ads, + g-soccon-solaris.ads, g-soccon-tru64.ads, + g-soccon-vms.ads, g-soccon-vxworks.ads, + g-soccon.ads, g-socket.adb, g-socket.ads, + g-socthi-mingw.adb, g-socthi-vms.adb, + g-socthi-vxworks.adb, g-soliop-mingw.ads, + g-soliop-solaris.ads, g-soliop.ads, g-spipat.adb, + g-spipat.ads, g-string.adb, g-stsifd-sockets.adb: Fix comment + typos. + 2008-03-27 Eric Botcazou * decl.c (gnat_to_gnu_entity) : Also set the public flag diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index 8e3926479d5..45f422f7bf1 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -317,7 +317,7 @@ private -- omitted on output unless an explicit New_Page call is made before -- closing the file. No page mark is added when a file is appended to, -- so, in accordance with the permission in (RM A.10.2(4)), there may - -- or may not be a page mark separating preexising text in the file + -- or may not be a page mark separating preexisting text in the file -- from the new text to be written. -- A file mark is marked by the physical end of file. In DOS translation @@ -354,7 +354,7 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Ouput} functions which return + -- implement the Current_{Error,Input,Output} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads index b7d06ea8732..0ea32ce2b0c 100644 --- a/gcc/ada/a-witeio.ads +++ b/gcc/ada/a-witeio.ads @@ -138,7 +138,7 @@ package Ada.Wide_Text_IO is -- Buffer control -- -------------------- - -- Note: The paramter file is in out in the RM, but as pointed out + -- Note: The parameter file is in out in the RM, but as pointed out -- in <<95-5166.a Tucker Taft 95-6-23>> this is clearly an oversight. procedure Flush (File : File_Type); @@ -319,7 +319,7 @@ private -- omitted on output unless an explicit New_Page call is made before -- closing the file. No page mark is added when a file is appended to, -- so, in accordance with the permission in (RM A.10.2(4)), there may - -- or may not be a page mark separating preexising text in the file + -- or may not be a page mark separating preexisting text in the file -- from the new text to be written. -- A file mark is marked by the physical end of file. In DOS translation @@ -352,12 +352,12 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Ouput} functions which return + -- implement the Current_{Error,Input,Output} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. Before_LM : Boolean := False; - -- This flag is used to deal with the anomolies introduced by the + -- This flag is used to deal with the anomalies introduced by the -- peculiar definition of End_Of_File and End_Of_Page in Ada. These -- functions require looking ahead more than one character. Since -- there is no convenient way of backing up more than one character, diff --git a/gcc/ada/a-ztexio.ads b/gcc/ada/a-ztexio.ads index dd872dcfb1c..f91599295a4 100644 --- a/gcc/ada/a-ztexio.ads +++ b/gcc/ada/a-ztexio.ads @@ -138,7 +138,7 @@ package Ada.Wide_Wide_Text_IO is -- Buffer control -- -------------------- - -- Note: The paramter file is in out in the RM, but as pointed out + -- Note: The parameter file is in out in the RM, but as pointed out -- in <<95-5166.a Tucker Taft 95-6-23>> this is clearly an oversight. procedure Flush (File : File_Type); @@ -319,7 +319,7 @@ private -- omitted on output unless an explicit New_Page call is made before -- closing the file. No page mark is added when a file is appended to, -- so, in accordance with the permission in (RM A.10.2(4)), there may - -- or may not be a page mark separating preexising text in the file + -- or may not be a page mark separating preexisting text in the file -- from the new text to be written. -- A file mark is marked by the physical end of file. In DOS translation @@ -352,12 +352,12 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Ouput} functions which return + -- implement the Current_{Error,Input,Output} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. Before_LM : Boolean := False; - -- This flag is used to deal with the anomolies introduced by the + -- This flag is used to deal with the anomalies introduced by the -- peculiar definition of End_Of_File and End_Of_Page in Ada. These -- functions require looking ahead more than one character. Since -- there is no convenient way of backing up more than one character, diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index 90c8e0d50c9..c632c659045 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -845,12 +845,12 @@ package ALI is Oref_File_Num : Sdep_Id; -- This field is set to No_Sdep_Id if the entity doesn't override any - -- other entity, or to the dependency reference for the overriden + -- other entity, or to the dependency reference for the overridden -- entity. Oref_Line : Nat; Oref_Col : Nat; - -- These two fields are set to the line and column of the overriden + -- These two fields are set to the line and column of the overridden -- entity. First_Xref : Nat; diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 45e5e5ba014..145a262d2ba 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -2620,7 +2620,7 @@ package Einfo is -- which does not also have this flag set to True. For a variable or -- or constant, if the flag is set, then the type of the object must -- either be declared at the library level, or it must also have the --- flag set (since to allocate the oject statically, its type must +-- flag set (since to allocate the object statically, its type must -- also be elaborated globally). -- Is_Static_Dispatch_Table_Entity (Flag234) @@ -2732,7 +2732,7 @@ package Einfo is -- package. Indicates that the entity must be made visible in the body -- of the instance, to reproduce the visibility of the generic. This -- simplifies visibility settings in instance bodies. --- ??? confusion in abovecomments between being present and being set +-- ??? confusion in above comments between being present and being set -- Is_VMS_Exception (Flag133) -- Present in all entities. Set only for exception entities where the @@ -2766,13 +2766,13 @@ package Einfo is -- Kill_Elaboration_Checks (Flag32) -- Present in all entities. Set by the expander to kill elaboration -- checks which are known not to be needed. Equivalent in effect to --- the use of pragma Supress (Elaboration_Checks) for that entity +-- the use of pragma Suppress (Elaboration_Checks) for that entity -- except that the effect is permanent and cannot be undone by a -- subsequent pragma Unsuppress. -- Kill_Range_Checks (Flag33) -- Present in all entities. Equivalent in effect to the use of pragma --- Supress (Range_Checks) for that entity except that the result is +-- Suppress (Range_Checks) for that entity except that the result is -- permanent and cannot be undone by a subsequent pragma Unsuppress. -- This is currently only used in one odd situation in Sem_Ch3 for -- record types, and it would be good to get rid of it??? @@ -2780,7 +2780,7 @@ package Einfo is -- Kill_Tag_Checks (Flag34) -- Present in all entities. Set by the expander to kill elaboration -- checks which are known not to be needed. Equivalent in effect to --- the use of pragma Supress (Tag_Checks) for that entity except +-- the use of pragma Suppress (Tag_Checks) for that entity except -- that the result is permanent and cannot be undone by a subsequent -- pragma Unsuppress. @@ -2805,7 +2805,7 @@ package Einfo is -- associated entities is attached (blocks, class subtypes and types, -- entries, functions, loops, packages, procedures, protected objects, -- record types and subtypes, private types, task types and subtypes). --- Points to a the last entry in the list of associated entities chained +-- Points to the last entry in the list of associated entities chained -- through the Next_Entity field. Empty if no entities are chained. -- Limited_View (Node23) @@ -2819,7 +2819,7 @@ package Einfo is -- Present in enumeration types and subtypes. Non-empty only for the -- case of an enumeration root type, where it contains the entity for -- the generated indexes entity. See unit Exp_Imgv for full details of --- the nature and use of this entity for implkementing the Image and +-- the nature and use of this entity for implementing the Image and -- Value attributes for the enumeration type in question. -- -- Lit_Strings (Node16) @@ -3169,7 +3169,7 @@ package Einfo is -- Parameter_Mode (synthesized) -- Applies to formal parameter entities. This is a synonym for Ekind, -- used when obtaining the formal kind of a formal parameter (the result --- is one of E_[In/Out/In_Out]_Paramter) +-- is one of E_[In/Out/In_Out]_Parameter) -- Parent_Subtype (Node19) -- Present in E_Record_Type. Points to the subtype to use for a @@ -3254,9 +3254,9 @@ package Einfo is -- Referenced (Flag156) -- Present in all entities. Set if the entity is referenced, except for --- the case of an appearence of a simple variable that is not a renaming +-- the case of an appearance of a simple variable that is not a renaming -- as the left side of an assignment in which case Referenced_As_LHS is --- set instead, or a similar appearence as an out parameter actual, in +-- set instead, or a similar appearance as an out parameter actual, in -- which case As_Out_Parameter_Parameter is set. -- Referenced_As_LHS (Flag36): @@ -3307,7 +3307,7 @@ package Einfo is -- Renamed_Entity (Node18) -- Present in exceptions, packages, subprograms and generic units. Set -- for entities that are defined by a renaming declaration. Denotes the --- renamed entity, or transititively the ultimate renamed entity if +-- renamed entity, or transitively the ultimate renamed entity if -- there is a chain of renaming declarations. Empty if no renaming. -- Renamed_In_Spec (Flag231) @@ -3367,11 +3367,11 @@ package Einfo is -- Reverse_Bit_Order (Flag164) [base type only] -- Present in all record type entities. Set if a valid pragma an --- attribute represention clause for Bit_Order has reversed the order of --- bits from the default value. When this flag is set, a component clause --- must specify a set of bits entirely contained in a single storage unit --- (Ada 95) or a single machine scalar (see Ada 2005 AI-133), or must --- occupy in integral number of storage units. +-- attribute representation clause for Bit_Order has reversed the order +-- of bits from the default value. When this flag is set, a component +-- clause must specify a set of bits entirely contained in a single +-- storage unit (Ada 95) or a single machine scalar (see Ada 2005 +-- AI-133), or must occupy in integral number of storage units. -- RM_Size (Uint13) -- Present in all type and subtype entities. Contains the value of @@ -3387,7 +3387,7 @@ package Einfo is -- type of the class covered by the CW type, otherwise returns the -- ultimate derivation ancestor of the given type. This function -- preserves the view, i.e. the Root_Type of a partial view is the --- partial view of the ulimate ancestor, the Root_Type of a full view +-- partial view of the ultimate ancestor, the Root_Type of a full view -- is the full view of the ultimate ancestor. Note that this function -- does not correspond exactly to the use of root type in the RM, since -- in the RM root type applies to a class of types, not to a type. @@ -4495,7 +4495,7 @@ package Einfo is -- For each enumeration value defined in Entity_Kind we list all the -- attributes defined in Einfo which can legally be applied to an entity -- of that kind. The implementation of the attribute functions (and for - -- non-synthetized attributes, of the corresponding set procedures) are + -- non-synthesized attributes, of the corresponding set procedures) are -- in the Einfo body. -- The following attributes apply to all entities @@ -5497,7 +5497,7 @@ package Einfo is -- There are four types of alignment possible for array and record -- types, and a field in the type entities contains a value of the -- following type indicating which alignment choice applies. For full - -- details of the meaning of these aligment types, see description + -- details of the meaning of these alignment types, see description -- of the Component_Alignment pragma type Component_Alignment_Kind is ( diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 383f0189bc3..c8a0e17fde0 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -176,7 +176,7 @@ package body Erroutc is Delete_Msg (M1, M2); return; - -- If M2 continuatins have run out, we delete M2 + -- If M2 continuations have run out, we delete M2 elsif N2 = No_Error_Msg or else not Errors.Table (N2).Msg_Cont then Delete_Msg (M2, M1); @@ -968,7 +968,7 @@ package body Erroutc is Set_Msg_Char (UI_Image_Buffer (J)); end loop; - -- The following assignment ensures that a second carret insertion + -- The following assignment ensures that a second caret insertion -- character will correspond to the Error_Msg_Uint_2 parameter. We -- suppress possible validity checks in case operating in -gnatVa mode, -- and Error_Msg_Uint_2 is not needed and has not been set. diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index 04e1a4a07ca..1f4eebf3584 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -36,7 +36,7 @@ package Erroutc is -- type, and is used by Add_Class to insert 'Class at the proper point Continuation : Boolean := False; - -- Indicates if current message is a continuation. Intialized from the + -- Indicates if current message is a continuation. Initialized from the -- Msg_Cont parameter in Error_Msg_Internal and then set True if a \ -- insertion character is encountered. @@ -81,9 +81,9 @@ package Erroutc is Max_Msg_Length : constant := 1024 + 2 * Int (Column_Number'Last); -- Maximum length of error message. The addition of 2 * Column_Number'Last - -- ensures that two insertion tokens of maximum length can be accomodated. + -- ensures that two insertion tokens of maximum length can be accommodated. -- The value of 1024 is an arbitrary value that should be more than long - -- enough to accomodate any reasonable message (and for that matter, some + -- enough to accommodate any reasonable message (and for that matter, some -- pretty unreasonable messages!) Msg_Buffer : String (1 .. Max_Msg_Length); @@ -115,7 +115,7 @@ package Erroutc is No_Error_Msg : constant Error_Msg_Id := 0; -- A constant which is different from any value returned by Get_Error_Id. - -- Typically used by a client to indicate absense of a saved Id value. + -- Typically used by a client to indicate absence of a saved Id value. Cur_Msg : Error_Msg_Id := No_Error_Msg; -- Id of most recently posted error message @@ -235,7 +235,7 @@ package Erroutc is -- end of the current source file. A subsequent pragma Warnings (On) -- adjusts the end point of this entry appropriately. - -- If all warnings are suppressed by comamnd switch, then there is a + -- If all warnings are suppressed by command switch, then there is a -- dummy entry (put there by Errout.Initialize) at the start of the -- table which covers all possible Source_Ptr values. Note that the -- source pointer values in this table always reference the original diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index a5ff0011a6f..bf5e9d79bbd 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -624,7 +624,7 @@ package body Exp_Attr is -- is done only for "Address!(Prim'Unrestricted_Access)" nodes. -- At this stage other cases in which the designated type is -- still a subprogram (instead of an E_Subprogram_Type) are - -- wrong because the semantics must have overriden the type of + -- wrong because the semantics must have overridden the type of -- the node with the type imposed by the context. pragma Assert (Nkind (Parent (N)) = N_Unchecked_Type_Conversion diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index df3d7e8d33c..0ecdad2e243 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -556,7 +556,7 @@ package body Exp_Imgv is -- Enum'Val (Value_Enumeration_NN (typS, typI'Address, Num, X)) -- where typS and typI and the Lit_Strings and Lit_Indexes entities - -- from T's root type entitym and Num is Enum'Pos (Enum'Last). The + -- from T's root type entity, and Num is Enum'Pos (Enum'Last). The -- Value_Enumeration_NN function will search the tables looking for -- X and return the position number in the table if found which is -- used to provide the result of 'Value (using Enum'Val). If the diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 96e8c2c3acf..49cdfe028f0 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -87,7 +87,7 @@ package body Exp_Intr is -- K is the kind for the shift node procedure Expand_Unc_Conversion (N : Node_Id; E : Entity_Id); - -- Expand a call to an instantiation of Unchecked_Convertion into a node + -- Expand a call to an instantiation of Unchecked_Conversion into a node -- N_Unchecked_Type_Conversion. procedure Expand_Unc_Deallocation (N : Node_Id); @@ -97,7 +97,7 @@ package body Exp_Intr is procedure Expand_To_Address (N : Node_Id); procedure Expand_To_Pointer (N : Node_Id); -- Expand a call to corresponding function, declared in an instance of - -- System.Addess_To_Access_Conversions. + -- System.Address_To_Access_Conversions. procedure Expand_Source_Info (N : Node_Id; Nam : Name_Id); -- Rewrite the node by the appropriate string or positive constant. diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 68feec5aa3f..21a78ac80a4 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -535,7 +535,7 @@ package body Exp_Pakd is -- directly using Insert_Action. ------------------------------ - -- Compute_Linear_Subcsript -- + -- Compute_Linear_Subscript -- ------------------------------ procedure Compute_Linear_Subscript @@ -2010,7 +2010,7 @@ package body Exp_Pakd is Left_Opnd => Make_Shift_Right (Obj, Shift), Right_Opnd => Lit); - -- We neded to analyze this before we do the unchecked convert + -- We needed to analyze this before we do the unchecked convert -- below, but we need it temporarily attached to the tree for -- this analysis (hence the temporary Set_Parent call). diff --git a/gcc/ada/exp_pakd.ads b/gcc/ada/exp_pakd.ads index df5ceb0c5f5..690ec21373b 100644 --- a/gcc/ada/exp_pakd.ads +++ b/gcc/ada/exp_pakd.ads @@ -218,7 +218,7 @@ package Exp_Pakd is -- Note: although this routine is included in the expander package for -- packed types, it is actually called unconditionally from Freeze, -- whether or not expansion (and code generation) is enabled. We do this - -- since we want gigi to be able to properly compute type charactersitics + -- since we want gigi to be able to properly compute type characteristics -- (for the Data Decomposition Annex of ASIS, and possible other future -- uses) even if code generation is not active. Strictly this means that -- this procedure is not part of the expander, but it seems appropriate @@ -263,7 +263,7 @@ package Exp_Pakd is function Involves_Packed_Array_Reference (N : Node_Id) return Boolean; -- N is the node for a name. This function returns true if the name -- involves a packed array reference. A node involves a packed array - -- reference if it is itself an indexed compoment referring to a bit- + -- reference if it is itself an indexed component referring to a bit- -- packed array, or it is a selected component whose prefix involves -- a packed array reference. diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index deabc2d27bd..3da72eb2bf1 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -330,7 +330,7 @@ package body Exp_Prag is and then Is_RTE (Entity (Name (N)), RE_Raise_Assert_Failure) then -- If original condition was a Standard.False, we assume that this is - -- indeed intented to raise assert error and no warning is required. + -- indeed intended to raise assert error and no warning is required. if Is_Entity_Name (Original_Node (Cond)) and then Entity (Original_Node (Cond)) = Standard_False diff --git a/gcc/ada/exp_smem.adb b/gcc/ada/exp_smem.adb index e5889bfb9ef..ae1ea9b68d0 100644 --- a/gcc/ada/exp_smem.adb +++ b/gcc/ada/exp_smem.adb @@ -52,7 +52,7 @@ package body Exp_Smem is procedure Add_Write_After (N : Node_Id); -- Insert a Shared_Var_WOpen call for variable after the node - -- Insert_Node, as recorded by On_Lhs_Of_Assigment (where it points + -- Insert_Node, as recorded by On_Lhs_Of_Assignment (where it points -- to the assignment statement) or Is_Out_Actual (where it points to -- the procedure call statement). diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index 53dd5fc0c51..2473d4a69f3 100644 --- a/gcc/ada/exp_tss.ads +++ b/gcc/ada/exp_tss.ads @@ -50,9 +50,9 @@ package Exp_Tss is ------------------------- -- In the current version of this package, only the case of generating a - -- TSS at the point of declaration of the type is accomodated. A clear + -- TSS at the point of declaration of the type is accommodated. A clear -- improvement would be to follow through with the full implementation - -- as described above, and also accomodate the requirement of generating + -- as described above, and also accommodate the requirement of generating -- only one copy in a given object file. -- For now, we deal with the local case by generating duplicate versions diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 28f6d6e0d9f..82f3fcfc201 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -1220,7 +1220,7 @@ package body Exp_Util is Constraints => New_List (New_Reference_To (Slice_Type, Loc))))); - -- This subtype indication may be used later for contraint checks + -- This subtype indication may be used later for constraint checks -- we better make sure that if a variable was used as a bound of -- of the original slice, its value is frozen. @@ -1657,7 +1657,7 @@ package body Exp_Util is begin -- Climb to the root type - -- Handle sychronized interface derivations + -- Handle synchronized interface derivations if Is_Concurrent_Record_Type (Typ) then declare @@ -2121,7 +2121,7 @@ package body Exp_Util is if N = CV then Sens := True; - -- Otherwise we must be in susbequent ELSIF or ELSE part + -- Otherwise we must be in subsequent ELSIF or ELSE part else Sens := False; @@ -2861,7 +2861,7 @@ package body Exp_Util is -- This is the proper body corresponding to a stub. Insertion -- must be done at the point of the stub, which is in the decla- - -- tive part of the parent unit. + -- rative part of the parent unit. P := Corresponding_Stub (Parent (N)); @@ -3704,7 +3704,7 @@ package body Exp_Util is -- Generate the following code: -- type Equiv_T is record - -- _parent : T (List of discriminant constaints taken from Exp); + -- _parent : T (List of discriminant constraints taken from Exp); -- Ext__50 : Storage_Array (1 .. (Exp'size - Typ'object_size)/8); -- end Equiv_T; -- @@ -3917,8 +3917,8 @@ package body Exp_Util is -- Make_Subtype_From_Expr -- ---------------------------- - -- 1. If Expr is an uncontrained array expression, creates - -- Unc_Type(Expr'first(1)..Expr'Last(1),..., Expr'first(n)..Expr'last(n)) + -- 1. If Expr is an unconstrained array expression, creates + -- Unc_Type(Expr'first(1)..Expr'last(1),..., Expr'first(n)..Expr'last(n)) -- 2. If Expr is a unconstrained discriminated type expression, creates -- Unc_Type(Expr.Discr1, ... , Expr.Discr_n) @@ -4307,7 +4307,7 @@ package body Exp_Util is -- this may happen with any array or record type. On the other hand, we -- cannot create temporaries for all expressions for which this -- condition is true, for various reasons that might require clearing up - -- ??? For example, descriminant references that appear out of place, or + -- ??? For example, discriminant references that appear out of place, or -- spurious type errors with class-wide expressions. As a result, we -- limit the transformation to loop bounds, which is so far the only -- case that requires it. @@ -4420,9 +4420,9 @@ package body Exp_Util is elsif Compile_Time_Known_Value (N) then return True; - -- A variable renaming is not side-effet free, because the + -- A variable renaming is not side-effect free, because the -- renaming will function like a macro in the front-end in - -- some cases, and an assignment can modify the the component + -- some cases, and an assignment can modify the component -- designated by N, so we need to create a temporary for it. elsif Is_Entity_Name (Original_Node (N)) @@ -5247,7 +5247,7 @@ package body Exp_Util is Long_Integer_Sized_Small : Ureal; -- Set to 2.0 ** -(Long_Integer'Size - 1) the first time that this - -- functoin is called (we don't want to compute it more than once) + -- function is called (we don't want to compute it more than once) First_Time_For_THFO : Boolean := True; -- Set to False after first call (if Fractional_Fixed_Ops_On_Target) diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 737b39728ee..9c99323e8e4 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -258,7 +258,7 @@ package Exp_Util is -- System_Tasking_Protected_Objects_Single_Entry function Current_Sem_Unit_Declarations return List_Id; - -- Return the a place where it is fine to insert declarations for the + -- Return the place where it is fine to insert declarations for the -- current semantic unit. If the unit is a package body, return the -- visible declarations of the corresponding spec. For RCI stubs, this -- is necessary because the point at which they are generated may not @@ -429,7 +429,7 @@ package Exp_Util is -- homonym number used to disambiguate overloaded subprograms in the same -- scope (the number is used as part of constructed names to make sure that -- they are unique). The number is the ordinal position on the Homonym - -- chain, counting only entries in the curren scope. If an entity is not + -- chain, counting only entries in the current scope. If an entity is not -- overloaded, the returned number will be one. function Inside_Init_Proc return Boolean; @@ -437,7 +437,7 @@ package Exp_Util is function In_Unconditional_Context (Node : Node_Id) return Boolean; -- Node is the node for a statement or a component of a statement. This - -- function deteermines if the statement appears in a context that is + -- function determines if the statement appears in a context that is -- unconditionally executed, i.e. it is not within a loop or a conditional -- or a case statement etc. diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb index ba3b383beb2..0537cf089d0 100644 --- a/gcc/ada/exp_vfpt.adb +++ b/gcc/ada/exp_vfpt.adb @@ -242,7 +242,7 @@ package body Exp_VFpt is Func : RE_Id; function Call_Type (T : Entity_Id; Otyp : Entity_Id) return RE_Id; - -- Given one of the two types T, determines the coresponding call + -- Given one of the two types T, determines the corresponding call -- type, i.e. the type to be used for the call (or the result of -- the call). The actual operand is converted to (or from) this type. -- Otyp is the other type, which is useful in figuring out the result. diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index edd52f5b7f0..d1d72d71d05 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -331,7 +331,7 @@ package body Freeze is begin -- The controlling formal may be an access parameter, or the - -- actual may be an access value, so ajust accordingly. + -- actual may be an access value, so adjust accordingly. if Is_Access_Type (Pref_Type) and then not Is_Access_Type (Form_Type) @@ -791,7 +791,7 @@ package body Freeze is -- discriminant. -- This is because gigi computes the size by doing a - -- substituation of the appropriate discriminant value in + -- substitution of the appropriate discriminant value in -- the size expression for the base type, and gigi is not -- clever enough to evaluate the resulting expression (which -- involves a call to rep_to_pos) at compile time. @@ -2915,7 +2915,7 @@ package body Freeze is -- processing is only done for base types, since all the -- representation aspects involved are type-related. This -- is not just an optimization, if we start processing the - -- subtypes, they intefere with the settings on the base + -- subtypes, they interfere with the settings on the base -- type (this is because Is_Packed has a slightly different -- meaning before and after freezing). @@ -3222,7 +3222,7 @@ package body Freeze is Freeze_Record_Type (E); -- For a concurrent type, freeze corresponding record type. This - -- does not correpond to any specific rule in the RM, but the + -- does not correspond to any specific rule in the RM, but the -- record type is essentially part of the concurrent type. -- Freeze as well all local entities. This includes record types -- created for entry parameter blocks, and whatever local entities @@ -3636,7 +3636,7 @@ package body Freeze is if Has_Size_Clause (E) and then not Size_Known_At_Compile_Time (E) then - -- Supress this message if errors posted on E, even if we are + -- Suppress this message if errors posted on E, even if we are -- in all errors mode, since this is often a junk message if not Error_Posted (E) then @@ -4047,7 +4047,7 @@ package body Freeze is and then Is_Enumeration_Type (Etype (N)) then -- If enumeration literal appears directly as the choice, - -- do not freeze (this is the normal non-overloade case) + -- do not freeze (this is the normal non-overloaded case) if Nkind (Parent (N)) = N_Component_Association and then First (Choices (Parent (N))) = N @@ -4410,7 +4410,7 @@ package body Freeze is -- case of both bounds negative, because the sign will be dealt -- with anyway. Furthermore we can't just go making such a bound -- symmetrical, since in a twos-complement system, there is an - -- extra negative value which could not be accomodated on the + -- extra negative value which could not be accommodated on the -- positive side. if Typ = Btyp diff --git a/gcc/ada/freeze.ads b/gcc/ada/freeze.ads index 13afe3701f6..64a1327a9e7 100644 --- a/gcc/ada/freeze.ads +++ b/gcc/ada/freeze.ads @@ -178,7 +178,7 @@ package Freeze is procedure Expand_Atomic_Aggregate (E : Entity_Id; Typ : Entity_Id); -- If an atomic object is initialized with an aggregate or is assigned -- an aggregate, we have to prevent a piecemeal access or assignment - -- to the object, even if the aggregate is to be expanded. we create + -- to the object, even if the aggregate is to be expanded. We create -- a temporary for the aggregate, and assign the temporary instead, -- so that the back end can generate an atomic move for it. diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 6d01843fb22..b6fde4352cc 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -103,7 +103,7 @@ begin end if; -- Now that the preprocessing situation is established, we are able to - -- load the main source (this is no longer done by Lib.Load.Initalize). + -- load the main source (this is no longer done by Lib.Load.Initialize). Lib.Load.Load_Main_Source; @@ -355,7 +355,7 @@ begin Sprint.Source_Dump; -- If a mapping file has been specified by a -gnatem switch, update - -- it if there has been some sourcs that were not in the mappings. + -- it if there has been some sources that were not in the mappings. if Mapping_File_Name /= null then Fmap.Update_Mapping_File (Mapping_File_Name.all); diff --git a/gcc/ada/g-alleve.adb b/gcc/ada/g-alleve.adb index 329106f8ece..33a8d49fbcc 100644 --- a/gcc/ada/g-alleve.adb +++ b/gcc/ada/g-alleve.adb @@ -1864,7 +1864,7 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_Pixel (Source : unsigned_short) return Pixel_16 is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. Target : Pixel_16; @@ -1879,7 +1879,7 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_Pixel (Source : unsigned_int) return Pixel_32 is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. Target : Pixel_32; @@ -1898,10 +1898,10 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_unsigned_int (Source : Pixel_32) return unsigned_int is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. -- It should also be the same result, value-wise, on two hosts - -- with the same endianess. + -- with the same endianness. Target : unsigned_int := 0; @@ -1930,10 +1930,10 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_unsigned_short (Source : Pixel_16) return unsigned_short is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. -- It should also be the same result, value-wise, on two hosts - -- with the same endianess. + -- with the same endianness. Target : unsigned_short := 0; @@ -2765,9 +2765,9 @@ package body GNAT.Altivec.Low_Level_Vectors is -- ??? Check the precision of the operation. -- As described in [PEM-6 vexptefp]: - -- If theorical_result is equal to 2 at the power of A (J) with + -- If theoretical_result is equal to 2 at the power of A (J) with -- infinite precision, we should have: - -- abs ((D (J) - theorical_result) / theorical_result) <= 1/16 + -- abs ((D (J) - theoretical_result) / theoretical_result) <= 1/16 D.Values (J) := 2.0 ** NJ_Truncate (VA.Values (J)); end loop; diff --git a/gcc/ada/g-altcon.adb b/gcc/ada/g-altcon.adb index f04745ac172..d3698a1ac44 100644 --- a/gcc/ada/g-altcon.adb +++ b/gcc/ada/g-altcon.adb @@ -37,7 +37,7 @@ with System; use System; package body GNAT.Altivec.Conversions is - -- All the vector/view conversions operate similarily: bare unchecked + -- All the vector/view conversions operate similarly: bare unchecked -- conversion on big endian targets, and elements permutation on little -- endian targets. We call "Mirroring" the elements permutation process. diff --git a/gcc/ada/g-altive.ads b/gcc/ada/g-altive.ads index bbfd0f51c3c..3a0caa1976b 100644 --- a/gcc/ada/g-altive.ads +++ b/gcc/ada/g-altive.ads @@ -135,7 +135,7 @@ -- of driving ideas: -- o From the clients standpoint, the two versions of the binding should be --- as easily exchangable as possible, +-- as easily exchangeable as possible, -- o From the maintenance standpoint, we want to avoid as much code -- duplication as possible. diff --git a/gcc/ada/g-alveop.ads b/gcc/ada/g-alveop.ads index 7e77d7f48f1..fc5728a3aa9 100644 --- a/gcc/ada/g-alveop.ads +++ b/gcc/ada/g-alveop.ads @@ -8097,7 +8097,7 @@ private pragma Inline_Always (vec_any_numeric); pragma Inline_Always (vec_any_out); - -- Similarily, vec_step is expected to be turned into a compile time + -- Similarly, vec_step is expected to be turned into a compile time -- constant, so ... pragma Inline_Always (vec_step); diff --git a/gcc/ada/g-alvevi.ads b/gcc/ada/g-alvevi.ads index bd3a299e2f9..32f43838cbb 100644 --- a/gcc/ada/g-alvevi.ads +++ b/gcc/ada/g-alvevi.ads @@ -38,7 +38,7 @@ -- Accessing vector contents with direct memory overlays should be avoided -- because actual vector representations may vary across configurations, for --- instance to accomodate different target endianness. +-- instance to accommodate different target endianness. -- The natural representation of a vector is an array indexed by vector -- component number, which is materialized by the Varray type definitions diff --git a/gcc/ada/g-arrspl.adb b/gcc/ada/g-arrspl.adb index bcbc8c4dbec..879aaac241c 100644 --- a/gcc/ada/g-arrspl.adb +++ b/gcc/ada/g-arrspl.adb @@ -47,8 +47,8 @@ package body GNAT.Array_Split is function Count (Source : Element_Sequence; Pattern : Element_Set) return Natural; - -- Returns the number of occurences of Pattern elements in Source, 0 is - -- returned if no occurence is found in Source. + -- Returns the number of occurrences of Pattern elements in Source, 0 is + -- returned if no occurrence is found in Source. ------------ -- Adjust -- diff --git a/gcc/ada/g-busorg.ads b/gcc/ada/g-busorg.ads index e99ba2a7c15..b7d4545c6d9 100644 --- a/gcc/ada/g-busorg.ads +++ b/gcc/ada/g-busorg.ads @@ -43,7 +43,7 @@ -- There is also GNAT.Bubble_Sort_A, which is now considered obsolete, but -- was an older version working with subprogram parameters. This version --- is retained for baccwards compatibility with old versions of GNAT. +-- is retained for backwards compatibility with old versions of GNAT. generic -- The data to be sorted is assumed to be indexed by integer values from diff --git a/gcc/ada/g-calend.adb b/gcc/ada/g-calend.adb index e2edaff657d..41fcd242059 100644 --- a/gcc/ada/g-calend.adb +++ b/gcc/ada/g-calend.adb @@ -307,7 +307,7 @@ package body GNAT.Calendar is pragma Unreferenced (Hour, Minute, Second, Sub_Second); function Is_Leap (Year : Year_Number) return Boolean; - -- Return True if Year denotes a leap year. Leap centential years are + -- Return True if Year denotes a leap year. Leap centennial years are -- properly handled. function Jan_1_Day_Of_Week diff --git a/gcc/ada/g-calend.ads b/gcc/ada/g-calend.ads index e3cc79139c8..4216195b1e3 100644 --- a/gcc/ada/g-calend.ads +++ b/gcc/ada/g-calend.ads @@ -39,7 +39,7 @@ -- Ada.Calendar. It provides Split and Time_Of to build and split a Time -- data. And it provides accessor functions to get only one of Hour, Minute, -- Second, Second_Duration. Other functions are to access more advanced --- valueas like Day_Of_Week, Day_In_Year and Week_In_Year. +-- values like Day_Of_Week, Day_In_Year and Week_In_Year. with Ada.Calendar; with Interfaces.C; @@ -64,7 +64,7 @@ package GNAT.Calendar is function Minute (Date : Ada.Calendar.Time) return Minute_Number; function Second (Date : Ada.Calendar.Time) return Second_Number; function Sub_Second (Date : Ada.Calendar.Time) return Second_Duration; - -- Hour, Minute, Sedond and Sub_Second returns the complete time data for + -- Hour, Minute, Second and Sub_Second returns the complete time data for -- the Date (H:M:S.SS). See Ada.Calendar for Year, Month, Day accessors. -- Second_Duration precision depends on the target clock precision. diff --git a/gcc/ada/g-casuti.ads b/gcc/ada/g-casuti.ads index cae617cce5b..d880eeaceaa 100644 --- a/gcc/ada/g-casuti.ads +++ b/gcc/ada/g-casuti.ads @@ -59,7 +59,7 @@ package GNAT.Case_Util is procedure To_Upper (A : in out String) renames System.Case_Util.To_Upper; - -- Folds all characters of string A to upper csae + -- Folds all characters of string A to upper case function To_Lower (A : Character) return Character renames System.Case_Util.To_Lower; diff --git a/gcc/ada/g-cgideb.adb b/gcc/ada/g-cgideb.adb index c3a0945c67c..de20de30e55 100644 --- a/gcc/ada/g-cgideb.adb +++ b/gcc/ada/g-cgideb.adb @@ -41,7 +41,7 @@ package body GNAT.CGI.Debug is -- To create a new IO mode you must: -- 1. create a new package spec -- 2. create a new type derived from IO.Format - -- 3. implement all the abstract rountines in IO + -- 3. implement all the abstract routines in IO package IO is diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index d661978bd59..e90af875eae 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -43,7 +43,7 @@ package body GNAT.Command_Line is Parameter_With_Optional_Space, -- ':' in getopt Parameter_With_Space_Or_Equal, -- '=' in getopt Parameter_No_Space, -- '!' in getopt - Parameter_Optional); -- '?' in getop + Parameter_Optional); -- '?' in getopt procedure Set_Parameter (Variable : out Parameter_Type; @@ -134,7 +134,7 @@ package body GNAT.Command_Line is (Cmd : Command_Line; Result : Argument_List_Access; Params : Argument_List_Access); - -- When possible, replace or more switches by an alias, ie a shorter + -- When possible, replace or more switches by an alias, i.e. a shorter -- version. function Looking_At @@ -567,7 +567,7 @@ package body GNAT.Command_Line is -- Always prepend the switch character, so that users know that -- this comes from a switch on the command line. This is -- especially important when Concatenate is False, since - -- otherwise the currrent argument first character is lost. + -- otherwise the current argument first character is lost. Set_Parameter (Parser.The_Switch, diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads index 6da8237f826..9c8ebc7fa0a 100644 --- a/gcc/ada/g-comlin.ads +++ b/gcc/ada/g-comlin.ads @@ -42,7 +42,7 @@ -- (special command line arguments starting with '-' by default) and their -- parameters, and then the rest of the command line arguments. --- This package is flexible enough to accomodate various needs: optional +-- This package is flexible enough to accommodate various needs: optional -- switch parameters, various characters to separate a switch and its -- parameter, whether to stop the parsing at the first non-switch argument -- encountered, etc. @@ -84,7 +84,7 @@ -- A more complicated example would involve the use of sections for the -- switches, as for instance in gnatmake. The same command line is used to -- provide switches for several tools. Each tool recognizes its switches by --- separating them with special switches, chosen by the programer. +-- separating them with special switches, chosen by the programmer. -- Each section acts as a command line of its own. -- begin @@ -401,7 +401,7 @@ package GNAT.Command_Line is -- matching switch is returned. -- -- Arbitrary characters are allowed for switches, although it is - -- strongly recommanded to use only letters and digits for portability + -- strongly recommended to use only letters and digits for portability -- reasons. -- -- When Concatenate is False, individual switches need to be separated by diff --git a/gcc/ada/g-curexc.ads b/gcc/ada/g-curexc.ads index 783a6489096..0e62ea38f73 100644 --- a/gcc/ada/g-curexc.ads +++ b/gcc/ada/g-curexc.ads @@ -50,7 +50,7 @@ package GNAT.Current_Exception is -- Subprograms -- ----------------- - -- Note: the lower bound of returnd String values is always one + -- Note: the lower bound of returned String values is always one function Exception_Information return String; -- Returns the result of calling Ada.Exceptions.Exception_Information @@ -95,7 +95,7 @@ package GNAT.Current_Exception is -- For greater compatibility with existing legacy software, library -- level renaming may be used to create a function with a name matching -- one that is in use. For example, some versions of VADS Ada provided - -- a functin called Current_Exception whose semantics was identical to + -- a function called Current_Exception whose semantics was identical to -- that of GNAT. The following library level renaming declaration: -- with GNAT.Current_Exception; diff --git a/gcc/ada/g-debpoo.adb b/gcc/ada/g-debpoo.adb index dc4896c4621..14f11916f6c 100644 --- a/gcc/ada/g-debpoo.adb +++ b/gcc/ada/g-debpoo.adb @@ -49,7 +49,7 @@ package body GNAT.Debug_Pools is Default_Alignment : constant := Standard'Maximum_Alignment; -- Alignment used for the memory chunks returned by Allocate. Using this - -- value garantees that this alignment will be compatible with all types + -- value guarantees that this alignment will be compatible with all types -- and at the same time makes it easy to find the location of the extra -- header allocated for each chunk. @@ -286,10 +286,10 @@ package body GNAT.Debug_Pools is Ignored_Frame_Start : System.Address; Ignored_Frame_End : System.Address); -- Set Start .. Len to the range of values from Trace that should be output - -- to the user. This range of values exludes any address prior to the first - -- one in Ignored_Frame_Start .. Ignored_Frame_End (basically addresses - -- internal to this package). Depth is the number of levels that the user - -- is interested in. + -- to the user. This range of values excludes any address prior to the + -- first one in Ignored_Frame_Start .. Ignored_Frame_End (basically + -- addresses internal to this package). Depth is the number of levels that + -- the user is interested in. --------------- -- Header_Of -- @@ -579,7 +579,7 @@ package body GNAT.Debug_Pools is begin -- The pool only returns addresses aligned on Default_Alignment so -- anything off cannot be a valid block address and we can return - -- early in this case. We actually have to since our datastructures + -- early in this case. We actually have to since our data structures -- map validity bits for such aligned addresses only. if Int_Storage mod Default_Alignment /= 0 then @@ -692,7 +692,7 @@ package body GNAT.Debug_Pools is Free_Physically (Pool); end if; - -- Use standard (ie through malloc) allocations. This automatically + -- Use standard (i.e. through malloc) allocations. This automatically -- raises Storage_Error if needed. We also try once more to physically -- release memory, so that even marked blocks, in the advanced scanning, -- are freed. diff --git a/gcc/ada/g-debpoo.ads b/gcc/ada/g-debpoo.ads index d3072c3d2f6..ca386802e12 100644 --- a/gcc/ada/g-debpoo.ads +++ b/gcc/ada/g-debpoo.ads @@ -253,7 +253,7 @@ package GNAT.Debug_Pools is -- the Debug_Pool). -- -- The information includes the stacktrace for the allocation or - -- deallocation of that memory chunck, its current status (allocated or + -- deallocation of that memory chunk, its current status (allocated or -- logically freed), etc. private @@ -288,7 +288,7 @@ private Storage_Address : System.Address; Size_In_Storage_Elements : Storage_Count; Alignment : Storage_Count); - -- Check whether a derefence statement is valid, ie whether the pointer + -- Check whether a dereference statement is valid, i.e. whether the pointer -- was allocated through Pool. As documented above, errors will be -- reported either by a special error message or an exception, depending -- on the setup of the storage pool. @@ -296,7 +296,7 @@ private type Byte_Count is mod System.Max_Binary_Modulus; -- Type used for maintaining byte counts, needs to be large enough - -- to accomodate counts allowing for repeated use of the same memory. + -- to accommodate counts allowing for repeated use of the same memory. type Debug_Pool is new System.Checked_Pools.Checked_Pool with record Stack_Trace_Depth : Natural := Default_Stack_Trace_Depth; @@ -322,7 +322,7 @@ private Marked_Blocks_Deallocated : Boolean := False; -- Set to true if some mark blocks had to be deallocated in the advanced - -- scanning scheme. Since this is potentially dangereous, this is + -- scanning scheme. Since this is potentially dangerous, this is -- reported to the user, who might want to rerun his program with a -- lower Minimum_To_Free value. diff --git a/gcc/ada/g-decstr.adb b/gcc/ada/g-decstr.adb index 580ad15a4a6..564703802c8 100755 --- a/gcc/ada/g-decstr.adb +++ b/gcc/ada/g-decstr.adb @@ -391,7 +391,7 @@ package body GNAT.Decode_String is end if; end UTF8; - -- Non-UTF-8 cass + -- Non-UTF-8 case else declare @@ -502,7 +502,7 @@ package body GNAT.Decode_String is end if; end UTF8; - -- Non-UTF-8 cass + -- Non-UTF-8 case else declare diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb index 0cccaba2cd2..d34635c62b2 100644 --- a/gcc/ada/g-dirope.adb +++ b/gcc/ada/g-dirope.adb @@ -415,7 +415,7 @@ package body GNAT.Directory_Operations is E := K; - -- Check that first chartacter is a letter + -- Check that first character is a letter if Characters.Handling.Is_Letter (Path (E)) then E := E + 1; diff --git a/gcc/ada/g-dirope.ads b/gcc/ada/g-dirope.ads index c489eccdedc..3820a8c5743 100644 --- a/gcc/ada/g-dirope.ads +++ b/gcc/ada/g-dirope.ads @@ -223,7 +223,7 @@ package GNAT.Directory_Operations is -- Dir will be set to Null_Dir. procedure Close (Dir : in out Dir_Type); - -- Closes the directory stream refered to by Dir. After calling Close + -- Closes the directory stream referred to by Dir. After calling Close -- Is_Open will return False. Dir will be set to Null_Dir. -- Raises Directory_Error if Dir has not be opened (Dir = Null_Dir). diff --git a/gcc/ada/g-dynhta.ads b/gcc/ada/g-dynhta.ads index 2518fe96a14..cbb933ae3d4 100644 --- a/gcc/ada/g-dynhta.ads +++ b/gcc/ada/g-dynhta.ads @@ -130,7 +130,7 @@ package GNAT.Dynamic_HTables is function Get_Next (T : Instance) return Elmt_Ptr; -- Returns a non-specified element that has not been returned by the -- same function since the last call to Get_First or Null_Ptr if - -- there is no such element or Get_First has bever been called. If + -- there is no such element or Get_First has never been called. If -- there is no call to 'Set' in between Get_Next calls, all the -- elements of the Htable will be traversed. diff --git a/gcc/ada/g-dyntab.adb b/gcc/ada/g-dyntab.adb index 32604bdbca6..9ad92288b72 100644 --- a/gcc/ada/g-dyntab.adb +++ b/gcc/ada/g-dyntab.adb @@ -257,7 +257,7 @@ package body GNAT.Dynamic_Tables is -- checks are suppressed because this unit uses direct calls to -- System.Memory for allocation, and this can yield misaligned storage -- (and we cannot rely on the bootstrap compiler supporting specifically - -- disabling alignment cheks, so we need to suppress all range checks). + -- disabling alignment checks, so we need to suppress all range checks). -- It is safe to suppress this check here because we know that a -- (possibly misaligned) object of that type does actually exist at that -- address. @@ -269,7 +269,7 @@ package body GNAT.Dynamic_Tables is -- involve moving table contents around). begin - -- If we're going to reallocate, check wheter Item references an + -- If we're going to reallocate, check whether Item references an -- element of the currently allocated table. if Need_Realloc diff --git a/gcc/ada/g-encstr.ads b/gcc/ada/g-encstr.ads index 5862bbe182d..2f0381d5d7c 100755 --- a/gcc/ada/g-encstr.ads +++ b/gcc/ada/g-encstr.ads @@ -35,7 +35,7 @@ -- Wide_String or Wide_Wide_String to encoded String using a specified -- encoding convention, which is supplied as the generic parameter. If -- this parameter is a known at compile time constant (e.g. a constant --- definned in System.WCh_Con), the instantiation is specialized so that +-- defined in System.WCh_Con), the instantiation is specialized so that -- it applies only to this specified coding. -- Note: this package is only about encoding sequences of 16- or 32-bit @@ -66,7 +66,7 @@ package GNAT.Encode_String is pragma Inline (Encode_Wide_String); -- Encode the given Wide_String, returning a String encoded using the -- given encoding method. Constraint_Error will be raised if the encoding - -- method cannot accomodate the input data. + -- method cannot accommodate the input data. procedure Encode_Wide_String (S : Wide_String; @@ -78,7 +78,7 @@ package GNAT.Encode_String is -- in System.WCh_Con: WC_Longest_Sequence, WC_Longest_Sequences). If the -- length of Result is insufficient Constraint_Error will be raised. -- Constraint_Error will also be raised if the encoding method cannot - -- accomodate the input data. + -- accommodate the input data. function Encode_Wide_Wide_String (S : Wide_Wide_String) return String; pragma Inline (Encode_Wide_Wide_String); @@ -98,8 +98,8 @@ package GNAT.Encode_String is -- This is a lower level procedure that encodes the single character Char. -- The output is stored in Result starting at Result (Ptr), and Ptr is -- updated past the stored value. Constraint_Error is raised if Result - -- is not long enough to accomodate the result, or if the encoding method - -- specified does not accomodate the input character value, or if Ptr is + -- is not long enough to accommodate the result, or if the encoding method + -- specified does not accommodate the input character value, or if Ptr is -- outside the bounds of the Result string. procedure Encode_Wide_Wide_Character diff --git a/gcc/ada/g-excact.ads b/gcc/ada/g-excact.ads index 09b481ba4e3..46fa32c2b54 100644 --- a/gcc/ada/g-excact.ads +++ b/gcc/ada/g-excact.ads @@ -35,7 +35,7 @@ -- These callbacks are called immediately when either a specific exception, -- or any exception, is raised, before any other actions taken by raise, in --- particular before any unwinding of the stack occcurs. +-- particular before any unwinding of the stack occurs. -- Callbacks for specific exceptions are registered through calls to -- Register_Id_Action. Here is an example of code that uses this package to diff --git a/gcc/ada/g-except.ads b/gcc/ada/g-except.ads index 9daa08d5d56..d8428b79265 100644 --- a/gcc/ada/g-except.ads +++ b/gcc/ada/g-except.ads @@ -39,7 +39,7 @@ -- However, it is not normally possible to raise an exception with a -- message because the routine Ada.Exceptions.Raise_Exception is not in --- a Pure unit. This is an annoying and unnecessary restrictiona and this +-- a Pure unit. This is an annoying and unnecessary restriction and this -- package allows for raising the standard predefined exceptions at least. package GNAT.Exceptions is diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads index 7d9eced4d79..5ec6f99c8dc 100644 --- a/gcc/ada/g-expect.ads +++ b/gcc/ada/g-expect.ads @@ -176,7 +176,7 @@ package GNAT.Expect is -- this buffer is full. Beware that if the buffer is too big, this could -- slow down the Expect calls if not output is matched, since Expect has -- to match all the regexp against all the characters in the buffer. - -- If Buffer_Size is 0, there is no limit (ie all the characters are kept + -- If Buffer_Size is 0, there is no limit (i.e. all the characters are kept -- till Expect matches), but this is slower. -- -- If Err_To_Out is True, then the standard error of the spawned process is @@ -221,7 +221,7 @@ package GNAT.Expect is function Get_Pid (Descriptor : Process_Descriptor) return Process_Id; - -- Return the process id assocated with a given process descriptor + -- Return the process id associated with a given process descriptor function Get_Command_Output (Command : String; @@ -410,7 +410,7 @@ package GNAT.Expect is return Pattern_Matcher_Access; -- Allocate some memory for the pattern matcher. -- This is only a convenience function to help create the array of - -- compiled regular expressoins. + -- compiled regular expressions. procedure Expect (Descriptor : in out Process_Descriptor; diff --git a/gcc/ada/g-heasor.adb b/gcc/ada/g-heasor.adb index 83df12471ac..d520ef19962 100644 --- a/gcc/ada/g-heasor.adb +++ b/gcc/ada/g-heasor.adb @@ -74,7 +74,7 @@ package body GNAT.Heap_Sort is -- we assume that the current node will be less than the larger -- son, and unconditionally sift up. Then when we get to the bottom -- of the tree, we check parents to make sure that we did not make - -- a mistake. This roughly cuts the number of comparisions in half, + -- a mistake. This roughly cuts the number of comparisons in half, -- since it is almost always the case that our assumption is correct. -- Loop to pull up larger sons diff --git a/gcc/ada/g-hesora.adb b/gcc/ada/g-hesora.adb index 73cdcaaa1fa..ed686186088 100644 --- a/gcc/ada/g-hesora.adb +++ b/gcc/ada/g-hesora.adb @@ -76,7 +76,7 @@ package body GNAT.Heap_Sort_A is -- we assume that the current node will be less than the larger -- son, and unconditionally sift up. Then when we get to the bottom -- of the tree, we check parents to make sure that we did not make - -- a mistake. This roughly cuts the number of comparisions in half, + -- a mistake. This roughly cuts the number of comparisons in half, -- since it is almost always the case that our assumption is correct. -- Loop to pull up larger sons diff --git a/gcc/ada/g-hesorg.adb b/gcc/ada/g-hesorg.adb index 10700b07d2e..d7870d62cf5 100644 --- a/gcc/ada/g-hesorg.adb +++ b/gcc/ada/g-hesorg.adb @@ -79,7 +79,7 @@ package body GNAT.Heap_Sort_G is -- we assume that the current node will be less than the larger -- son, and unconditionally sift up. Then when we get to the bottom -- of the tree, we check parents to make sure that we did not make - -- a mistake. This roughly cuts the number of comparisions in half, + -- a mistake. This roughly cuts the number of comparisons in half, -- since it is almost always the case that our assumption is correct. -- Loop to pull up larger sons diff --git a/gcc/ada/g-htable.ads b/gcc/ada/g-htable.ads index b852cce396a..6373fa28652 100644 --- a/gcc/ada/g-htable.ads +++ b/gcc/ada/g-htable.ads @@ -196,7 +196,7 @@ package GNAT.HTable is -- function Get_Next return Elmt_Ptr; -- -- Returns a non-specified element that has not been returned by -- -- the same function since the last call to Get_First or Null_Ptr - -- -- if there is no such element or Get_First has bever been called. + -- -- if there is no such element or Get_First has never been called. -- -- If there is no call to 'Set' in between Get_Next calls, all -- -- the elements of the HTable will be traversed. diff --git a/gcc/ada/g-locfil.ads b/gcc/ada/g-locfil.ads index 8bdc2be635e..f404a616ea2 100644 --- a/gcc/ada/g-locfil.ads +++ b/gcc/ada/g-locfil.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package contains the necessary routines for using files for the --- purpose of providing realiable system wide locking capability. +-- purpose of providing reliable system wide locking capability. package GNAT.Lock_Files is pragma Preelaborate; diff --git a/gcc/ada/g-md5.adb b/gcc/ada/g-md5.adb index 158c9c7bfef..c41dae7c8ab 100644 --- a/gcc/ada/g-md5.adb +++ b/gcc/ada/g-md5.adb @@ -46,7 +46,7 @@ package body GNAT.MD5 is -- Look-up table for each hex digit of the Message-Digest. -- Used by function Digest (Context). - -- The sixten values used to rotate the context words. + -- The sixteen values used to rotate the context words. -- Four for each rounds. Used in procedure Transform. -- Round 1 diff --git a/gcc/ada/g-md5.ads b/gcc/ada/g-md5.ads index b744cdfaa7f..223159609af 100644 --- a/gcc/ada/g-md5.ads +++ b/gcc/ada/g-md5.ads @@ -36,7 +36,7 @@ -- -- http://www.ietf.org/rfc/rfc1321.txt -- --- The implementation is derived from the RSA Data Secutity, Inc. MD5 +-- The implementation is derived from the RSA Data Security, Inc. MD5 -- Message-Digest Algorithm, as described in RFC 1321. with Ada.Streams; diff --git a/gcc/ada/g-memdum.ads b/gcc/ada/g-memdum.ads index 484765f711c..f3ebd1aadb2 100644 --- a/gcc/ada/g-memdum.ads +++ b/gcc/ada/g-memdum.ads @@ -46,7 +46,7 @@ package GNAT.Memory_Dump is -- case of a byte addressable machine (and is therefore inapplicable to -- machines like the AAMP, where the storage unit is not 8 bits). The -- output is one or more lines in the following format, which is for the - -- case of 32-bit addresses (64-bit addressea are handled appropriately): + -- case of 32-bit addresses (64-bit addresses are handled appropriately): -- -- 0234_3368: 66 67 68 . . . 73 74 75 "fghijklmnopqstuv" -- diff --git a/gcc/ada/g-moreex.ads b/gcc/ada/g-moreex.ads index e786021f79a..9e4e3e29fd9 100644 --- a/gcc/ada/g-moreex.ads +++ b/gcc/ada/g-moreex.ads @@ -33,7 +33,7 @@ -- This package provides routines for accessing the most recently raised -- exception. This may be useful for certain logging activities. It may --- also be useful for mimicing implementation dependent capabilities in +-- also be useful for mimicking implementation dependent capabilities in -- Ada 83 compilers, but see also GNAT.Current_Exceptions for this usage. with Ada.Exceptions; diff --git a/gcc/ada/g-os_lib.adb b/gcc/ada/g-os_lib.adb index 6ed36053a54..91cff110336 100644 --- a/gcc/ada/g-os_lib.adb +++ b/gcc/ada/g-os_lib.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-pehage.adb b/gcc/ada/g-pehage.adb index f64181e1eb8..8d4733334d6 100644 --- a/gcc/ada/g-pehage.adb +++ b/gcc/ada/g-pehage.adb @@ -74,7 +74,7 @@ package body GNAT.Perfect_Hash_Generators is -- Random graphs are frequently used to solve difficult problems that do -- not have polynomial solutions. This algorithm is based on a weighted - -- undirected graph. It comprises two steps: mapping and assigment. + -- undirected graph. It comprises two steps: mapping and assignment. -- In the mapping step, a graph G = (V, E) is constructed, where = {0, 1, -- ..., n-1} and E = {(for w in W) (f1 (w), f2 (w))}. In order for the @@ -588,7 +588,7 @@ package body GNAT.Perfect_Hash_Generators is -- Start of processing for Assign_Values_To_Vertices begin - -- Value -1 denotes an unitialized value as it is supposed to + -- Value -1 denotes an uninitialized value as it is supposed to -- be in the range 0 .. NK. if G = No_Table then @@ -2144,7 +2144,7 @@ package body GNAT.Perfect_Hash_Generators is loop -- Preserve maximum number of different keys and check later on -- that this value is strictly incrementing. Otherwise, it means - -- that two keys are stricly identical. + -- that two keys are strictly identical. Old_Differences := Max_Differences; diff --git a/gcc/ada/g-pehage.ads b/gcc/ada/g-pehage.ads index 5ba3fc5d58c..b2aea490eed 100644 --- a/gcc/ada/g-pehage.ads +++ b/gcc/ada/g-pehage.ads @@ -62,7 +62,7 @@ -- The functions generated by this package require the key set to be known in -- advance (they are "static" hash functions). The hash functions are also --- order preservering. If w2 is inserted after w1 in the generator, then (w1) +-- order preserving. If w2 is inserted after w1 in the generator, then (w1) -- < f (w2). These hashing functions are convenient for use with realtime -- applications. @@ -71,7 +71,7 @@ package GNAT.Perfect_Hash_Generators is Default_K_To_V : constant Float := 2.05; -- Default ratio for the algorithm. When K is the number of keys, V = -- (K_To_V) * K is the size of the main table of the hash function. To - -- converge, the algorithm requires K_To_V to be stricly greater than 2.0. + -- converge, the algorithm requires K_To_V to be strictly greater than 2.0. Default_Pkg_Name : constant String := "Perfect_Hash"; -- Default package name in which the hash function is defined @@ -113,7 +113,7 @@ package GNAT.Perfect_Hash_Generators is -- Insert a new key in the table Too_Many_Tries : exception; - -- Raised after Tries unsuccessfull runs + -- Raised after Tries unsuccessful runs procedure Compute (Position : String := Default_Position); -- Compute the hash function. Position allows to define selection of diff --git a/gcc/ada/g-regexp.adb b/gcc/ada/g-regexp.adb index 65c1166bff1..2ccac8dc79a 100644 --- a/gcc/ada/g-regexp.adb +++ b/gcc/ada/g-regexp.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-regexp.ads b/gcc/ada/g-regexp.ads index e26d0c61365..5f4ddf6c4a5 100644 --- a/gcc/ada/g-regexp.ads +++ b/gcc/ada/g-regexp.ads @@ -43,7 +43,7 @@ -- Summary of Pattern Matching Packages in GNAT Hierarchy -- ------------------------------------------------------------ --- There are three related packages that perform pattern maching functions. +-- There are three related packages that perform pattern matching functions. -- the following is an outline of these packages, to help you determine -- which is best for your needs. @@ -62,7 +62,7 @@ -- stored in a binary compatible manner. -- GNAT.Spitbol.Patterns (files g-spipat.ads/g-spipat.adb) --- This is a completely general patterm matching package based on the +-- This is a completely general pattern matching package based on the -- pattern language of SNOBOL4, as implemented in SPITBOL. The pattern -- language is modeled on context free grammars, with context sensitive -- extensions that provide full (type 0) computational capabilities. diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb index e7a488a1435..658a3a6a7ed 100644 --- a/gcc/ada/g-regpat.adb +++ b/gcc/ada/g-regpat.adb @@ -34,6 +34,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-regpat.ads b/gcc/ada/g-regpat.ads index 46b46f40289..13c7771270a 100644 --- a/gcc/ada/g-regpat.ads +++ b/gcc/ada/g-regpat.ads @@ -46,7 +46,7 @@ -- Summary of Pattern Matching Packages in GNAT Hierarchy -- ------------------------------------------------------------ --- There are three related packages that perform pattern maching functions. +-- There are three related packages that perform pattern matching functions. -- the following is an outline of these packages, to help you determine -- which is best for your needs. diff --git a/gcc/ada/g-soccon-aix.ads b/gcc/ada/g-soccon-aix.ads index b1f6376082d..5b36015b1b3 100644 --- a/gcc/ada/g-soccon-aix.ads +++ b/gcc/ada/g-soccon-aix.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 75; -- Socket already connected - ELOOP : constant := 85; -- Too many symbolic lynks + ELOOP : constant := 85; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 59; -- Message too long ENAMETOOLONG : constant := 86; -- Name too long diff --git a/gcc/ada/g-soccon-darwin.ads b/gcc/ada/g-soccon-darwin.ads index b48c4df65ed..495b7b33fb0 100644 --- a/gcc/ada/g-soccon-darwin.ads +++ b/gcc/ada/g-soccon-darwin.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long diff --git a/gcc/ada/g-soccon-freebsd.ads b/gcc/ada/g-soccon-freebsd.ads index c07fc1852d6..14fbf9d5299 100644 --- a/gcc/ada/g-soccon-freebsd.ads +++ b/gcc/ada/g-soccon-freebsd.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long diff --git a/gcc/ada/g-soccon-hpux-ia64.ads b/gcc/ada/g-soccon-hpux-ia64.ads index 3caa99cc0ad..38e287ef58a 100644 --- a/gcc/ada/g-soccon-hpux-ia64.ads +++ b/gcc/ada/g-soccon-hpux-ia64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 234; -- Socket already connected - ELOOP : constant := 249; -- Too many symbolic lynks + ELOOP : constant := 249; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 218; -- Message too long ENAMETOOLONG : constant := 248; -- Name too long diff --git a/gcc/ada/g-soccon-hpux.ads b/gcc/ada/g-soccon-hpux.ads index 9be66ad4f08..c1851faee11 100644 --- a/gcc/ada/g-soccon-hpux.ads +++ b/gcc/ada/g-soccon-hpux.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 234; -- Socket already connected - ELOOP : constant := 249; -- Too many symbolic lynks + ELOOP : constant := 249; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 218; -- Message too long ENAMETOOLONG : constant := 248; -- Name too long diff --git a/gcc/ada/g-soccon-irix.ads b/gcc/ada/g-soccon-irix.ads index 1f367548705..a00ff051b54 100644 --- a/gcc/ada/g-soccon-irix.ads +++ b/gcc/ada/g-soccon-irix.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 133; -- Socket already connected - ELOOP : constant := 90; -- Too many symbolic lynks + ELOOP : constant := 90; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 97; -- Message too long ENAMETOOLONG : constant := 78; -- Name too long diff --git a/gcc/ada/g-soccon-linux-64.ads b/gcc/ada/g-soccon-linux-64.ads index 0cbafed9fe0..cd4332df743 100644 --- a/gcc/ada/g-soccon-linux-64.ads +++ b/gcc/ada/g-soccon-linux-64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-soccon-linux-ppc.ads b/gcc/ada/g-soccon-linux-ppc.ads index eb254e94ca2..52bd5062264 100644 --- a/gcc/ada/g-soccon-linux-ppc.ads +++ b/gcc/ada/g-soccon-linux-ppc.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-soccon-linux-x86.ads b/gcc/ada/g-soccon-linux-x86.ads index ca1418f3fca..b1c9188c7bc 100644 --- a/gcc/ada/g-soccon-linux-x86.ads +++ b/gcc/ada/g-soccon-linux-x86.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-soccon-lynxos.ads b/gcc/ada/g-soccon-lynxos.ads index f93e88e53ff..ee0fa91596e 100644 --- a/gcc/ada/g-soccon-lynxos.ads +++ b/gcc/ada/g-soccon-lynxos.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-soccon-mingw.ads b/gcc/ada/g-soccon-mingw.ads index dc39f810e2f..1266a4bfdc9 100644 --- a/gcc/ada/g-soccon-mingw.ads +++ b/gcc/ada/g-soccon-mingw.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 10022; -- Invalid argument EIO : constant := 10101; -- Input output error EISCONN : constant := 10056; -- Socket already connected - ELOOP : constant := 10062; -- Too many symbolic lynks + ELOOP : constant := 10062; -- Too many symbolic links EMFILE : constant := 10024; -- Too many open files EMSGSIZE : constant := 10040; -- Message too long ENAMETOOLONG : constant := 10063; -- Name too long @@ -195,7 +195,7 @@ package GNAT.Sockets.Constants is WSASYSNOTREADY : constant := 10091; -- System not ready WSAVERNOTSUPPORTED : constant := 10092; -- Version not supported - WSANOTINITIALISED : constant := 10093; -- Winsock not intialized + WSANOTINITIALISED : constant := 10093; -- Winsock not initialized WSAEDISCON : constant := 10101; -- Disconnected ---------------------- diff --git a/gcc/ada/g-soccon-solaris-64.ads b/gcc/ada/g-soccon-solaris-64.ads index 5f57e176cb3..7cd8c8b2c25 100644 --- a/gcc/ada/g-soccon-solaris-64.ads +++ b/gcc/ada/g-soccon-solaris-64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 133; -- Socket already connected - ELOOP : constant := 90; -- Too many symbolic lynks + ELOOP : constant := 90; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 97; -- Message too long ENAMETOOLONG : constant := 78; -- Name too long diff --git a/gcc/ada/g-soccon-solaris.ads b/gcc/ada/g-soccon-solaris.ads index 4b433bf5792..cd0aebd5125 100644 --- a/gcc/ada/g-soccon-solaris.ads +++ b/gcc/ada/g-soccon-solaris.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 133; -- Socket already connected - ELOOP : constant := 90; -- Too many symbolic lynks + ELOOP : constant := 90; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 97; -- Message too long ENAMETOOLONG : constant := 78; -- Name too long diff --git a/gcc/ada/g-soccon-tru64.ads b/gcc/ada/g-soccon-tru64.ads index 8e16fbe7e39..959625ef9c5 100644 --- a/gcc/ada/g-soccon-tru64.ads +++ b/gcc/ada/g-soccon-tru64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long diff --git a/gcc/ada/g-soccon-vms.ads b/gcc/ada/g-soccon-vms.ads index 44b8523a36a..8634a0a00f4 100644 --- a/gcc/ada/g-soccon-vms.ads +++ b/gcc/ada/g-soccon-vms.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long diff --git a/gcc/ada/g-soccon-vxworks.ads b/gcc/ada/g-soccon-vxworks.ads index 4168d2c9975..173a591c46e 100644 --- a/gcc/ada/g-soccon-vxworks.ads +++ b/gcc/ada/g-soccon-vxworks.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 64; -- Too many symbolic lynks + ELOOP : constant := 64; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 36; -- Message too long ENAMETOOLONG : constant := 26; -- Name too long diff --git a/gcc/ada/g-soccon.ads b/gcc/ada/g-soccon.ads index b57711d976e..d7556a12a71 100644 --- a/gcc/ada/g-soccon.ads +++ b/gcc/ada/g-soccon.ads @@ -84,7 +84,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index e491eed89ac..896a2c45652 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -61,7 +61,7 @@ package body GNAT.Sockets is -- the operating system, or else return data through a user-provided buffer -- to ensure concurrent uses do not interfere. - -- Correspondance tables + -- Correspondence tables Families : constant array (Family_Type) of C.int := (Family_Inet => Constants.AF_INET, @@ -152,7 +152,7 @@ package body GNAT.Sockets is function Network_To_Short (S : C.unsigned_short) return C.unsigned_short renames Short_To_Network; - -- Symetric operation + -- Symmetric operation function Image (Val : Inet_Addr_VN_Type; @@ -547,7 +547,7 @@ package body GNAT.Sockets is Signalling_Fds.Close (C.int (Selector.W_Sig_Socket)); -- Reset R_Sig_Socket and W_Sig_Socket to No_Socket to ensure that any - -- (errneous) subsequent attempt to use this selector properly fails. + -- (erroneous) subsequent attempt to use this selector properly fails. Selector.R_Sig_Socket := No_Socket; Selector.W_Sig_Socket := No_Socket; diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 105f285a8b4..38b857432b1 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -432,7 +432,7 @@ package GNAT.Sockets is type Inet_Addr_Type (Family : Family_Type := Family_Inet) is private; -- An Internet address depends on an address family (IPv4 contains 4 - -- octets and Ipv6 contains 16 octets). Any_Inet_Addr is a special value + -- octets and IPv6 contains 16 octets). Any_Inet_Addr is a special value -- treated like a wildcard enabling all addresses. No_Inet_Addr provides a -- special value to denote uninitialized inet addresses. diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb index 5376e986e15..78d5c3feadc 100644 --- a/gcc/ada/g-socthi-mingw.adb +++ b/gcc/ada/g-socthi-mingw.adb @@ -303,7 +303,7 @@ package body GNAT.Sockets.Thin is begin -- Asynchronous connection failures are notified in the -- exception fd set instead of the write fd set. To ensure - -- POSIX compatitibility, copy write fd set into exception fd + -- POSIX compatibility, copy write fd set into exception fd -- set. Once select() returns, check any socket present in the -- exception fd set and peek at incoming out-of-band data. If -- the test is not successful, and the socket is present in diff --git a/gcc/ada/g-socthi-vms.adb b/gcc/ada/g-socthi-vms.adb index bd27a32d2ec..0d620c2e990 100644 --- a/gcc/ada/g-socthi-vms.adb +++ b/gcc/ada/g-socthi-vms.adb @@ -144,7 +144,7 @@ package body GNAT.Sockets.Thin is if not Constants.Thread_Blocking_IO and then R /= Failure then - -- A socket inherits the properties ot its server especially + -- A socket inherits the properties of its server, especially -- the FIONBIO flag. Do not use C_Ioctl as this subprogram -- tracks sockets set in non-blocking mode by user. diff --git a/gcc/ada/g-socthi-vxworks.adb b/gcc/ada/g-socthi-vxworks.adb index 84394727f8e..681ea861b42 100644 --- a/gcc/ada/g-socthi-vxworks.adb +++ b/gcc/ada/g-socthi-vxworks.adb @@ -156,7 +156,7 @@ package body GNAT.Sockets.Thin is if not Constants.Thread_Blocking_IO and then R /= Failure then - -- A socket inherits the properties ot its server especially + -- A socket inherits the properties of its server especially -- the FIONBIO flag. Do not use C_Ioctl as this subprogram -- tracks sockets set in non-blocking mode by user. diff --git a/gcc/ada/g-soliop-mingw.ads b/gcc/ada/g-soliop-mingw.ads index 01007ccd291..ba7faa4fed0 100644 --- a/gcc/ada/g-soliop-mingw.ads +++ b/gcc/ada/g-soliop-mingw.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package is used to provide target specific linker_options for the --- support of scokets as required by the package GNAT.Sockets. +-- support of sockets as required by the package GNAT.Sockets. -- This is the Windows/NT version of this package diff --git a/gcc/ada/g-soliop-solaris.ads b/gcc/ada/g-soliop-solaris.ads index e4774c0b8f5..cd3c5a3e68d 100644 --- a/gcc/ada/g-soliop-solaris.ads +++ b/gcc/ada/g-soliop-solaris.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package is used to provide target specific linker_options for the --- support of scokets as required by the package GNAT.Sockets. +-- support of sockets as required by the package GNAT.Sockets. -- This is the Solaris version of this package diff --git a/gcc/ada/g-soliop.ads b/gcc/ada/g-soliop.ads index 604542f54bf..60a3bd98f6d 100644 --- a/gcc/ada/g-soliop.ads +++ b/gcc/ada/g-soliop.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package is used to provide target specific linker_options for the --- support of scokets as required by the package GNAT.Sockets. +-- support of sockets as required by the package GNAT.Sockets. -- This is an empty version for default use where no additional libraries -- are required. On some targets a target specific version of this unit diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index 1e0c85c22c4..b39f2e5f4fa 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -102,7 +102,7 @@ package body GNAT.Spitbol.Patterns is -- I parameter(s) I -- +------------------------------------+ - -- Pcode is a code value indicating the type of the patterm node. This + -- Pcode is a code value indicating the type of the pattern node. This -- code is used both as the discriminant value for the record, and as -- the case index in the main match routine that branches to the proper -- match code for the given element. @@ -113,7 +113,7 @@ package body GNAT.Spitbol.Patterns is -- Pthen is a pointer to the successor node, i.e the node to be matched -- if the attempt to match the node succeeds. If this is the last node -- of the pattern to be matched, then Pthen points to a dummy node - -- of kind PC_EOP (end of pattern), which initiales pattern exit. + -- of kind PC_EOP (end of pattern), which initializes pattern exit. -- The parameter or parameters are present for certain node types, -- and the type varies with the pattern code. @@ -431,7 +431,7 @@ package body GNAT.Spitbol.Patterns is --------------------------------------------------- -- The serial index numbers for the pattern elements are assigned as - -- a pattern is consructed from its constituent elements. Note that there + -- a pattern is constructed from its constituent elements. Note that there -- is never any sharing of pattern elements between patterns (copies are -- always made), so the serial index numbers are unique to a particular -- pattern as referenced from the P field of a value of type Pattern. @@ -449,7 +449,7 @@ package body GNAT.Spitbol.Patterns is -- pattern (e.g. copy and finalization processing). Once constructed -- patterns are strictly read only. This is necessary to allow sharing -- of patterns between tasks. This means that we cannot go marking the - -- pattern (e.g. with a visited bit). Instead we cosntuct a separate + -- pattern (e.g. with a visited bit). Instead we construct a separate -- vector that contains the necessary information indexed by the Index -- values in the pattern elements. For this purpose the only requirement -- is that they be uniquely assigned. @@ -469,7 +469,7 @@ package body GNAT.Spitbol.Patterns is -- Third, as compound pattern structures are constructed, the way in which -- constituent parts of the pattern are constructed is stylized. This is - -- an automatic consequence of the way that these compounjd structures + -- an automatic consequence of the way that these compound structures -- are constructed, and basically what we are doing is simply documenting -- and specifying the natural result of the pattern construction. The -- section describing compound pattern structures gives details of the @@ -588,7 +588,7 @@ package body GNAT.Spitbol.Patterns is -- stack is used to control the backtracking. Finally, it notes the -- way in which the Index numbers are assigned to the structure. - -- In all diagrams, solid lines (built witth minus signs or vertical + -- In all diagrams, solid lines (built with minus signs or vertical -- bars, represent successor pointers (Pthen fields) with > or V used -- to indicate the direction of the pointer. The initial node of the -- structure is in the upper left of the diagram. A dotted line is an @@ -600,7 +600,7 @@ package body GNAT.Spitbol.Patterns is ------------------- -- In the pattern structures listed in this section, a line that looks - -- lile ----> with nothing to the right indicates an end of pattern + -- like ----> with nothing to the right indicates an end of pattern -- (EOP) pointer that represents the end of the match. -- When a pattern concatenation (L & R) occurs, the resulting structure @@ -609,7 +609,7 @@ package body GNAT.Spitbol.Patterns is -- occurs in constructing a pattern, and it means that the pattern -- matching circuitry does not have to keep track of the structure -- of a pattern with respect to concatenation, since the appropriate - -- succesor is always at hand. + -- successor is always at hand. -- Concatenation itself generates no additional possibilities for -- backtracking, but the constituent patterns of the concatenated @@ -643,7 +643,7 @@ package body GNAT.Spitbol.Patterns is -- it stacks a pointer to the leading element of R on the history stack -- so that on subsequent failure, a match of R is attempted. - -- The A node is the higest numbered element in the pattern. The + -- The A node is the highest numbered element in the pattern. The -- original index numbers of R are unchanged, but the index numbers -- of the L pattern are adjusted up by the count of elements in R. @@ -941,7 +941,7 @@ package body GNAT.Spitbol.Patterns is -- described below. -- It then stores a pointer to itself in the special entry node field. - -- This was otherwise unused, and is now used to retrive the address + -- This was otherwise unused, and is now used to retrieve the address -- of the variable to be assigned at the end of the pattern. -- After that the inner region is terminated in the usual manner, @@ -999,7 +999,7 @@ package body GNAT.Spitbol.Patterns is -- string, starting at the current cursor position. It then updates -- the cursor past this matched string, and stacks a pointer to itself -- with this updated cursor value on the history stack, to extend the - -- matched string on a subequent failure. + -- matched string on a subsequent failure. -- Since this is a single node it is numbered 1 (the reason we include -- it in the compound patterns section is that it backtracks). @@ -1174,7 +1174,7 @@ package body GNAT.Spitbol.Patterns is -- The following pattern elements are referenced only from the pattern -- history stack. In each case the processing for the pattern element - -- results in pattern match abort, or futher failure, so there is no + -- results in pattern match abort, or further failure, so there is no -- need for a successor and no need for a node number CP_Assign : aliased PE := (PC_Assign, 0, N); @@ -1208,11 +1208,11 @@ package body GNAT.Spitbol.Patterns is -- understand a typical use of this function). function BreakX_Make (B : PE_Ptr) return Pattern; - -- Given a pattern element for a Break patternx, returns the + -- Given a pattern element for a Break pattern, returns the -- corresponding BreakX compound pattern structure. function Concat (L, R : PE_Ptr; Incr : Natural) return PE_Ptr; - -- Creates a pattern eelement that represents a concatenation of the + -- Creates a pattern element that represents a concatenation of the -- two given pattern elements (i.e. the pattern L followed by R). -- The result returned is always the same as L, but the pattern -- referenced by L is modified to have R as a successor. This @@ -1304,7 +1304,7 @@ package body GNAT.Spitbol.Patterns is Start : out Natural; Stop : out Natural); -- Identical in all respects to XMatch, except that trace information is - -- output on Standard_Ouput during execution of the match. This is the + -- output on Standard_Output during execution of the match. This is the -- version that is called if the original Match call has Debug => True. --------- @@ -1590,7 +1590,7 @@ package body GNAT.Spitbol.Patterns is return new PE'(PC_Alt, R.Index + 1, EOP, R); -- If the left pattern is non-null, then build a reference vector - -- for its elements, and adjust their index values to acccomodate + -- for its elements, and adjust their index values to accommodate -- the right hand elements. Then add the alternation node. else @@ -3707,14 +3707,14 @@ package body GNAT.Spitbol.Patterns is procedure Pop_Region; pragma Inline (Pop_Region); - -- Used at the end of processing of an inner region. if the inner + -- Used at the end of processing of an inner region. If the inner -- region left no stack entries, then all trace of it is removed. -- Otherwise a PC_Restore_Region entry is pushed to ensure proper -- handling of alternatives in the inner region. procedure Push (Node : PE_Ptr); pragma Inline (Push); - -- Make entry in pattern matching stack with current cursor valeu + -- Make entry in pattern matching stack with current cursor value procedure Push_Region; pragma Inline (Push_Region); @@ -5022,14 +5022,14 @@ package body GNAT.Spitbol.Patterns is procedure Pop_Region; pragma Inline (Pop_Region); - -- Used at the end of processing of an inner region. if the inner + -- Used at the end of processing of an inner region. If the inner -- region left no stack entries, then all trace of it is removed. -- Otherwise a PC_Restore_Region entry is pushed to ensure proper -- handling of alternatives in the inner region. procedure Push (Node : PE_Ptr); pragma Inline (Push); - -- Make entry in pattern matching stack with current cursor valeu + -- Make entry in pattern matching stack with current cursor value procedure Push_Region; pragma Inline (Push_Region); diff --git a/gcc/ada/g-spipat.ads b/gcc/ada/g-spipat.ads index af4aed19f57..8ce8b1620e1 100644 --- a/gcc/ada/g-spipat.ads +++ b/gcc/ada/g-spipat.ads @@ -41,7 +41,7 @@ -- Summary of Pattern Matching Packages in GNAT Hierarchy -- ------------------------------------------------------------ --- There are three related packages that perform pattern maching functions. +-- There are three related packages that perform pattern matching functions. -- the following is an outline of these packages, to help you determine -- which is best for your needs. @@ -154,7 +154,7 @@ package GNAT.Spitbol.Patterns is -- ("ABC" or "AB") & ("DEF" or "CDE") & ("GH" or "IJ") - -- would succeed, afer two anchor point moves: + -- would succeed, after two anchor point moves: -- "ABABCDEIJKL" -- ^^^^^^^ @@ -226,7 +226,7 @@ package GNAT.Spitbol.Patterns is -- of the pattern, starting with zero occurrences. It is -- thus equivalent to ("" or (P & ("" or (P & ("" ....)))). -- The pattern P may contain any number of pattern elements - -- including the use of alternatiion and concatenation. + -- including the use of alternation and concatenation. -- Break(S) Where S is a string, matches a string of zero or more -- characters up to but not including a break character @@ -237,7 +237,7 @@ package GNAT.Spitbol.Patterns is -- BreakX(S) Where S is a string, behaves exactly like Break(S) when -- it first matches, but if a string is successfully matched, - -- then a susequent failure causes an attempt to extend the + -- then a subsequent failure causes an attempt to extend the -- matched string. -- Fence(P) Where P is a pattern, attempts to match the pattern P @@ -247,7 +247,7 @@ package GNAT.Spitbol.Patterns is -- match proceeds, but on a subsequent failure, no attempt -- is made to search for alternative matches of P. The -- pattern P may contain any number of pattern elements - -- including the use of alternatiion and concatenation. + -- including the use of alternation and concatenation. -- Len(N) Where N is a natural number, matches the given number of -- characters. For example, Len(10) matches any string that @@ -255,7 +255,7 @@ package GNAT.Spitbol.Patterns is -- NotAny(S) Where S is a string, matches a single character that is -- not one of the characters of S. Fails if the current - -- characer is one of the given set of characters. + -- character is one of the given set of characters. -- NSpan(S) Where S is a string, matches a string of zero or more -- characters that is among the characters given in the @@ -690,7 +690,7 @@ package GNAT.Spitbol.Patterns is -- if the language allowed, we would use in out parameters, but we are -- not allowed to have in out parameters for functions. Instead we pass -- actuals which must be variables, and with a bit of trickery in the - -- body, manage to interprete them properly as though they were indeed + -- body, manage to interpret them properly as though they were indeed -- in out parameters. pragma Warnings (Off, VString_Var); @@ -832,7 +832,7 @@ package GNAT.Spitbol.Patterns is -- causes the entire match to be aborted if a subsequent failure occurs. function Fence (P : Pattern) return Pattern; - -- Constructs a pattern that first matches P. if P fails, then the + -- Constructs a pattern that first matches P. If P fails, then the -- constructed pattern fails. If P succeeds, then the match proceeds, -- but if subsequent failure occurs, alternatives in P are not sought. -- The idea of Fence is that each time the pattern is matched, just @@ -1054,7 +1054,7 @@ package GNAT.Spitbol.Patterns is -- if the language allowed, we would use an in out parameter, but we are -- not allowed to have in out parameters for functions. Instead we pass -- actuals which must be variables, and with a bit of trickery in the - -- body, manage to interprete them properly as though they were indeed + -- body, manage to interpret them properly as though they were indeed -- in out parameters. function Match @@ -1142,8 +1142,8 @@ package GNAT.Spitbol.Patterns is private type PE; - -- Pattern element, a pattern is a plex structure of PE's. This type - -- is defined and sdescribed in the body of this package. + -- Pattern element, a pattern is a complex structure of PE's. This type + -- is defined and described in the body of this package. type PE_Ptr is access all PE; -- Pattern reference. PE's use PE_Ptr values to reference other PE's diff --git a/gcc/ada/g-string.adb b/gcc/ada/g-string.adb index bdbb995ff95..86b02f5d1f4 100644 --- a/gcc/ada/g-string.adb +++ b/gcc/ada/g-string.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-stsifd-sockets.adb b/gcc/ada/g-stsifd-sockets.adb index 02c852cad86..5fcaa00b37c 100644 --- a/gcc/ada/g-stsifd-sockets.adb +++ b/gcc/ada/g-stsifd-sockets.adb @@ -162,7 +162,7 @@ package body Signalling_Fds is R_Sock := Failure; end loop; - -- Since the call to connect(2) has suceeded and the backlog limit on + -- Since the call to connect(2) has succeeded and the backlog limit on -- the listening socket is 1, we know that there is now exactly one -- pending connection on L_Sock, which is the one from R_Sock.