OSDN Git Service

gcc/ada/
authorrwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 30 Mar 2008 19:39:01 +0000 (19:39 +0000)
committerrwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 30 Mar 2008 19:39:01 +0000 (19:39 +0000)
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133735 138bc75d-0d04-0410-961f-82ee72b054a4

92 files changed:
gcc/ada/ChangeLog
gcc/ada/a-textio.ads
gcc/ada/a-witeio.ads
gcc/ada/a-ztexio.ads
gcc/ada/ali.ads
gcc/ada/einfo.ads
gcc/ada/erroutc.adb
gcc/ada/erroutc.ads
gcc/ada/exp_attr.adb
gcc/ada/exp_imgv.adb
gcc/ada/exp_intr.adb
gcc/ada/exp_pakd.adb
gcc/ada/exp_pakd.ads
gcc/ada/exp_prag.adb
gcc/ada/exp_smem.adb
gcc/ada/exp_tss.ads
gcc/ada/exp_util.adb
gcc/ada/exp_util.ads
gcc/ada/exp_vfpt.adb
gcc/ada/freeze.adb
gcc/ada/freeze.ads
gcc/ada/frontend.adb
gcc/ada/g-alleve.adb
gcc/ada/g-altcon.adb
gcc/ada/g-altive.ads
gcc/ada/g-alveop.ads
gcc/ada/g-alvevi.ads
gcc/ada/g-arrspl.adb
gcc/ada/g-busorg.ads
gcc/ada/g-calend.adb
gcc/ada/g-calend.ads
gcc/ada/g-casuti.ads
gcc/ada/g-cgideb.adb
gcc/ada/g-comlin.adb
gcc/ada/g-comlin.ads
gcc/ada/g-curexc.ads
gcc/ada/g-debpoo.adb
gcc/ada/g-debpoo.ads
gcc/ada/g-decstr.adb
gcc/ada/g-dirope.adb
gcc/ada/g-dirope.ads
gcc/ada/g-dynhta.ads
gcc/ada/g-dyntab.adb
gcc/ada/g-encstr.ads
gcc/ada/g-excact.ads
gcc/ada/g-except.ads
gcc/ada/g-expect.ads
gcc/ada/g-heasor.adb
gcc/ada/g-hesora.adb
gcc/ada/g-hesorg.adb
gcc/ada/g-htable.ads
gcc/ada/g-locfil.ads
gcc/ada/g-md5.adb
gcc/ada/g-md5.ads
gcc/ada/g-memdum.ads
gcc/ada/g-moreex.ads
gcc/ada/g-os_lib.adb
gcc/ada/g-pehage.adb
gcc/ada/g-pehage.ads
gcc/ada/g-regexp.adb
gcc/ada/g-regexp.ads
gcc/ada/g-regpat.adb
gcc/ada/g-regpat.ads
gcc/ada/g-soccon-aix.ads
gcc/ada/g-soccon-darwin.ads
gcc/ada/g-soccon-freebsd.ads
gcc/ada/g-soccon-hpux-ia64.ads
gcc/ada/g-soccon-hpux.ads
gcc/ada/g-soccon-irix.ads
gcc/ada/g-soccon-linux-64.ads
gcc/ada/g-soccon-linux-ppc.ads
gcc/ada/g-soccon-linux-x86.ads
gcc/ada/g-soccon-lynxos.ads
gcc/ada/g-soccon-mingw.ads
gcc/ada/g-soccon-solaris-64.ads
gcc/ada/g-soccon-solaris.ads
gcc/ada/g-soccon-tru64.ads
gcc/ada/g-soccon-vms.ads
gcc/ada/g-soccon-vxworks.ads
gcc/ada/g-soccon.ads
gcc/ada/g-socket.adb
gcc/ada/g-socket.ads
gcc/ada/g-socthi-mingw.adb
gcc/ada/g-socthi-vms.adb
gcc/ada/g-socthi-vxworks.adb
gcc/ada/g-soliop-mingw.ads
gcc/ada/g-soliop-solaris.ads
gcc/ada/g-soliop.ads
gcc/ada/g-spipat.adb
gcc/ada/g-spipat.ads
gcc/ada/g-string.adb
gcc/ada/g-stsifd-sockets.adb

index 9a2e07f..703721b 100644 (file)
@@ -1,3 +1,40 @@
+2008-03-30  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
+
+       * 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  <ebotcazou@adacore.com>
 
        * decl.c (gnat_to_gnu_entity) <E_Procedure>: Also set the public flag
index 8e39264..45f422f 100644 (file)
@@ -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.
 
index b7d06ea..0ea32ce 100644 (file)
@@ -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,
index dd872dc..f915992 100644 (file)
@@ -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,
index 90c8e0d..c632c65 100644 (file)
@@ -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;
index 45e5e5b..145a262 100644 (file)
@@ -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 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 (
index 383f018..c8a0e17 100644 (file)
@@ -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.
index 04e1a4a..1f4eebf 100644 (file)
@@ -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
index a5ff001..bf5e9d7 100644 (file)
@@ -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
index df3d7e8..0ecdad2 100644 (file)
@@ -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
index 96e8c2c..49cdfe0 100644 (file)
@@ -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.
index 68feec5..21a78ac 100644 (file)
@@ -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).
 
index df5ceb0..690ec21 100644 (file)
@@ -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.
 
index deabc2d..3da72eb 100644 (file)
@@ -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
index e5889bf..ae1ea9b 100644 (file)
@@ -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).
 
