diff options
| author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-14 21:07:59 +0000 |
|---|---|---|
| committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-14 21:07:59 +0000 |
| commit | 2c145f840c7cda0c0542b282a8677a854754a5dd (patch) | |
| tree | 3f86f334592314b53781112a469770f9d9d72b3e /gcc/ada | |
| parent | 83d718db5152e7163ce2573fde7616b4049dcbc0 (diff) | |
| download | gcc-2c145f840c7cda0c0542b282a8677a854754a5dd.tar.gz | |
gcc/ada/
* vms_data.ads: Fix typo in constant.
* gen-soccon.c: Fix typo in error string.
* gnat_rm.texi (Pragma Optimize_Alignment, Pragma Postcondition):
Fix typos.
* a-calcon.ads, a-calend-vms.adb, a-calend.adb, a-crdlli.ads,
bcheck.adb, checks.adb, einfo.ads, errout.adb, erroutc.adb,
erroutc.ads, exp_attr.adb, exp_ch11.adb, exp_ch2.adb,
exp_ch5.adb, exp_ch9.adb, exp_ch9.ads, exp_pakd.adb,
exp_util.adb, fmap.adb, g-soccon-linux-mips.ads,
g-soccon-rtems.ads, g-timsta.adb, g-timsta.ads, lib-writ.ads,
mlib-tgt-specific-linux.adb, mlib-tgt-specific-tru64.adb,
s-interr-vxworks.adb, s-interr.adb, s-osinte-lynxos.ads,
s-rident.ads, s-taprop-solaris.adb, s-tassta.adb, s-win32.ads,
sem_aggr.adb, sem_attr.ads, sem_ch10.adb, sem_ch13.ads,
sem_ch3.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_ch9.adb,
sem_prag.ads, sem_res.adb, sem_util.adb, sem_util.ads,
sinfo.ads: Fix typos in comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134291 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
51 files changed, 91 insertions, 71 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index fe278db8a5a..abb4fadfde7 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,23 @@ +2008-04-14 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> + + * vms_data.ads: Fix typo in constant. + * gen-soccon.c: Fix typo in error string. + * gnat_rm.texi (Pragma Optimize_Alignment, Pragma Postcondition): + Fix typos. + * a-calcon.ads, a-calend-vms.adb, a-calend.adb, a-crdlli.ads, + bcheck.adb, checks.adb, einfo.ads, errout.adb, erroutc.adb, + erroutc.ads, exp_attr.adb, exp_ch11.adb, exp_ch2.adb, + exp_ch5.adb, exp_ch9.adb, exp_ch9.ads, exp_pakd.adb, + exp_util.adb, fmap.adb, g-soccon-linux-mips.ads, + g-soccon-rtems.ads, g-timsta.adb, g-timsta.ads, lib-writ.ads, + mlib-tgt-specific-linux.adb, mlib-tgt-specific-tru64.adb, + s-interr-vxworks.adb, s-interr.adb, s-osinte-lynxos.ads, + s-rident.ads, s-taprop-solaris.adb, s-tassta.adb, s-win32.ads, + sem_aggr.adb, sem_attr.ads, sem_ch10.adb, sem_ch13.ads, + sem_ch3.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_ch9.adb, + sem_prag.ads, sem_res.adb, sem_util.adb, sem_util.ads, + sinfo.ads: Fix typos in comments. + 2008-04-14 Robert Dewar <dewar@adacore.com> * sem_prag.adb (Analyze_Pragma, Linker_Section case): Extend error diff --git a/gcc/ada/a-calcon.ads b/gcc/ada/a-calcon.ads index d2dd3fbcc10..c0178a092a6 100644 --- a/gcc/ada/a-calcon.ads +++ b/gcc/ada/a-calcon.ads @@ -68,7 +68,7 @@ package Ada.Calendar.Conversions is -- The returned value is in UTC and may or may not contain leap seconds -- depending on whether binder flag "-y" was used. Raises Time_Error if -- the input values are out of the defined ranges or if tm_sec equals 60 - -- and the instance in time is not a leap second occurence. + -- and the instance in time is not a leap second occurrence. function To_Duration (tv_sec : Interfaces.C.long; diff --git a/gcc/ada/a-calend-vms.adb b/gcc/ada/a-calend-vms.adb index 86e77cb66a6..6cbc7288d23 100644 --- a/gcc/ada/a-calend-vms.adb +++ b/gcc/ada/a-calend-vms.adb @@ -920,7 +920,7 @@ package body Ada.Calendar is tm_year := Year - 1900; tm_mon := Month - 1; - -- Step 3: Handle leap second occurences + -- Step 3: Handle leap second occurrences if Leap_Sec then tm_sec := 60; diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb index 2e7c61a9d7f..d543cd85939 100644 --- a/gcc/ada/a-calend.adb +++ b/gcc/ada/a-calend.adb @@ -939,7 +939,7 @@ package body Ada.Calendar is tm_year := Year - 1900; tm_mon := Month - 1; - -- Step 3: Handle leap second occurences + -- Step 3: Handle leap second occurrences if Leap_Sec then tm_sec := 60; diff --git a/gcc/ada/a-crdlli.ads b/gcc/ada/a-crdlli.ads index a97f354d43e..ca78cb526b9 100644 --- a/gcc/ada/a-crdlli.ads +++ b/gcc/ada/a-crdlli.ads @@ -253,7 +253,7 @@ package Ada.Containers.Restricted_Doubly_Linked_Lists is Position : Cursor := No_Element) return Cursor; -- Searches for the node whose element is equal to Item, starting from -- Position and continuing to the last end of the list. If Position equals - -- No_Element, the seach starts from the first node. If Position is + -- No_Element, the search starts from the first node. If Position is -- associated with a list object different from Container, then -- Program_Error is raised. If no node is found having an element equal to -- Item, then Find returns No_Element. @@ -264,7 +264,7 @@ package Ada.Containers.Restricted_Doubly_Linked_Lists is Position : Cursor := No_Element) return Cursor; -- Searches in reverse for the node whose element is equal to Item, -- starting from Position and continuing to the first end of the list. If - -- Position equals No_Element, the seach starts from the last node. If + -- Position equals No_Element, the search starts from the last node. If -- Position is associated with a list object different from Container, then -- Program_Error is raised. If no node is found having an element equal to -- Item, then Reverse_Find returns No_Element. diff --git a/gcc/ada/bcheck.adb b/gcc/ada/bcheck.adb index 3332d2083f8..a1edd067979 100644 --- a/gcc/ada/bcheck.adb +++ b/gcc/ada/bcheck.adb @@ -703,7 +703,7 @@ package body Bcheck is ----------------------------------------- -- The rule is that all units which depend on the global default setting - -- of Optimize_Alignment must be compiled with the same settinng for this + -- of Optimize_Alignment must be compiled with the same setting for this -- default. Units which specify an explicit local value for this setting -- are exempt from the consistency rule (this includes all internal units). diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 1dfd0de9914..38512547e7f 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -2769,7 +2769,7 @@ package body Checks is -- Check that a null-excluding component, formal or object is not being -- assigned a null value. Otherwise generate a warning message and - -- replace Expression (N) by an N_Contraint_Error node. + -- replace Expression (N) by an N_Constraint_Error node. if K /= N_Function_Specification then Expr := Expression (N); diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index 10d7deb7aa1..852d9966ddf 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -457,7 +457,7 @@ package Einfo is -- for finalization purposes, The block entity has an implicit label -- declaration in the enclosing declarative part, and has otherwise -- no direct connection in the tree with the block statement. The --- link is to the identifier (which is an occurence of the entity) +-- link is to the identifier (which is an occurrence of the entity) -- and not to the block_statement itself, because the statement may -- be rewritten, e.g. in the process of removing dead code. @@ -559,7 +559,7 @@ package Einfo is -- component clause applies to the component. First bit position of -- given component, computed from the first bit and position values -- given in the component clause. A value of No_Uint means that the --- value is not yet known. The value can be set by the appearence of +-- value is not yet known. The value can be set by the appearance of -- an explicit component clause in a record representation clause, -- or it can be set by the front-end in package Layout, or it can be -- set by the backend. By the time backend processing is completed, @@ -873,7 +873,7 @@ package Einfo is -- Elaboration_Entity (Node13) -- Present in generic and non-generic package and subprogram -- entities. This is a boolean entity associated with the unit that --- is initiallly set to False, and is set True when the unit is +-- is initially set to False, and is set True when the unit is -- elaborated. This is used for two purposes. First, it is used to -- implement required access before elaboration checks (the flag -- must be true to call a subprogram at elaboration time). Second, @@ -3534,7 +3534,7 @@ package Einfo is -- Present in subprogram entities. Points to a list of Precondition -- and Postcondition N_Pragma nodes for preconditions and postconditions -- declared in the spec. The last pragma encountered is at the head of --- this list, so it is in reverse order of textual appearence. +-- this list, so it is in reverse order of textual appearance. -- Storage_Size_Variable (Node15) [implementation base type only] -- Present in access types and task type entities. This flag is set @@ -5645,7 +5645,7 @@ package Einfo is -- required discriminant values. The expander creates a set of declarations -- of the form: - -- discr_nameD : constant disrc_type renames _task.discr_name; + -- discr_nameD : constant discr_type renames _task.discr_name; -- where discr_nameD is the discriminal entity referenced by the task -- discriminant, and _task is the task value passed in as the parameter. diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index d898a306d67..8d1a2c14573 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -191,8 +191,8 @@ package body Errout is procedure VMS_Convert; -- This procedure has no effect if called when the host is not OpenVMS. -- If the host is indeed OpenVMS, then the error message stored in - -- Msg_Buffer is scanned for appearences of switch names which need - -- converting to corresponding VMS qualifer names. See Gnames/Vnames + -- Msg_Buffer is scanned for appearances of switch names which need + -- converting to corresponding VMS qualifier names. See Gnames/Vnames -- table in Errout spec for precise definition of the conversion that -- is performed by this routine in OpenVMS mode. diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 604fd5409e3..f255ac00e9e 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -504,7 +504,7 @@ package body Erroutc is else Start := Ptr; - -- First scan forward looing for a hard end of line + -- First scan forward looking for a hard end of line for Scan in Ptr .. Ptr + Max - 1 loop if Txt (Scan) = ASCII.LF then diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index edc1140fbef..ba212eeb42b 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -52,7 +52,7 @@ package Erroutc is Is_Style_Msg : Boolean := False; -- Set True to indicate if the current message is a style message - -- (i.e. a message whose text starts with the cahracters "(style)"). + -- (i.e. a message whose text starts with the characters "(style)"). Is_Serious_Error : Boolean := False; -- Set by Set_Msg_Text to indicate if current message is serious error diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index b6d4ae8d6e3..1637863cf45 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -2212,7 +2212,7 @@ package body Exp_Attr is -- sourcetyp (streamread (strmtyp'Input (stream))); - -- where stmrearead is the given Read function that converts an + -- where streamread is the given Read function that converts an -- argument of type strmtyp to type sourcetyp or a type from which -- it is derived (extra conversion required for the derived case). @@ -2810,7 +2810,7 @@ package body Exp_Attr is -- result is modulus + value, where the value might be as small as -- -modulus. The trouble is what type do we use to do the subtract. -- No type will do, since modulus can be as big as 2**64, and no - -- integer type accomodates this value. Let's do bit of algebra + -- integer type accommodates this value. Let's do bit of algebra -- modulus + value -- = modulus - (-value) diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index ac3590179e4..2cfde4df912 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -849,7 +849,7 @@ package body Exp_Ch11 is begin -- If we have no Entity, then we are probably in no run time mode - -- or some weird error has occured. In either case do do nothing! + -- or some weird error has occurred. In either case do do nothing! if Present (Ent) then declare diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index 82ac5eea7f4..c3716c387fa 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -184,7 +184,7 @@ package body Exp_Ch2 is end if; -- If constant value is an occurrence of an enumeration literal, - -- then we just make another occurence of the same literal. + -- then we just make another occurrence of the same literal. if Is_Entity_Name (Val) and then Ekind (Entity (Val)) = E_Enumeration_Literal @@ -469,7 +469,7 @@ package body Exp_Ch2 is -- we also generate an extra parameter to hold the Constrained -- attribute of the actual. No renaming is generated for this flag. - -- Calling Node_Posssible_Modifications in the expander is dubious, + -- Calling Node_Possible_Modifications in the expander is dubious, -- because this generates a cross-reference entry, and should be -- done during semantic processing so it is called in -gnatc mode??? diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 68965c71493..c8cb1a4e44a 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -3467,7 +3467,7 @@ package body Exp_Ch5 is procedure Expand_N_Simple_Return_Statement (N : Node_Id) is begin - -- Defend agains previous errors (ie. the return statement calls a + -- Defend against previous errors (i.e. the return statement calls a -- function that is not available in configurable runtime). if Present (Expression (N)) diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index b999bfaa6c4..ca4d70b2c02 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -195,7 +195,7 @@ package body Exp_Ch9 is (Loc : Source_Ptr; Def_Id : Entity_Id; Ent_Id : Entity_Id) return Node_Id; - -- Build a specification for the procedure implementing the statemens of + -- Build a specification for the procedure implementing the statements of -- the specified entry body. Add attributes associating it with the entry -- defining identifier Ent_Id. @@ -2027,7 +2027,7 @@ package body Exp_Ch9 is Add_Object_Pointer (Loc, Pid, Op_Decls); -- Add renamings for all formals, the Protection object, discriminals, - -- privals and the entry indix constant for use by debugger. + -- privals and the entry index constant for use by debugger. Add_Formal_Renamings (Espec, Op_Decls, Ent, Loc); Debug_Private_Data_Declarations (Decls); @@ -3429,7 +3429,7 @@ package body Exp_Ch9 is begin -- Add renamings for the Protection object, discriminals, privals and - -- the entry indix constant for use by debugger. + -- the entry index constant for use by debugger. Debug_Private_Data_Declarations (Decls); diff --git a/gcc/ada/exp_ch9.ads b/gcc/ada/exp_ch9.ads index 71c1e830c3c..2628e150ca1 100644 --- a/gcc/ada/exp_ch9.ads +++ b/gcc/ada/exp_ch9.ads @@ -321,7 +321,7 @@ package Exp_Ch9 is procedure Set_Discriminals (Dec : Node_Id); -- Replace discriminals in a protected type for use by the next protected - -- operation on the type. Each operation needs a new set of discirminals, + -- operation on the type. Each operation needs a new set of discriminals, -- since it needs a unique renaming of the discriminant fields in the -- record used to implement the protected type. diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 8f191be3a36..e04d723e79f 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1774,7 +1774,7 @@ package body Exp_Pakd is Ltyp := Etype (L); Rtyp := Etype (R); - -- Deeal with silly case of XOR where the subcomponent has a range + -- Deal with silly case of XOR where the subcomponent has a range -- True .. True where an exception must be raised. if Nkind (N) = N_Op_Xor then diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 12fea51a197..fd9fe26dd15 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -967,7 +967,7 @@ package body Exp_Util is -- A protected type without entries that covers an interface and -- overrides the abstract routines with protected procedures is -- considered equivalent to a protected type with entries in the - -- context of dispatching select statements. It is sufficent to + -- context of dispatching select statements. It is sufficient to -- check for the presence of an interface list in the declaration -- node to recognize this case. @@ -3066,7 +3066,7 @@ package body Exp_Util is -- Most predefined primitives have internally generated names. Equality -- must be treated differently; the predefined operation is recognized - -- as a homgeneous binary operator that returns Boolean. + -- as a homogeneous binary operator that returns Boolean. if Name_Len > TSS_Name_Type'Last then TSS_Name := TSS_Name_Type (Name_Buffer (Name_Len - TSS_Name'Length + 1 diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index b09a5248b88..6770ee96ecb 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -39,7 +39,7 @@ package body Fmap is No_Mapping_File : Boolean := False; -- Set to True when the specified mapping file cannot be read in - -- procedure Initialize, so that no attempt is made to oopen the mapping + -- procedure Initialize, so that no attempt is made to open the mapping -- file in procedure Update_Mapping_File. function To_Big_String_Ptr is new Unchecked_Conversion diff --git a/gcc/ada/g-soccon-linux-mips.ads b/gcc/ada/g-soccon-linux-mips.ads index 8fc50400e24..0f8822e2a07 100644 --- a/gcc/ada/g-soccon-linux-mips.ads +++ b/gcc/ada/g-soccon-linux-mips.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -38,7 +38,7 @@ -- This is the version for mips-linux, manually edited for the first shot -- no mips hardware at hand -- using http://www.gelato.unsw.edu.au/lxr/source/include/asm-mips/socket.h --- in order to find differents values +-- in order to find different values. -- This file is generated automatically, do not modify it by hand! Instead, -- make changes to gen-soccon.c and re-run it on each target. @@ -80,7 +80,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-rtems.ads b/gcc/ada/g-soccon-rtems.ads index f2edb1736e3..a404eec9b33 100644 --- a/gcc/ada/g-soccon-rtems.ads +++ b/gcc/ada/g-soccon-rtems.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -77,7 +77,7 @@ package GNAT.Sockets.Constants is EINVAL : constant := 22; -- Invalid argument EIO : constant := 5; -- Input output error EISCONN : constant := 127; -- Socket already connected - ELOOP : constant := 92; -- Too many symbolic lynks + ELOOP : constant := 92; -- Too many symbolic links EMFILE : constant := 24; -- Too many open files EMSGSIZE : constant := 122; -- Message too long ENAMETOOLONG : constant := 91; -- Name too long diff --git a/gcc/ada/g-timsta.adb b/gcc/ada/g-timsta.adb index 9b643f7cf61..31130c06071 100644 --- a/gcc/ada/g-timsta.adb +++ b/gcc/ada/g-timsta.adb @@ -39,7 +39,7 @@ package body GNAT.Time_Stamp is type time_stamp_ptr is access all time_stamp; -- The desired ISO 8601 string format has exactly 22 characters. We add -- one additional character for '\0'. The indexing starts from zero to - -- accomodate the C layout. + -- accommodate the C layout. procedure gnat_current_time_string (Value : time_stamp_ptr); pragma Import (C, gnat_current_time_string, "__gnat_current_time_string"); diff --git a/gcc/ada/g-timsta.ads b/gcc/ada/g-timsta.ads index 87a07f89394..460b7e5eb09 100644 --- a/gcc/ada/g-timsta.ads +++ b/gcc/ada/g-timsta.ads @@ -31,7 +31,7 @@ -- -- ------------------------------------------------------------------------------ --- This package provides a lighweight mechanism for obtaining time stamps +-- This package provides a lightweight mechanism for obtaining time stamps package GNAT.Time_Stamp is diff --git a/gcc/ada/gen-soccon.c b/gcc/ada/gen-soccon.c index 9067a146b0b..0d0a037320d 100644 --- a/gcc/ada/gen-soccon.c +++ b/gcc/ada/gen-soccon.c @@ -267,7 +267,7 @@ CND(EISCONN, "Socket already connected") #ifndef ELOOP #define ELOOP -1 #endif -CND(ELOOP, "Too many symbolic lynks") +CND(ELOOP, "Too many symbolic links") #ifndef EMFILE #define EMFILE -1 diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi index 8e3247d274d..f8d5939b708 100644 --- a/gcc/ada/gnat_rm.texi +++ b/gcc/ada/gnat_rm.texi @@ -3551,7 +3551,7 @@ optimization setting. This would normally be achieved by use of a configuration pragma file containing the appropriate setting. The exception to this rule is that units with an explicit configuration pragma in the same file as the source unit are excluded from the consistency check, as are all predefined units. The -latter are commpiled by default in pragma Optimize_Alignment (Off) mode if no +latter are compiled by default in pragma Optimize_Alignment (Off) mode if no pragma appears at the start of the file. @node Pragma Passive @@ -3740,7 +3740,7 @@ will be used as the exception message. If no message argument was supplied, then the default message has the form "Postcondition failed at file:line". The exception is raised in the context of the subprogram -body, so it is posssible to catch postcondition failures +body, so it is possible to catch postcondition failures within the subprogram body itself. Within a package spec, normal visibility rules diff --git a/gcc/ada/lib-writ.ads b/gcc/ada/lib-writ.ads index f152742bfa7..e0c0f34427d 100644 --- a/gcc/ada/lib-writ.ads +++ b/gcc/ada/lib-writ.ads @@ -472,7 +472,7 @@ package Lib.Writ is -- elaboration code is required. Set if N_Compilation_Unit -- node has flag Has_No_Elaboration_Code set. -- - -- OL The units in this file are commpiled with a local pragma + -- OL The units in this file are compiled with a local pragma -- Optimize_Alignment, so no consistency requirement applies -- to these units. All internal units have this status since -- they have an automatic default of Optimize_Alignment (Off). @@ -481,11 +481,11 @@ package Lib.Writ is -- units in this file. All files in the partition that specify -- a default must specify the same default. -- - -- OS Optimize_Alignment (Space) is the default settinng for all + -- OS Optimize_Alignment (Space) is the default setting for all -- units in this file. All files in the partition that specify -- a default must specify the same default. -- - -- OT Optimize_Alignment (Time) is the default settinng for all + -- OT Optimize_Alignment (Time) is the default setting for all -- units in this file. All files in the partition that specify -- a default must specify the same default. -- diff --git a/gcc/ada/mlib-tgt-specific-linux.adb b/gcc/ada/mlib-tgt-specific-linux.adb index 60557fdf579..8559966bfe5 100644 --- a/gcc/ada/mlib-tgt-specific-linux.adb +++ b/gcc/ada/mlib-tgt-specific-linux.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -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-specific-tru64.adb b/gcc/ada/mlib-tgt-specific-tru64.adb index 7e6bcc20605..b5f5a137122 100644 --- a/gcc/ada/mlib-tgt-specific-tru64.adb +++ b/gcc/ada/mlib-tgt-specific-tru64.adb @@ -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; diff --git a/gcc/ada/s-interr-vxworks.adb b/gcc/ada/s-interr-vxworks.adb index 98254e617be..a752b2dbd4c 100644 --- a/gcc/ada/s-interr-vxworks.adb +++ b/gcc/ada/s-interr-vxworks.adb @@ -607,7 +607,7 @@ package body System.Interrupts is -- signals and exceptions). As opposed to the signal implementation, -- this handler is installed in the vector table when the first Ada -- handler is attached to the interrupt. However because VxWorks don't - -- support disconnecting handlers, this subprogram always test wether + -- support disconnecting handlers, this subprogram always test whether -- or not an Ada handler is effectively attached. -- Otherwise, the handler that existed prior to program startup is diff --git a/gcc/ada/s-interr.adb b/gcc/ada/s-interr.adb index 44411125493..4cb2ccc57d4 100644 --- a/gcc/ada/s-interr.adb +++ b/gcc/ada/s-interr.adb @@ -1244,7 +1244,7 @@ package body System.Interrupts is -- There are two Interrupt interrupts that this task catch through -- "sigwait." One is the Interrupt this task is designated to catch - -- in order to execure user handler or entry. The other one is the + -- in order to execute user handler or entry. The other one is the -- Abort_Task_Interrupt. This interrupt is being sent from the -- Interrupt_Manager to inform status changes (e.g: become Blocked, -- Handler or Entry is to be detached). diff --git a/gcc/ada/s-osinte-lynxos.ads b/gcc/ada/s-osinte-lynxos.ads index dd30d242176..6acb132011f 100644 --- a/gcc/ada/s-osinte-lynxos.ads +++ b/gcc/ada/s-osinte-lynxos.ads @@ -173,7 +173,7 @@ package System.OS_Interface is SA_SIGINFO : constant := 16#80#; SA_ONSTACK : constant := 16#00#; - -- SA_ONSTACK is not defined on LynxOS, but it is refered to in the POSIX + -- SA_ONSTACK is not defined on LynxOS, but it is referred to in the POSIX -- implementation of System.Interrupt_Management. Therefore we define a -- dummy value of zero here so that setting this flag is a nop. diff --git a/gcc/ada/s-rident.ads b/gcc/ada/s-rident.ads index c28ba3c5a92..2c5ffb60832 100644 --- a/gcc/ada/s-rident.ads +++ b/gcc/ada/s-rident.ads @@ -282,7 +282,7 @@ package System.Rident is -- If an entry for a parameter restriction is True in Violated, the -- corresponding entry in the Unknown array may record additional -- information. If the actual count is not known by the compiler (but - -- is nown to be non-zero), then the entry in Unknown will be True. + -- is known to be non-zero), then the entry in Unknown will be True. -- This indicates that the value in Count is not known to be exact, -- and the actual violation count may be higher. diff --git a/gcc/ada/s-taprop-solaris.adb b/gcc/ada/s-taprop-solaris.adb index 2555eb8fee3..7792232fdd8 100644 --- a/gcc/ada/s-taprop-solaris.adb +++ b/gcc/ada/s-taprop-solaris.adb @@ -115,7 +115,7 @@ package body System.Task_Primitives.Operations is -- and priority handling. Using_Real_Time_Class : Boolean := False; - -- indicates whether the real time class is being used (i.e the process + -- indicates whether the real time class is being used (i.e. the process -- has root privileges). Prio_Param : aliased struct_pcparms; diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index 65cc80b24f7..d3c6739fb3d 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -1193,7 +1193,7 @@ package body System.Tasking.Stages is -- Terminate_Task -- -------------------- - -- Before we allow the thread to exit, we must clean up. This is a a + -- Before we allow the thread to exit, we must clean up. This is a -- delicate job. We must wake up the task's master, who may immediately try -- to deallocate the ATCB out from under the current task WHILE IT IS STILL -- EXECUTING. diff --git a/gcc/ada/s-win32.ads b/gcc/ada/s-win32.ads index 2d2648514b8..298984cb3b3 100644 --- a/gcc/ada/s-win32.ads +++ b/gcc/ada/s-win32.ads @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package plus its child provide the low level interface to the Win32 --- API. The core part of the Win32 API (commont to RTX and Win32) is in this +-- API. The core part of the Win32 API (common to RTX and Win32) is in this -- package, and an additional part of the Win32 API which is not supported by -- RTX is in package System.Win33.Ext. diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 5c7d9bd7dda..051a650f9c2 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -1937,7 +1937,7 @@ package body Sem_Aggr is end if; end if; - -- If no others, aggregate bounds come from aggegate + -- If no others, aggregate bounds come from aggregate Aggr_Low := Choices_Low; Aggr_High := Choices_High; diff --git a/gcc/ada/sem_attr.ads b/gcc/ada/sem_attr.ads index 30dda4304e1..126c358be9f 100644 --- a/gcc/ada/sem_attr.ads +++ b/gcc/ada/sem_attr.ads @@ -297,7 +297,7 @@ package Sem_Attr is -- is identical to the value that would be set if Initialize_Scalars -- mode were in effect (including the behavior of its value on -- environment variables or binder switches). The intended use is - -- to set a value where intialization is required (e.g. as a result of + -- to set a value where initialization is required (e.g. as a result of -- the coding standards in use), but logically no initialization is -- needed, and the value should never be accessed. diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 637e15351e5..540b2a6d85d 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -3969,7 +3969,7 @@ package body Sem_Ch10 is end loop; -- Now check incomplete declarations to locate Taft amendment - -- types. This can be done by examing the defining identifiers + -- types. This can be done by examining the defining identifiers -- of type declarations without real semantic analysis. declare diff --git a/gcc/ada/sem_ch13.ads b/gcc/ada/sem_ch13.ads index 427f836f6e7..e7c20bc8e12 100644 --- a/gcc/ada/sem_ch13.ads +++ b/gcc/ada/sem_ch13.ads @@ -122,7 +122,7 @@ package Sem_Ch13 is -- attributes, clearly should not be subject to the para 10 restrictions -- (see AI95-00137). Similarly, we also skip the para 10 restrictions for -- the Storage_Size case where they also clearly do not apply, and for - -- Stream_Convert which is in the same category as the strem attributes. + -- Stream_Convert which is in the same category as the stream attributes. -- -- If the rep item is too late, an appropriate message is output and -- True is returned, which is a signal that the caller should abandon diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 88ee0d55b18..103eb75fbe5 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -2308,7 +2308,7 @@ package body Sem_Ch3 is -- The current object is a discriminal generated for an entry -- family index. Even though the index is a constant, in this - -- particular context there is no true contant redeclaration. + -- particular context there is no true constant redeclaration. -- Enter_Name will handle the visibility. or else @@ -8153,7 +8153,7 @@ package body Sem_Ch3 is if Present (Alias_Subp) then -- Only perform the check for a derived subprogram when the - -- type has an explicit record extension. This avoids incorect + -- type has an explicit record extension. This avoids incorrect -- flagging of abstract subprograms for the case of a type -- without an extension that is derived from a formal type -- with a tagged actual (can occur within a private part). @@ -11798,7 +11798,7 @@ package body Sem_Ch3 is -- If we are creating a renaming for a primitive operation of an -- actual of a generic derived type, we must examine the signature - -- of the actual primive, not that of the generic formal, which for + -- of the actual primitive, not that of the generic formal, which for -- example may be an interface. However the name and initial value -- of the inherited operation are those of the formal primitive. diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 4d566d76b5f..fbac48cd1af 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -2020,7 +2020,7 @@ package body Sem_Ch6 is Process_PPCs (N, Spec_Id, Body_Id); - -- Add a declaration for the Protection objcect, renaming declarations + -- Add a declaration for the Protection object, renaming declarations -- for discriminals and privals and finally a declaration for the entry -- family index (if applicable). This form of early expansion is done -- when the Expander is active because Install_Private_Data_Declarations diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index ebeec699183..fe1bcb5f24f 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -1002,7 +1002,7 @@ package body Sem_Ch7 is -- is both unnecessary and wrong, because it would cause the -- clauses to be chained to themselves in the use clauses -- list of the scope stack entry. That in turn would cause - -- an endless loop from End_Use_Clauses upon sccope exit. + -- an endless loop from End_Use_Clauses upon scope exit. -- The parent is now fully visible. It may be a hidden open -- scope if we are currently compiling some child instance @@ -1383,7 +1383,7 @@ package body Sem_Ch7 is begin -- If the full view is a scalar type, the type is the anonymous -- base type, but the operation mentions the first subtype, so - -- check the signature againt the base type. + -- check the signature against the base type. if Base_Type (Etype (S)) = Base_Type (T) then return True; diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index da77f581327..2d4d7fe4635 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -4110,7 +4110,7 @@ package body Sem_Ch8 is -- If the renamed entity is a private protected component, -- reference the original component as well. This needs to be -- done because the private renamings are installed before any - -- analysis has occured. Reference to a private component will + -- analysis has occurred. Reference to a private component will -- resolve to the renaming and the original component will be -- left unreferenced, hence the following. diff --git a/gcc/ada/sem_ch9.adb b/gcc/ada/sem_ch9.adb index d9e7ff9ca5a..fe3634e8fe9 100644 --- a/gcc/ada/sem_ch9.adb +++ b/gcc/ada/sem_ch9.adb @@ -1113,7 +1113,7 @@ package body Sem_Ch9 is -- all itypes within are frozen. This ensures that no freeze nodes -- will be generated for them. -- - -- On the other hand, components of the correesponding record are + -- On the other hand, components of the corresponding record are -- frozen (or receive itype references) as for other records. -------------------- diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads index 1bb51150417..b5e843a62b0 100644 --- a/gcc/ada/sem_prag.ads +++ b/gcc/ada/sem_prag.ads @@ -51,7 +51,7 @@ package Sem_Prag is -- Precondition, and Postcondition to determine if Check pragmas (or -- corresponding Assert, Precondition, or Postcondition pragmas) are -- currently active, as determined by the presence of -gnata on the - -- command line (which sets the default), and the appearence of pragmas + -- command line (which sets the default), and the appearance of pragmas -- Check_Policy and Assertion_Policy as configuration pragmas either in -- a configuration pragma file, or at the start of the current unit. -- True is returned if the specified check is enabled. diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index cfa1a8cd0d7..39cd89514fb 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -396,7 +396,7 @@ package body Sem_Res is D : Node_Id; begin - -- Any use in a a spec-expression is legal + -- Any use in a spec-expression is legal if In_Spec_Expression then null; diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index fd797ca6079..1be22cf7df0 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -492,7 +492,7 @@ package body Sem_Util is if In_Spec_Expression then return Empty; - -- More commments for the rest of this body would be good ??? + -- More comments for the rest of this body would be good ??? elsif Nkind (N) = N_Explicit_Dereference then if Is_Composite_Type (T) diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index a5cb1db6694..a14d6a0149f 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -1089,7 +1089,7 @@ package Sem_Util is procedure Set_Optimize_Alignment_Flags (E : Entity_Id); pragma Inline (Set_Optimize_Alignment_Flags); - -- Sets Optimize_Aliignment_Space/Time flags in E from current settings + -- Sets Optimize_Alignment_Space/Time flags in E from current settings procedure Set_Public_Status (Id : Entity_Id); -- If an entity (visible or otherwise) is defined in a library diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index bcf4eb8a49b..4686a7ac096 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -1369,7 +1369,7 @@ package Sinfo is -- Next_Pragma (Node1-Sem) -- Present in N_Pragma nodes. Used to create a linked list of pragma - -- nodes. Curently used for two purposes: + -- nodes. Currently used for two purposes: -- -- Create a list of linked Check_Policy pragmas. The head of this list -- is stored in Opt.Check_Policy_List (which has further details). diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 7dc0bf003f4..4a48396aec7 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -5152,7 +5152,7 @@ package VMS_Data is "ALL_ON " & "--coupling-all " & "ALL_OFF " & - "--no-counling-all " & + "--no-coupling-all " & "PACKAGE_EFFERENT_ON " & "--package-efferent-coupling " & "PACKAGE_EFFERENT_OFF " & |