diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-05 10:32:23 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-05 10:32:23 +0000 |
| commit | fe410b3e0f7de0376d98b922113c80f9ab4bd192 (patch) | |
| tree | 2907bc726434f732f093ecd43d5f5ba62ac08265 /gcc/ada | |
| parent | 941f2a0d21995a3e06f340891a639c4462850312 (diff) | |
| download | gcc-fe410b3e0f7de0376d98b922113c80f9ab4bd192.tar.gz | |
2008-04-05 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r133930
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@133932 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
185 files changed, 586 insertions, 456 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9a2e07f8d9a..57c55e21868 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,104 @@ +2008-04-03 Paolo Bonzini <bonzini@gnu.org> + + * gigi.h (insert_block): Kill. + * utils.c (insert_block): Kill. + +2008-04-02 Eric Botcazou <ebotcazou@adacore.com> + + * decl.c (gnat_to_gnu_entity) <object>: For a constant object whose + type has self-referential size, get the size from the initializing + expression directly if it is also a constant whose nominal type + has self-referential size. + +2008-04-01 John David Anglin <dave.anglin@nrc-cnrc.gc.ca> + + PR ada/33688 + * g-soccon-darwin.ads: Define new constant IP_PKTINFO. + + PR ada/33857 + * env.c: Always include crt_externs.h if __APPLE__ is defined. + (__gnat_setenv): Use setenv instead of putenv if __APPLE__ is defined. + +2008-04-01 Andreas Jaeger <aj@suse.de> + + * g-soccon-linux-ppc.ads: Add new constants SO_REUSEPORT and + IP_PKTINFO. + +2008-03-31 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> + + * g-table.adb, g-tasloc.adb, g-traceb.ads, + g-trasym.adb, g-utf_32.adb, gen-soccon.c, gigi.h, gmem.c, + gnatbind.adb, gnatchop.adb, gnatcmd.adb, + gnatcmd.ads, gnatdll.adb, gnatfind.adb, + gnatlink.adb, gnatmem.adb, gprep.adb, + i-cstrea-vms.adb, i-cstrin.adb, i-pacdec.ads, + i-vxwork.ads, impunit.adb, init.c, initialize.c, inline.adb, + layout.adb, lib-writ.adb, lib-writ.ads, lib-xref.adb, + lib-xref.ads, lib.adb, link.c, live.ads, + make.adb, makegpr.adb, makeutl.adb, math_lib.adb, + mdll-utl.adb, mdll.ads, memroot.adb, memroot.ads, + misc.c, mlib-prj.adb, mlib-tgt-hpux.adb, + mlib-tgt-linux.adb, mlib-tgt-tru64.adb, mlib-tgt.ads, + namet.adb, namet.h, nlists.adb, nlists.ads, + nlists.h, opt.ads, osint-b.ads, osint-c.adb, + osint-c.ads, osint.adb, osint.ads, output.ads, + par-ch10.adb, par-ch12.adb, par-ch2.adb, par-ch3.adb, + par-ch4.adb, par-ch5.adb, par-ch6.adb, par-ch9.adb, + par-endh.adb, par-labl.adb, par-prag.adb, + par-sync.adb, par-tchk.adb, par-util.adb, + par.adb, prep.adb, prep.ads, prepcomp.adb, prj-attr.ads, + prj-dect.adb, prj-env.adb, prj-ext.adb, prj-nmsc.adb, + prj-nmsc.ads, prj-pp.adb, prj-proc.adb, + prj-strt.ads, prj-tree.ads, prj.adb, prj.ads: Fix comment typos. + +2008-03-31 Eric Botcazou <ebotcazou@adacore.com> + + * decl.c (gnat_to_gnu_entity) <object>: Do not force a non-null + size if it has overflowed. + +2008-03-31 Olivier Hainque <hainque@adacore.com> + Eric Botcazou <ebotcazou@adacore.com> + + * utils2.c (find_common_type): Document assumption on t1/t2 vs + lhs/rhs. Force use of lhs type if smaller, whatever the modes. + +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 diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index 8e3926479d5..45f422f7bf1 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -317,7 +317,7 @@ private -- omitted on output unless an explicit New_Page call is made before -- closing the file. No page mark is added when a file is appended to, -- so, in accordance with the permission in (RM A.10.2(4)), there may - -- or may not be a page mark separating preexising text in the file + -- or may not be a page mark separating preexisting text in the file -- from the new text to be written. -- A file mark is marked by the physical end of file. In DOS translation @@ -354,7 +354,7 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Ouput} functions which return + -- implement the Current_{Error,Input,Output} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads index b7d06ea8732..0ea32ce2b0c 100644 --- a/gcc/ada/a-witeio.ads +++ b/gcc/ada/a-witeio.ads @@ -138,7 +138,7 @@ package Ada.Wide_Text_IO is -- Buffer control -- -------------------- - -- Note: The paramter file is in out in the RM, but as pointed out + -- Note: The parameter file is in out in the RM, but as pointed out -- in <<95-5166.a Tucker Taft 95-6-23>> this is clearly an oversight. procedure Flush (File : File_Type); @@ -319,7 +319,7 @@ private -- omitted on output unless an explicit New_Page call is made before -- closing the file. No page mark is added when a file is appended to, -- so, in accordance with the permission in (RM A.10.2(4)), there may - -- or may not be a page mark separating preexising text in the file + -- or may not be a page mark separating preexisting text in the file -- from the new text to be written. -- A file mark is marked by the physical end of file. In DOS translation @@ -352,12 +352,12 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Ouput} functions which return + -- implement the Current_{Error,Input,Output} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. Before_LM : Boolean := False; - -- This flag is used to deal with the anomolies introduced by the + -- This flag is used to deal with the anomalies introduced by the -- peculiar definition of End_Of_File and End_Of_Page in Ada. These -- functions require looking ahead more than one character. Since -- there is no convenient way of backing up more than one character, diff --git a/gcc/ada/a-ztexio.ads b/gcc/ada/a-ztexio.ads index dd872dcfb1c..f91599295a4 100644 --- a/gcc/ada/a-ztexio.ads +++ b/gcc/ada/a-ztexio.ads @@ -138,7 +138,7 @@ package Ada.Wide_Wide_Text_IO is -- Buffer control -- -------------------- - -- Note: The paramter file is in out in the RM, but as pointed out + -- Note: The parameter file is in out in the RM, but as pointed out -- in <<95-5166.a Tucker Taft 95-6-23>> this is clearly an oversight. procedure Flush (File : File_Type); @@ -319,7 +319,7 @@ private -- omitted on output unless an explicit New_Page call is made before -- closing the file. No page mark is added when a file is appended to, -- so, in accordance with the permission in (RM A.10.2(4)), there may - -- or may not be a page mark separating preexising text in the file + -- or may not be a page mark separating preexisting text in the file -- from the new text to be written. -- A file mark is marked by the physical end of file. In DOS translation @@ -352,12 +352,12 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Ouput} functions which return + -- implement the Current_{Error,Input,Output} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. Before_LM : Boolean := False; - -- This flag is used to deal with the anomolies introduced by the + -- This flag is used to deal with the anomalies introduced by the -- peculiar definition of End_Of_File and End_Of_Page in Ada. These -- functions require looking ahead more than one character. Since -- there is no convenient way of backing up more than one character, diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index 90c8e0d50c9..c632c659045 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -845,12 +845,12 @@ package ALI is Oref_File_Num : Sdep_Id; -- This field is set to No_Sdep_Id if the entity doesn't override any - -- other entity, or to the dependency reference for the overriden + -- other entity, or to the dependency reference for the overridden -- entity. Oref_Line : Nat; Oref_Col : Nat; - -- These two fields are set to the line and column of the overriden + -- These two fields are set to the line and column of the overridden -- entity. First_Xref : Nat; diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 88198745fa8..ee9c1c58cde 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -607,15 +607,34 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) initializing expression, in which case we can get the size from that. Note that the resulting size may still be a variable, so this may end up with an indirect allocation. */ - if (No (Renamed_Object (gnat_entity)) && CONTAINS_PLACEHOLDER_P (TYPE_SIZE (gnu_type))) { if (gnu_expr && kind == E_Constant) - gnu_size - = SUBSTITUTE_PLACEHOLDER_IN_EXPR - (TYPE_SIZE (TREE_TYPE (gnu_expr)), gnu_expr); - + { + tree size = TYPE_SIZE (TREE_TYPE (gnu_expr)); + if (CONTAINS_PLACEHOLDER_P (size)) + { + /* If the initializing expression is itself a constant, + despite having a nominal type with self-referential + size, we can get the size directly from it. */ + if (TREE_CODE (gnu_expr) == COMPONENT_REF + && TREE_CODE (TREE_TYPE (TREE_OPERAND (gnu_expr, 0))) + == RECORD_TYPE + && TYPE_IS_PADDING_P + (TREE_TYPE (TREE_OPERAND (gnu_expr, 0))) + && TREE_CODE (TREE_OPERAND (gnu_expr, 0)) == VAR_DECL + && (TREE_READONLY (TREE_OPERAND (gnu_expr, 0)) + || DECL_READONLY_ONCE_ELAB + (TREE_OPERAND (gnu_expr, 0)))) + gnu_size = DECL_SIZE (TREE_OPERAND (gnu_expr, 0)); + else + gnu_size + = SUBSTITUTE_PLACEHOLDER_IN_EXPR (size, gnu_expr); + } + else + gnu_size = size; + } /* We may have no GNU_EXPR because No_Initialization is set even though there's an Expression. */ else if (kind == E_Constant @@ -640,8 +659,12 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) clause, as we would lose useful information on the view size (e.g. for null array slices) and we are not allocating the object here anyway. */ - if (((gnu_size && integer_zerop (gnu_size)) - || (TYPE_SIZE (gnu_type) && integer_zerop (TYPE_SIZE (gnu_type)))) + if (((gnu_size + && integer_zerop (gnu_size) + && !TREE_OVERFLOW (gnu_size)) + || (TYPE_SIZE (gnu_type) + && integer_zerop (TYPE_SIZE (gnu_type)) + && !TREE_OVERFLOW (TYPE_SIZE (gnu_type)))) && (!Is_Constr_Subt_For_UN_Aliased (Etype (gnat_entity)) || !Is_Array_Type (Etype (gnat_entity))) && !Present (Renamed_Object (gnat_entity)) diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 45e5e5ba014..145a262d2ba 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -2620,7 +2620,7 @@ package Einfo is -- which does not also have this flag set to True. For a variable or -- or constant, if the flag is set, then the type of the object must -- either be declared at the library level, or it must also have the --- flag set (since to allocate the oject statically, its type must +-- flag set (since to allocate the object statically, its type must -- also be elaborated globally). -- Is_Static_Dispatch_Table_Entity (Flag234) @@ -2732,7 +2732,7 @@ package Einfo is -- package. Indicates that the entity must be made visible in the body -- of the instance, to reproduce the visibility of the generic. This -- simplifies visibility settings in instance bodies. --- ??? confusion in abovecomments between being present and being set +-- ??? confusion in above comments between being present and being set -- Is_VMS_Exception (Flag133) -- Present in all entities. Set only for exception entities where the @@ -2766,13 +2766,13 @@ package Einfo is -- Kill_Elaboration_Checks (Flag32) -- Present in all entities. Set by the expander to kill elaboration -- checks which are known not to be needed. Equivalent in effect to --- the use of pragma Supress (Elaboration_Checks) for that entity +-- the use of pragma Suppress (Elaboration_Checks) for that entity -- except that the effect is permanent and cannot be undone by a -- subsequent pragma Unsuppress. -- Kill_Range_Checks (Flag33) -- Present in all entities. Equivalent in effect to the use of pragma --- Supress (Range_Checks) for that entity except that the result is +-- Suppress (Range_Checks) for that entity except that the result is -- permanent and cannot be undone by a subsequent pragma Unsuppress. -- This is currently only used in one odd situation in Sem_Ch3 for -- record types, and it would be good to get rid of it??? @@ -2780,7 +2780,7 @@ package Einfo is -- Kill_Tag_Checks (Flag34) -- Present in all entities. Set by the expander to kill elaboration -- checks which are known not to be needed. Equivalent in effect to --- the use of pragma Supress (Tag_Checks) for that entity except +-- the use of pragma Suppress (Tag_Checks) for that entity except -- that the result is permanent and cannot be undone by a subsequent -- pragma Unsuppress. @@ -2805,7 +2805,7 @@ package Einfo is -- associated entities is attached (blocks, class subtypes and types, -- entries, functions, loops, packages, procedures, protected objects, -- record types and subtypes, private types, task types and subtypes). --- Points to a the last entry in the list of associated entities chained +-- Points to the last entry in the list of associated entities chained -- through the Next_Entity field. Empty if no entities are chained. -- Limited_View (Node23) @@ -2819,7 +2819,7 @@ package Einfo is -- Present in enumeration types and subtypes. Non-empty only for the -- case of an enumeration root type, where it contains the entity for -- the generated indexes entity. See unit Exp_Imgv for full details of --- the nature and use of this entity for implkementing the Image and +-- the nature and use of this entity for implementing the Image and -- Value attributes for the enumeration type in question. -- -- Lit_Strings (Node16) @@ -3169,7 +3169,7 @@ package Einfo is -- Parameter_Mode (synthesized) -- Applies to formal parameter entities. This is a synonym for Ekind, -- used when obtaining the formal kind of a formal parameter (the result --- is one of E_[In/Out/In_Out]_Paramter) +-- is one of E_[In/Out/In_Out]_Parameter) -- Parent_Subtype (Node19) -- Present in E_Record_Type. Points to the subtype to use for a @@ -3254,9 +3254,9 @@ package Einfo is -- Referenced (Flag156) -- Present in all entities. Set if the entity is referenced, except for --- the case of an appearence of a simple variable that is not a renaming +-- the case of an appearance of a simple variable that is not a renaming -- as the left side of an assignment in which case Referenced_As_LHS is --- set instead, or a similar appearence as an out parameter actual, in +-- set instead, or a similar appearance as an out parameter actual, in -- which case As_Out_Parameter_Parameter is set. -- Referenced_As_LHS (Flag36): @@ -3307,7 +3307,7 @@ package Einfo is -- Renamed_Entity (Node18) -- Present in exceptions, packages, subprograms and generic units. Set -- for entities that are defined by a renaming declaration. Denotes the --- renamed entity, or transititively the ultimate renamed entity if +-- renamed entity, or transitively the ultimate renamed entity if -- there is a chain of renaming declarations. Empty if no renaming. -- Renamed_In_Spec (Flag231) @@ -3367,11 +3367,11 @@ package Einfo is -- Reverse_Bit_Order (Flag164) [base type only] -- Present in all record type entities. Set if a valid pragma an --- attribute represention clause for Bit_Order has reversed the order of --- bits from the default value. When this flag is set, a component clause --- must specify a set of bits entirely contained in a single storage unit --- (Ada 95) or a single machine scalar (see Ada 2005 AI-133), or must --- occupy in integral number of storage units. +-- attribute representation clause for Bit_Order has reversed the order +-- of bits from the default value. When this flag is set, a component +-- clause must specify a set of bits entirely contained in a single +-- storage unit (Ada 95) or a single machine scalar (see Ada 2005 +-- AI-133), or must occupy in integral number of storage units. -- RM_Size (Uint13) -- Present in all type and subtype entities. Contains the value of @@ -3387,7 +3387,7 @@ package Einfo is -- type of the class covered by the CW type, otherwise returns the -- ultimate derivation ancestor of the given type. This function -- preserves the view, i.e. the Root_Type of a partial view is the --- partial view of the ulimate ancestor, the Root_Type of a full view +-- partial view of the ultimate ancestor, the Root_Type of a full view -- is the full view of the ultimate ancestor. Note that this function -- does not correspond exactly to the use of root type in the RM, since -- in the RM root type applies to a class of types, not to a type. @@ -4495,7 +4495,7 @@ package Einfo is -- For each enumeration value defined in Entity_Kind we list all the -- attributes defined in Einfo which can legally be applied to an entity -- of that kind. The implementation of the attribute functions (and for - -- non-synthetized attributes, of the corresponding set procedures) are + -- non-synthesized attributes, of the corresponding set procedures) are -- in the Einfo body. -- The following attributes apply to all entities @@ -5497,7 +5497,7 @@ package Einfo is -- There are four types of alignment possible for array and record -- types, and a field in the type entities contains a value of the -- following type indicating which alignment choice applies. For full - -- details of the meaning of these aligment types, see description + -- details of the meaning of these alignment types, see description -- of the Component_Alignment pragma type Component_Alignment_Kind is ( diff --git a/gcc/ada/env.c b/gcc/ada/env.c index 01c25d6753f..2b708c31790 100644 --- a/gcc/ada/env.c +++ b/gcc/ada/env.c @@ -41,10 +41,6 @@ #include <unixio.h> #endif -#if defined (__APPLE__) -#include <crt_externs.h> -#endif - #if defined (__MINGW32__) #include <stdlib.h> #endif @@ -61,6 +57,10 @@ extern char** ppGlobalEnviron; #include "system.h" #endif /* IN_RTS */ +#if defined (__APPLE__) +#include <crt_externs.h> +#endif + #include "env.h" void @@ -166,7 +166,7 @@ __gnat_setenv (char *name, char *value) LIB$SIGNAL (status); } -#elif defined (__vxworks) && defined (__RTP__) +#elif (defined (__vxworks) && defined (__RTP__)) || defined (__APPLE__) setenv (name, value, 1); #else @@ -178,7 +178,7 @@ __gnat_setenv (char *name, char *value) sprintf (expression, "%s=%s", name, value); putenv (expression); #if (defined (__FreeBSD__) && (__FreeBSD__ < 7)) \ - || defined (__APPLE__) || defined (__MINGW32__) \ + || defined (__MINGW32__) \ ||(defined (__vxworks) && ! defined (__RTP__)) /* On some systems like FreeBSD 6.x and earlier, MacOS X and Windows, putenv is making a copy of the expression string so we can free diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 383f0189bc3..c8a0e17fde0 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -176,7 +176,7 @@ package body Erroutc is Delete_Msg (M1, M2); return; - -- If M2 continuatins have run out, we delete M2 + -- If M2 continuations have run out, we delete M2 elsif N2 = No_Error_Msg or else not Errors.Table (N2).Msg_Cont then Delete_Msg (M2, M1); @@ -968,7 +968,7 @@ package body Erroutc is Set_Msg_Char (UI_Image_Buffer (J)); end loop; - -- The following assignment ensures that a second carret insertion + -- The following assignment ensures that a second caret insertion -- character will correspond to the Error_Msg_Uint_2 parameter. We -- suppress possible validity checks in case operating in -gnatVa mode, -- and Error_Msg_Uint_2 is not needed and has not been set. diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index 04e1a4a07ca..1f4eebf3584 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -36,7 +36,7 @@ package Erroutc is -- type, and is used by Add_Class to insert 'Class at the proper point Continuation : Boolean := False; - -- Indicates if current message is a continuation. Intialized from the + -- Indicates if current message is a continuation. Initialized from the -- Msg_Cont parameter in Error_Msg_Internal and then set True if a \ -- insertion character is encountered. @@ -81,9 +81,9 @@ package Erroutc is Max_Msg_Length : constant := 1024 + 2 * Int (Column_Number'Last); -- Maximum length of error message. The addition of 2 * Column_Number'Last - -- ensures that two insertion tokens of maximum length can be accomodated. + -- ensures that two insertion tokens of maximum length can be accommodated. -- The value of 1024 is an arbitrary value that should be more than long - -- enough to accomodate any reasonable message (and for that matter, some + -- enough to accommodate any reasonable message (and for that matter, some -- pretty unreasonable messages!) Msg_Buffer : String (1 .. Max_Msg_Length); @@ -115,7 +115,7 @@ package Erroutc is No_Error_Msg : constant Error_Msg_Id := 0; -- A constant which is different from any value returned by Get_Error_Id. - -- Typically used by a client to indicate absense of a saved Id value. + -- Typically used by a client to indicate absence of a saved Id value. Cur_Msg : Error_Msg_Id := No_Error_Msg; -- Id of most recently posted error message @@ -235,7 +235,7 @@ package Erroutc is -- end of the current source file. A subsequent pragma Warnings (On) -- adjusts the end point of this entry appropriately. - -- If all warnings are suppressed by comamnd switch, then there is a + -- If all warnings are suppressed by command switch, then there is a -- dummy entry (put there by Errout.Initialize) at the start of the -- table which covers all possible Source_Ptr values. Note that the -- source pointer values in this table always reference the original diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index a5ff0011a6f..bf5e9d79bbd 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -624,7 +624,7 @@ package body Exp_Attr is -- is done only for "Address!(Prim'Unrestricted_Access)" nodes. -- At this stage other cases in which the designated type is -- still a subprogram (instead of an E_Subprogram_Type) are - -- wrong because the semantics must have overriden the type of + -- wrong because the semantics must have overridden the type of -- the node with the type imposed by the context. pragma Assert (Nkind (Parent (N)) = N_Unchecked_Type_Conversion diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index df3d7e8d33c..0ecdad2e243 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -556,7 +556,7 @@ package body Exp_Imgv is -- Enum'Val (Value_Enumeration_NN (typS, typI'Address, Num, X)) -- where typS and typI and the Lit_Strings and Lit_Indexes entities - -- from T's root type entitym and Num is Enum'Pos (Enum'Last). The + -- from T's root type entity, and Num is Enum'Pos (Enum'Last). The -- Value_Enumeration_NN function will search the tables looking for -- X and return the position number in the table if found which is -- used to provide the result of 'Value (using Enum'Val). If the diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 96e8c2c3acf..49cdfe028f0 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -87,7 +87,7 @@ package body Exp_Intr is -- K is the kind for the shift node procedure Expand_Unc_Conversion (N : Node_Id; E : Entity_Id); - -- Expand a call to an instantiation of Unchecked_Convertion into a node + -- Expand a call to an instantiation of Unchecked_Conversion into a node -- N_Unchecked_Type_Conversion. procedure Expand_Unc_Deallocation (N : Node_Id); @@ -97,7 +97,7 @@ package body Exp_Intr is procedure Expand_To_Address (N : Node_Id); procedure Expand_To_Pointer (N : Node_Id); -- Expand a call to corresponding function, declared in an instance of - -- System.Addess_To_Access_Conversions. + -- System.Address_To_Access_Conversions. procedure Expand_Source_Info (N : Node_Id; Nam : Name_Id); -- Rewrite the node by the appropriate string or positive constant. diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 68feec5aa3f..21a78ac80a4 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -535,7 +535,7 @@ package body Exp_Pakd is -- directly using Insert_Action. ------------------------------ - -- Compute_Linear_Subcsript -- + -- Compute_Linear_Subscript -- ------------------------------ procedure Compute_Linear_Subscript @@ -2010,7 +2010,7 @@ package body Exp_Pakd is Left_Opnd => Make_Shift_Right (Obj, Shift), Right_Opnd => Lit); - -- We neded to analyze this before we do the unchecked convert + -- We needed to analyze this before we do the unchecked convert -- below, but we need it temporarily attached to the tree for -- this analysis (hence the temporary Set_Parent call). diff --git a/gcc/ada/exp_pakd.ads b/gcc/ada/exp_pakd.ads index df5ceb0c5f5..690ec21373b 100644 --- a/gcc/ada/exp_pakd.ads +++ b/gcc/ada/exp_pakd.ads @@ -218,7 +218,7 @@ package Exp_Pakd is -- Note: although this routine is included in the expander package for -- packed types, it is actually called unconditionally from Freeze, -- whether or not expansion (and code generation) is enabled. We do this - -- since we want gigi to be able to properly compute type charactersitics + -- since we want gigi to be able to properly compute type characteristics -- (for the Data Decomposition Annex of ASIS, and possible other future -- uses) even if code generation is not active. Strictly this means that -- this procedure is not part of the expander, but it seems appropriate @@ -263,7 +263,7 @@ package Exp_Pakd is function Involves_Packed_Array_Reference (N : Node_Id) return Boolean; -- N is the node for a name. This function returns true if the name -- involves a packed array reference. A node involves a packed array - -- reference if it is itself an indexed compoment referring to a bit- + -- reference if it is itself an indexed component referring to a bit- -- packed array, or it is a selected component whose prefix involves -- a packed array reference. diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index deabc2d27bd..3da72eb2bf1 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -330,7 +330,7 @@ package body Exp_Prag is and then Is_RTE (Entity (Name (N)), RE_Raise_Assert_Failure) then -- If original condition was a Standard.False, we assume that this is - -- indeed intented to raise assert error and no warning is required. + -- indeed intended to raise assert error and no warning is required. if Is_Entity_Name (Original_Node (Cond)) and then Entity (Original_Node (Cond)) = Standard_False diff --git a/gcc/ada/exp_smem.adb b/gcc/ada/exp_smem.adb index e5889bfb9ef..ae1ea9b68d0 100644 --- a/gcc/ada/exp_smem.adb +++ b/gcc/ada/exp_smem.adb @@ -52,7 +52,7 @@ package body Exp_Smem is procedure Add_Write_After (N : Node_Id); -- Insert a Shared_Var_WOpen call for variable after the node - -- Insert_Node, as recorded by On_Lhs_Of_Assigment (where it points + -- Insert_Node, as recorded by On_Lhs_Of_Assignment (where it points -- to the assignment statement) or Is_Out_Actual (where it points to -- the procedure call statement). diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index 53dd5fc0c51..2473d4a69f3 100644 --- a/gcc/ada/exp_tss.ads +++ b/gcc/ada/exp_tss.ads @@ -50,9 +50,9 @@ package Exp_Tss is ------------------------- -- In the current version of this package, only the case of generating a - -- TSS at the point of declaration of the type is accomodated. A clear + -- TSS at the point of declaration of the type is accommodated. A clear -- improvement would be to follow through with the full implementation - -- as described above, and also accomodate the requirement of generating + -- as described above, and also accommodate the requirement of generating -- only one copy in a given object file. -- For now, we deal with the local case by generating duplicate versions diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 28f6d6e0d9f..82f3fcfc201 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -1220,7 +1220,7 @@ package body Exp_Util is Constraints => New_List (New_Reference_To (Slice_Type, Loc))))); - -- This subtype indication may be used later for contraint checks + -- This subtype indication may be used later for constraint checks -- we better make sure that if a variable was used as a bound of -- of the original slice, its value is frozen. @@ -1657,7 +1657,7 @@ package body Exp_Util is begin -- Climb to the root type - -- Handle sychronized interface derivations + -- Handle synchronized interface derivations if Is_Concurrent_Record_Type (Typ) then declare @@ -2121,7 +2121,7 @@ package body Exp_Util is if N = CV then Sens := True; - -- Otherwise we must be in susbequent ELSIF or ELSE part + -- Otherwise we must be in subsequent ELSIF or ELSE part else Sens := False; @@ -2861,7 +2861,7 @@ package body Exp_Util is -- This is the proper body corresponding to a stub. Insertion -- must be done at the point of the stub, which is in the decla- - -- tive part of the parent unit. + -- rative part of the parent unit. P := Corresponding_Stub (Parent (N)); @@ -3704,7 +3704,7 @@ package body Exp_Util is -- Generate the following code: -- type Equiv_T is record - -- _parent : T (List of discriminant constaints taken from Exp); + -- _parent : T (List of discriminant constraints taken from Exp); -- Ext__50 : Storage_Array (1 .. (Exp'size - Typ'object_size)/8); -- end Equiv_T; -- @@ -3917,8 +3917,8 @@ package body Exp_Util is -- Make_Subtype_From_Expr -- ---------------------------- - -- 1. If Expr is an uncontrained array expression, creates - -- Unc_Type(Expr'first(1)..Expr'Last(1),..., Expr'first(n)..Expr'last(n)) + -- 1. If Expr is an unconstrained array expression, creates + -- Unc_Type(Expr'first(1)..Expr'last(1),..., Expr'first(n)..Expr'last(n)) -- 2. If Expr is a unconstrained discriminated type expression, creates -- Unc_Type(Expr.Discr1, ... , Expr.Discr_n) @@ -4307,7 +4307,7 @@ package body Exp_Util is -- this may happen with any array or record type. On the other hand, we -- cannot create temporaries for all expressions for which this -- condition is true, for various reasons that might require clearing up - -- ??? For example, descriminant references that appear out of place, or + -- ??? For example, discriminant references that appear out of place, or -- spurious type errors with class-wide expressions. As a result, we -- limit the transformation to loop bounds, which is so far the only -- case that requires it. @@ -4420,9 +4420,9 @@ package body Exp_Util is elsif Compile_Time_Known_Value (N) then return True; - -- A variable renaming is not side-effet free, because the + -- A variable renaming is not side-effect free, because the -- renaming will function like a macro in the front-end in - -- some cases, and an assignment can modify the the component + -- some cases, and an assignment can modify the component -- designated by N, so we need to create a temporary for it. elsif Is_Entity_Name (Original_Node (N)) @@ -5247,7 +5247,7 @@ package body Exp_Util is Long_Integer_Sized_Small : Ureal; -- Set to 2.0 ** -(Long_Integer'Size - 1) the first time that this - -- functoin is called (we don't want to compute it more than once) + -- function is called (we don't want to compute it more than once) First_Time_For_THFO : Boolean := True; -- Set to False after first call (if Fractional_Fixed_Ops_On_Target) diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 737b39728ee..9c99323e8e4 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -258,7 +258,7 @@ package Exp_Util is -- System_Tasking_Protected_Objects_Single_Entry function Current_Sem_Unit_Declarations return List_Id; - -- Return the a place where it is fine to insert declarations for the + -- Return the place where it is fine to insert declarations for the -- current semantic unit. If the unit is a package body, return the -- visible declarations of the corresponding spec. For RCI stubs, this -- is necessary because the point at which they are generated may not @@ -429,7 +429,7 @@ package Exp_Util is -- homonym number used to disambiguate overloaded subprograms in the same -- scope (the number is used as part of constructed names to make sure that -- they are unique). The number is the ordinal position on the Homonym - -- chain, counting only entries in the curren scope. If an entity is not + -- chain, counting only entries in the current scope. If an entity is not -- overloaded, the returned number will be one. function Inside_Init_Proc return Boolean; @@ -437,7 +437,7 @@ package Exp_Util is function In_Unconditional_Context (Node : Node_Id) return Boolean; -- Node is the node for a statement or a component of a statement. This - -- function deteermines if the statement appears in a context that is + -- function determines if the statement appears in a context that is -- unconditionally executed, i.e. it is not within a loop or a conditional -- or a case statement etc. diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb index ba3b383beb2..0537cf089d0 100644 --- a/gcc/ada/exp_vfpt.adb +++ b/gcc/ada/exp_vfpt.adb @@ -242,7 +242,7 @@ package body Exp_VFpt is Func : RE_Id; function Call_Type (T : Entity_Id; Otyp : Entity_Id) return RE_Id; - -- Given one of the two types T, determines the coresponding call + -- Given one of the two types T, determines the corresponding call -- type, i.e. the type to be used for the call (or the result of -- the call). The actual operand is converted to (or from) this type. -- Otyp is the other type, which is useful in figuring out the result. diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index edd52f5b7f0..d1d72d71d05 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -331,7 +331,7 @@ package body Freeze is begin -- The controlling formal may be an access parameter, or the - -- actual may be an access value, so ajust accordingly. + -- actual may be an access value, so adjust accordingly. if Is_Access_Type (Pref_Type) and then not Is_Access_Type (Form_Type) @@ -791,7 +791,7 @@ package body Freeze is -- discriminant. -- This is because gigi computes the size by doing a - -- substituation of the appropriate discriminant value in + -- substitution of the appropriate discriminant value in -- the size expression for the base type, and gigi is not -- clever enough to evaluate the resulting expression (which -- involves a call to rep_to_pos) at compile time. @@ -2915,7 +2915,7 @@ package body Freeze is -- processing is only done for base types, since all the -- representation aspects involved are type-related. This -- is not just an optimization, if we start processing the - -- subtypes, they intefere with the settings on the base + -- subtypes, they interfere with the settings on the base -- type (this is because Is_Packed has a slightly different -- meaning before and after freezing). @@ -3222,7 +3222,7 @@ package body Freeze is Freeze_Record_Type (E); -- For a concurrent type, freeze corresponding record type. This - -- does not correpond to any specific rule in the RM, but the + -- does not correspond to any specific rule in the RM, but the -- record type is essentially part of the concurrent type. -- Freeze as well all local entities. This includes record types -- created for entry parameter blocks, and whatever local entities @@ -3636,7 +3636,7 @@ package body Freeze is if Has_Size_Clause (E) and then not Size_Known_At_Compile_Time (E) then - -- Supress this message if errors posted on E, even if we are + -- Suppress this message if errors posted on E, even if we are -- in all errors mode, since this is often a junk message if not Error_Posted (E) then @@ -4047,7 +4047,7 @@ package body Freeze is and then Is_Enumeration_Type (Etype (N)) then -- If enumeration literal appears directly as the choice, - -- do not freeze (this is the normal non-overloade case) + -- do not freeze (this is the normal non-overloaded case) if Nkind (Parent (N)) = N_Component_Association and then First (Choices (Parent (N))) = N @@ -4410,7 +4410,7 @@ package body Freeze is -- case of both bounds negative, because the sign will be dealt -- with anyway. Furthermore we can't just go making such a bound -- symmetrical, since in a twos-complement system, there is an - -- extra negative value which could not be accomodated on the + -- extra negative value which could not be accommodated on the -- positive side. if Typ = Btyp diff --git a/gcc/ada/freeze.ads b/gcc/ada/freeze.ads index 13afe3701f6..64a1327a9e7 100644 --- a/gcc/ada/freeze.ads +++ b/gcc/ada/freeze.ads @@ -178,7 +178,7 @@ package Freeze is procedure Expand_Atomic_Aggregate (E : Entity_Id; Typ : Entity_Id); -- If an atomic object is initialized with an aggregate or is assigned -- an aggregate, we have to prevent a piecemeal access or assignment - -- to the object, even if the aggregate is to be expanded. we create + -- to the object, even if the aggregate is to be expanded. We create -- a temporary for the aggregate, and assign the temporary instead, -- so that the back end can generate an atomic move for it. diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 6d01843fb22..b6fde4352cc 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -103,7 +103,7 @@ begin end if; -- Now that the preprocessing situation is established, we are able to - -- load the main source (this is no longer done by Lib.Load.Initalize). + -- load the main source (this is no longer done by Lib.Load.Initialize). Lib.Load.Load_Main_Source; @@ -355,7 +355,7 @@ begin Sprint.Source_Dump; -- If a mapping file has been specified by a -gnatem switch, update - -- it if there has been some sourcs that were not in the mappings. + -- it if there has been some sources that were not in the mappings. if Mapping_File_Name /= null then Fmap.Update_Mapping_File (Mapping_File_Name.all); diff --git a/gcc/ada/g-alleve.adb b/gcc/ada/g-alleve.adb index 329106f8ece..33a8d49fbcc 100644 --- a/gcc/ada/g-alleve.adb +++ b/gcc/ada/g-alleve.adb @@ -1864,7 +1864,7 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_Pixel (Source : unsigned_short) return Pixel_16 is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. Target : Pixel_16; @@ -1879,7 +1879,7 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_Pixel (Source : unsigned_int) return Pixel_32 is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. Target : Pixel_32; @@ -1898,10 +1898,10 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_unsigned_int (Source : Pixel_32) return unsigned_int is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. -- It should also be the same result, value-wise, on two hosts - -- with the same endianess. + -- with the same endianness. Target : unsigned_int := 0; @@ -1930,10 +1930,10 @@ package body GNAT.Altivec.Low_Level_Vectors is function To_unsigned_short (Source : Pixel_16) return unsigned_short is - -- This conversion should not depend on the host endianess; + -- This conversion should not depend on the host endianness; -- therefore, we cannot use an unchecked conversion. -- It should also be the same result, value-wise, on two hosts - -- with the same endianess. + -- with the same endianness. Target : unsigned_short := 0; @@ -2765,9 +2765,9 @@ package body GNAT.Altivec.Low_Level_Vectors is -- ??? Check the precision of the operation. -- As described in [PEM-6 vexptefp]: - -- If theorical_result is equal to 2 at the power of A (J) with + -- If theoretical_result is equal to 2 at the power of A (J) with -- infinite precision, we should have: - -- abs ((D (J) - theorical_result) / theorical_result) <= 1/16 + -- abs ((D (J) - theoretical_result) / theoretical_result) <= 1/16 D.Values (J) := 2.0 ** NJ_Truncate (VA.Values (J)); end loop; diff --git a/gcc/ada/g-altcon.adb b/gcc/ada/g-altcon.adb index f04745ac172..d3698a1ac44 100644 --- a/gcc/ada/g-altcon.adb +++ b/gcc/ada/g-altcon.adb @@ -37,7 +37,7 @@ with System; use System; package body GNAT.Altivec.Conversions is - -- All the vector/view conversions operate similarily: bare unchecked + -- All the vector/view conversions operate similarly: bare unchecked -- conversion on big endian targets, and elements permutation on little -- endian targets. We call "Mirroring" the elements permutation process. diff --git a/gcc/ada/g-altive.ads b/gcc/ada/g-altive.ads index bbfd0f51c3c..3a0caa1976b 100644 --- a/gcc/ada/g-altive.ads +++ b/gcc/ada/g-altive.ads @@ -135,7 +135,7 @@ -- of driving ideas: -- o From the clients standpoint, the two versions of the binding should be --- as easily exchangable as possible, +-- as easily exchangeable as possible, -- o From the maintenance standpoint, we want to avoid as much code -- duplication as possible. diff --git a/gcc/ada/g-alveop.ads b/gcc/ada/g-alveop.ads index 7e77d7f48f1..fc5728a3aa9 100644 --- a/gcc/ada/g-alveop.ads +++ b/gcc/ada/g-alveop.ads @@ -8097,7 +8097,7 @@ private pragma Inline_Always (vec_any_numeric); pragma Inline_Always (vec_any_out); - -- Similarily, vec_step is expected to be turned into a compile time + -- Similarly, vec_step is expected to be turned into a compile time -- constant, so ... pragma Inline_Always (vec_step); diff --git a/gcc/ada/g-alvevi.ads b/gcc/ada/g-alvevi.ads index bd3a299e2f9..32f43838cbb 100644 --- a/gcc/ada/g-alvevi.ads +++ b/gcc/ada/g-alvevi.ads @@ -38,7 +38,7 @@ -- Accessing vector contents with direct memory overlays should be avoided -- because actual vector representations may vary across configurations, for --- instance to accomodate different target endianness. +-- instance to accommodate different target endianness. -- The natural representation of a vector is an array indexed by vector -- component number, which is materialized by the Varray type definitions diff --git a/gcc/ada/g-arrspl.adb b/gcc/ada/g-arrspl.adb index bcbc8c4dbec..879aaac241c 100644 --- a/gcc/ada/g-arrspl.adb +++ b/gcc/ada/g-arrspl.adb @@ -47,8 +47,8 @@ package body GNAT.Array_Split is function Count (Source : Element_Sequence; Pattern : Element_Set) return Natural; - -- Returns the number of occurences of Pattern elements in Source, 0 is - -- returned if no occurence is found in Source. + -- Returns the number of occurrences of Pattern elements in Source, 0 is + -- returned if no occurrence is found in Source. ------------ -- Adjust -- diff --git a/gcc/ada/g-busorg.ads b/gcc/ada/g-busorg.ads index e99ba2a7c15..b7d4545c6d9 100644 --- a/gcc/ada/g-busorg.ads +++ b/gcc/ada/g-busorg.ads @@ -43,7 +43,7 @@ -- There is also GNAT.Bubble_Sort_A, which is now considered obsolete, but -- was an older version working with subprogram parameters. This version --- is retained for baccwards compatibility with old versions of GNAT. +-- is retained for backwards compatibility with old versions of GNAT. generic -- The data to be sorted is assumed to be indexed by integer values from diff --git a/gcc/ada/g-calend.adb b/gcc/ada/g-calend.adb index e2edaff657d..41fcd242059 100644 --- a/gcc/ada/g-calend.adb +++ b/gcc/ada/g-calend.adb @@ -307,7 +307,7 @@ package body GNAT.Calendar is pragma Unreferenced (Hour, Minute, Second, Sub_Second); function Is_Leap (Year : Year_Number) return Boolean; - -- Return True if Year denotes a leap year. Leap centential years are + -- Return True if Year denotes a leap year. Leap centennial years are -- properly handled. function Jan_1_Day_Of_Week diff --git a/gcc/ada/g-calend.ads b/gcc/ada/g-calend.ads index e3cc79139c8..4216195b1e3 100644 --- a/gcc/ada/g-calend.ads +++ b/gcc/ada/g-calend.ads @@ -39,7 +39,7 @@ -- Ada.Calendar. It provides Split and Time_Of to build and split a Time -- data. And it provides accessor functions to get only one of Hour, Minute, -- Second, Second_Duration. Other functions are to access more advanced --- valueas like Day_Of_Week, Day_In_Year and Week_In_Year. +-- values like Day_Of_Week, Day_In_Year and Week_In_Year. with Ada.Calendar; with Interfaces.C; @@ -64,7 +64,7 @@ package GNAT.Calendar is function Minute (Date : Ada.Calendar.Time) return Minute_Number; function Second (Date : Ada.Calendar.Time) return Second_Number; function Sub_Second (Date : Ada.Calendar.Time) return Second_Duration; - -- Hour, Minute, Sedond and Sub_Second returns the complete time data for + -- Hour, Minute, Second and Sub_Second returns the complete time data for -- the Date (H:M:S.SS). See Ada.Calendar for Year, Month, Day accessors. -- Second_Duration precision depends on the target clock precision. diff --git a/gcc/ada/g-casuti.ads b/gcc/ada/g-casuti.ads index cae617cce5b..d880eeaceaa 100644 --- a/gcc/ada/g-casuti.ads +++ b/gcc/ada/g-casuti.ads @@ -59,7 +59,7 @@ package GNAT.Case_Util is procedure To_Upper (A : in out String) renames System.Case_Util.To_Upper; - -- Folds all characters of string A to upper csae + -- Folds all characters of string A to upper case function To_Lower (A : Character) return Character renames System.Case_Util.To_Lower; diff --git a/gcc/ada/g-cgideb.adb b/gcc/ada/g-cgideb.adb index c3a0945c67c..de20de30e55 100644 --- a/gcc/ada/g-cgideb.adb +++ b/gcc/ada/g-cgideb.adb @@ -41,7 +41,7 @@ package body GNAT.CGI.Debug is -- To create a new IO mode you must: -- 1. create a new package spec -- 2. create a new type derived from IO.Format - -- 3. implement all the abstract rountines in IO + -- 3. implement all the abstract routines in IO package IO is diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index d661978bd59..e90af875eae 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -43,7 +43,7 @@ package body GNAT.Command_Line is Parameter_With_Optional_Space, -- ':' in getopt Parameter_With_Space_Or_Equal, -- '=' in getopt Parameter_No_Space, -- '!' in getopt - Parameter_Optional); -- '?' in getop + Parameter_Optional); -- '?' in getopt procedure Set_Parameter (Variable : out Parameter_Type; @@ -134,7 +134,7 @@ package body GNAT.Command_Line is (Cmd : Command_Line; Result : Argument_List_Access; Params : Argument_List_Access); - -- When possible, replace or more switches by an alias, ie a shorter + -- When possible, replace or more switches by an alias, i.e. a shorter -- version. function Looking_At @@ -567,7 +567,7 @@ package body GNAT.Command_Line is -- Always prepend the switch character, so that users know that -- this comes from a switch on the command line. This is -- especially important when Concatenate is False, since - -- otherwise the currrent argument first character is lost. + -- otherwise the current argument first character is lost. Set_Parameter (Parser.The_Switch, diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads index 6da8237f826..9c8ebc7fa0a 100644 --- a/gcc/ada/g-comlin.ads +++ b/gcc/ada/g-comlin.ads @@ -42,7 +42,7 @@ -- (special command line arguments starting with '-' by default) and their -- parameters, and then the rest of the command line arguments. --- This package is flexible enough to accomodate various needs: optional +-- This package is flexible enough to accommodate various needs: optional -- switch parameters, various characters to separate a switch and its -- parameter, whether to stop the parsing at the first non-switch argument -- encountered, etc. @@ -84,7 +84,7 @@ -- A more complicated example would involve the use of sections for the -- switches, as for instance in gnatmake. The same command line is used to -- provide switches for several tools. Each tool recognizes its switches by --- separating them with special switches, chosen by the programer. +-- separating them with special switches, chosen by the programmer. -- Each section acts as a command line of its own. -- begin @@ -401,7 +401,7 @@ package GNAT.Command_Line is -- matching switch is returned. -- -- Arbitrary characters are allowed for switches, although it is - -- strongly recommanded to use only letters and digits for portability + -- strongly recommended to use only letters and digits for portability -- reasons. -- -- When Concatenate is False, individual switches need to be separated by diff --git a/gcc/ada/g-curexc.ads b/gcc/ada/g-curexc.ads index 783a6489096..0e62ea38f73 100644 --- a/gcc/ada/g-curexc.ads +++ b/gcc/ada/g-curexc.ads @@ -50,7 +50,7 @@ package GNAT.Current_Exception is -- Subprograms -- ----------------- - -- Note: the lower bound of returnd String values is always one + -- Note: the lower bound of returned String values is always one function Exception_Information return String; -- Returns the result of calling Ada.Exceptions.Exception_Information @@ -95,7 +95,7 @@ package GNAT.Current_Exception is -- For greater compatibility with existing legacy software, library -- level renaming may be used to create a function with a name matching -- one that is in use. For example, some versions of VADS Ada provided - -- a functin called Current_Exception whose semantics was identical to + -- a function called Current_Exception whose semantics was identical to -- that of GNAT. The following library level renaming declaration: -- with GNAT.Current_Exception; diff --git a/gcc/ada/g-debpoo.adb b/gcc/ada/g-debpoo.adb index dc4896c4621..14f11916f6c 100644 --- a/gcc/ada/g-debpoo.adb +++ b/gcc/ada/g-debpoo.adb @@ -49,7 +49,7 @@ package body GNAT.Debug_Pools is Default_Alignment : constant := Standard'Maximum_Alignment; -- Alignment used for the memory chunks returned by Allocate. Using this - -- value garantees that this alignment will be compatible with all types + -- value guarantees that this alignment will be compatible with all types -- and at the same time makes it easy to find the location of the extra -- header allocated for each chunk. @@ -286,10 +286,10 @@ package body GNAT.Debug_Pools is Ignored_Frame_Start : System.Address; Ignored_Frame_End : System.Address); -- Set Start .. Len to the range of values from Trace that should be output - -- to the user. This range of values exludes any address prior to the first - -- one in Ignored_Frame_Start .. Ignored_Frame_End (basically addresses - -- internal to this package). Depth is the number of levels that the user - -- is interested in. + -- to the user. This range of values excludes any address prior to the + -- first one in Ignored_Frame_Start .. Ignored_Frame_End (basically + -- addresses internal to this package). Depth is the number of levels that + -- the user is interested in. --------------- -- Header_Of -- @@ -579,7 +579,7 @@ package body GNAT.Debug_Pools is begin -- The pool only returns addresses aligned on Default_Alignment so -- anything off cannot be a valid block address and we can return - -- early in this case. We actually have to since our datastructures + -- early in this case. We actually have to since our data structures -- map validity bits for such aligned addresses only. if Int_Storage mod Default_Alignment /= 0 then @@ -692,7 +692,7 @@ package body GNAT.Debug_Pools is Free_Physically (Pool); end if; - -- Use standard (ie through malloc) allocations. This automatically + -- Use standard (i.e. through malloc) allocations. This automatically -- raises Storage_Error if needed. We also try once more to physically -- release memory, so that even marked blocks, in the advanced scanning, -- are freed. diff --git a/gcc/ada/g-debpoo.ads b/gcc/ada/g-debpoo.ads index d3072c3d2f6..ca386802e12 100644 --- a/gcc/ada/g-debpoo.ads +++ b/gcc/ada/g-debpoo.ads @@ -253,7 +253,7 @@ package GNAT.Debug_Pools is -- the Debug_Pool). -- -- The information includes the stacktrace for the allocation or - -- deallocation of that memory chunck, its current status (allocated or + -- deallocation of that memory chunk, its current status (allocated or -- logically freed), etc. private @@ -288,7 +288,7 @@ private Storage_Address : System.Address; Size_In_Storage_Elements : Storage_Count; Alignment : Storage_Count); - -- Check whether a derefence statement is valid, ie whether the pointer + -- Check whether a dereference statement is valid, i.e. whether the pointer -- was allocated through Pool. As documented above, errors will be -- reported either by a special error message or an exception, depending -- on the setup of the storage pool. @@ -296,7 +296,7 @@ private type Byte_Count is mod System.Max_Binary_Modulus; -- Type used for maintaining byte counts, needs to be large enough - -- to accomodate counts allowing for repeated use of the same memory. + -- to accommodate counts allowing for repeated use of the same memory. type Debug_Pool is new System.Checked_Pools.Checked_Pool with record Stack_Trace_Depth : Natural := Default_Stack_Trace_Depth; @@ -322,7 +322,7 @@ private Marked_Blocks_Deallocated : Boolean := False; -- Set to true if some mark blocks had to be deallocated in the advanced - -- scanning scheme. Since this is potentially dangereous, this is + -- scanning scheme. Since this is potentially dangerous, this is -- reported to the user, who might want to rerun his program with a -- lower Minimum_To_Free value. diff --git a/gcc/ada/g-decstr.adb b/gcc/ada/g-decstr.adb index 580ad15a4a6..564703802c8 100755 --- a/gcc/ada/g-decstr.adb +++ b/gcc/ada/g-decstr.adb @@ -391,7 +391,7 @@ package body GNAT.Decode_String is end if; end UTF8; - -- Non-UTF-8 cass + -- Non-UTF-8 case else declare @@ -502,7 +502,7 @@ package body GNAT.Decode_String is end if; end UTF8; - -- Non-UTF-8 cass + -- Non-UTF-8 case else declare diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb index 0cccaba2cd2..d34635c62b2 100644 --- a/gcc/ada/g-dirope.adb +++ b/gcc/ada/g-dirope.adb @@ -415,7 +415,7 @@ package body GNAT.Directory_Operations is E := K; - -- Check that first chartacter is a letter + -- Check that first character is a letter if Characters.Handling.Is_Letter (Path (E)) then E := E + 1; diff --git a/gcc/ada/g-dirope.ads b/gcc/ada/g-dirope.ads index c489eccdedc..3820a8c5743 100644 --- a/gcc/ada/g-dirope.ads +++ b/gcc/ada/g-dirope.ads @@ -223,7 +223,7 @@ package GNAT.Directory_Operations is -- Dir will be set to Null_Dir. procedure Close (Dir : in out Dir_Type); - -- Closes the directory stream refered to by Dir. After calling Close + -- Closes the directory stream referred to by Dir. After calling Close -- Is_Open will return False. Dir will be set to Null_Dir. -- Raises Directory_Error if Dir has not be opened (Dir = Null_Dir). diff --git a/gcc/ada/g-dynhta.ads b/gcc/ada/g-dynhta.ads index 2518fe96a14..cbb933ae3d4 100644 --- a/gcc/ada/g-dynhta.ads +++ b/gcc/ada/g-dynhta.ads @@ -130,7 +130,7 @@ package GNAT.Dynamic_HTables is function Get_Next (T : Instance) return Elmt_Ptr; -- Returns a non-specified element that has not been returned by the -- same function since the last call to Get_First or Null_Ptr if - -- there is no such element or Get_First has bever been called. If + -- there is no such element or Get_First has never been called. If -- there is no call to 'Set' in between Get_Next calls, all the -- elements of the Htable will be traversed. diff --git a/gcc/ada/g-dyntab.adb b/gcc/ada/g-dyntab.adb index 32604bdbca6..9ad92288b72 100644 --- a/gcc/ada/g-dyntab.adb +++ b/gcc/ada/g-dyntab.adb @@ -257,7 +257,7 @@ package body GNAT.Dynamic_Tables is -- checks are suppressed because this unit uses direct calls to -- System.Memory for allocation, and this can yield misaligned storage -- (and we cannot rely on the bootstrap compiler supporting specifically - -- disabling alignment cheks, so we need to suppress all range checks). + -- disabling alignment checks, so we need to suppress all range checks). -- It is safe to suppress this check here because we know that a -- (possibly misaligned) object of that type does actually exist at that -- address. @@ -269,7 +269,7 @@ package body GNAT.Dynamic_Tables is -- involve moving table contents around). begin - -- If we're going to reallocate, check wheter Item references an + -- If we're going to reallocate, check whether Item references an -- element of the currently allocated table. if Need_Realloc diff --git a/gcc/ada/g-encstr.ads b/gcc/ada/g-encstr.ads index 5862bbe182d..2f0381d5d7c 100755 --- a/gcc/ada/g-encstr.ads +++ b/gcc/ada/g-encstr.ads @@ -35,7 +35,7 @@ -- Wide_String or Wide_Wide_String to encoded String using a specified -- encoding convention, which is supplied as the generic parameter. If -- this parameter is a known at compile time constant (e.g. a constant --- definned in System.WCh_Con), the instantiation is specialized so that +-- defined in System.WCh_Con), the instantiation is specialized so that -- it applies only to this specified coding. -- Note: this package is only about encoding sequences of 16- or 32-bit @@ -66,7 +66,7 @@ package GNAT.Encode_String is pragma Inline (Encode_Wide_String); -- Encode the given Wide_String, returning a String encoded using the -- given encoding method. Constraint_Error will be raised if the encoding - -- method cannot accomodate the input data. + -- method cannot accommodate the input data. procedure Encode_Wide_String (S : Wide_String; @@ -78,7 +78,7 @@ package GNAT.Encode_String is -- in System.WCh_Con: WC_Longest_Sequence, WC_Longest_Sequences). If the -- length of Result is insufficient Constraint_Error will be raised. -- Constraint_Error will also be raised if the encoding method cannot - -- accomodate the input data. + -- accommodate the input data. function Encode_Wide_Wide_String (S : Wide_Wide_String) return String; pragma Inline (Encode_Wide_Wide_String); @@ -98,8 +98,8 @@ package GNAT.Encode_String is -- This is a lower level procedure that encodes the single character Char. -- The output is stored in Result starting at Result (Ptr), and Ptr is -- updated past the stored value. Constraint_Error is raised if Result - -- is not long enough to accomodate the result, or if the encoding method - -- specified does not accomodate the input character value, or if Ptr is + -- is not long enough to accommodate the result, or if the encoding method + -- specified does not accommodate the input character value, or if Ptr is -- outside the bounds of the Result string. procedure Encode_Wide_Wide_Character diff --git a/gcc/ada/g-excact.ads b/gcc/ada/g-excact.ads index 09b481ba4e3..46fa32c2b54 100644 --- a/gcc/ada/g-excact.ads +++ b/gcc/ada/g-excact.ads @@ -35,7 +35,7 @@ -- These callbacks are called immediately when either a specific exception, -- or any exception, is raised, before any other actions taken by raise, in --- particular before any unwinding of the stack occcurs. +-- particular before any unwinding of the stack occurs. -- Callbacks for specific exceptions are registered through calls to -- Register_Id_Action. Here is an example of code that uses this package to diff --git a/gcc/ada/g-except.ads b/gcc/ada/g-except.ads index 9daa08d5d56..d8428b79265 100644 --- a/gcc/ada/g-except.ads +++ b/gcc/ada/g-except.ads @@ -39,7 +39,7 @@ -- However, it is not normally possible to raise an exception with a -- message because the routine Ada.Exceptions.Raise_Exception is not in --- a Pure unit. This is an annoying and unnecessary restrictiona and this +-- a Pure unit. This is an annoying and unnecessary restriction and this -- package allows for raising the standard predefined exceptions at least. package GNAT.Exceptions is diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads index 7d9eced4d79..5ec6f99c8dc 100644 --- a/gcc/ada/g-expect.ads +++ b/gcc/ada/g-expect.ads @@ -176,7 +176,7 @@ package GNAT.Expect is -- this buffer is full. Beware that if the buffer is too big, this could -- slow down the Expect calls if not output is matched, since Expect has -- to match all the regexp against all the characters in the buffer. - -- If Buffer_Size is 0, there is no limit (ie all the characters are kept + -- If Buffer_Size is 0, there is no limit (i.e. all the characters are kept -- till Expect matches), but this is slower. -- -- If Err_To_Out is True, then the standard error of the spawned process is @@ -221,7 +221,7 @@ package GNAT.Expect is function Get_Pid (Descriptor : Process_Descriptor) return Process_Id; - -- Return the process id assocated with a given process descriptor + -- Return the process id associated with a given process descriptor function Get_Command_Output (Command : String; @@ -410,7 +410,7 @@ package GNAT.Expect is return Pattern_Matcher_Access; -- Allocate some memory for the pattern matcher. -- This is only a convenience function to help create the array of - -- compiled regular expressoins. + -- compiled regular expressions. procedure Expect (Descriptor : in out Process_Descriptor; diff --git a/gcc/ada/g-heasor.adb b/gcc/ada/g-heasor.adb index 83df12471ac..d520ef19962 100644 --- a/gcc/ada/g-heasor.adb +++ b/gcc/ada/g-heasor.adb @@ -74,7 +74,7 @@ package body GNAT.Heap_Sort is -- we assume that the current node will be less than the larger -- son, and unconditionally sift up. Then when we get to the bottom -- of the tree, we check parents to make sure that we did not make - -- a mistake. This roughly cuts the number of comparisions in half, + -- a mistake. This roughly cuts the number of comparisons in half, -- since it is almost always the case that our assumption is correct. -- Loop to pull up larger sons diff --git a/gcc/ada/g-hesora.adb b/gcc/ada/g-hesora.adb index 73cdcaaa1fa..ed686186088 100644 --- a/gcc/ada/g-hesora.adb +++ b/gcc/ada/g-hesora.adb @@ -76,7 +76,7 @@ package body GNAT.Heap_Sort_A is -- we assume that the current node will be less than the larger -- son, and unconditionally sift up. Then when we get to the bottom -- of the tree, we check parents to make sure that we did not make - -- a mistake. This roughly cuts the number of comparisions in half, + -- a mistake. This roughly cuts the number of comparisons in half, -- since it is almost always the case that our assumption is correct. -- Loop to pull up larger sons diff --git a/gcc/ada/g-hesorg.adb b/gcc/ada/g-hesorg.adb index 10700b07d2e..d7870d62cf5 100644 --- a/gcc/ada/g-hesorg.adb +++ b/gcc/ada/g-hesorg.adb @@ -79,7 +79,7 @@ package body GNAT.Heap_Sort_G is -- we assume that the current node will be less than the larger -- son, and unconditionally sift up. Then when we get to the bottom -- of the tree, we check parents to make sure that we did not make - -- a mistake. This roughly cuts the number of comparisions in half, + -- a mistake. This roughly cuts the number of comparisons in half, -- since it is almost always the case that our assumption is correct. -- Loop to pull up larger sons diff --git a/gcc/ada/g-htable.ads b/gcc/ada/g-htable.ads index b852cce396a..6373fa28652 100644 --- a/gcc/ada/g-htable.ads +++ b/gcc/ada/g-htable.ads @@ -196,7 +196,7 @@ package GNAT.HTable is -- function Get_Next return Elmt_Ptr; -- -- Returns a non-specified element that has not been returned by -- -- the same function since the last call to Get_First or Null_Ptr - -- -- if there is no such element or Get_First has bever been called. + -- -- if there is no such element or Get_First has never been called. -- -- If there is no call to 'Set' in between Get_Next calls, all -- -- the elements of the HTable will be traversed. diff --git a/gcc/ada/g-locfil.ads b/gcc/ada/g-locfil.ads index 8bdc2be635e..f404a616ea2 100644 --- a/gcc/ada/g-locfil.ads +++ b/gcc/ada/g-locfil.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package contains the necessary routines for using files for the --- purpose of providing realiable system wide locking capability. +-- purpose of providing reliable system wide locking capability. package GNAT.Lock_Files is pragma Preelaborate; diff --git a/gcc/ada/g-md5.adb b/gcc/ada/g-md5.adb index 158c9c7bfef..c41dae7c8ab 100644 --- a/gcc/ada/g-md5.adb +++ b/gcc/ada/g-md5.adb @@ -46,7 +46,7 @@ package body GNAT.MD5 is -- Look-up table for each hex digit of the Message-Digest. -- Used by function Digest (Context). - -- The sixten values used to rotate the context words. + -- The sixteen values used to rotate the context words. -- Four for each rounds. Used in procedure Transform. -- Round 1 diff --git a/gcc/ada/g-md5.ads b/gcc/ada/g-md5.ads index b744cdfaa7f..223159609af 100644 --- a/gcc/ada/g-md5.ads +++ b/gcc/ada/g-md5.ads @@ -36,7 +36,7 @@ -- -- http://www.ietf.org/rfc/rfc1321.txt -- --- The implementation is derived from the RSA Data Secutity, Inc. MD5 +-- The implementation is derived from the RSA Data Security, Inc. MD5 -- Message-Digest Algorithm, as described in RFC 1321. with Ada.Streams; diff --git a/gcc/ada/g-memdum.ads b/gcc/ada/g-memdum.ads index 484765f711c..f3ebd1aadb2 100644 --- a/gcc/ada/g-memdum.ads +++ b/gcc/ada/g-memdum.ads @@ -46,7 +46,7 @@ package GNAT.Memory_Dump is -- case of a byte addressable machine (and is therefore inapplicable to -- machines like the AAMP, where the storage unit is not 8 bits). The -- output is one or more lines in the following format, which is for the - -- case of 32-bit addresses (64-bit addressea are handled appropriately): + -- case of 32-bit addresses (64-bit addresses are handled appropriately): -- -- 0234_3368: 66 67 68 . . . 73 74 75 "fghijklmnopqstuv" -- diff --git a/gcc/ada/g-moreex.ads b/gcc/ada/g-moreex.ads index e786021f79a..9e4e3e29fd9 100644 --- a/gcc/ada/g-moreex.ads +++ b/gcc/ada/g-moreex.ads @@ -33,7 +33,7 @@ -- This package provides routines for accessing the most recently raised -- exception. This may be useful for certain logging activities. It may --- also be useful for mimicing implementation dependent capabilities in +-- also be useful for mimicking implementation dependent capabilities in -- Ada 83 compilers, but see also GNAT.Current_Exceptions for this usage. with Ada.Exceptions; diff --git a/gcc/ada/g-os_lib.adb b/gcc/ada/g-os_lib.adb index 6ed36053a54..91cff110336 100644 --- a/gcc/ada/g-os_lib.adb +++ b/gcc/ada/g-os_lib.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-pehage.adb b/gcc/ada/g-pehage.adb index f64181e1eb8..8d4733334d6 100644 --- a/gcc/ada/g-pehage.adb +++ b/gcc/ada/g-pehage.adb @@ -74,7 +74,7 @@ package body GNAT.Perfect_Hash_Generators is -- Random graphs are frequently used to solve difficult problems that do -- not have polynomial solutions. This algorithm is based on a weighted - -- undirected graph. It comprises two steps: mapping and assigment. + -- undirected graph. It comprises two steps: mapping and assignment. -- In the mapping step, a graph G = (V, E) is constructed, where = {0, 1, -- ..., n-1} and E = {(for w in W) (f1 (w), f2 (w))}. In order for the @@ -588,7 +588,7 @@ package body GNAT.Perfect_Hash_Generators is -- Start of processing for Assign_Values_To_Vertices begin - -- Value -1 denotes an unitialized value as it is supposed to + -- Value -1 denotes an uninitialized value as it is supposed to -- be in the range 0 .. NK. if G = No_Table then @@ -2144,7 +2144,7 @@ package body GNAT.Perfect_Hash_Generators is loop -- Preserve maximum number of different keys and check later on -- that this value is strictly incrementing. Otherwise, it means - -- that two keys are stricly identical. + -- that two keys are strictly identical. Old_Differences := Max_Differences; diff --git a/gcc/ada/g-pehage.ads b/gcc/ada/g-pehage.ads index 5ba3fc5d58c..b2aea490eed 100644 --- a/gcc/ada/g-pehage.ads +++ b/gcc/ada/g-pehage.ads @@ -62,7 +62,7 @@ -- The functions generated by this package require the key set to be known in -- advance (they are "static" hash functions). The hash functions are also --- order preservering. If w2 is inserted after w1 in the generator, then (w1) +-- order preserving. If w2 is inserted after w1 in the generator, then (w1) -- < f (w2). These hashing functions are convenient for use with realtime -- applications. @@ -71,7 +71,7 @@ package GNAT.Perfect_Hash_Generators is Default_K_To_V : constant Float := 2.05; -- Default ratio for the algorithm. When K is the number of keys, V = -- (K_To_V) * K is the size of the main table of the hash function. To - -- converge, the algorithm requires K_To_V to be stricly greater than 2.0. + -- converge, the algorithm requires K_To_V to be strictly greater than 2.0. Default_Pkg_Name : constant String := "Perfect_Hash"; -- Default package name in which the hash function is defined @@ -113,7 +113,7 @@ package GNAT.Perfect_Hash_Generators is -- Insert a new key in the table Too_Many_Tries : exception; - -- Raised after Tries unsuccessfull runs + -- Raised after Tries unsuccessful runs procedure Compute (Position : String := Default_Position); -- Compute the hash function. Position allows to define selection of diff --git a/gcc/ada/g-regexp.adb b/gcc/ada/g-regexp.adb index 65c1166bff1..2ccac8dc79a 100644 --- a/gcc/ada/g-regexp.adb +++ b/gcc/ada/g-regexp.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-regexp.ads b/gcc/ada/g-regexp.ads index e26d0c61365..5f4ddf6c4a5 100644 --- a/gcc/ada/g-regexp.ads +++ b/gcc/ada/g-regexp.ads @@ -43,7 +43,7 @@ -- Summary of Pattern Matching Packages in GNAT Hierarchy -- ------------------------------------------------------------ --- There are three related packages that perform pattern maching functions. +-- There are three related packages that perform pattern matching functions. -- the following is an outline of these packages, to help you determine -- which is best for your needs. @@ -62,7 +62,7 @@ -- stored in a binary compatible manner. -- GNAT.Spitbol.Patterns (files g-spipat.ads/g-spipat.adb) --- This is a completely general patterm matching package based on the +-- This is a completely general pattern matching package based on the -- pattern language of SNOBOL4, as implemented in SPITBOL. The pattern -- language is modeled on context free grammars, with context sensitive -- extensions that provide full (type 0) computational capabilities. diff --git a/gcc/ada/g-regpat.adb b/gcc/ada/g-regpat.adb index e7a488a1435..658a3a6a7ed 100644 --- a/gcc/ada/g-regpat.adb +++ b/gcc/ada/g-regpat.adb @@ -34,6 +34,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-regpat.ads b/gcc/ada/g-regpat.ads index 46b46f40289..13c7771270a 100644 --- a/gcc/ada/g-regpat.ads +++ b/gcc/ada/g-regpat.ads @@ -46,7 +46,7 @@ -- Summary of Pattern Matching Packages in GNAT Hierarchy -- ------------------------------------------------------------ --- There are three related packages that perform pattern maching functions. +-- There are three related packages that perform pattern matching functions. -- the following is an outline of these packages, to help you determine -- which is best for your needs. diff --git a/gcc/ada/g-soccon-aix.ads b/gcc/ada/g-soccon-aix.ads index b1f6376082d..5b36015b1b3 100644 --- a/gcc/ada/g-soccon-aix.ads +++ b/gcc/ada/g-soccon-aix.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 75; -- Socket already connected - ELOOP : constant := 85; -- Too many symbolic lynks + ELOOP : constant := 85; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 59; -- Message too long ENAMETOOLONG : constant := 86; -- Name too long diff --git a/gcc/ada/g-soccon-darwin.ads b/gcc/ada/g-soccon-darwin.ads index b48c4df65ed..8b4ac6154a6 100644 --- a/gcc/ada/g-soccon-darwin.ads +++ b/gcc/ada/g-soccon-darwin.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long @@ -163,6 +163,7 @@ package GNAT.Sockets.Constants is IP_MULTICAST_LOOP : constant := 11; -- Set/get mcast loopback IP_ADD_MEMBERSHIP : constant := 12; -- Join a multicast group IP_DROP_MEMBERSHIP : constant := 13; -- Leave a multicast group + IP_PKTINFO : constant := -1; -- Get datagram info ------------------- -- System limits -- diff --git a/gcc/ada/g-soccon-freebsd.ads b/gcc/ada/g-soccon-freebsd.ads index c07fc1852d6..14fbf9d5299 100644 --- a/gcc/ada/g-soccon-freebsd.ads +++ b/gcc/ada/g-soccon-freebsd.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long diff --git a/gcc/ada/g-soccon-hpux-ia64.ads b/gcc/ada/g-soccon-hpux-ia64.ads index 3caa99cc0ad..38e287ef58a 100644 --- a/gcc/ada/g-soccon-hpux-ia64.ads +++ b/gcc/ada/g-soccon-hpux-ia64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 234; -- Socket already connected - ELOOP : constant := 249; -- Too many symbolic lynks + ELOOP : constant := 249; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 218; -- Message too long ENAMETOOLONG : constant := 248; -- Name too long diff --git a/gcc/ada/g-soccon-hpux.ads b/gcc/ada/g-soccon-hpux.ads index 9be66ad4f08..c1851faee11 100644 --- a/gcc/ada/g-soccon-hpux.ads +++ b/gcc/ada/g-soccon-hpux.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 234; -- Socket already connected - ELOOP : constant := 249; -- Too many symbolic lynks + ELOOP : constant := 249; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 218; -- Message too long ENAMETOOLONG : constant := 248; -- Name too long diff --git a/gcc/ada/g-soccon-irix.ads b/gcc/ada/g-soccon-irix.ads index 1f367548705..a00ff051b54 100644 --- a/gcc/ada/g-soccon-irix.ads +++ b/gcc/ada/g-soccon-irix.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 133; -- Socket already connected - ELOOP : constant := 90; -- Too many symbolic lynks + ELOOP : constant := 90; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 97; -- Message too long ENAMETOOLONG : constant := 78; -- Name too long diff --git a/gcc/ada/g-soccon-linux-64.ads b/gcc/ada/g-soccon-linux-64.ads index 0cbafed9fe0..cd4332df743 100644 --- a/gcc/ada/g-soccon-linux-64.ads +++ b/gcc/ada/g-soccon-linux-64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-soccon-linux-ppc.ads b/gcc/ada/g-soccon-linux-ppc.ads index eb254e94ca2..4ae8556f48e 100644 --- a/gcc/ada/g-soccon-linux-ppc.ads +++ b/gcc/ada/g-soccon-linux-ppc.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long @@ -149,6 +149,7 @@ package GNAT.Sockets.Constants is TCP_NODELAY : constant := 1; -- Do not coalesce packets SO_REUSEADDR : constant := 2; -- Bind reuse local address + SO_REUSEPORT : constant := -1; -- Bind reuse port number SO_KEEPALIVE : constant := 9; -- Enable keep-alive msgs SO_LINGER : constant := 13; -- Defer close to flush data SO_BROADCAST : constant := 6; -- Can send broadcast msgs @@ -162,6 +163,7 @@ package GNAT.Sockets.Constants is IP_MULTICAST_LOOP : constant := 34; -- Set/get mcast loopback IP_ADD_MEMBERSHIP : constant := 35; -- Join a multicast group IP_DROP_MEMBERSHIP : constant := 36; -- Leave a multicast group + IP_PKTINFO : constant := 8; -- Get datagram info ------------------- -- System limits -- diff --git a/gcc/ada/g-soccon-linux-x86.ads b/gcc/ada/g-soccon-linux-x86.ads index ca1418f3fca..b1c9188c7bc 100644 --- a/gcc/ada/g-soccon-linux-x86.ads +++ b/gcc/ada/g-soccon-linux-x86.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-soccon-lynxos.ads b/gcc/ada/g-soccon-lynxos.ads index f93e88e53ff..ee0fa91596e 100644 --- a/gcc/ada/g-soccon-lynxos.ads +++ b/gcc/ada/g-soccon-lynxos.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-soccon-mingw.ads b/gcc/ada/g-soccon-mingw.ads index dc39f810e2f..1266a4bfdc9 100644 --- a/gcc/ada/g-soccon-mingw.ads +++ b/gcc/ada/g-soccon-mingw.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 10022; -- Invalid argument EIO : constant := 10101; -- Input output error EISCONN : constant := 10056; -- Socket already connected - ELOOP : constant := 10062; -- Too many symbolic lynks + ELOOP : constant := 10062; -- Too many symbolic links EMFILE : constant := 10024; -- Too many open files EMSGSIZE : constant := 10040; -- Message too long ENAMETOOLONG : constant := 10063; -- Name too long @@ -195,7 +195,7 @@ package GNAT.Sockets.Constants is WSASYSNOTREADY : constant := 10091; -- System not ready WSAVERNOTSUPPORTED : constant := 10092; -- Version not supported - WSANOTINITIALISED : constant := 10093; -- Winsock not intialized + WSANOTINITIALISED : constant := 10093; -- Winsock not initialized WSAEDISCON : constant := 10101; -- Disconnected ---------------------- diff --git a/gcc/ada/g-soccon-solaris-64.ads b/gcc/ada/g-soccon-solaris-64.ads index 5f57e176cb3..7cd8c8b2c25 100644 --- a/gcc/ada/g-soccon-solaris-64.ads +++ b/gcc/ada/g-soccon-solaris-64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 133; -- Socket already connected - ELOOP : constant := 90; -- Too many symbolic lynks + ELOOP : constant := 90; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 97; -- Message too long ENAMETOOLONG : constant := 78; -- Name too long diff --git a/gcc/ada/g-soccon-solaris.ads b/gcc/ada/g-soccon-solaris.ads index 4b433bf5792..cd0aebd5125 100644 --- a/gcc/ada/g-soccon-solaris.ads +++ b/gcc/ada/g-soccon-solaris.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 133; -- Socket already connected - ELOOP : constant := 90; -- Too many symbolic lynks + ELOOP : constant := 90; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 97; -- Message too long ENAMETOOLONG : constant := 78; -- Name too long diff --git a/gcc/ada/g-soccon-tru64.ads b/gcc/ada/g-soccon-tru64.ads index 8e16fbe7e39..959625ef9c5 100644 --- a/gcc/ada/g-soccon-tru64.ads +++ b/gcc/ada/g-soccon-tru64.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long diff --git a/gcc/ada/g-soccon-vms.ads b/gcc/ada/g-soccon-vms.ads index 44b8523a36a..8634a0a00f4 100644 --- a/gcc/ada/g-soccon-vms.ads +++ b/gcc/ada/g-soccon-vms.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 62; -- Too many symbolic lynks + ELOOP : constant := 62; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 40; -- Message too long ENAMETOOLONG : constant := 63; -- Name too long diff --git a/gcc/ada/g-soccon-vxworks.ads b/gcc/ada/g-soccon-vxworks.ads index 4168d2c9975..173a591c46e 100644 --- a/gcc/ada/g-soccon-vxworks.ads +++ b/gcc/ada/g-soccon-vxworks.ads @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 56; -- Socket already connected - ELOOP : constant := 64; -- Too many symbolic lynks + ELOOP : constant := 64; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 36; -- Message too long ENAMETOOLONG : constant := 26; -- Name too long diff --git a/gcc/ada/g-soccon.ads b/gcc/ada/g-soccon.ads index b57711d976e..d7556a12a71 100644 --- a/gcc/ada/g-soccon.ads +++ b/gcc/ada/g-soccon.ads @@ -84,7 +84,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 106; -- Socket already connected - ELOOP : constant := 40; -- Too many symbolic lynks + ELOOP : constant := 40; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 90; -- Message too long ENAMETOOLONG : constant := 36; -- Name too long diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index e491eed89ac..896a2c45652 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -61,7 +61,7 @@ package body GNAT.Sockets is -- the operating system, or else return data through a user-provided buffer -- to ensure concurrent uses do not interfere. - -- Correspondance tables + -- Correspondence tables Families : constant array (Family_Type) of C.int := (Family_Inet => Constants.AF_INET, @@ -152,7 +152,7 @@ package body GNAT.Sockets is function Network_To_Short (S : C.unsigned_short) return C.unsigned_short renames Short_To_Network; - -- Symetric operation + -- Symmetric operation function Image (Val : Inet_Addr_VN_Type; @@ -547,7 +547,7 @@ package body GNAT.Sockets is Signalling_Fds.Close (C.int (Selector.W_Sig_Socket)); -- Reset R_Sig_Socket and W_Sig_Socket to No_Socket to ensure that any - -- (errneous) subsequent attempt to use this selector properly fails. + -- (erroneous) subsequent attempt to use this selector properly fails. Selector.R_Sig_Socket := No_Socket; Selector.W_Sig_Socket := No_Socket; diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 105f285a8b4..38b857432b1 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -432,7 +432,7 @@ package GNAT.Sockets is type Inet_Addr_Type (Family : Family_Type := Family_Inet) is private; -- An Internet address depends on an address family (IPv4 contains 4 - -- octets and Ipv6 contains 16 octets). Any_Inet_Addr is a special value + -- octets and IPv6 contains 16 octets). Any_Inet_Addr is a special value -- treated like a wildcard enabling all addresses. No_Inet_Addr provides a -- special value to denote uninitialized inet addresses. diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb index 5376e986e15..78d5c3feadc 100644 --- a/gcc/ada/g-socthi-mingw.adb +++ b/gcc/ada/g-socthi-mingw.adb @@ -303,7 +303,7 @@ package body GNAT.Sockets.Thin is begin -- Asynchronous connection failures are notified in the -- exception fd set instead of the write fd set. To ensure - -- POSIX compatitibility, copy write fd set into exception fd + -- POSIX compatibility, copy write fd set into exception fd -- set. Once select() returns, check any socket present in the -- exception fd set and peek at incoming out-of-band data. If -- the test is not successful, and the socket is present in diff --git a/gcc/ada/g-socthi-vms.adb b/gcc/ada/g-socthi-vms.adb index bd27a32d2ec..0d620c2e990 100644 --- a/gcc/ada/g-socthi-vms.adb +++ b/gcc/ada/g-socthi-vms.adb @@ -144,7 +144,7 @@ package body GNAT.Sockets.Thin is if not Constants.Thread_Blocking_IO and then R /= Failure then - -- A socket inherits the properties ot its server especially + -- A socket inherits the properties of its server, especially -- the FIONBIO flag. Do not use C_Ioctl as this subprogram -- tracks sockets set in non-blocking mode by user. diff --git a/gcc/ada/g-socthi-vxworks.adb b/gcc/ada/g-socthi-vxworks.adb index 84394727f8e..681ea861b42 100644 --- a/gcc/ada/g-socthi-vxworks.adb +++ b/gcc/ada/g-socthi-vxworks.adb @@ -156,7 +156,7 @@ package body GNAT.Sockets.Thin is if not Constants.Thread_Blocking_IO and then R /= Failure then - -- A socket inherits the properties ot its server especially + -- A socket inherits the properties of its server especially -- the FIONBIO flag. Do not use C_Ioctl as this subprogram -- tracks sockets set in non-blocking mode by user. diff --git a/gcc/ada/g-soliop-mingw.ads b/gcc/ada/g-soliop-mingw.ads index 01007ccd291..ba7faa4fed0 100644 --- a/gcc/ada/g-soliop-mingw.ads +++ b/gcc/ada/g-soliop-mingw.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package is used to provide target specific linker_options for the --- support of scokets as required by the package GNAT.Sockets. +-- support of sockets as required by the package GNAT.Sockets. -- This is the Windows/NT version of this package diff --git a/gcc/ada/g-soliop-solaris.ads b/gcc/ada/g-soliop-solaris.ads index e4774c0b8f5..cd3c5a3e68d 100644 --- a/gcc/ada/g-soliop-solaris.ads +++ b/gcc/ada/g-soliop-solaris.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package is used to provide target specific linker_options for the --- support of scokets as required by the package GNAT.Sockets. +-- support of sockets as required by the package GNAT.Sockets. -- This is the Solaris version of this package diff --git a/gcc/ada/g-soliop.ads b/gcc/ada/g-soliop.ads index 604542f54bf..60a3bd98f6d 100644 --- a/gcc/ada/g-soliop.ads +++ b/gcc/ada/g-soliop.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package is used to provide target specific linker_options for the --- support of scokets as required by the package GNAT.Sockets. +-- support of sockets as required by the package GNAT.Sockets. -- This is an empty version for default use where no additional libraries -- are required. On some targets a target specific version of this unit diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index 1e0c85c22c4..b39f2e5f4fa 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -102,7 +102,7 @@ package body GNAT.Spitbol.Patterns is -- I parameter(s) I -- +------------------------------------+ - -- Pcode is a code value indicating the type of the patterm node. This + -- Pcode is a code value indicating the type of the pattern node. This -- code is used both as the discriminant value for the record, and as -- the case index in the main match routine that branches to the proper -- match code for the given element. @@ -113,7 +113,7 @@ package body GNAT.Spitbol.Patterns is -- Pthen is a pointer to the successor node, i.e the node to be matched -- if the attempt to match the node succeeds. If this is the last node -- of the pattern to be matched, then Pthen points to a dummy node - -- of kind PC_EOP (end of pattern), which initiales pattern exit. + -- of kind PC_EOP (end of pattern), which initializes pattern exit. -- The parameter or parameters are present for certain node types, -- and the type varies with the pattern code. @@ -431,7 +431,7 @@ package body GNAT.Spitbol.Patterns is --------------------------------------------------- -- The serial index numbers for the pattern elements are assigned as - -- a pattern is consructed from its constituent elements. Note that there + -- a pattern is constructed from its constituent elements. Note that there -- is never any sharing of pattern elements between patterns (copies are -- always made), so the serial index numbers are unique to a particular -- pattern as referenced from the P field of a value of type Pattern. @@ -449,7 +449,7 @@ package body GNAT.Spitbol.Patterns is -- pattern (e.g. copy and finalization processing). Once constructed -- patterns are strictly read only. This is necessary to allow sharing -- of patterns between tasks. This means that we cannot go marking the - -- pattern (e.g. with a visited bit). Instead we cosntuct a separate + -- pattern (e.g. with a visited bit). Instead we construct a separate -- vector that contains the necessary information indexed by the Index -- values in the pattern elements. For this purpose the only requirement -- is that they be uniquely assigned. @@ -469,7 +469,7 @@ package body GNAT.Spitbol.Patterns is -- Third, as compound pattern structures are constructed, the way in which -- constituent parts of the pattern are constructed is stylized. This is - -- an automatic consequence of the way that these compounjd structures + -- an automatic consequence of the way that these compound structures -- are constructed, and basically what we are doing is simply documenting -- and specifying the natural result of the pattern construction. The -- section describing compound pattern structures gives details of the @@ -588,7 +588,7 @@ package body GNAT.Spitbol.Patterns is -- stack is used to control the backtracking. Finally, it notes the -- way in which the Index numbers are assigned to the structure. - -- In all diagrams, solid lines (built witth minus signs or vertical + -- In all diagrams, solid lines (built with minus signs or vertical -- bars, represent successor pointers (Pthen fields) with > or V used -- to indicate the direction of the pointer. The initial node of the -- structure is in the upper left of the diagram. A dotted line is an @@ -600,7 +600,7 @@ package body GNAT.Spitbol.Patterns is ------------------- -- In the pattern structures listed in this section, a line that looks - -- lile ----> with nothing to the right indicates an end of pattern + -- like ----> with nothing to the right indicates an end of pattern -- (EOP) pointer that represents the end of the match. -- When a pattern concatenation (L & R) occurs, the resulting structure @@ -609,7 +609,7 @@ package body GNAT.Spitbol.Patterns is -- occurs in constructing a pattern, and it means that the pattern -- matching circuitry does not have to keep track of the structure -- of a pattern with respect to concatenation, since the appropriate - -- succesor is always at hand. + -- successor is always at hand. -- Concatenation itself generates no additional possibilities for -- backtracking, but the constituent patterns of the concatenated @@ -643,7 +643,7 @@ package body GNAT.Spitbol.Patterns is -- it stacks a pointer to the leading element of R on the history stack -- so that on subsequent failure, a match of R is attempted. - -- The A node is the higest numbered element in the pattern. The + -- The A node is the highest numbered element in the pattern. The -- original index numbers of R are unchanged, but the index numbers -- of the L pattern are adjusted up by the count of elements in R. @@ -941,7 +941,7 @@ package body GNAT.Spitbol.Patterns is -- described below. -- It then stores a pointer to itself in the special entry node field. - -- This was otherwise unused, and is now used to retrive the address + -- This was otherwise unused, and is now used to retrieve the address -- of the variable to be assigned at the end of the pattern. -- After that the inner region is terminated in the usual manner, @@ -999,7 +999,7 @@ package body GNAT.Spitbol.Patterns is -- string, starting at the current cursor position. It then updates -- the cursor past this matched string, and stacks a pointer to itself -- with this updated cursor value on the history stack, to extend the - -- matched string on a subequent failure. + -- matched string on a subsequent failure. -- Since this is a single node it is numbered 1 (the reason we include -- it in the compound patterns section is that it backtracks). @@ -1174,7 +1174,7 @@ package body GNAT.Spitbol.Patterns is -- The following pattern elements are referenced only from the pattern -- history stack. In each case the processing for the pattern element - -- results in pattern match abort, or futher failure, so there is no + -- results in pattern match abort, or further failure, so there is no -- need for a successor and no need for a node number CP_Assign : aliased PE := (PC_Assign, 0, N); @@ -1208,11 +1208,11 @@ package body GNAT.Spitbol.Patterns is -- understand a typical use of this function). function BreakX_Make (B : PE_Ptr) return Pattern; - -- Given a pattern element for a Break patternx, returns the + -- Given a pattern element for a Break pattern, returns the -- corresponding BreakX compound pattern structure. function Concat (L, R : PE_Ptr; Incr : Natural) return PE_Ptr; - -- Creates a pattern eelement that represents a concatenation of the + -- Creates a pattern element that represents a concatenation of the -- two given pattern elements (i.e. the pattern L followed by R). -- The result returned is always the same as L, but the pattern -- referenced by L is modified to have R as a successor. This @@ -1304,7 +1304,7 @@ package body GNAT.Spitbol.Patterns is Start : out Natural; Stop : out Natural); -- Identical in all respects to XMatch, except that trace information is - -- output on Standard_Ouput during execution of the match. This is the + -- output on Standard_Output during execution of the match. This is the -- version that is called if the original Match call has Debug => True. --------- @@ -1590,7 +1590,7 @@ package body GNAT.Spitbol.Patterns is return new PE'(PC_Alt, R.Index + 1, EOP, R); -- If the left pattern is non-null, then build a reference vector - -- for its elements, and adjust their index values to acccomodate + -- for its elements, and adjust their index values to accommodate -- the right hand elements. Then add the alternation node. else @@ -3707,14 +3707,14 @@ package body GNAT.Spitbol.Patterns is procedure Pop_Region; pragma Inline (Pop_Region); - -- Used at the end of processing of an inner region. if the inner + -- Used at the end of processing of an inner region. If the inner -- region left no stack entries, then all trace of it is removed. -- Otherwise a PC_Restore_Region entry is pushed to ensure proper -- handling of alternatives in the inner region. procedure Push (Node : PE_Ptr); pragma Inline (Push); - -- Make entry in pattern matching stack with current cursor valeu + -- Make entry in pattern matching stack with current cursor value procedure Push_Region; pragma Inline (Push_Region); @@ -5022,14 +5022,14 @@ package body GNAT.Spitbol.Patterns is procedure Pop_Region; pragma Inline (Pop_Region); - -- Used at the end of processing of an inner region. if the inner + -- Used at the end of processing of an inner region. If the inner -- region left no stack entries, then all trace of it is removed. -- Otherwise a PC_Restore_Region entry is pushed to ensure proper -- handling of alternatives in the inner region. procedure Push (Node : PE_Ptr); pragma Inline (Push); - -- Make entry in pattern matching stack with current cursor valeu + -- Make entry in pattern matching stack with current cursor value procedure Push_Region; pragma Inline (Push_Region); diff --git a/gcc/ada/g-spipat.ads b/gcc/ada/g-spipat.ads index af4aed19f57..8ce8b1620e1 100644 --- a/gcc/ada/g-spipat.ads +++ b/gcc/ada/g-spipat.ads @@ -41,7 +41,7 @@ -- Summary of Pattern Matching Packages in GNAT Hierarchy -- ------------------------------------------------------------ --- There are three related packages that perform pattern maching functions. +-- There are three related packages that perform pattern matching functions. -- the following is an outline of these packages, to help you determine -- which is best for your needs. @@ -154,7 +154,7 @@ package GNAT.Spitbol.Patterns is -- ("ABC" or "AB") & ("DEF" or "CDE") & ("GH" or "IJ") - -- would succeed, afer two anchor point moves: + -- would succeed, after two anchor point moves: -- "ABABCDEIJKL" -- ^^^^^^^ @@ -226,7 +226,7 @@ package GNAT.Spitbol.Patterns is -- of the pattern, starting with zero occurrences. It is -- thus equivalent to ("" or (P & ("" or (P & ("" ....)))). -- The pattern P may contain any number of pattern elements - -- including the use of alternatiion and concatenation. + -- including the use of alternation and concatenation. -- Break(S) Where S is a string, matches a string of zero or more -- characters up to but not including a break character @@ -237,7 +237,7 @@ package GNAT.Spitbol.Patterns is -- BreakX(S) Where S is a string, behaves exactly like Break(S) when -- it first matches, but if a string is successfully matched, - -- then a susequent failure causes an attempt to extend the + -- then a subsequent failure causes an attempt to extend the -- matched string. -- Fence(P) Where P is a pattern, attempts to match the pattern P @@ -247,7 +247,7 @@ package GNAT.Spitbol.Patterns is -- match proceeds, but on a subsequent failure, no attempt -- is made to search for alternative matches of P. The -- pattern P may contain any number of pattern elements - -- including the use of alternatiion and concatenation. + -- including the use of alternation and concatenation. -- Len(N) Where N is a natural number, matches the given number of -- characters. For example, Len(10) matches any string that @@ -255,7 +255,7 @@ package GNAT.Spitbol.Patterns is -- NotAny(S) Where S is a string, matches a single character that is -- not one of the characters of S. Fails if the current - -- characer is one of the given set of characters. + -- character is one of the given set of characters. -- NSpan(S) Where S is a string, matches a string of zero or more -- characters that is among the characters given in the @@ -690,7 +690,7 @@ package GNAT.Spitbol.Patterns is -- if the language allowed, we would use in out parameters, but we are -- not allowed to have in out parameters for functions. Instead we pass -- actuals which must be variables, and with a bit of trickery in the - -- body, manage to interprete them properly as though they were indeed + -- body, manage to interpret them properly as though they were indeed -- in out parameters. pragma Warnings (Off, VString_Var); @@ -832,7 +832,7 @@ package GNAT.Spitbol.Patterns is -- causes the entire match to be aborted if a subsequent failure occurs. function Fence (P : Pattern) return Pattern; - -- Constructs a pattern that first matches P. if P fails, then the + -- Constructs a pattern that first matches P. If P fails, then the -- constructed pattern fails. If P succeeds, then the match proceeds, -- but if subsequent failure occurs, alternatives in P are not sought. -- The idea of Fence is that each time the pattern is matched, just @@ -1054,7 +1054,7 @@ package GNAT.Spitbol.Patterns is -- if the language allowed, we would use an in out parameter, but we are -- not allowed to have in out parameters for functions. Instead we pass -- actuals which must be variables, and with a bit of trickery in the - -- body, manage to interprete them properly as though they were indeed + -- body, manage to interpret them properly as though they were indeed -- in out parameters. function Match @@ -1142,8 +1142,8 @@ package GNAT.Spitbol.Patterns is private type PE; - -- Pattern element, a pattern is a plex structure of PE's. This type - -- is defined and sdescribed in the body of this package. + -- Pattern element, a pattern is a complex structure of PE's. This type + -- is defined and described in the body of this package. type PE_Ptr is access all PE; -- Pattern reference. PE's use PE_Ptr values to reference other PE's diff --git a/gcc/ada/g-string.adb b/gcc/ada/g-string.adb index bdbb995ff95..86b02f5d1f4 100644 --- a/gcc/ada/g-string.adb +++ b/gcc/ada/g-string.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-stsifd-sockets.adb b/gcc/ada/g-stsifd-sockets.adb index 02c852cad86..5fcaa00b37c 100644 --- a/gcc/ada/g-stsifd-sockets.adb +++ b/gcc/ada/g-stsifd-sockets.adb @@ -162,7 +162,7 @@ package body Signalling_Fds is R_Sock := Failure; end loop; - -- Since the call to connect(2) has suceeded and the backlog limit on + -- Since the call to connect(2) has succeeded and the backlog limit on -- the listening socket is 1, we know that there is now exactly one -- pending connection on L_Sock, which is the one from R_Sock. diff --git a/gcc/ada/g-table.adb b/gcc/ada/g-table.adb index 32d18a08b74..cd73a4aba9b 100644 --- a/gcc/ada/g-table.adb +++ b/gcc/ada/g-table.adb @@ -256,7 +256,7 @@ package body GNAT.Table is -- current allocation). Range 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 + -- compiler supporting specifically 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. @@ -268,7 +268,7 @@ package body GNAT.Table is -- involve moving table contents around). begin - -- If we're going to reallocate, check wheter Item references an + -- If we're going to reallocate, check whether Item references an -- element of the currently allocated table. if Need_Realloc diff --git a/gcc/ada/g-tasloc.adb b/gcc/ada/g-tasloc.adb index cd4fa8c6161..52bd0e9cfa8 100644 --- a/gcc/ada/g-tasloc.adb +++ b/gcc/ada/g-tasloc.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/g-traceb.ads b/gcc/ada/g-traceb.ads index 6e34f0bb481..3c0e62c71c1 100644 --- a/gcc/ada/g-traceb.ads +++ b/gcc/ada/g-traceb.ads @@ -43,7 +43,7 @@ -- using the external addr2line utility, or from within GDB. -- In order to use this facility, in some cases the binder must be invoked --- with -E switch (store the backtrace with exception occurence). Please +-- with -E switch (store the backtrace with exception occurrence). Please -- refer to gnatbind documentation for more information. -- To analyze the code locations later using addr2line or gdb, the necessary diff --git a/gcc/ada/g-trasym.adb b/gcc/ada/g-trasym.adb index 117dcc2f61e..70e9c538c44 100644 --- a/gcc/ada/g-trasym.adb +++ b/gcc/ada/g-trasym.adb @@ -114,7 +114,7 @@ package body GNAT.Traceback.Symbolic is -- be found. If the executable file name resolution fails, we have no -- sensible basis to invoke the symbolizer at all. - -- Protect all this against concurrent accesses explicitely, as the + -- Protect all this against concurrent accesses explicitly, as the -- underlying services are potentially thread unsafe. TSL.Lock_Task.all; diff --git a/gcc/ada/g-utf_32.adb b/gcc/ada/g-utf_32.adb index 5731c04fdc9..76c0f0843de 100644 --- a/gcc/ada/g-utf_32.adb +++ b/gcc/ada/g-utf_32.adb @@ -33,6 +33,6 @@ -- This package does not require a body, since it is a package renaming. We -- provide a dummy file containing a No_Body pragma so that previous versions --- of the body (which did exist) will not intefere. +-- of the body (which did exist) will not interfere. pragma No_Body; diff --git a/gcc/ada/gen-soccon.c b/gcc/ada/gen-soccon.c index ec513f61935..a4dd957d67c 100644 --- a/gcc/ada/gen-soccon.c +++ b/gcc/ada/gen-soccon.c @@ -639,7 +639,7 @@ _NL CND(WSASYSNOTREADY, "System not ready") CND(WSAVERNOTSUPPORTED, "Version not supported") -CND(WSANOTINITIALISED, "Winsock not intialized") +CND(WSANOTINITIALISED, "Winsock not initialized") CND(WSAEDISCON, "Disconnected") #endif diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h index e41b0b2fcd1..c57cd80e30e 100644 --- a/gcc/ada/gigi.h +++ b/gcc/ada/gigi.h @@ -442,11 +442,6 @@ extern void set_block_jmpbuf_decl (tree decl); /* Get the setjmp_decl, if any, for the current binding level. */ extern tree get_block_jmpbuf_decl (void); -/* Insert BLOCK at the end of the list of subblocks of the - current binding level. This is used when a BIND_EXPR is expanded, - to handle the BLOCK node inside the BIND_EXPR. */ -extern void insert_block (tree block); - /* Records a ..._DECL node DECL as belonging to the current lexical scope and uses GNAT_NODE for location information. */ extern void gnat_pushdecl (tree decl, Node_Id gnat_node); @@ -787,7 +782,7 @@ extern tree build_component_ref (tree record_variable, tree component, /* Build a GCC tree to call an allocation or deallocation function. If GNU_OBJ is nonzero, it is an object to deallocate. Otherwise, - genrate an allocator. + generate an allocator. GNU_SIZE is the size of the object and ALIGN is the alignment. GNAT_PROC, if present is a procedure to call and GNAT_POOL is the diff --git a/gcc/ada/gmem.c b/gcc/ada/gmem.c index 508d18d7cd6..b319993ea5a 100644 --- a/gcc/ada/gmem.c +++ b/gcc/ada/gmem.c @@ -79,7 +79,7 @@ __gnat_convert_addresses (void *addrs[], int n_addrs, void *buf, int *len); routine. The latter examines debug info from a provided executable file name to perform the translation into symbolic form of an input sequence of raw binary addresses. It attempts to open the file from the provided name - "as is", so an an absolute path must be provided to ensure the file is + "as is", so an absolute path must be provided to ensure the file is always found. We compute this name once, at initialization time. */ static const char * exename = 0; diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index b8bb524f2ec..6581c6fc62e 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -317,7 +317,7 @@ procedure Gnatbind is then null; - -- Invalid -S switch, let Switch give error, set defalut of IN + -- Invalid -S switch, let Switch give error, set default of IN else Scan_Binder_Switches (Argv); diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index 8a72c4e3bb6..e38d51bcf53 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -280,7 +280,7 @@ procedure Gnatchop is function Report_Duplicate_Units return Boolean; -- Output messages about duplicate units in the input files in Unit.Table - -- Returns True if any duplicates found, Fals if no duplicates found. + -- Returns True if any duplicates found, False if no duplicates found. function Scan_Arguments return Boolean; -- Scan command line options and set global variables accordingly. @@ -761,7 +761,7 @@ procedure Gnatchop is -- Note that the unit name can be an operator name in quotes. -- This is of course illegal, but both GNAT and gnatchop handle - -- the case so that this error does not intefere with chopping. + -- the case so that this error does not interfere with chopping. -- The SR ir present indicates that a source reference pragma -- was processed as part of this unit (and that therefore no diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 8e527cc76ee..13ddf63f8d4 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -66,7 +66,7 @@ procedure GNATCmd is Old_Project_File_Used : Boolean := False; -- This flag indicates a switch -p (for gnatxref and gnatfind) for - -- an old fashioned project file. -p cannot be used in conjonction + -- an old fashioned project file. -p cannot be used in conjunction -- with -P. Max_Files_On_The_Command_Line : constant := 30; -- Arbitrary @@ -326,7 +326,7 @@ procedure GNATCmd is declare Current_Last : constant Integer := Last_Switches.Last; begin - -- Gnatstack needs to add the the .ci file for the binder + -- Gnatstack needs to add the .ci file for the binder -- generated files corresponding to all of the library projects -- and main units belonging to the application. @@ -846,7 +846,7 @@ procedure GNATCmd is raise Error_Exit; else - -- Get each file name in the file, find its path and add it the the + -- Get each file name in the file, find its path and add it the -- list of arguments. while not End_Of_File (File) loop @@ -2242,7 +2242,7 @@ begin -- For gnatmetric, the generated files should be put in the object -- directory. This must be the first switch, because it may be - -- overriden by a switch in package Metrics in the project file or + -- overridden by a switch in package Metrics in the project file or -- by a command line option. Note that we don't add the -d= switch -- if there is no object directory available. diff --git a/gcc/ada/gnatcmd.ads b/gcc/ada/gnatcmd.ads index a8529e0867f..d592256352a 100644 --- a/gcc/ada/gnatcmd.ads +++ b/gcc/ada/gnatcmd.ads @@ -29,7 +29,7 @@ -- style switches that are accepted directly. -- The program is typically called GNAT when it is installed and --- the two possibile styles of use are: +-- the two possible styles of use are: -- To call gcc: diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb index c1c00afec08..7ac560475b7 100644 --- a/gcc/ada/gnatdll.adb +++ b/gcc/ada/gnatdll.adb @@ -51,14 +51,14 @@ procedure Gnatdll is -- Parse the command line arguments passed to gnatdll procedure Check_Context; - -- Check the context before runing any commands to build the library + -- Check the context before running any commands to build the library Syntax_Error : exception; -- Raised when a syntax error is detected, in this case a usage info will -- be displayed. Context_Error : exception; - -- Raised when some files (specifed on the command line) are missing to + -- Raised when some files (specified on the command line) are missing to -- build the DLL. Help : Boolean := False; @@ -89,7 +89,7 @@ procedure Gnatdll is -- List of objects to put inside the library Ali_Files : Argument_List_Access := MDLL.Null_Argument_List_Access; - -- For each Ada file specified, we keep arecord of the corresponding + -- For each Ada file specified, we keep a record of the corresponding -- ALI file. This list of SLI files is used to build the binder program. Options : Argument_List_Access := MDLL.Null_Argument_List_Access; @@ -200,7 +200,7 @@ procedure Gnatdll is -- A list of -bargs options (B is next entry to be used) Build_Import : Boolean := True; - -- Set to Fals if option -n if specified (no-import) + -- Set to False if option -n if specified (no-import) -------------- -- Add_File -- diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb index a0e05a88d2d..5592d528a2c 100644 --- a/gcc/ada/gnatfind.adb +++ b/gcc/ada/gnatfind.adb @@ -314,8 +314,8 @@ begin end if; -- Special case to speed things up: if the user has a command line of the - -- form 'gnatfind entity:file', ie has specified a file and only wants the - -- bodies and specs, then we can restrict the search to the .ali file + -- form 'gnatfind entity:file', i.e. has specified a file and only wants + -- the bodies and specs, then we can restrict the search to the .ali file -- associated with 'file'. if Has_File_In_Entity diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index a6d4b305e17..d3d10edcf52 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -104,7 +104,7 @@ procedure Gnatlink is -- important because on the GNU linker command line the -L switch is not -- used to look for objects files but -L switch is used to look for -- objects listed in the response file. This is not a problem with the - -- applications objects as they are specified with a fullname. + -- applications objects as they are specified with a full name. package Response_File_Objects is new Table.Table ( Table_Component_Type => String_Access, @@ -1303,7 +1303,7 @@ procedure Gnatlink is else -- If gnatlib library not found, then -- add it anyway in case some other - -- mechanimsm may find it. + -- mechanism may find it. Linker_Options.Increment_Last; Linker_Options.Table (Linker_Options.Last) := @@ -1475,7 +1475,7 @@ begin -- switches: -- -gnatA stops reading gnat.adc, since we don't know what - -- pagmas would work, and we do not need it anyway. + -- pragmas would work, and we do not need it anyway. -- -gnatWb allows brackets coding for wide characters @@ -1843,7 +1843,7 @@ begin -- one. And any subsequent stack setting option will overwrite the -- previous one. This is done especially for GNAT/NT where we set -- the stack size for tasking programs by a pragma in the NT - -- specific tasking package System.Task_Primitives.Oparations. + -- specific tasking package System.Task_Primitives.Operations. -- Note: This is not a FOR loop that runs from Linker_Options.First -- to Linker_Options.Last, since operations within the loop can @@ -2008,7 +2008,7 @@ begin System.OS_Lib.Spawn (Linker_Path.all, Args, Success); - -- Delete the temporary file used in conjuction with linking if + -- Delete the temporary file used in conjunction with linking if -- one was created. See Process_Bind_File for details. if Tname_FD /= Invalid_FD then diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb index a8ca41f9412..a279ca3c8d3 100644 --- a/gcc/ada/gnatmem.adb +++ b/gcc/ada/gnatmem.adb @@ -27,7 +27,7 @@ -- idea: -- - Read the allocation log generated by the application linked using --- instrumented memory allocation and dealocation (see memtrack.adb for +-- instrumented memory allocation and deallocation (see memtrack.adb for -- this circuitry). To get access to this functionality, the application -- must be relinked with library libgmem.a: diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb index a08ea7dce3d..040a726f572 100644 --- a/gcc/ada/gprep.adb +++ b/gcc/ada/gprep.adb @@ -444,7 +444,7 @@ package body GPrep is Symbol := Index_Of (Data.Symbol); - -- If symbol does not alrady exist, create a new entry in the mapping + -- If symbol does not already exist, create a new entry in the mapping -- table. if Symbol = No_Symbol then diff --git a/gcc/ada/i-cstrea-vms.adb b/gcc/ada/i-cstrea-vms.adb index a941dba3bd5..cc1083d8a52 100644 --- a/gcc/ada/i-cstrea-vms.adb +++ b/gcc/ada/i-cstrea-vms.adb @@ -229,7 +229,7 @@ package body Interfaces.C_Streams is -- In order for the above fwrite hack to work, we must always buffer -- stdout and stderr. Is_regular_file on VMS cannot detect when -- these are redirected to a file, so checking for that condition - -- doesnt help. + -- doesn't help. if mode = IONBF and then (stream = stdout or else stream = stderr) diff --git a/gcc/ada/i-cstrin.adb b/gcc/ada/i-cstrin.adb index 42e4ed4494a..c7ec0ceb62f 100644 --- a/gcc/ada/i-cstrin.adb +++ b/gcc/ada/i-cstrin.adb @@ -109,7 +109,7 @@ package body Interfaces.C.Strings is Pointer : chars_ptr; begin - -- Get index of position of null. If Index > Chars'last, + -- Get index of position of null. If Index > Chars'Last, -- nul is absent and must be added explicitly. Index := Position_Of_Nul (Into => Chars); diff --git a/gcc/ada/i-pacdec.ads b/gcc/ada/i-pacdec.ads index da9f87fdf3a..240c0672964 100644 --- a/gcc/ada/i-pacdec.ads +++ b/gcc/ada/i-pacdec.ads @@ -33,7 +33,7 @@ ------------------------------------------------------------------------------ -- This unit defines the packed decimal format used by GNAT in response to --- a specication of Machine_Radix 10 for a decimal fixed-point type. The +-- a specification of Machine_Radix 10 for a decimal fixed-point type. The -- format and operations are completely encapsulated in this unit, so all -- that is necessary to compile using different packed decimal formats is -- to replace this single unit. diff --git a/gcc/ada/i-vxwork.ads b/gcc/ada/i-vxwork.ads index cfe410fadb9..ffb28ae8211 100644 --- a/gcc/ada/i-vxwork.ads +++ b/gcc/ada/i-vxwork.ads @@ -47,7 +47,7 @@ pragma Warnings (Off, "*foreign convention*"); pragma Warnings (Off, "*add Convention pragma*"); --- These are temporary pragmas to supress warnings about mismatching +-- These are temporary pragmas to suppress warnings about mismatching -- conventions, which will be a problem when we get rid of trampolines ??? with System.VxWorks; @@ -175,7 +175,7 @@ package Interfaces.VxWorks is -- Binding to the C routine sysBusIntGen. Note that the T2 -- documentation implies that a vector address is the proper -- argument - it's not. The interrupt number in the range - -- 0 .. 255 (for 68K and PPC) is the correct agument. + -- 0 .. 255 (for 68K and PPC) is the correct argument. procedure logMsg (fmt : String; arg1, arg2, arg3, arg4, arg5, arg6 : int := 0); diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb index bf85defa17a..0b17ec2a8b5 100644 --- a/gcc/ada/impunit.adb +++ b/gcc/ada/impunit.adb @@ -181,7 +181,7 @@ package body Impunit is -- attempt to WITH one of these units will be diagnosed as an error later -- on, but for now we do not consider these internal implementation units -- (if we did, then we would get a junk warning which would be confusing - -- and unecessary, given that we generate a clear error message). + -- and unnecessary, given that we generate a clear error message). "a-tideio", -- Ada.Text_IO.Decimal_IO "a-tienio", -- Ada.Text_IO.Enumeration_IO diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 81956c05b7b..2210ec89559 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -174,7 +174,7 @@ __gnat_get_specific_dispatching (int priority) /* __gnat_set_globals */ /**********************/ -/* This routine is kept for boostrapping purposes, since the binder generated +/* This routine is kept for bootstrapping purposes, since the binder generated file now sets the __gl_* variables directly. */ void diff --git a/gcc/ada/initialize.c b/gcc/ada/initialize.c index a84f7535dc1..999351a8d97 100644 --- a/gcc/ada/initialize.c +++ b/gcc/ada/initialize.c @@ -135,7 +135,7 @@ __gnat_initialize (void *eh) dynamic unloader. Note that since the tables shall be registered against a common - datastructure, libgcc should be one of the modules (vs being partially + data structure, libgcc should be one of the modules (vs being partially linked against all the others at build time) and shall be loaded first. For applications linked with the kernel, the scheme above would lead to diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 20c99683744..3aa16de88e9 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -329,7 +329,7 @@ package body Inline is if Pack = Standard_Standard then - -- Library-level inlined function. Add function iself to + -- Library-level inlined function. Add function itself to -- list of needed units. Inlined_Bodies.Increment_Last; @@ -368,7 +368,7 @@ package body Inline is -- mode it will lead to undefined symbols at link time. -- -- b) If a body contains inlined function instances, it cannot be - -- inlined under ZCX because the numerix suffix generated by gigi + -- inlined under ZCX because the numeric suffix generated by gigi -- will be different in the body and the place of the inlined call. -- -- This procedure must be carefully coordinated with the back end diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index d890012eabe..45cc66247bb 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -956,7 +956,7 @@ package body Layout is Make_Size_Function : Boolean := False; -- Indicates whether to request that SO_Ref_From_Expr should - -- encapsulate the array size expresion in a function. + -- encapsulate the array size expression in a function. procedure Discrimify (N : in out Node_Id); -- If N represents a discriminant, then the Size.Status is set to @@ -2490,7 +2490,7 @@ package body Layout is end; end if; - -- For non-discrete sclar types, if the RM_Size is not set, + -- For non-discrete scalar types, if the RM_Size is not set, -- then set it now to a copy of the Esize if the Esize is set. else @@ -2591,7 +2591,7 @@ package body Layout is Set_Composite_Alignment (E); end if; - -- Procressing for array types + -- Processing for array types elsif Is_Array_Type (E) then @@ -2804,7 +2804,7 @@ package body Layout is -- the setting of the Optimize_Alignment mode. -- If Optimize_Alignment is set to Space, then packed records always - -- have an aligmment of 1. But don't do anything for atomic records + -- have an alignment of 1. But don't do anything for atomic records -- since we may need higher alignment for indivisible access. if Optimize_Alignment = 'S' @@ -2818,7 +2818,7 @@ package body Layout is else -- The only other cases we worry about here are where the size is - -- staticallly known at compile time. + -- statically known at compile time. if Known_Static_Esize (E) then Siz := Esize (E); @@ -2910,7 +2910,7 @@ package body Layout is -- Check components. If any component requires a higher alignment, -- then we set that higher alignment in any case. Don't do this if -- we have Optimize_Alignment set to Space. Note that that covers - -- the case of packed records, where we arleady set alignment to 1. + -- the case of packed records, where we already set alignment to 1. if Optimize_Alignment /= 'S' then declare diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index bbc29ef3cd1..68a5a74c0df 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -667,7 +667,7 @@ package body Lib.Writ is -- Loop to build the with table. A with on the main unit itself -- is ignored (AARM 10.2(14a)). Such a with-clause can occur if -- the main unit is a subprogram with no spec, and a subunit of - -- it unecessarily withs the parent. + -- it unnecessarily withs the parent. for J in Units.First + 1 .. Last_Unit loop @@ -904,7 +904,7 @@ package body Lib.Writ is end if; end Output_Main_Program_Line; - -- Write command argmument ('A') lines + -- Write command argument ('A') lines for A in 1 .. Compilation_Switches.Last loop Write_Info_Initiate ('A'); diff --git a/gcc/ada/lib-writ.ads b/gcc/ada/lib-writ.ads index ba46bf11831..316a494185e 100644 --- a/gcc/ada/lib-writ.ads +++ b/gcc/ada/lib-writ.ads @@ -77,7 +77,7 @@ package Lib.Writ is -- Adding entirely new lines (with a new key letter) to the ali -- file is always safe, at any point (other than before the V - -- line), since suchy lines will be ignored. + -- line), since such lines will be ignored. -- Following the guidelines in this section should ensure that this -- problem is minimized and that old tools will be able to deal @@ -399,7 +399,7 @@ package Lib.Writ is -- each compilation unit that appears in the corresponding object file. -- In particular, when a package body or subprogram body is compiled, -- there will be two sets of information, one for the spec and one for - -- the body. with the entry for the body appearing first. This is the + -- the body, with the entry for the body appearing first. This is the -- only case in which a single ALI file contains more than one unit (in -- particular note that subunits do *not* count as compilation units for -- this purpose, and generate no library information, since they are @@ -540,7 +540,7 @@ package Lib.Writ is -- Following the W lines (if any, or the U line if not), are an -- optional series of lines that indicates the usage of the pragma - -- Linker_Options in the associated unit. For each appearence of a + -- Linker_Options in the associated unit. For each appearance of a -- pragma Linker_Options (or Link_With) in the unit, a line is -- present with the form: diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb index 08254f3c910..690cde9eb62 100644 --- a/gcc/ada/lib-xref.adb +++ b/gcc/ada/lib-xref.adb @@ -864,7 +864,7 @@ package body Lib.Xref is -- set to Empty, and Left/Right are set to space. procedure Output_Import_Export_Info (Ent : Entity_Id); - -- Ouput language and external name information for an interfaced + -- Output language and external name information for an interfaced -- entity, using the format <language, external_name>, ------------------------ diff --git a/gcc/ada/lib-xref.ads b/gcc/ada/lib-xref.ads index 4d23773839e..0bb85492980 100644 --- a/gcc/ada/lib-xref.ads +++ b/gcc/ada/lib-xref.ads @@ -73,7 +73,7 @@ package Lib.Xref is -- in the visible part of a generic package, and space otherwise. -- entity is the name of the referenced entity, with casing in - -- the canical casing for the source file where it is defined. + -- the canonical casing for the source file where it is defined. -- renameref provides information on renaming. If the entity is -- a package, object or overloadable entity which is declared by @@ -276,7 +276,7 @@ package Lib.Xref is -- Pq of this type, then an entry in the list of references to -- Tx will point to the declaration of Pq. Note that this entry -- type is unusual because it an implicit rather than explicit, - -- and the name of the refrerence does not match the name of the + -- and the name of the reference does not match the name of the -- entity for which a reference is generated. These entries are -- generated only for entities declared in the extended main -- source unit (main unit itself, its separate spec (if any). @@ -324,7 +324,7 @@ package Lib.Xref is -- instantiations, this can be nested [...[...[...]]] etc. -- The reference is of the form [file|line] no column is -- present since it is assumed that only one instantiation - -- appears on a single source line. Note that the appearence + -- appears on a single source line. Note that the appearance -- of file numbers in such references follows the normal -- rules (present only if needed, and resets the current -- file for subsequent references). @@ -358,7 +358,7 @@ package Lib.Xref is -- a reference (e.g. a call) at line 8 column 4 of the -- of the current file. - -- the END line of the body has an explict reference to + -- the END line of the body has an explicit reference to -- the name of the procedure at line 12, column 13. -- the body ends at line 12, column 15, just past this label diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index ee975bd18d9..d39723a85e4 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -334,7 +334,7 @@ package body Lib is end if; -- At this stage we know that neither is a subunit, so we deal - -- with instantiations, since we culd have a common ancestor + -- with instantiations, since we could have a common ancestor Inst1 := Instantiation (Sind1); Inst2 := Instantiation (Sind2); diff --git a/gcc/ada/link.c b/gcc/ada/link.c index 92037209eb0..7e941d19cab 100644 --- a/gcc/ada/link.c +++ b/gcc/ada/link.c @@ -50,14 +50,14 @@ /* link_max is a conservative system specific threshold (in bytes) of the */ /* argument length passed to the linker which will trigger a file being */ /* used instead of the command line directly. If the argument length is */ -/* greater than this threshhold, then an objlist_file will be generated */ +/* greater than this threshold, then an objlist_file will be generated */ /* and object_file_option and objlist_file_supported must be set. If */ /* objlist_file_supported is set to 0 (unsupported), then link_max is */ /* set to 2**31-1 so that the limit will never be exceeded. */ /* run_path_option is the system dependent linker option which specifies */ /* the run time path to use when loading dynamic libraries. This should */ -/* be set to the null string if the system does not support dynmamic */ +/* be set to the null string if the system does not support dynamic */ /* loading of libraries. */ /* shared_libgnat_default gives the system dependent link method that */ diff --git a/gcc/ada/live.ads b/gcc/ada/live.ads index d2868db8cab..4cc623771a7 100644 --- a/gcc/ada/live.ads +++ b/gcc/ada/live.ads @@ -31,6 +31,6 @@ package Live is procedure Collect_Garbage_Entities; -- Eliminate unreachable entities using a mark-and-sweep from - -- the set of root entities, ie. those having Is_Public set. + -- the set of root entities, i.e. those having Is_Public set. end Live; diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index ff14dc40a29..bf817de158a 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -415,7 +415,7 @@ package body Make is Do_Link_Step : Boolean := True; -- Flags to indicate what step should be executed. Can be set to False -- with the switches -c, -b and -l. These flags are reset to True for - -- each invokation of procedure Gnatmake. + -- each invocation of procedure Gnatmake. Shared_String : aliased String := "-shared"; Force_Elab_Flags_String : aliased String := "-F"; @@ -739,8 +739,8 @@ package body Make is And_Save : Boolean := True); -- Make invokes one of three programs (the compiler, the binder or the -- linker). For the sake of convenience, some program specific switches - -- can be passed directly on the gnatmake commande line. This procedure - -- records these switches so that gnamake can pass them to the right + -- can be passed directly on the gnatmake command line. This procedure + -- records these switches so that gnatmake can pass them to the right -- program. S is the switch to be added at the end of the command line -- for Program if Append_Switch is True. If Append_Switch is False S is -- added at the beginning of the command line. @@ -1473,7 +1473,8 @@ package body Make is File_Name : File_Name_Type; begin - -- Test whether Uname is the name of a body unit (ie ends with %b) + -- Test whether Uname is the name of a body unit (i.e. ends + -- with %b) Get_Name_String (Uname); pragma @@ -2978,7 +2979,7 @@ package body Make is -- Set -gnatpg for predefined files (for this purpose the renamings -- such as Text_IO do not count as predefined). Note that we strip - -- the directory name from the source file name becase the call to + -- the directory name from the source file name because the call to -- Fname.Is_Predefined_File_Name cannot deal with directory prefixes. declare @@ -3225,7 +3226,7 @@ package body Make is exit Make_Loop; end if; - -- PHASE 1: Check if there is more work that we can do (ie the Q + -- PHASE 1: Check if there is more work that we can do (i.e. the Q -- is non empty). If there is, do it only if we have not yet used -- up all the available processes. @@ -5051,7 +5052,7 @@ package body Make is -- If there are several mains, we always get the general -- gnatmake switches (if any). - -- Warn the user, if necessary, so that he is not surprized + -- Warn the user, if necessary, so that he is not surprised -- that specific switches are not taken into account. declare @@ -5105,7 +5106,7 @@ package body Make is -- Record the current last switch index for table Binder_Switches -- and Linker_Switches, so that these tables may be reset before - -- for each main, before adding swiches from the project file + -- for each main, before adding switches from the project file -- and from the command line. Last_Binder_Switch := Binder_Switches.Last; @@ -5486,7 +5487,7 @@ package body Make is else -- If we are using a project file, we attempt to remove the -- body (or spec) termination of the main subprogram. We find - -- it the the naming scheme of the project file. This avoids + -- it the naming scheme of the project file. This avoids -- generating an executable "main.2" for a main subprogram -- "main.2.ada", when the body termination is ".2.ada". @@ -7136,7 +7137,7 @@ package body Make is begin -- For directories, Normalize_Pathname may or may not put -- a directory separator at the end, depending on its input. - -- Remove any last directory separator before comparaison. + -- Remove any last directory separator before comparison. -- Returns True only if the two directories are the same. if Object_Directory (Olast) = Directory_Separator then @@ -7422,7 +7423,7 @@ package body Make is Write_Line ("*** Interrupted ***"); Delete_All_Temp_Files; - -- Send SIGINT to all oustanding compilation processes spawned + -- Send SIGINT to all outstanding compilation processes spawned for J in 1 .. Outstanding_Compiles loop Kill (Running_Compile (J).Pid, SIGINT, 1); diff --git a/gcc/ada/makegpr.adb b/gcc/ada/makegpr.adb index c6c39cd74b0..2d655e148fe 100644 --- a/gcc/ada/makegpr.adb +++ b/gcc/ada/makegpr.adb @@ -447,7 +447,7 @@ package body Makegpr is -- Create the archive dependency file for a library project procedure Create_Global_Archive_Dependency_File (Name : String); - -- Create the archive depenency file for the main project + -- Create the archive dependency file for the main project procedure Display_Command (Name : String; @@ -1283,7 +1283,7 @@ package body Makegpr is Project_Tree.Other_Sources.Table (Source_Id); -- Only include object file name that have not been - -- overriden in extending projects. + -- overridden in extending projects. if Is_Included_In_Global_Archive (Source.Object_Name, Proj) @@ -1921,7 +1921,7 @@ package body Makegpr is -- Loop Big_Loop is executed several times only when the dependency file -- contains several times -- <object file>: <source1> ... - -- When there is only one of such occurence, Big_Loop is exited + -- When there is only one of such occurrence, Big_Loop is exited -- successfully at the beginning of the second loop. Big_Loop : @@ -3375,7 +3375,7 @@ package body Makegpr is -- Add the directory where gprmake is invoked in front of the path, -- if gprmake is invoked from a bin directory or with directory - -- information. information. Only do this if the platform is not VMS, + -- information. Only do this if the platform is not VMS, -- where the notion of path does not really exist. -- Below code shares nasty code duplication with make.adb code??? diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index 20a00154b19..773256d176e 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -191,7 +191,7 @@ package body Makeutl is Exec_Name : constant String := Command_Name; function Get_Install_Dir (S : String) return String; - -- S is the executable name preceeded by the absolute or relative + -- S is the executable name preceded by the absolute or relative -- path, e.g. "c:\usr\bin\gcc.exe". Returns the absolute directory -- where "bin" lies (in the example "C:\usr"). -- If the executable is not in a "bin" directory, return "". @@ -657,7 +657,7 @@ package body Makeutl is Start := Start - 1; end loop; - -- If there is no difits, or if the digits are not preceded by + -- If there are no digits, or if the digits are not preceded by -- the character that precedes a unit index, this is not the ALI file -- of a unit in a multi-unit source. diff --git a/gcc/ada/math_lib.adb b/gcc/ada/math_lib.adb index b0314cd36e5..8014f8412cf 100644 --- a/gcc/ada/math_lib.adb +++ b/gcc/ada/math_lib.adb @@ -93,7 +93,7 @@ package body Math_Lib is (Y : Real; A : Real := 1.0) return Real; - -- Common code for arc tangent after cyele reduction + -- Common code for arc tangent after cycle reduction function Log_Inverse_Epsilon return Real; -- Function to provide constant: Log (1.0 / Epsilon) diff --git a/gcc/ada/mdll-utl.adb b/gcc/ada/mdll-utl.adb index 342041a1809..4011db1323b 100644 --- a/gcc/ada/mdll-utl.adb +++ b/gcc/ada/mdll-utl.adb @@ -51,7 +51,7 @@ package body MDLL.Utl is procedure Print_Command (Tool_Name : String; Arguments : OS_Lib.Argument_List); - -- display the command runned when in Verbose mode + -- display the command run when in Verbose mode ------------------- -- Print_Command -- diff --git a/gcc/ada/mdll.ads b/gcc/ada/mdll.ads index c7c8a9bf78f..49174d405cd 100644 --- a/gcc/ada/mdll.ads +++ b/gcc/ada/mdll.ads @@ -40,7 +40,7 @@ package MDLL is new Argument_List (1 .. 0); Tools_Error : exception; - -- Commment required + -- Comment required Verbose : Boolean := False; Quiet : Boolean := False; diff --git a/gcc/ada/memroot.adb b/gcc/ada/memroot.adb index 6c9737e9aae..2ece4fae68b 100644 --- a/gcc/ada/memroot.adb +++ b/gcc/ada/memroot.adb @@ -86,7 +86,7 @@ package body Memroot is -- Returns an image for F containing the file name, the Line number, -- and if 'Short' is not true, the subprogram name. When possible, spaces -- are inserted between the line number and the subprogram name in order - -- to align images of the same frame. Alignement is cimputed with Max_Fil + -- to align images of the same frame. Alignment is computed with Max_Fil -- & Max_Lin representing the max number of character in a filename or -- length in a given frame. diff --git a/gcc/ada/memroot.ads b/gcc/ada/memroot.ads index 3c3e4302e0f..1b3d9ba467a 100644 --- a/gcc/ada/memroot.ads +++ b/gcc/ada/memroot.ads @@ -77,7 +77,7 @@ package Memroot is -- Create an allocation root from the frames that compose it function Frames_Of (B : Root_Id) return Frame_Array; - -- Retreives the Frames of the root's backtrace + -- Retrieves the Frames of the root's backtrace procedure Print_BT (B : Root_Id; Short : Boolean := False); -- Prints on standard out the backtrace associated with the root B diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index fbb6b8ecb77..317ec2d6cdc 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -301,7 +301,7 @@ gnat_handle_option (size_t scode, const char *arg, int value) case OPT_feliminate_unused_debug_types: /* We arrange for post_option to be able to only set the corresponding - flag to 1 when explicitely requested by the user. We expect the + flag to 1 when explicitly requested by the user. We expect the default flag value to be either 0 or positive, and expose a positive -f as a negative value to post_option. */ flag_eliminate_unused_debug_types = -value; diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb index 2805b8c97a1..88d33811b1d 100644 --- a/gcc/ada/mlib-prj.adb +++ b/gcc/ada/mlib-prj.adb @@ -446,7 +446,7 @@ package body MLib.Prj is -- Start of processing for Add_Rpath begin - -- If firt path, allocate initial Rpath + -- If first path, allocate initial Rpath if Rpath = null then Rpath := new String (1 .. Initial_Rpath_Length); @@ -2118,9 +2118,9 @@ package body MLib.Prj is Obj_TS := File_Stamp (File_Name_Type'(Name_Find)); -- If library file time stamp is earlier, set - -- Need_To_Build_Lib and return. String comparaison is + -- Need_To_Build_Lib and return. String comparison is -- used, otherwise time stamps may be too close and the - -- comparaison would return True, which would trigger + -- comparison would return True, which would trigger -- an unnecessary rebuild of the library. if String (Lib_TS) < String (Obj_TS) then diff --git a/gcc/ada/mlib-tgt-hpux.adb b/gcc/ada/mlib-tgt-hpux.adb index 5141f557597..c00bd9b2dc3 100644 --- a/gcc/ada/mlib-tgt-hpux.adb +++ b/gcc/ada/mlib-tgt-hpux.adb @@ -83,7 +83,7 @@ package body MLib.Tgt.Specific is -- Common set of options to the gcc command performing the link. -- On HPUX, this command eventually resorts to collect2, which may -- generate a C file and compile it on the fly. This compilation shall - -- also generate position independant code for the final link to + -- also generate position independent code for the final link to -- succeed. begin if Opt.Verbose_Mode then diff --git a/gcc/ada/mlib-tgt-linux.adb b/gcc/ada/mlib-tgt-linux.adb index 60557fdf579..493d8011187 100644 --- a/gcc/ada/mlib-tgt-linux.adb +++ b/gcc/ada/mlib-tgt-linux.adb @@ -68,7 +68,7 @@ package body MLib.Tgt.Specific is pragma Unreferenced (Interfaces); pragma Unreferenced (Symbol_Data); pragma Unreferenced (Auto_Init); - -- Initialization is done through the contructor mechanism + -- Initialization is done through the constructor mechanism Lib_File : constant String := "lib" & Fil.Append_To (Lib_Filename, DLL_Ext); diff --git a/gcc/ada/mlib-tgt-tru64.adb b/gcc/ada/mlib-tgt-tru64.adb index eed0174e37e..43c1e97972d 100644 --- a/gcc/ada/mlib-tgt-tru64.adb +++ b/gcc/ada/mlib-tgt-tru64.adb @@ -3,7 +3,7 @@ -- GNAT COMPILER COMPONENTS -- -- -- -- M L I B . T G T . S P E C I F I C -- --- (True64 Version) -- +-- (Tru64 Version) -- -- -- -- B o d y -- -- -- @@ -24,7 +24,7 @@ -- -- ------------------------------------------------------------------------------ --- This is the True64 version of the body +-- This is the Tru64 version of the body with MLib.Fil; with MLib.Utl; @@ -74,7 +74,7 @@ package body MLib.Tgt.Specific is pragma Unreferenced (Interfaces); pragma Unreferenced (Symbol_Data); pragma Unreferenced (Auto_Init); - -- Initialization is done through the contructor mechanism + -- Initialization is done through the constructor mechanism Lib_File : constant String := "lib" & Fil.Append_To (Lib_Filename, DLL_Ext); diff --git a/gcc/ada/mlib-tgt.ads b/gcc/ada/mlib-tgt.ads index 8dba49e3e94..21aae82813a 100644 --- a/gcc/ada/mlib-tgt.ads +++ b/gcc/ada/mlib-tgt.ads @@ -132,7 +132,7 @@ package MLib.Tgt is -- "libtoto.so" will be a symbolic link to "libtoto.so.2.1" which -- will be the actual library file. -- - -- Symbol_Data is used for some patforms, including VMS, to generate + -- Symbol_Data is used for some platforms, including VMS, to generate -- the symbols to be exported by the library. -- -- Note: Depending on the OS, some of the parameters may not be taken into @@ -153,7 +153,7 @@ package MLib.Tgt is function Library_Major_Minor_Id_Supported return Boolean; -- Indicates if major and minor ids are supported for libraries. -- If they are supported, then a Library_Version such as libtoto.so.1.2 - -- will have a major id of 1 and a minor id of 2. Then litoto.so, + -- will have a major id of 1 and a minor id of 2. Then libtoto.so, -- libtoto.so.1 and libtoto.so.1.2 will be created, all three designating -- the same file. diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index 7d5c28b745d..533144a42ee 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -55,7 +55,7 @@ package body Namet is Hash_Num : constant Int := 2**12; -- Number of headers in the hash table. Current hash algorithm is closely -- tailored to this choice, so it can only be changed if a corresponding - -- change is made to the hash alogorithm. + -- change is made to the hash algorithm. Hash_Max : constant Int := Hash_Num - 1; -- Indexes in the hash header table run from 0 to Hash_Num - 1 diff --git a/gcc/ada/namet.h b/gcc/ada/namet.h index efa475c3105..2a1b9cbc077 100644 --- a/gcc/ada/namet.h +++ b/gcc/ada/namet.h @@ -85,7 +85,7 @@ Get_Decoded_Name_String (Name_Id Id) /* Like Get_Decoded_Name_String, but the result has all qualification and package body entity suffixes stripped, and also all letters are upper - cased. This is used fo rbuilding the enumeration literal table. */ + cased. This is used for building the enumeration literal table. */ extern void casing__set_all_upper_case (void); diff --git a/gcc/ada/nlists.adb b/gcc/ada/nlists.adb index b75226e6ee5..768e130dce5 100644 --- a/gcc/ada/nlists.adb +++ b/gcc/ada/nlists.adb @@ -139,7 +139,7 @@ package body Nlists is Prev_Node.Set_Last (N); -- Make sure we have no uninitialized junk in any new entires added. - -- This ensures that Tree_Gen will not write out any unitialized junk. + -- This ensures that Tree_Gen will not write out any uninitialized junk. for J in Old_Last + 1 .. N loop Next_Node.Table (J) := Empty; @@ -538,7 +538,7 @@ package body Nlists is end if; end Insert_List_Before_Debug; - -- Start of prodcessing for Insert_List_Before + -- Start of processing for Insert_List_Before begin pragma Assert (Is_List_Member (Before)); diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads index 77ae55a5679..b3f6209ec52 100644 --- a/gcc/ada/nlists.ads +++ b/gcc/ada/nlists.ads @@ -129,7 +129,7 @@ package Nlists is -- returned. It is an error to call First_Non_Pragma with a Node_Id value -- or No_List (No_List is not considered to be the same as an empty list). -- This function also skips N_Null nodes which can result from rewriting - -- unrecognized or incorrrect pragmas. + -- unrecognized or incorrect pragmas. function Last (List : List_Id) return Node_Id; pragma Inline (Last); diff --git a/gcc/ada/nlists.h b/gcc/ada/nlists.h index c57f23695ad..d30423b09a6 100644 --- a/gcc/ada/nlists.h +++ b/gcc/ada/nlists.h @@ -24,7 +24,7 @@ ****************************************************************************/ /* This is the C header corresponding to the Ada package specification for - Nlists. It also contains the implementations of inlined functions from the + Nlists. It also contains the implementations of inlined functions from the package body for Nlists. It was generated manually from nlists.ads and nlists.adb and must be kept synchronized with changes in these files. diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index b795a3c240e..5d28a344d33 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -55,7 +55,7 @@ package Opt is -- The following mode values represent the current state of processing. -- The values set here are the default values. Unless otherwise noted, - -- the value may be reset in Switch-? with an appropropiate switch. In + -- the value may be reset in Switch-? with an appropriate switch. In -- some cases, the values can also be modified by pragmas, and in the -- case of some binder variables, Gnatbind.Scan_Bind_Arg may modify -- the default values. @@ -525,7 +525,7 @@ package Opt is Generating_Code : Boolean := False; -- GNAT -- True if the frontend finished its work and has called the backend to - -- processs the tree and generate the object file. + -- process the tree and generate the object file. Global_Discard_Names : Boolean := False; -- GNAT, GNATBIND @@ -646,7 +646,7 @@ package Opt is In_Place_Mode : Boolean := False; -- GNATMAKE - -- Set True to store ALI and object files in place ie in the object + -- Set True to store ALI and object files in place i.e. in the object -- directory if these files already exist or in the source directory -- if not. @@ -859,7 +859,7 @@ package Opt is -- Check_Semantics after generating an error message. Optimize_Alignment : Character := 'O'; - -- Settinng of Optimize_Alignment, set to T/S/O for time/space/off. Can + -- Setting of Optimize_Alignment, set to T/S/O for time/space/off. Can -- be modified by use of pragma Optimize_Alignment. Original_Operating_Mode : Operating_Mode_Type := Generate_Code; @@ -908,7 +908,7 @@ package Opt is Preprocessing_Data_File : String_Ptr := null; -- GNAT - -- Set by switch -gnatep=. The file name of the prepocessing data file. + -- Set by switch -gnatep=. The file name of the preprocessing data file. Print_Generated_Code : Boolean := False; -- GNAT @@ -1266,7 +1266,7 @@ package Opt is Warn_On_Questionable_Missing_Parens : Boolean := True; -- GNAT - -- Set to True to generate warnings for cases where parenthese are missing + -- Set to True to generate warnings for cases where parentheses are missing -- and the usage is questionable, because the intent is unclear. Warn_On_Redundant_Constructs : Boolean := False; @@ -1366,7 +1366,7 @@ package Opt is -- This is set in the same manner as Ada_Version_Config. The difference is -- that the setting of this flag is not ignored for internal and predefined -- units, which for some purposes do indeed access this value, regardless - -- of the fact that they are compiled the the most up to date ada version). + -- of the fact that they are compiled the most up to date ada version). Assertions_Enabled_Config : Boolean; -- GNAT @@ -1454,7 +1454,7 @@ package Opt is Use_VADS_Size_Config : Boolean; -- GNAT -- This is the value of the configuration switch that controls the use of - -- VADS_Size instead of Size whereever the attribute Size is used. It can + -- VADS_Size instead of Size wherever the attribute Size is used. It can -- be set True by the use of the pragma Use_VADS_Size in the gnat.adc file. -- This flag is used to set the initial value for Use_VADS_Size at the -- start of analyzing each unit. Note however that the setting of this flag diff --git a/gcc/ada/osint-b.ads b/gcc/ada/osint-b.ads index 2f9460c624a..d3ecee64c38 100644 --- a/gcc/ada/osint-b.ads +++ b/gcc/ada/osint-b.ads @@ -76,7 +76,7 @@ package Osint.B is procedure Close_Binder_Output; -- Closes the file created by Create_Binder_Output, flushing any - -- buffers etc from writes by Write_Binder_Info. + -- buffers etc. from writes by Write_Binder_Info. procedure Set_Current_File_Name_Index (To : Int); -- Set value of Current_File_Name_Index (in private part of Osint) to To diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb index 541178da938..d93214cd606 100644 --- a/gcc/ada/osint-c.adb +++ b/gcc/ada/osint-c.adb @@ -43,7 +43,7 @@ package body Osint.C is Suffix : String) return File_Name_Type; -- Common processing for Create_List_File, Create_Repinfo_File and -- Create_Debug_File. Src is the file name used to create the required - -- output file and Suffix is the desired suffic (dg/rep/xxx for debug/ + -- output file and Suffix is the desired suffix (dg/rep/xxx for debug/ -- repinfo/list file where xxx is specified extension. procedure Set_Library_Info_Name; @@ -439,7 +439,7 @@ package body Osint.C is pragma Assert (Dot_Index /= 0); - -- Change exctension to adt + -- Change extension to adt Name_Buffer (Dot_Index) := '.'; Name_Buffer (Dot_Index + 1) := 'a'; diff --git a/gcc/ada/osint-c.ads b/gcc/ada/osint-c.ads index 452a6ec2efd..7a2872d2bf6 100644 --- a/gcc/ada/osint-c.ads +++ b/gcc/ada/osint-c.ads @@ -128,7 +128,7 @@ package Osint.C is procedure Close_Output_Library_Info; -- Closes the file created by Create_Output_Library_Info, flushing any - -- buffers etc from writes by Write_Library_Info. + -- buffers etc. from writes by Write_Library_Info. procedure Read_Library_Info (Name : out File_Name_Type; diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index eb9d23c207e..d7272025b94 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -63,10 +63,10 @@ package body Osint is -- that are used to locate the actual file and for the purpose of message -- construction. These names need not be accessible by Name_Find, and can -- be therefore created by using routine Name_Enter. The files in question - -- are file names with a prefix directory (ie the files not in the current - -- directory). File names without a prefix directory are entered with - -- Name_Find because special values might be attached to the various Info - -- fields of the corresponding name table entry. + -- are file names with a prefix directory (i.e., the files not in the + -- current directory). File names without a prefix directory are entered + -- with Name_Find because special values might be attached to the various + -- Info fields of the corresponding name table entry. ----------------------- -- Local Subprograms -- @@ -124,7 +124,7 @@ package body Osint is Look_In_Primary_Directory_For_Current_Main : Boolean := False; -- When this variable is True, Find_File only looks in Primary_Directory -- for the Current_Main file. This variable is always set to True for the - -- compiler. It is also True for gnatmake, when the soucr name given on + -- compiler. It is also True for gnatmake, when the source name given on -- the command line has directory information. Current_Full_Source_Name : File_Name_Type := No_File; @@ -177,7 +177,7 @@ package body Osint is -- The file hash table is provided to free the programmer from any -- efficiency concern when retrieving full file names or time stamps of -- source files. If the programmer calls Source_File_Data (Cache => True) - -- he is guaranteed that the price to retrieve the full name (ie with + -- he is guaranteed that the price to retrieve the full name (i.e. with -- directory info) or time stamp of the file will be payed only once, the -- first time the full name is actually searched (or the first time the -- time stamp is actually retrieved). This is achieved by employing a hash @@ -803,7 +803,7 @@ package body Osint is function Executable_Prefix return String_Ptr is function Get_Install_Dir (Exec : String) return String_Ptr; - -- S is the executable name preceeded by the absolute or relative + -- S is the executable name preceded by the absolute or relative -- path, e.g. "c:\usr\bin\gcc.exe" or "..\bin\gcc". --------------------- @@ -2556,7 +2556,7 @@ package body Osint is Canonical_File_Len : Integer; begin - -- Retrieve the expanded directoy names and build the list + -- Retrieve the expanded directory names and build the list for J in 1 .. Num_Files loop Canonical_File_Addr := To_Canonical_File_List_Next; diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads index afe29742f3e..80c516ede69 100644 --- a/gcc/ada/osint.ads +++ b/gcc/ada/osint.ads @@ -62,7 +62,7 @@ package Osint is T : File_Type) return File_Name_Type; -- Finds a source, library or config file depending on the value of T -- following the directory search order rules unless N is the name of the - -- file just read with Next_Main_File and already contains directiory + -- file just read with Next_Main_File and already contains directory -- information, in which case just look in the Primary_Directory. Returns -- File_Name_Type of the full file name if found, No_File if file not -- found. Note that for the special case of gnat.adc, only the compilation @@ -160,7 +160,7 @@ package Osint is -- Same as above for a path name type String_Access_List is array (Positive range <>) of String_Access; - -- Deferenced type used to return a list of file specs in + -- Dereferenced type used to return a list of file specs in -- To_Canonical_File_List. type String_Access_List_Access is access all String_Access_List; @@ -282,7 +282,7 @@ package Osint is new String'("ada_source_path"); Objects_Search_File : constant String_Access := new String'("ada_object_path"); - -- Names of the files containg the default include or objects search + -- Names of the files containing the default include or objects search -- directories. These files, located in Sdefault.Search_Dir_Prefix, do -- not necessarily exist. @@ -344,7 +344,7 @@ package Osint is -- LF -- The source is terminated by an EOF (16#1A#) character, which is - -- the last charcater of the returned source bufer (note that any + -- the last character of the returned source buffer (note that any -- EOF characters in positions other than the last source character -- are treated as representing blanks). -- @@ -405,7 +405,7 @@ package Osint is -- Source_File_Stamp (N) is made. This may be undesirable in certain -- applications as this is uselessly slow if source file data does not -- change during program execution. When this procedure is called with - -- Cache => True access to source file data does not encurr a penalty if + -- Cache => True access to source file data does not incur a penalty if -- this data was previously retrieved. ------------------------------------------- @@ -458,7 +458,7 @@ package Osint is -- whose name is given by the parameter Name. -- -- See description of Read_Source_File for details on the format of the - -- returned text buffer (the format is identical). THe lower bound of + -- returned text buffer (the format is identical). The lower bound of -- the Text_Buffer is always zero -- -- If the specified file cannot be opened, then the action depends on @@ -484,7 +484,7 @@ package Osint is -- using Read_Library_Info, including appropriate directory information. -- Calling this routine entails no library file directory lookup -- penalty. Note that the object file corresponding to a library file - -- is not actually read. Its time stamp is fected when the flag + -- is not actually read. Its time stamp is affected when the flag -- Opt.Check_Object_Consistency is set. function Current_Library_File_Stamp return Time_Stamp_Type; diff --git a/gcc/ada/output.ads b/gcc/ada/output.ads index 95da4964260..7f7ef93fb3b 100644 --- a/gcc/ada/output.ads +++ b/gcc/ada/output.ads @@ -139,7 +139,7 @@ package Output is procedure Restore_Output_Buffer (S : Saved_Output_Buffer); -- Restore previously saved output buffer. The value in S is not affected - -- so it is legtimate to restore a buffer more than once. + -- so it is legitimate to restore a buffer more than once. -------------------------- -- Debugging Procedures -- diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index 0a31616351e..eb16fb1737b 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -47,7 +47,7 @@ package body Ch10 is (Cunit : Node_Id; Loc : Source_Ptr; SR_Present : Boolean); - -- This procedure is used to generate a line of output for the a unit in + -- This procedure is used to generate a line of output for a unit in -- the source program. Cunit is the node for the compilation unit, and -- Loc is the source location for the start of the unit in the source -- file (which is not necessarily the Sloc of the Cunit node). This @@ -118,7 +118,7 @@ package body Ch10 is Cunit_Error_Flag : Boolean := False; -- This flag is set True if we have to scan for a compilation unit -- token. It is used to ensure clean termination in such cases by - -- not insisting on being at the end of file, and, in the sytax only + -- not insisting on being at the end of file, and, in the syntax only -- case by not scanning for additional compilation units. Cunit_Location : Source_Ptr; @@ -665,7 +665,7 @@ package body Ch10 is if Token /= Tok_EOF then -- If we already had to scan for a compilation unit, then don't - -- give any further error message, since it just sems to make + -- give any further error message, since it just seems to make -- things worse, and we already gave a serious error message. if Cunit_Error_Flag then @@ -899,7 +899,7 @@ package body Ch10 is First_Flag := True; -- Loop through names in one with clause, generating a separate - -- N_With_Clause node for each nam encountered. + -- N_With_Clause node for each name encountered. loop With_Node := New_Node (N_With_Clause, Token_Ptr); diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index dd353560eae..2ac26fee2c4 100644 --- a/gcc/ada/par-ch12.adb +++ b/gcc/ada/par-ch12.adb @@ -830,7 +830,7 @@ package body Ch12 is -- [abstract] [limited | synchronized] -- new SUBTYPE_MARK [[and INTERFACE_LIST] with private] - -- The caller has checked the initial token(s) is/are NEW, ASTRACT NEW, + -- The caller has checked the initial token(s) is/are NEW, ABSTRACT NEW, -- or LIMITED NEW, ABSTRACT LIMITED NEW, SYNCHRONIZED NEW or ABSTRACT -- SYNCHRONIZED NEW. diff --git a/gcc/ada/par-ch2.adb b/gcc/ada/par-ch2.adb index 718afcc6a12..d77e2c5a2b4 100644 --- a/gcc/ada/par-ch2.adb +++ b/gcc/ada/par-ch2.adb @@ -118,7 +118,7 @@ package body Ch2 is -- DECIMAL_LITERAL ::= NUMERAL [.NUMERAL] [EXPONENT] - -- Handled by scanner as part of numeric lIteral handing (see 2.4) + -- Handled by scanner as part of numeric literal handing (see 2.4) -------------------- -- 2.4.1 Numeral -- diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 7889cd85a93..3a6fc111032 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -412,7 +412,7 @@ package body Ch3 is Scan; -- past ALIASED end if; - -- The following procesing deals with either a private type declaration + -- The following processing deals with either a private type declaration -- or a full type declaration. In the private type case, we build the -- N_Private_Type_Declaration node, setting its Tagged_Present and -- Limited_Present flags, on encountering the Private keyword, and @@ -2070,7 +2070,7 @@ package body Ch3 is return Range_Node; -- Case of subtype mark (optionally qualified simple name or an - -- attribute whose prefix is an optionally qualifed simple name) + -- attribute whose prefix is an optionally qualified simple name) elsif Expr_Form = EF_Simple_Name or else Nkind (Expr_Node) = N_Attribute_Reference @@ -2883,7 +2883,7 @@ package body Ch3 is end P_Known_Discriminant_Part_Opt; ------------------------------------- - -- 3.7 DIscriminant Specification -- + -- 3.7 Discriminant Specification -- ------------------------------------- -- Parsed by P_Known_Discriminant_Part_Opt (3.7) @@ -3657,7 +3657,7 @@ package body Ch3 is -- Ada 2005 (AI-251): In case of not-synchronized interfaces that have -- a list of interfaces we build a derived_type_definition node. This - -- simplifies the semantic analysis (and hence further mainteinance) + -- simplifies the semantic analysis (and hence further maintenance) else if Token /= Tok_And then diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 93c8f9ea988..cd2d6c9976c 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -1143,9 +1143,9 @@ package body Ch4 is end if; end P_Aggregate; - ------------------------------------------------- - -- 4.3 Aggregate or Parenthesized Expresssion -- - ------------------------------------------------- + ------------------------------------------------ + -- 4.3 Aggregate or Parenthesized Expression -- + ------------------------------------------------ -- This procedure parses out either an aggregate or a parenthesized -- expression (these two constructs are closely related, since a @@ -1898,7 +1898,7 @@ package body Ch4 is Node1 := P_Term; end if; - -- In the following, we special-case a sequence of concatentations of + -- In the following, we special-case a sequence of concatenations of -- string literals, such as "aaa" & "bbb" & ... & "ccc", with nothing -- else mixed in. For such a sequence, we return a tree representing -- "" & "aaabbb...ccc" (a single concatenation). This is done only if diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index a2318406a7e..5129b1e867f 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -984,7 +984,7 @@ package body Ch5 is -- LABEL ::= <<label_STATEMENT_IDENTIFIER>> - -- STATEMENT_INDENTIFIER ::= DIRECT_NAME + -- STATEMENT_IDENTIFIER ::= DIRECT_NAME -- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier -- (not an OPERATOR_SYMBOL) diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 2fc0ace4945..7879b1dd83e 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -202,7 +202,7 @@ package body Ch6 is -- Note: in the case of OVERRIDING keyword used in Ada 95 mode, the -- declaration circuit already gave an error message and changed the - -- tokem to Tok_Overriding. + -- token to Tok_Overriding. elsif Token = Tok_Overriding then Scan; -- past OVERRIDING diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb index 241b2db54ef..6a24776e488 100644 --- a/gcc/ada/par-ch9.adb +++ b/gcc/ada/par-ch9.adb @@ -847,7 +847,8 @@ package body Ch9 is Restore_Scan_State (Scan_State); -- to Id Set_Parameter_Specifications (Decl_Node, P_Formal_Part); - -- Else if Id wi no comma or colon, must be discrete subtype defn + -- Else if Id without comma or colon, must be discrete subtype + -- defn else Restore_Scan_State (Scan_State); -- to Id @@ -1358,7 +1359,7 @@ package body Ch9 is Ecall_Node := P_Name; -- ?? The following two clauses exactly parallel code in ch5 - -- and should be commoned sometime + -- and should be combined sometime if Nkind (Ecall_Node) = N_Indexed_Component then declare @@ -1477,7 +1478,7 @@ package body Ch9 is End_Statements; - -- Here we have a selective accept or an an asynchronous select (first + -- Here we have a selective accept or an asynchronous select (first -- token after SELECT is other than a designator token). else @@ -1668,7 +1669,7 @@ package body Ch9 is -- Note: the reason that we accept THEN ABORT as a terminator for -- the sequence of statements is for error recovery which allows - -- for misuse of an accept statement as a triggering statememt. + -- for misuse of an accept statement as a triggering statement. Set_Statements (Accept_Alt_Node, P_Sequence_Of_Statements (SS_Eltm_Ortm_Tatm)); @@ -1696,7 +1697,7 @@ package body Ch9 is -- Note: the reason that we accept THEN ABORT as a terminator for -- the sequence of statements is for error recovery which allows - -- for misuse of an accept statement as a triggering statememt. + -- for misuse of an accept statement as a triggering statement. Set_Statements (Delay_Alt_Node, P_Sequence_Of_Statements (SS_Eltm_Ortm_Tatm)); diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb index 59fa37fc73a..585e9c7d45a 100644 --- a/gcc/ada/par-endh.adb +++ b/gcc/ada/par-endh.adb @@ -302,7 +302,7 @@ package body Endh is -- opening label, with the components all marked as not -- from source, and Is_End_Label set in the identifier -- or operator symbol. The location for all components - -- is the curent token location. + -- is the current token location. -- Case of child unit name @@ -975,7 +975,7 @@ package body Endh is else -- A special check. If we have END; followed by an end of file, -- WITH or SEPARATE, then if we are not at the outer level, then - -- we have a sytax error. Consider the example: + -- we have a syntax error. Consider the example: -- ... -- declare @@ -1128,7 +1128,7 @@ package body Endh is -- First we see how good the current END entry is with respect to -- what we expect. It is considered pretty good if the token is OK, - -- and either the label or the column matches. an END for RECORD is + -- and either the label or the column matches. An END for RECORD is -- always considered to be pretty good in the record case. This is -- because not only does a record disallow a nested structure, but -- also it is unlikely that such nesting could occur by accident. diff --git a/gcc/ada/par-labl.adb b/gcc/ada/par-labl.adb index 2ce8d6f1a6a..bc2a47eeec6 100644 --- a/gcc/ada/par-labl.adb +++ b/gcc/ada/par-labl.adb @@ -177,10 +177,10 @@ procedure Labl is procedure No_Header (N : Elmt_Id); -- The label N is known not to be a loop header. Scan forward and - -- remove all subsequent goto's that may have this node as a target. + -- remove all subsequent gotos that may have this node as a target. procedure Process_Goto (N : Elmt_Id); - -- N is a forward jump. Scan forward and remove all subsequent goto's + -- N is a forward jump. Scan forward and remove all subsequent gotos -- that may have the same target, to preclude spurious loops. procedure Rewrite_As_Loop diff --git a/gcc/ada/par-prag.adb b/gcc/ada/par-prag.adb index 973968df199..20375423f7f 100644 --- a/gcc/ada/par-prag.adb +++ b/gcc/ada/par-prag.adb @@ -527,7 +527,7 @@ begin -- Process Casing argument of pattern form of pragma procedure Process_Dot_Replacement (Arg : Node_Id); - -- Process Dot_Replacement argument of patterm form of pragma + -- Process Dot_Replacement argument of pattern form of pragma --------------- -- Get_Fname -- diff --git a/gcc/ada/par-sync.adb b/gcc/ada/par-sync.adb index bd3396c474b..b4f4189f123 100644 --- a/gcc/ada/par-sync.adb +++ b/gcc/ada/par-sync.adb @@ -81,7 +81,7 @@ package body Sync is loop -- Terminating tokens are those in class Eterm and also RANGE, -- DIGITS or DELTA if not preceded by an apostrophe (if they are - -- preceded by an apostrophe, then they are attributes). In addiion, + -- preceded by an apostrophe, then they are attributes). In addition, -- at the outer parentheses level only, we also consider a comma, -- right parenthesis or vertical bar to terminate an expression. @@ -132,7 +132,7 @@ package body Sync is procedure Resync_Init is begin -- The following check makes sure we do not get stuck in an infinite - -- loop resynchonizing and getting nowhere. If we are called to do a + -- loop resynchronizing and getting nowhere. If we are called to do a -- resynchronize and we are exactly at the same point that we left off -- on the last resynchronize call, then we force at least one token to -- be skipped so that we make progress! @@ -255,7 +255,7 @@ package body Sync is end if; end loop; - -- Fall out of loop with resyncrhonization complete + -- Fall out of loop with resynchronization complete Resync_Resume; end Resync_Past_Semicolon_Or_To_Loop_Or_Then; @@ -299,7 +299,7 @@ package body Sync is end if; end loop; - -- Fall out of loop with resyncrhonization complete + -- Fall out of loop with resynchronization complete Resync_Resume; end Resync_To_When; diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb index 3ec1a2bea06..634e5b322e1 100644 --- a/gcc/ada/par-tchk.adb +++ b/gcc/ada/par-tchk.adb @@ -692,7 +692,7 @@ package body Tchk is else -- Deal with pragma. If pragma is not at start of line, it is -- considered misplaced otherwise we treat it as a normal - -- missing semicolong case. + -- missing semicolon case. if Token = Tok_Pragma and then not Token_Is_At_Start_Of_Line diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index 98f66c66ab8..6ce31875351 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -76,7 +76,7 @@ package body Util is Token := T; return True; - -- A special check for an illegal abbrevation + -- A special check for an illegal abbreviation elsif Name_Len < S'Length and then Name_Len >= 4 diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 016d5024846..a76ee2593e9 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -187,7 +187,7 @@ is -- 4. We encounter a valid pragma INTERFACE or IMPORT that effectively -- supplies the missing body. In this case we reset the entry. - -- 5. We encounter the end of the declarative region without encoutering + -- 5. We encounter the end of the declarative region without encountering -- a BEGIN first. In this situation we simply reset the entry. We know -- that there is a missing body, but it seems more reasonable to let the -- later semantic checking discover this. @@ -197,7 +197,7 @@ is ---------------------------------------------------- -- Note: throughout the parser, the terms reserved word and keyword - -- are used interchangably to refer to the same set of reserved + -- are used interchangeably to refer to the same set of reserved -- keywords (including until, protected, etc). -- If a reserved word is used in place of an identifier, the parser @@ -213,14 +213,14 @@ is -- further confirmation. -- In the case of an identifier appearing in the identifier list of a - -- declaration, the appearence of a comma or colon right after the + -- declaration, the appearance of a comma or colon right after the -- keyword on the same line is taken as confirmation. For an enumeration -- literal, a comma or right paren right after the identifier is also -- treated as adequate confirmation. -- The following type is used in calls to Is_Reserved_Identifier and -- also to P_Defining_Identifier and P_Identifier. The default for all - -- these functins is that reserved words in reserved word case are not + -- these functions is that reserved words in reserved word case are not -- considered to be reserved identifiers. The Id_Check value indicates -- tokens, which if they appear immediately after the identifier, are -- taken as confirming that the use of an identifier was expected @@ -282,7 +282,7 @@ is -- end; -- The trouble is that the section of text from PROCEDURE B through END; - -- consitutes a valid procedure body, and the danger is that we find out + -- constitutes a valid procedure body, and the danger is that we find out -- far too late that something is wrong (indeed most compilers will behave -- uncomfortably on the above example). @@ -296,7 +296,7 @@ is -- reserve the END; for the outer level.) For more details on this aspect -- of the handling, see package Par.Endh. - -- If we can avoid eating up the END; then the result in the absense of + -- If we can avoid eating up the END; then the result in the absence of -- any additional steps would be to post a missing END referring back to -- the subprogram with the bogus IS. Similarly, if the enclosing package -- has no BEGIN, then the result is a missing BEGIN message, which again @@ -637,7 +637,7 @@ is -- allowed). procedure Skip_Declaration (S : List_Id); - -- Used when scanning statements to skip past a mispaced declaration + -- Used when scanning statements to skip past a misplaced declaration -- The declaration is scanned out and appended to the given list. -- Token is known to be a declaration token (in Token_Class_Declk) -- on entry, so there definition is a declaration to be scanned. @@ -914,7 +914,7 @@ is -- Used if an error occurs while scanning a parenthesized list of items -- separated by semicolons. The scan pointer is advanced to the next -- semicolon or right parenthesis at the outer parenthesis level, or - -- to the next is or RETURN keyword occurence, whichever comes first. + -- to the next is or RETURN keyword occurrence, whichever comes first. procedure Resync_Cunit; -- Synchronize to next token which could be the start of a compilation diff --git a/gcc/ada/prep.adb b/gcc/ada/prep.adb index bada73ede22..eb739a75274 100644 --- a/gcc/ada/prep.adb +++ b/gcc/ada/prep.adb @@ -732,7 +732,7 @@ package body Prep is procedure List_Symbols (Foreword : String) is Order : array (0 .. Integer (Symbol_Table.Last (Mapping))) of Symbol_Id; - -- After alphabetical sorting, this array stores thehe indices of + -- After alphabetical sorting, this array stores the indices of -- the symbols in the order they are displayed. function Lt (Op1, Op2 : Natural) return Boolean; @@ -1438,7 +1438,7 @@ package body Prep is end if; -- Now, scan the first token of the next line. If the token is EOF, - -- the scan ponter will not move, and the token will still be EOF. + -- the scan pointer will not move, and the token will still be EOF. Set_Ignore_Errors (To => True); Scan.all; diff --git a/gcc/ada/prep.ads b/gcc/ada/prep.ads index adabf925e02..198ddb4159f 100644 --- a/gcc/ada/prep.ads +++ b/gcc/ada/prep.ads @@ -124,7 +124,7 @@ package Prep is -- Tok_Identifier with the corresponding Token_Name. procedure List_Symbols (Foreword : String); - -- List the symbols used por preprocessing a file, with their values. + -- List the symbols used for preprocessing a file, with their values. -- If Foreword is not empty, Output Foreword before the list. end Prep; diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb index d23c130323f..818bb49e22b 100644 --- a/gcc/ada/prepcomp.adb +++ b/gcc/ada/prepcomp.adb @@ -245,7 +245,8 @@ package body Prepcomp is """ not found"); end if; - -- Initialize the sanner and set its behavior for a processing data file + -- Initialize the scanner and set its behavior for a processing data + -- file Scn.Scanner.Initialize_Scanner (Source_Index_Of_Preproc_Data_File); Scn.Scanner.Set_End_Of_Line_As_Token (True); diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads index 2d314b6cbb3..fd615b08604 100644 --- a/gcc/ada/prj-attr.ads +++ b/gcc/ada/prj-attr.ads @@ -38,7 +38,7 @@ package Prj.Attr is function Package_Name_List return Strings.String_List; -- Returns the list of valid package names, including those added by -- procedures Register_New_Package below. The String_Access components of - -- the returned String_List should never be feeed. + -- the returned String_List should never be freed. procedure Initialize; -- Initialize the predefined project level attributes and the predefined diff --git a/gcc/ada/prj-dect.adb b/gcc/ada/prj-dect.adb index f9528d0de9a..5fb13eaa27f 100644 --- a/gcc/ada/prj-dect.adb +++ b/gcc/ada/prj-dect.adb @@ -75,7 +75,7 @@ package body Prj.Dect is Current_Package : Project_Node_Id; Packages_To_Check : String_List_Access); -- Parse declarative items. Depending on In_Zone, some declarative - -- items may be forbiden. + -- items may be forbidden. procedure Parse_Package_Declaration (In_Tree : Project_Node_Tree_Ref; @@ -916,7 +916,7 @@ package body Prj.Dect is when others => exit; - -- We are leaving Parse_Declarative_Items positionned + -- We are leaving Parse_Declarative_Items positioned -- at the first token after the list of declarative items. -- It could be "end" (for a project, a package declaration or -- a case construction) or "when" (for a case construction) diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index 0ddbf9b62a9..bbc45c57d3c 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -2351,7 +2351,7 @@ package body Prj.Env is -- For a non-library project, add the object -- directory, if it is not a virtual project, and if -- there are Ada sources or if the project is an - -- extending project. if There Are No Ada sources, + -- extending project. If there are no Ada sources, -- adding the object directory could disrupt the order -- of the object dirs in the path. diff --git a/gcc/ada/prj-ext.adb b/gcc/ada/prj-ext.adb index 686ca515989..384fe104cb2 100644 --- a/gcc/ada/prj-ext.adb +++ b/gcc/ada/prj-ext.adb @@ -180,7 +180,7 @@ package body Prj.Ext is end if; -- Scan the directory path to see if "-" is one of the directories. - -- Remove each occurence of "-" and set Add_Default_Dir to False. + -- Remove each occurrence of "-" and set Add_Default_Dir to False. -- Also resolve relative paths and symbolic links. First := 3; diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 76b507e9a46..f5ff22b84cc 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -4127,7 +4127,7 @@ package body Prj.Nmsc is Suffix2 : Array_Element_Id; begin - -- If some suffixs have been specified, we make sure that + -- If some suffixes have been specified, we make sure that -- for each language for which a default suffix has been -- specified, there is a suffix specified, either the one -- in the project file or if there were none, the default. @@ -4169,7 +4169,7 @@ package body Prj.Nmsc is Suffix := Element.Next; end loop; - -- Put the resulting array as the specification suffixs + -- Put the resulting array as the specification suffixes Data.Naming.Spec_Suffix := Spec_Suffixs; end if; @@ -4251,7 +4251,7 @@ package body Prj.Nmsc is Suffix := Element.Next; end loop; - -- Put the resulting array as the implementation suffixs + -- Put the resulting array as the implementation suffixes Data.Naming.Body_Suffix := Impl_Suffixs; end if; @@ -5179,7 +5179,7 @@ package body Prj.Nmsc is end if; -- If attribute Library_Reference_Symbol_File is not defined, - -- symbol policy cannot be Compilant or Controlled. + -- symbol policy cannot be Compliant or Controlled. if Lib_Ref_Symbol_File.Default then if Data.Symbol_Data.Symbol_Policy = Compliant diff --git a/gcc/ada/prj-nmsc.ads b/gcc/ada/prj-nmsc.ads index 4efdf264c10..c4626b15ded 100644 --- a/gcc/ada/prj-nmsc.ads +++ b/gcc/ada/prj-nmsc.ads @@ -28,7 +28,7 @@ private package Prj.Nmsc is -- It would be nicer to have a higher level statement of what these - -- procedures do (related to their names), rather than just an english + -- procedures do (related to their names), rather than just an English -- language summary of the implementation ??? procedure Check diff --git a/gcc/ada/prj-pp.adb b/gcc/ada/prj-pp.adb index db441d94fb8..c8dc931a982 100644 --- a/gcc/ada/prj-pp.adb +++ b/gcc/ada/prj-pp.adb @@ -40,7 +40,7 @@ package body Prj.PP is Column : Natural := 0; -- Column number of the last character in the line. Used to avoid - -- outputing lines longer than Max_Line_Length. + -- outputting lines longer than Max_Line_Length. First_With_In_List : Boolean := True; -- Indicate that the next with clause is first in a list such as diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index e1a660946c7..c0554223a31 100644 --- a/gcc/ada/prj-proc.adb +++ b/gcc/ada/prj-proc.adb @@ -2001,7 +2001,7 @@ package body Prj.Proc is -- If no such element were found, create a new one -- and insert it in the element list, with the - -- propoer value. + -- proper value. if The_Array_Element = No_Array_Element then Array_Element_Table.Increment_Last @@ -2680,9 +2680,9 @@ package body Prj.Proc is From_Project_Node_Tree)); -- If it is an extending project, inherit all packages - -- from the extended project that are not explicitely defined + -- from the extended project that are not explicitly defined -- or renamed. Also inherit the languages, if attribute Languages - -- is not explicitely defined. + -- is not explicitly defined. Processed_Data := In_Tree.Projects.Table (Project); diff --git a/gcc/ada/prj-strt.ads b/gcc/ada/prj-strt.ads index b5c9afb642f..19173003eac 100644 --- a/gcc/ada/prj-strt.ads +++ b/gcc/ada/prj-strt.ads @@ -101,6 +101,6 @@ private package Prj.Strt is -- On exit, Variable is the node of the variable or attribute reference. -- A variable reference is made of one to three simple names. -- An attribute reference is made of one or two simple names, - -- followed by an apostroph, followed by the attribute simple name. + -- followed by an apostrophe, followed by the attribute simple name. end Prj.Strt; diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads index 0bdffc2060a..19d600f4f6c 100644 --- a/gcc/ada/prj-tree.ads +++ b/gcc/ada/prj-tree.ads @@ -63,7 +63,7 @@ package Prj.Tree is -- N_Variable_Reference. subtype Package_Declaration_Id is Project_Node_Id; - -- Used to designate a node whose expected kind is N_Proect_Declaration + -- Used to designate a node whose expected kind is N_Project_Declaration type Project_Node_Kind is (N_Project, @@ -941,7 +941,7 @@ package Prj.Tree is Src_Index : Int := 0; -- Index of a unit in a multi-unit source. - -- Onli for some N_Attribute_Declaration and N_Literal_String. + -- Only for some N_Attribute_Declaration and N_Literal_String. Path_Name : Path_Name_Type := No_Path; -- See below for what Project_Node_Kind it is used @@ -960,7 +960,7 @@ package Prj.Tree is Flag1 : Boolean := False; -- This flag is significant only for: - -- N_Attribute_Declaration and N_Atribute_Reference + -- N_Attribute_Declaration and N_Attribute_Reference -- It indicates for an associative array attribute, that the -- index is case insensitive. -- N_Comment - it indicates that the comment is preceded by an diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 8f6e1a7e753..f5752161297 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -881,7 +881,7 @@ package body Prj is Name_Buffer (1 .. Name_Len) := To_Lower (Name_Buffer (1 .. Name_Len)); Lang := Name_Find; - -- Look for an element of the spec sufix array indexed by the language + -- Look for an element of the spec suffix array indexed by the language -- name. If one is found, put the default value. Suffix := In_Tree.Private_Part.Default_Naming.Spec_Suffix; @@ -921,7 +921,7 @@ package body Prj is Array_Element_Table.Last (In_Tree.Array_Elements); end if; - -- Look for an element of the body sufix array indexed by the language + -- Look for an element of the body suffix array indexed by the language -- name. If one is found, put the default value. Suffix := In_Tree.Private_Part.Default_Naming.Body_Suffix; diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 5cedfdc0ec1..4f6f37f45b7 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -371,7 +371,7 @@ package Prj is -- unit based. Naming_Data : Lang_Naming_Data; - -- The naming data for the languages (prefixs, etc) + -- The naming data for the languages (prefixes, etc.) Compiler_Driver : File_Name_Type := No_File; -- The name of the executable for the compiler of the language @@ -470,7 +470,7 @@ package Prj is -- Hold the value of attribute Binder'Required_Switches for the language Binder_Prefix : Name_Id := No_Name; - -- Hold the value of attribute Binder'Prefixthe language + -- Hold the value of attribute Binder'Prefix for the language Toolchain_Version : Name_Id := No_Name; -- Hold the value of attribute Toolchain_Version for the language diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 58f0b68c4fc..2cde34e6565 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -382,17 +382,6 @@ gnat_poplevel () free_binding_level = level; } -/* Insert BLOCK at the end of the list of subblocks of the - current binding level. This is used when a BIND_EXPR is expanded, - to handle the BLOCK node inside the BIND_EXPR. */ - -void -insert_block (tree block) -{ - TREE_USED (block) = 1; - TREE_CHAIN (block) = BLOCK_SUBBLOCKS (current_binding_level->block); - BLOCK_SUBBLOCKS (current_binding_level->block) = block; -} /* Records a ..._DECL node DECL as belonging to the current lexical scope and uses GNAT_NODE for location information and propagating flags. */ diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c index bfd2ed75b73..e9908676b44 100644 --- a/gcc/ada/utils2.c +++ b/gcc/ada/utils2.c @@ -228,37 +228,53 @@ known_alignment (tree exp) return MAX (type_alignment, this_alignment); } -/* We have a comparison or assignment operation on two types, T1 and T2, - which are both either array types or both record types. - Return the type that both operands should be converted to, if any. +/* We have a comparison or assignment operation on two types, T1 and T2, which + are either both array types or both record types. T1 is assumed to be for + the left hand side operand, and T2 for the right hand side. Return the + type that both operands should be converted to for the operation, if any. Otherwise return zero. */ static tree find_common_type (tree t1, tree t2) { - /* If either type is non-BLKmode, use it. Note that we know that we will - not have any alignment problems since if we did the non-BLKmode - type could not have been used. */ + /* ??? As of today, various constructs lead here with types of different + sizes even when both constants (e.g. tagged types, packable vs regular + component types, padded vs unpadded types, ...). While some of these + would better be handled upstream (types should be made consistent before + calling into build_binary_op), some others are really expected and we + have to be careful. */ + + /* We must prevent writing more than what the target may hold if this is for + an assignment and the case of tagged types is handled in build_binary_op + so use the lhs type if it is known to be smaller, or of constant size and + the rhs type is not, whatever the modes. We also force t1 in case of + constant size equality to minimize occurrences of view conversions on the + lhs of assignments. */ + if (TREE_CONSTANT (TYPE_SIZE (t1)) + && (!TREE_CONSTANT (TYPE_SIZE (t2)) + || !tree_int_cst_lt (TYPE_SIZE (t2), TYPE_SIZE (t1)))) + return t1; + + /* Otherwise, if the lhs type is non-BLKmode, use it. Note that we know + that we will not have any alignment problems since, if we did, the + non-BLKmode type could not have been used. */ if (TYPE_MODE (t1) != BLKmode) return t1; - else if (TYPE_MODE (t2) != BLKmode) - return t2; - /* If both types have constant size, use the smaller one. Keep returning - T1 if we have a tie, to be consistent with the other cases. */ - if (TREE_CONSTANT (TYPE_SIZE (t1)) && TREE_CONSTANT (TYPE_SIZE (t2))) - return tree_int_cst_lt (TYPE_SIZE (t2), TYPE_SIZE (t1)) ? t2 : t1; + /* If the rhs type is of constant size, use it whatever the modes. At + this point it is known to be smaller, or of constant size and the + lhs type is not. */ + if (TREE_CONSTANT (TYPE_SIZE (t2))) + return t2; - /* Otherwise, if either type has a constant size, use it. */ - else if (TREE_CONSTANT (TYPE_SIZE (t1))) - return t1; - else if (TREE_CONSTANT (TYPE_SIZE (t2))) + /* Otherwise, if the rhs type is non-BLKmode, use it. */ + if (TYPE_MODE (t2) != BLKmode) return t2; - /* In this case, both types have variable size. It's probably - best to leave the "type mismatch" because changing it could - case a bad self-referential reference. */ - return 0; + /* In this case, both types have variable size and BLKmode. It's + probably best to leave the "type mismatch" because changing it + could cause a bad self-referential reference. */ + return NULL_TREE; } /* See if EXP contains a SAVE_EXPR in a position where we would |