index 53dd5fc..2473d4a 100644 (file)
@@ -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
index 28f6d6e..82f3fcf 100644 (file)
@@ -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)
index 737b397..9c99323 100644 (file)
@@ -258,7 +258,7 @@ package Exp_Util is
    --    System_Tasking_Protected_Objects_Single_Entry
 
    function Current_Sem_Unit_Declarations return List_Id;
-   --  Return the 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.
 
index ba3b383..0537cf0 100644 (file)
@@ -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.
index edd52f5..d1d72d7 100644 (file)
@@ -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
index 13afe37..64a1327 100644 (file)
@@ -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.
 
index 6d01843..b6fde43 100644 (file)
@@ -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);
index 329106f..33a8d49 100644 (file)
@@ -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;
index f04745a..d3698a1 100644 (file)
@@ -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.
 
index bbfd0f5..3a0caa1 100644 (file)
 --  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.
index 7e77d7f..fc5728a 100644 (file)
@@ -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);
index bd3a299..32f4383 100644 (file)
@@ -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
index bcbc8c4..879aaac 100644 (file)
@@ -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 --
index e99ba2a..b7d4545 100644 (file)
@@ -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
index e2edaff..41fcd24 100644 (file)
@@ -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
index e3cc791..4216195 100644 (file)
@@ -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.
 
index cae617c..d880eea 100644 (file)
@@ -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;
index c3a0945..de20de3 100644 (file)
@@ -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
 
index d661978..e90af87 100644 (file)
@@ -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,
index 6da8237..9c8ebc7 100644 (file)
@@ -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
index 783a648..0e62ea3 100644 (file)
@@ -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;
index dc4896c..14f1191 100644 (file)
@@ -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.
index d3072c3..ca38680 100644 (file)
@@ -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.
 
index 580ad15..5647038 100755 (executable)
@@ -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
index 0cccaba..d34635c 100644 (file)
@@ -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;
index c489ecc..3820a8c 100644 (file)
@@ -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).
 
index 2518fe9..cbb933a 100644 (file)
@@ -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.
 
index 32604bd..9ad9228 100644 (file)
@@ -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
index 5862bbe..2f0381d 100755 (executable)
@@ -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
index 09b481b..46fa32c 100644 (file)
@@ -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
index 9daa08d..d8428b7 100644 (file)
@@ -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
index 7d9eced..5ec6f99 100644 (file)
@@ -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;
index 83df124..d520ef1 100644 (file)
@@ -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
index 73cdcaa..ed68618 100644 (file)
@@ -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
index 10700b0..d7870d6 100644 (file)
@@ -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
index b852cce..6373fa2 100644 (file)
@@ -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.
 
index 8bdc2be..f404a61 100644 (file)
@@ -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;
index 158c9c7..c41dae7 100644 (file)
@@ -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
index b744cdf..2231596 100644 (file)
@@ -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;
index 484765f..f3ebd1a 100644 (file)
@@ -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"
    --
index e786021..9e4e3e2 100644 (file)
@@ -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;
index 6ed3605..91cff11 100644 (file)
@@ -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;
index f64181e..8d47333 100644 (file)
@@ -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;
 
index 5ba3fc5..b2aea49 100644 (file)
@@ -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
index 65c1166..2ccac8d 100644 (file)
@@ -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;
index e26d0c6..5f4ddf6 100644 (file)
@@ -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.
index e7a488a..658a3a6 100644 (file)
@@ -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;
index 46b46f4..13c7771 100644 (file)
@@ -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.
 
index b1f6376..5b36015 100644 (file)
@@ -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
index b48c4df..495b7b3 100644 (file)
@@ -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
index c07fc18..14fbf9d 100644 (file)
@@ -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
index 3caa99c..38e287e 100644 (file)
@@ -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
index 9be66ad..c1851fa 100644 (file)
@@ -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
index 1f36754..a00ff05 100644 (file)
@@ -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
index 0cbafed..cd4332d 100644 (file)
@@ -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
index eb254e9..52bd506 100644 (file)
@@ -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
index ca1418f..b1c9188 100644 (file)
@@ -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
index f93e88e..ee0fa91 100644 (file)
@@ -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
index dc39f81..1266a4b 100644 (file)
@@ -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
 
    ----------------------
index 5f57e17..7cd8c8b 100644 (file)
@@ -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
index 4b433bf..cd0aebd 100644 (file)
@@ -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
index 8e16fbe..959625e 100644 (file)
@@ -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
index 44b8523..8634a0a 100644 (file)
@@ -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
index 4168d2c..173a591 100644 (file)
@@ -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
index b57711d..d7556a1 100644 (file)
@@ -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
index e491eed..896a2c4 100644 (file)
@@ -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;
index 105f285..38b8574 100644 (file)
@@ -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.
 
index 5376e98..78d5c3f 100644 (file)
@@ -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
index bd27a32..0d620c2 100644 (file)
@@ -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.
 
index 8439472..681ea86 100644 (file)
@@ -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.
 
index 01007cc..ba7faa4 100644 (file)
@@ -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
 
index e4774c0..cd3c5a3 100644 (file)
@@ -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
 
index 604542f..60a3bd9 100644 (file)
@@ -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
index 1e0c85c..b39f2e5 100644 (file)
@@ -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);
index af4aed1..8ce8b16 100644 (file)
@@ -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
index bdbb995..86b02f5 100644 (file)
@@ -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;
index 02c852c..5fcaa00 100644 (file)
@@ -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.