diff options
| author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-31 19:28:19 +0000 |
|---|---|---|
| committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-03-31 19:28:19 +0000 |
| commit | 27f486599a19a5923b58ad522668b34b5c4d956f (patch) | |
| tree | fface9c358993512af2d42d8da781b1ceb75942a /gcc/ada | |
| parent | 7866ca04c49ac3c8913b7d17b8aa6b8b71653050 (diff) | |
| download | gcc-27f486599a19a5923b58ad522668b34b5c4d956f.tar.gz | |
gcc/ada/
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133770 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
90 files changed, 224 insertions, 194 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f5b9df21c6d..143601c902f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,30 @@ +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 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..5b98771d4f5 100644 --- a/gcc/ada/gigi.h +++ b/gcc/ada/gigi.h @@ -787,7 +787,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 |