From 3354f96dac09a7c57641fd19083f3aefe0790a35 Mon Sep 17 00:00:00 2001 From: Ralf Wildenhues Date: Sun, 13 Apr 2008 18:03:09 +0000 Subject: [PATCH] sfn_scan.adb, [...]: Fix comment typos. gcc/ada/ * sfn_scan.adb, sfn_scan.ads, sinfo.ads, sinput-d.ads, sinput-l.adb, sinput-l.ads, sinput.ads, snames.ads, sprint.adb, stand.ads, stringt.ads, styleg.adb, styleg.ads, stylesw.adb, stylesw.ads, switch.ads, sysdep.c, table.adb, table.ads, targparm.ads, tb-gcc.c, tbuild.ads, tracebak.c, trans.c, tree_io.adb, treepr.adb, types.adb, types.ads, uintp.adb, uintp.ads, utils.c, utils2.c, validsw.ads, vms_conv.adb, vms_conv.ads, vms_data.ads, widechar.adb, widechar.ads, xeinfo.adb, xgnatugn.adb, xr_tabls.adb, xr_tabls.ads, xref_lib.adb, xref_lib.ads, xsinfo.adb: Fix comment typos. From-SVN: r134243 --- gcc/ada/ChangeLog | 13 ++++++++ gcc/ada/sfn_scan.adb | 6 ++-- gcc/ada/sfn_scan.ads | 8 ++--- gcc/ada/sinfo.ads | 78 ++++++++++++++++++++++---------------------- gcc/ada/sinput-d.ads | 4 +-- gcc/ada/sinput-l.adb | 6 ++-- gcc/ada/sinput-l.ads | 4 +-- gcc/ada/sinput.ads | 10 +++--- gcc/ada/snames.ads | 10 +++--- gcc/ada/sprint.adb | 8 ++--- gcc/ada/stand.ads | 4 +-- gcc/ada/stringt.ads | 4 +-- gcc/ada/styleg.adb | 6 ++-- gcc/ada/styleg.ads | 4 +-- gcc/ada/stylesw.adb | 2 +- gcc/ada/stylesw.ads | 6 ++-- gcc/ada/switch.ads | 4 +-- gcc/ada/sysdep.c | 4 +-- gcc/ada/table.adb | 6 ++-- gcc/ada/table.ads | 2 +- gcc/ada/targparm.ads | 6 ++-- gcc/ada/tb-gcc.c | 3 +- gcc/ada/tbuild.ads | 6 ++-- gcc/ada/tracebak.c | 3 +- gcc/ada/trans.c | 14 ++++---- gcc/ada/tree_io.adb | 4 +-- gcc/ada/treepr.adb | 4 +-- gcc/ada/types.adb | 6 ++-- gcc/ada/types.ads | 10 +++--- gcc/ada/uintp.adb | 12 +++---- gcc/ada/uintp.ads | 4 +-- gcc/ada/utils.c | 8 ++--- gcc/ada/utils2.c | 2 +- gcc/ada/validsw.ads | 8 ++--- gcc/ada/vms_conv.adb | 6 ++-- gcc/ada/vms_conv.ads | 6 ++-- gcc/ada/vms_data.ads | 58 ++++++++++++++++---------------- gcc/ada/widechar.adb | 2 +- gcc/ada/widechar.ads | 4 +-- gcc/ada/xeinfo.adb | 8 ++--- gcc/ada/xgnatugn.adb | 4 +-- gcc/ada/xr_tabls.adb | 8 ++--- gcc/ada/xr_tabls.ads | 8 ++--- gcc/ada/xref_lib.adb | 6 ++-- gcc/ada/xref_lib.ads | 4 +-- gcc/ada/xsinfo.adb | 4 +-- 46 files changed, 206 insertions(+), 191 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2cf7f0d3242..b6f61398b40 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,18 @@ 2008-04-13 Ralf Wildenhues + * sfn_scan.adb, sfn_scan.ads, sinfo.ads, + sinput-d.ads, sinput-l.adb, sinput-l.ads, sinput.ads, + snames.ads, sprint.adb, stand.ads, stringt.ads, + styleg.adb, styleg.ads, stylesw.adb, stylesw.ads, + switch.ads, sysdep.c, table.adb, table.ads, + targparm.ads, tb-gcc.c, tbuild.ads, tracebak.c, + trans.c, tree_io.adb, treepr.adb, types.adb, types.ads, + uintp.adb, uintp.ads, utils.c, utils2.c, validsw.ads, + vms_conv.adb, vms_conv.ads, vms_data.ads, widechar.adb, + widechar.ads, xeinfo.adb, xgnatugn.adb, xr_tabls.adb, + xr_tabls.ads, xref_lib.adb, xref_lib.ads, xsinfo.adb: + Fix comment typos. + * sem_ch10.adb, sem_ch10.ads, sem_ch12.adb, sem_ch12.ads, sem_ch13.adb, sem_ch13.ads, sem_ch3.adb, sem_ch4.adb, sem_ch5.adb, sem_ch6.adb, diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb index d3d3dd4904f..538fb5dde8e 100644 --- a/gcc/ada/sfn_scan.adb +++ b/gcc/ada/sfn_scan.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- 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- -- @@ -40,7 +40,7 @@ package body SFN_Scan is EOF : constant Character := ASCII.SUB; -- The character SUB (16#1A#) is used in DOS and other systems derived - -- from DOS (OS/2, NT etc) to signal the end of a text file. If this + -- from DOS (OS/2, NT etc.) to signal the end of a text file. If this -- character appears as the last character of a file scanned by a call -- to Scan_SFN_Pragmas, then it is ignored, otherwise it is treated as -- an illegal character. @@ -601,7 +601,7 @@ package body SFN_Scan is end if; end loop Skip_Loop; - -- We successfuly skipped to semicolon, so skip past it + -- We successfully skipped to semicolon, so skip past it P := P + 1; end if; diff --git a/gcc/ada/sfn_scan.ads b/gcc/ada/sfn_scan.ads index db086fa9f08..bc9cbcaa555 100644 --- a/gcc/ada/sfn_scan.ads +++ b/gcc/ada/sfn_scan.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- -- @@ -29,12 +29,12 @@ -- overhead of the full compiler scanner and parser. -- Note that neither the package spec, nor the package body, of this --- unit contains any with statements at all. This is a compeltely +-- unit contains any with statements at all. This is a completely -- independent package, suitable for incorporation into tools that do -- not access any other units in the GNAT compiler or tools sources. -- This package is NOT task safe, so multiple tasks that may call the --- Scan_SFN_Pragmas procedure at the same time are responsibible for +-- Scan_SFN_Pragmas procedure at the same time are responsible for -- avoiding such multiple calls by appropriate synchronization. package SFN_Scan is @@ -91,6 +91,6 @@ package SFN_Scan is -- that includes only pragmas and comments. It does not do a full -- syntax correctness scan by any means, but if it does find anything -- that it can tell is wrong it will immediately raise the exception - -- to indicate the aproximate location of the error + -- to indicate the approximate location of the error end SFN_Scan; diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index edbd4814a0f..bcf4eb8a49b 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -384,7 +384,7 @@ package Sinfo is -- In the following node definitions, all fields, both syntactic and -- semantic, are documented. The one exception is in the case of entities - -- (defining indentifiers, character literals and operator symbols), where + -- (defining identifiers, character literals and operator symbols), where -- the usage of the fields depends on the entity kind. Entity fields are -- fully documented in the separate package Einfo. @@ -525,7 +525,7 @@ package Sinfo is -- Present in N_Freeze_Entity nodes for Incomplete or private types. -- Contains the list of access types which may require specific treatment -- when the nature of the type completion is completely known. An example - -- of such treatement is the generation of the associated_final_chain. + -- of such treatment is the generation of the associated_final_chain. -- Actions (List1-Sem) -- This field contains a sequence of actions that are associated with the @@ -592,7 +592,7 @@ package Sinfo is -- that the associated object can be modified, even if this would not -- normally be permissible (either by direct assignment, or by being -- passed as an out or in-out parameter). This is used by the expander - -- for a number of purposes, including initialzation of constants and + -- for a number of purposes, including initialization of constants and -- limited type objects (such as tasks), setting discriminant fields, -- setting tag values, etc. N_Object_Declaration nodes also have this -- flag defined. Here it is used to indicate that an initialization @@ -747,7 +747,7 @@ package Sinfo is -- Corresponding_Stub (Node3-Sem) -- This field is present in an N_Subunit node. It holds the node in - -- the parent unit that is the stub declaration for the subunit. it is + -- the parent unit that is the stub declaration for the subunit. It is -- set when analysis of the stub forces loading of the proper body. If -- expansion of the proper body creates new declarative nodes, they are -- inserted at the point of the corresponding_stub. @@ -1142,7 +1142,7 @@ package Sinfo is -- Includes_Infinities (Flag11-Sem) -- This flag is present in N_Range nodes. It is set for the range of -- unconstrained float types defined in Standard, which include not only - -- the given range of values, but also legtitimately can include infinite + -- the given range of values, but also legitimately can include infinite -- values. This flag is false for any float type for which an explicit -- range is given by the programmer, even if that range is identical to -- the range for Float. @@ -1191,7 +1191,7 @@ package Sinfo is -- that the reference occurs within a discriminant check. The -- significance is that optimizations based on assuming that the -- discriminant check has a correct value cannot be performed in this - -- case (or the disriminant check may be optimized away!) + -- case (or the discriminant check may be optimized away!) -- Is_Machine_Number (Flag11-Sem) -- This flag is set in an N_Real_Literal node to indicate that the value @@ -1211,7 +1211,7 @@ package Sinfo is -- Is_Power_Of_2_For_Shift (Flag13-Sem) -- A flag present only in N_Op_Expon nodes. It is set when the - -- exponentiation is of the forma 2 ** N, where the type of N is an + -- exponentiation is of the form 2 ** N, where the type of N is an -- unsigned integral subtype whose size does not exceed the size of -- Standard_Integer (i.e. a type that can be safely converted to -- Natural), and the exponentiation appears as the right operand of an @@ -1223,7 +1223,7 @@ package Sinfo is -- Is_Protected_Subprogram_Body (Flag7-Sem) -- A flag set in a Subprogram_Body block to indicate that it is the - -- implemenation of a protected subprogram. Such a body needs cleanup + -- implementation of a protected subprogram. Such a body needs cleanup -- handler to make sure that the associated protected object is unlocked -- when the subprogram completes. @@ -1244,7 +1244,7 @@ package Sinfo is -- A flag set in a Block_Statement node to indicate that it is the -- expansion of a task allocator, or the allocator of an object -- containing tasks. Such a block requires a cleanup handler to call - -- Expunge_Unactivted_Tasks to complete any tasks that have been + -- Expunge_Unactivated_Tasks to complete any tasks that have been -- allocated but not activated when the allocator completes abnormally. -- Is_Task_Master (Flag5-Sem) @@ -1393,7 +1393,7 @@ package Sinfo is -- No_Ctrl_Actions (Flag7-Sem) -- Present in N_Assignment_Statement to indicate that no finalize nor nor - -- adjust should take place on this assignment eventhough the rhs is + -- adjust should take place on this assignment even though the rhs is -- controlled. This is used in init procs and aggregate expansions where -- the generated assignments are more initialisations than real -- assignments. @@ -1618,10 +1618,10 @@ package Sinfo is -- on fixed-point operands. It indicates that the operands are to be -- treated as integer values, ignoring small values. This flag is only -- set as a result of expansion of fixed-point operations. Typically a - -- fixed-point multplication in the source generates subsidiary + -- fixed-point multiplication in the source generates subsidiary -- multiplication and division operations that work with the underlying -- integer values and have this flag set. Note that this flag is not - -- needed on other arithmetic operations (add, neg, subtract etc) since + -- needed on other arithmetic operations (add, neg, subtract etc.) since -- in these cases it is always the case that fixed is treated as integer. -- The Etype field MUST be set if this flag is set. The analyzer knows to -- leave such nodes alone, and whoever makes them must set the correct @@ -1652,7 +1652,7 @@ package Sinfo is -- Zero_Cost_Handling (Flag5-Sem) -- This flag is set in all handled sequence of statement and exception - -- handler nodes if eceptions are to be handled using the zero-cost + -- handler nodes if exceptions are to be handled using the zero-cost -- mechanism (see Ada.Exceptions and System.Exceptions in files -- a-except.ads/adb and s-except.ads for full details). What gigi needs -- to do for such a handler is simply to put the code in the handler @@ -2143,7 +2143,7 @@ package Sinfo is -- the Expression may not have the form of an aggregate (since this -- might cause the back end to generate separate assignments). It -- also cannot be a reference to an object marked as a true constant - -- (Is_True_Constant flag set), where the object is itself initalized + -- (Is_True_Constant flag set), where the object is itself initialized -- with an aggregate. If necessary the front end must generate an -- extra temporary (with Is_True_Constant set False), and initialize -- this temporary as required (the temporary itself is not atomic). @@ -3113,7 +3113,7 @@ package Sinfo is -- limited types for which no stream routines exist officially. In such -- case, the result is to use the stream attribute for the underlying -- full type, or in the case of a protected type, the components - -- (including any disriminants) are merely streamed in order. + -- (including any discriminants) are merely streamed in order. -- See Exp_Attr for a complete description of which attributes are -- passed onto Gigi, and which are handled entirely by the front end. @@ -3265,9 +3265,9 @@ package Sinfo is -- node (which appears as a singleton list). Box_Present gives support -- to Ada 2005 (AI-287). - ----------------------------------- - -- 4.3.1 Commponent Choice List -- - ----------------------------------- + ---------------------------------- + -- 4.3.1 Cmmponent Choice List -- + ---------------------------------- -- COMPONENT_CHOICE_LIST ::= -- component_SELECTOR_NAME {| component_SELECTOR_NAME} @@ -3362,7 +3362,7 @@ package Sinfo is -- No nodes are generated for any of these constructs. Instead, the -- node for the operator appears directly. When we refer to an -- expression in this description, we mean any of the possible - -- consistuent components of an expression (e.g. identifier is + -- constituent components of an expression (e.g. identifier is -- an example of an expression). ------------------ @@ -3394,8 +3394,8 @@ package Sinfo is -- subexpression node (it is actually present in all nodes, but only -- used in subexpression nodes). This count records the number of -- levels of parentheses. If the number of levels in the source exceeds - -- the maximum accomodated by this count, then the count is simply left - -- at the maximum value. This means that there are some pathalogical + -- the maximum accommodated by this count, then the count is simply left + -- at the maximum value. This means that there are some pathological -- cases of failure to detect conformance failures (e.g. an expression -- with 500 levels of parens will conform with one with 501 levels), -- but we do not need to lose sleep over this. @@ -3732,7 +3732,7 @@ package Sinfo is -- Note: Although the parser will not accept a declaration as a -- statement, the semantic analyzer may insert declarations (e.g. -- declarations of implicit types needed for execution of other - -- statements) into a sequence of statements, so the code genmerator + -- statements) into a sequence of statements, so the code generator -- should be prepared to accept a declaration where a statement is -- expected. Note also that pragmas can appear as statements. @@ -3800,7 +3800,7 @@ package Sinfo is -- 5.1 Statement Identifier -- ------------------------------- - -- STATEMENT_INDENTIFIER ::= DIRECT_NAME + -- STATEMENT_IDENTIFIER ::= DIRECT_NAME -- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier -- (not an OPERATOR_SYMBOL) @@ -3831,7 +3831,7 @@ package Sinfo is -- the Expression may not have the form of an aggregate (since this -- might cause the back end to generate separate assignments). It -- also cannot be a reference to an object marked as a true constant - -- (Is_True_Constant flag set), where the object is itself initalized + -- (Is_True_Constant flag set), where the object is itself initialized -- with an aggregate. If necessary the front end must generate an -- extra temporary (with Is_True_Constant set False), and initialize -- this temporary as required (the temporary itself is not atomic). @@ -4704,7 +4704,7 @@ package Sinfo is -- TASK_TYPE_DECLARATION ::= -- task type DEFINING_IDENTIFIER [KNOWN_DISCRIMINANT_PART] - -- [is [new INTERFACE_LIST with] TASK_DEFINITITION]; + -- [is [new INTERFACE_LIST with] TASK_DEFINITION]; -- N_Task_Type_Declaration -- Sloc points to TASK @@ -4721,7 +4721,7 @@ package Sinfo is -- SINGLE_TASK_DECLARATION ::= -- task DEFINING_IDENTIFIER - -- [is [new INTERFACE_LIST with] TASK_DEFINITITION]; + -- [is [new INTERFACE_LIST with] TASK_DEFINITION]; -- N_Single_Task_Declaration -- Sloc points to TASK @@ -5110,7 +5110,7 @@ package Sinfo is -- GUARD ::= when CONDITION => -- As noted above, the CONDITION that is part of a GUARD is included - -- in the node for the select alernative for convenience. + -- in the node for the select alternative for convenience. ------------------------------- -- 9.7.1 Select Alternative -- @@ -5306,7 +5306,7 @@ package Sinfo is -- CONTEXT_CLAUSE LIBRARY_ITEM -- | CONTEXT_CLAUSE SUBUNIT - -- The N_Compilation_Unit node itself respresents the above syntax. + -- The N_Compilation_Unit node itself represents the above syntax. -- However, there are two additional items not reflected in the above -- syntax. First we have the global declarations that are added by the -- code generator. These are outer level declarations (so they cannot @@ -5368,17 +5368,17 @@ package Sinfo is -- the declaration or body, and the flag for private if present, -- appear in the N_Compilation_Unit clause. - ---------------------------------------- - -- 10.1.1 Library Unit Declararation -- - ---------------------------------------- + -------------------------------------- + -- 10.1.1 Library Unit Declaration -- + -------------------------------------- -- LIBRARY_UNIT_DECLARATION ::= -- SUBPROGRAM_DECLARATION | PACKAGE_DECLARATION -- | GENERIC_DECLARATION | GENERIC_INSTANTIATION - ------------------------------------------------- - -- 10.1.1 Library Unit Renaming Declararation -- - ------------------------------------------------- + ----------------------------------------------- + -- 10.1.1 Library Unit Renaming Declaration -- + ----------------------------------------------- -- LIBRARY_UNIT_RENAMING_DECLARATION ::= -- PACKAGE_RENAMING_DECLARATION @@ -5547,10 +5547,10 @@ package Sinfo is -- EXCEPTION_DECLARATION ::= DEFINING_IDENTIFIER_LIST : exception; - -- For consistency with object declarations etc, the parser converts + -- For consistency with object declarations etc., the parser converts -- the case of multiple identifiers being declared to a series of -- declarations in which the expression is copied, using the More_Ids - -- and Prev_Ids flags to remember the souce form as described in the + -- and Prev_Ids flags to remember the source form as described in the -- section on "Handling of Defining Identifier Lists". -- N_Exception_Declaration @@ -6604,7 +6604,7 @@ package Sinfo is -- the exception to be raised (i.e. it is equivalent to a raise -- statement that raises the corresponding exception). This use -- is distinguished by the fact that the Etype in this case is - -- Standard_Void_Type, In the subexprssion case, the Etype is the + -- Standard_Void_Type, In the subexpression case, the Etype is the -- same as the type of the subexpression which it replaces. -- If Condition is empty, then the raise is unconditional. If the @@ -6889,7 +6889,7 @@ package Sinfo is -- The following is the definition of the Node_Kind type. As previously -- discussed, this is separated off to allow rearrangement of the order - -- to facilitiate definition of subtype ranges. The comments show the + -- to facilitate definition of subtype ranges. The comments show the -- subtype classes which apply to each set of node kinds. The first -- entry in the comment characterizes the following list of nodes. @@ -9220,7 +9220,7 @@ package Sinfo is -- Node_Kind Membership Tests -- -------------------------------- - -- The following functions allow a convenient notation for testing wheter + -- The following functions allow a convenient notation for testing whether -- a Node_Kind value matches any one of a list of possible values. In each -- case True is returned if the given T argument is equal to any of the V -- arguments. Note that there is a similar set of functions defined in diff --git a/gcc/ada/sinput-d.ads b/gcc/ada/sinput-d.ads index 92a186e2890..138743347d2 100644 --- a/gcc/ada/sinput-d.ads +++ b/gcc/ada/sinput-d.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- 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- -- @@ -48,7 +48,7 @@ package Sinput.D is -- an end of line character). On entry Loc is the Sloc value previously -- returned by Create_Debug_Source or Write_Debug_Line, and on exit, -- Sloc is updated to point to the start of the next line to be written, - -- taking into account the length of the ternminator that was written by + -- taking into account the length of the terminator that was written by -- Write_Debug_Info. procedure Close_Debug_Source; diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index 79ad7f4043c..eee61f664e0 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -55,7 +55,7 @@ package body Sinput.L is -- When a file is to be preprocessed and the options to list symbols -- has been selected (switch -s), Prep.List_Symbols is called with a - -- "foreword", a single line indicationg what source the symbols apply to. + -- "foreword", a single line indicating what source the symbols apply to. -- The following two constant String are the start and the end of this -- foreword. @@ -581,7 +581,7 @@ package body Sinput.L is Source_File.Table (X).Source_Last := Hi; -- Reset Last_Line to 1, because the lines do not - -- have neccessarily the same starts and lengths. + -- have necessarily the same starts and lengths. Source_File.Table (X).Last_Source_Line := 1; end; diff --git a/gcc/ada/sinput-l.ads b/gcc/ada/sinput-l.ads index 270da597474..a72237bab47 100644 --- a/gcc/ada/sinput-l.ads +++ b/gcc/ada/sinput-l.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -94,7 +94,7 @@ package Sinput.L is -- Inst_Node is the instantiation node, and Template_Id is the defining -- identifier of the generic declaration or body unit as appropriate. -- A is set to an adjustment factor to be used in subsequent calls to - -- Adjust_Instantiation_Sloc. The instantiation mechnaism is also used + -- Adjust_Instantiation_Sloc. The instantiation mechanism is also used -- for inlined function and procedure calls. The parameter Inlined_Body -- is set to True in such cases, and False for a generic instantiation. -- This is used for generating error messages that distinguish these diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 90c54f5efb7..6d3144092cf 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -60,7 +60,7 @@ -- reasonable to include this case for consistency. In addition, we recognize -- any of these sequences in any of the operating systems, for better -- behavior in treating foreign files (e.g. a Unix file with LF terminators --- transferred to a DOS system). Finally, wide character codes in cagtegories +-- transferred to a DOS system). Finally, wide character codes in categories -- Separator, Line and Separator, Paragraph are considered to be physical -- line terminators. @@ -162,7 +162,7 @@ package Sinput is -- Note: fields marked read-only are set by Sinput or one of its child -- packages when a source file table entry is created, and cannot be - -- subsqently modified, or alternatively are set only by very special + -- subsequently modified, or alternatively are set only by very special -- circumstances, documented in the comments. -- File_Name : File_Name_Type (read-only) @@ -236,7 +236,7 @@ package Sinput is -- later on in this spec for a description of the checksum algorithm. -- Last_Source_Line : Physical_Line_Number; - -- Physical line number of last source line. Whlie a file is being + -- Physical line number of last source line. While a file is being -- read, this refers to the last line scanned. Once a file has been -- completely scanned, it is the number of the last line in the file, -- and hence also gives the number of source lines in the file. @@ -517,7 +517,7 @@ package Sinput is function Num_Source_Lines (S : Source_File_Index) return Nat; -- Returns the number of source lines (this is equivalent to reading - -- the value of Last_Source_Line, but returns Nat rathern than a + -- the value of Last_Source_Line, but returns Nat rather than a -- physical line number. procedure Register_Source_Ref_Pragma @@ -703,7 +703,7 @@ private Sloc_Adjust : Source_Ptr; -- A value to be added to Sloc values for this file to reference the -- corresponding lines table. This is zero for the non-instantiation - -- case, and set so that the adition references the ultimate template + -- case, and set so that the addition references the ultimate template -- for the instantiation case. See Sinput-L for further details. Lines_Table : Lines_Table_Ptr; diff --git a/gcc/ada/snames.ads b/gcc/ada/snames.ads index 696603a1429..4d2a11ecb3e 100644 --- a/gcc/ada/snames.ads +++ b/gcc/ada/snames.ads @@ -566,7 +566,7 @@ package Snames is -- The following names are preset as synonyms for C Name_Default : constant Name_Id := N + 295; - -- Name_Exernal (previously defined as pragma) + -- Name_External (previously defined as pragma) -- The following names are preset as synonyms for CPP @@ -960,7 +960,7 @@ package Snames is -- Names of intrinsic subprograms -- Note: Asm is missing from this list, since Asm is a legitimate - -- convention name. So is To_Adress, which is a GNAT attribute. + -- convention name. So is To_Address, which is a GNAT attribute. First_Intrinsic_Name : constant Name_Id := N + 603; Name_Divide : constant Name_Id := N + 603; @@ -1347,7 +1347,7 @@ package Snames is -- Note: Convention C_Pass_By_Copy is allowed only for record -- types (where it is treated like C except that the appropriate - -- flag is set in the record type). Recognizion of this convention + -- flag is set in the record type). Recognizing this convention -- is specially handled in Sem_Prag. for Convention_Id'Size use 8; @@ -1597,7 +1597,7 @@ package Snames is -- Test to see if the name N is the name of a recognized attribute -- that designates a renameable function, and can therefore appear in -- a renaming statement. Note that not all attributes designating - -- functions are renamable, in particular, thos returning a universal + -- functions are renamable, in particular, those returning a universal -- value cannot be renamed. function Is_Type_Attribute_Name (N : Name_Id) return Boolean; @@ -1655,7 +1655,7 @@ package Snames is -- or one previously given in a call to Record_Convention_Identifier. function Get_Convention_Name (C : Convention_Id) return Name_Id; - -- Returns the name of language convention correspoding to given + -- Returns the name of language convention corresponding to given -- convention id. function Get_Locking_Policy_Id (N : Name_Id) return Locking_Policy_Id; diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index c00eca4b29f..2ead1c33019 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -230,7 +230,7 @@ package body Sprint is -- then output all source lines up to this matching line. procedure Write_Discr_Specs (N : Node_Id); - -- Ouput discriminant specification for node, which is any of the type + -- Output discriminant specification for node, which is any of the type -- declarations that can have discriminants. procedure Write_Ekind (E : Entity_Id); @@ -269,7 +269,7 @@ package body Sprint is function Write_Indent_Identifiers_Sloc (Node : Node_Id) return Boolean; -- Like Write_Indent_Identifiers except that in Debug_Generated_Code - -- mode, the Sloc of the current debug node is set to point ot the + -- mode, the Sloc of the current debug node is set to point to the -- first output identifier. procedure Write_Indent_Str (S : String); @@ -328,7 +328,7 @@ package body Sprint is -- initial Write_Indent (to get new line) if current line is too full. procedure Write_Str_With_Col_Check_Sloc (S : String); - -- Like Write_Str_WIth_Col_Check, but sets debug Sloc of current debug + -- Like Write_Str_With_Col_Check, but sets debug Sloc of current debug -- node to first non-blank character if a current debug node is active. procedure Write_Uint_With_Col_Check (U : Uint; Format : UI_Format); @@ -1041,7 +1041,7 @@ package body Sprint is Indent_End; -- Note: let the printing of Abortable_Part handle outputting - -- the ABORT keyword, so that the Slco can be set correctly. + -- the ABORT keyword, so that the Sloc can be set correctly. Write_Indent_Str ("then "); Sprint_Node (Abortable_Part (Node)); diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads index 964ff192d31..62d5ee5f925 100644 --- a/gcc/ada/stand.ads +++ b/gcc/ada/stand.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -364,7 +364,7 @@ package Stand is Any_Type : Entity_Id; -- Used to represent some unknown type. Plays an important role in - -- avoiding cascaded errors, since any node that remains labaled with + -- avoiding cascaded errors, since any node that remains labeled with -- this type corresponds to an already issued error message. Any_Type -- is propagated to avoid cascaded errors from a single type error. diff --git a/gcc/ada/stringt.ads b/gcc/ada/stringt.ads index fb974e4e9d2..b4e9c261839 100644 --- a/gcc/ada/stringt.ads +++ b/gcc/ada/stringt.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -75,7 +75,7 @@ package Stringt is -- new string is initialized to be a copy of the given string. A test is -- made to see if S is the last created string, and if so it is shared, -- rather than copied, this can be particularly helpful for the case of - -- a continued concatenaion of string constants. + -- a continued concatenation of string constants. procedure Store_String_Char (C : Char_Code); procedure Store_String_Char (C : Character); diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb index faa516cdfe1..f22c828c673 100644 --- a/gcc/ada/styleg.adb +++ b/gcc/ada/styleg.adb @@ -279,7 +279,7 @@ package body Styleg is -- Determines if C is a special character (see rule 5 above) function Same_Column_As_Next_Non_Blank_Line return Boolean; - -- Called for a full line comment. If the indentation of this commment + -- Called for a full line comment. If the indentation of this comment -- matches that of the next non-blank line in the source, then True is -- returned, otherwise False. @@ -517,7 +517,7 @@ package body Styleg is -- In check indentation mode (-gnatyn for n a digit), a new statement or -- declaration is required to start in a column that is a multiple of the - -- indentiation amount. + -- indentation amount. procedure Check_Indentation is begin @@ -853,7 +853,7 @@ package body Styleg is -- Check_Unary_Plus_Or_Minus -- ------------------------------- - -- In check tokem mode (-gnatyt), unary plus or minus must not be + -- In check token mode (-gnatyt), unary plus or minus must not be -- followed by a space. procedure Check_Unary_Plus_Or_Minus is diff --git a/gcc/ada/styleg.ads b/gcc/ada/styleg.ads index 9ca7aa57212..ac883b6bbde 100644 --- a/gcc/ada/styleg.ads +++ b/gcc/ada/styleg.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -136,7 +136,7 @@ package Styleg is pragma Inline (Check_Separate_Stmt_Lines); -- Called after scanning THEN (not preceded by AND) or ELSE (not preceded -- by OR). Used to check that no tokens follow on the same line (which - -- would intefere with coverage testing). Handles case of THEN ABORT as + -- would interfere with coverage testing). Handles case of THEN ABORT as -- an exception, as well as PRAGMA after ELSE. procedure Check_Unary_Plus_Or_Minus; diff --git a/gcc/ada/stylesw.adb b/gcc/ada/stylesw.adb index a037528c0bc..34688df9c32 100644 --- a/gcc/ada/stylesw.adb +++ b/gcc/ada/stylesw.adb @@ -206,7 +206,7 @@ package body Stylesw is -- Concatenates image of N at end of Style_Msg_Buf procedure Bad_Style_Switch (Msg : String); - -- Called if bad style switch found. Msg is mset in Style_Msg_Buf and + -- Called if bad style switch found. Msg is set in Style_Msg_Buf and -- Style_Msg_Len. OK is set False. ------------- diff --git a/gcc/ada/stylesw.ads b/gcc/ada/stylesw.ads index 27c92d5fd2b..87552d35bc6 100644 --- a/gcc/ada/stylesw.ads +++ b/gcc/ada/stylesw.ads @@ -77,7 +77,7 @@ package Stylesw is -- For a comment that is not at the start of a line, the only requirement -- is that a space follow the comment characters. -- - -- For a coment that is at the start of the line, one of the following + -- For a comment that is at the start of the line, one of the following -- conditions must hold: -- -- The comment characters are the only non-blank characters on the line @@ -142,7 +142,7 @@ package Stylesw is -- indicated indentation value. A value of zero turns off checking. The -- requirement is that any new statement, line comment, declaration or -- keyword such as END, start on a column that is a multiple of the - -- indentiation value. + -- indentation value. Style_Check_Keyword_Casing : Boolean := False; -- This can be set True by using the -gnatg or -gnatyk switches. If it is @@ -299,7 +299,7 @@ package Stylesw is procedure Set_Style_Check_Options (Options : String); -- Like the above procedure, but used when the Options string is known to - -- be valid. This is for example appopriate for calls where the string == + -- be valid. This is for example appropriate for calls where the string == -- was obtained by Save_Style_Check_Options. procedure Reset_Style_Check_Options; diff --git a/gcc/ada/switch.ads b/gcc/ada/switch.ads index e4ccc93f40a..029d8cf1eb3 100644 --- a/gcc/ada/switch.ads +++ b/gcc/ada/switch.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -24,7 +24,7 @@ ------------------------------------------------------------------------------ -- This package together with a child package appropriate to the client tool --- scans switches. Note that the body of the appropraite Usage package must be +-- scans switches. Note that the body of the appropriate Usage package must be -- coordinated with the switches that are recognized by this package. These -- Usage packages also act as the official documentation for the switches -- that are recognized. In addition, package Debug documents the otherwise diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c index f0394aaab92..a8f24cd71e5 100644 --- a/gcc/ada/sysdep.c +++ b/gcc/ada/sysdep.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2007, Free Software Foundation, Inc. * + * Copyright (C) 1992-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- * @@ -711,7 +711,7 @@ get_gmtoff (void) long __gnat_invalid_tzoff = 259273; -/* Definition of __gnat_locatime_r used by a-calend.adb */ +/* Definition of __gnat_localtime_r used by a-calend.adb */ #if defined (__EMX__) || defined (__MINGW32__) diff --git a/gcc/ada/table.adb b/gcc/ada/table.adb index db64c4cf956..88395c1624d 100644 --- a/gcc/ada/table.adb +++ b/gcc/ada/table.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -295,7 +295,7 @@ package body Table is -- 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. @@ -307,7 +307,7 @@ package body 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/table.ads b/gcc/ada/table.ads index ff6926f145f..6b243222cd4 100644 --- a/gcc/ada/table.ads +++ b/gcc/ada/table.ads @@ -89,7 +89,7 @@ package Table is -- chunks controlled by the allocation parameters). -- Note: We do not make the table components aliased, since this would - -- restict the use of table for discriminated types. If it is necessary + -- restrict the use of table for discriminated types. If it is necessary -- to take the access of a table element, use Unrestricted_Access. -- WARNING: On HPPA, the virtual addressing approach used in this unit diff --git a/gcc/ada/targparm.ads b/gcc/ada/targparm.ads index 1197d6393c2..c40d6d81adc 100644 --- a/gcc/ada/targparm.ads +++ b/gcc/ada/targparm.ads @@ -72,10 +72,10 @@ -- 3. Identification information. This is an optional string constant -- that gives the name of the run-time library configuration. This --- line may be ommitted for a version of system.ads to be used with +-- line may be omitted for a version of system.ads to be used with -- the full Ada 95 run time. --- 4. Other characterisitics of package System. At the current time the +-- 4. Other characteristics of package System. At the current time the -- only item in this category is whether type Address is private. with Rident; use Rident; @@ -258,7 +258,7 @@ package Targparm is -- The generation of the setjmp and longjmp calls is handled by -- the front end of the compiler (this includes gigi in the case -- of the standard GCC back end). It does not use any back end - -- suport (such as the GCC3 exception handling mechanism). When + -- support (such as the GCC3 exception handling mechanism). When -- this approach is used, the compiler generates special exception -- handlers for handling cleanups when an exception is raised. diff --git a/gcc/ada/tb-gcc.c b/gcc/ada/tb-gcc.c index 8ea77ee279f..d0b12c79f14 100644 --- a/gcc/ada/tb-gcc.c +++ b/gcc/ada/tb-gcc.c @@ -7,6 +7,7 @@ * C Implementation File * * * * Copyright (C) 2004-2007, AdaCore * + * Copyright (C) 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- * @@ -37,7 +38,7 @@ #include /* The implementation boils down to a call to _Unwind_Backtrace with a - tailored callback and carried-on datastructure to keep track of the + tailored callback and carried-on data structure to keep track of the input parameters we got as well as of the basic processing state. */ /****************** diff --git a/gcc/ada/tbuild.ads b/gcc/ada/tbuild.ads index 17be6272f7a..14028630021 100644 --- a/gcc/ada/tbuild.ads +++ b/gcc/ada/tbuild.ads @@ -57,7 +57,7 @@ package Tbuild is pragma Inline (Discard_List); -- This is a dummy procedure that simply returns and does nothing. It is -- used when a function returning a Node_Id value is called for its side - -- effect (e.g. a call to the pareser to parse a list of compilation + -- effect (e.g. a call to the parser to parse a list of compilation -- units), but the List_Id value is not required. function Make_Byte_Aligned_Attribute_Reference @@ -103,7 +103,7 @@ package Tbuild is (Loc : Source_Ptr; Defining_Identifier : Node_Id; Label_Construct : Node_Id) return Node_Id; - -- Used to contruct an implicit label declaration node, including setting + -- Used to construct an implicit label declaration node, including setting -- the proper Label_Construct field (since Label_Construct is a semantic -- field, the normal call to Make_Implicit_Label_Declaration does not -- set this field). @@ -203,7 +203,7 @@ package Tbuild is -- Prefix is prepended only if Prefix is non-blank (in which case it -- must be an upper case letter other than O,Q,U,W (which are used for -- identifier encoding, see Namet), and T is reserved for use by implicit - -- types. and X is reserved for use by debug type encoding (see package + -- types, and X is reserved for use by debug type encoding (see package -- Exp_Dbug). Note: the reason that Prefix is last is that it is almost -- always omitted. The notable case of Prefix being non-null is when -- it is 'T' for an implicit type. diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c index 659dad24342..65c1828badd 100644 --- a/gcc/ada/tracebak.c +++ b/gcc/ada/tracebak.c @@ -7,6 +7,7 @@ * C Implementation File * * * * Copyright (C) 2000-2007, AdaCore * + * Copyright (C) 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- * @@ -147,7 +148,7 @@ extern void (*Unlock_Task) (void); of a call instruction), which is what we want in the output array, and the associated return address, which is what we retrieve from the stack. - o STOP_FRAME, to decide wether we reached the top of the call chain, and + o STOP_FRAME, to decide whether we reached the top of the call chain, and thus if the process shall stop. : diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 4dc5202f17c..b00f5c3af05 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -553,7 +553,7 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p) required if this is a static expression because it might be used in a context where a dereference is inappropriate, such as a case statement alternative or a record discriminant. There is no possible - volatile-ness shortciruit here since Volatile constants must be imported + volatile-ness short-circuit here since Volatile constants must be imported per C.6. */ if (Ekind (gnat_temp) == E_Constant && Is_Scalar_Type (gnat_temp_type) && !Is_Imported (gnat_temp) @@ -566,7 +566,7 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p) if (use_constant_initializer) { - /* If this is a deferred constant, the initializer is attached to the + /* If this is a deferred constant, the initializer is attached to the full view. */ if (Present (Full_View (gnat_temp))) gnat_temp = Full_View (gnat_temp); @@ -2417,7 +2417,7 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target) { /* Conceptually, what we need is a COMPOUND_EXPR with the call followed by the target object converted to the proper type. Doing so would - potentially be very inefficient, however, as this expresssion might + potentially be very inefficient, however, as this expression might end up wrapped into an outer SAVE_EXPR later on, which would incur a pointless temporary copy of the whole object. @@ -3099,7 +3099,7 @@ gnat_to_gnu (Node_Id gnat_node) elaboration procedure, so mark us as being in that procedure and push our context. - If we are in the elaboration procedure, check if we are violating a a + If we are in the elaboration procedure, check if we are violating a No_Elaboration_Code restriction by having a statement there. */ if ((IN (Nkind (gnat_node), N_Statement_Other_Than_Procedure_Call) && Nkind (gnat_node) != N_Null_Statement) @@ -4715,7 +4715,7 @@ gnat_to_gnu (Node_Id gnat_node) } /* If the object was allocated from the default storage pool, the - alignement was greater than what the allocator provides, and this + alignment was greater than what the allocator provides, and this is not a fat or thin pointer, what we have in gnu_ptr here is an address dynamically adjusted to match the alignment requirement (see build_allocator). What we need to pass to free is the @@ -5842,7 +5842,7 @@ emit_range_check (tree gnu_expr, Entity_Id gnat_range_type) /* There's no good type to use here, so we might as well use integer_type_node. Note that the form of the check is (not (expr >= lo)) or (not (expr <= hi)) - the reason for this slightly convoluted form is that NaN's + the reason for this slightly convoluted form is that NaNs are not considered to be in range in the float case. */ return emit_check (build_binary_op (TRUTH_ORIF_EXPR, integer_type_node, @@ -5864,7 +5864,7 @@ emit_range_check (tree gnu_expr, Entity_Id gnat_range_type) against which GNU_EXPR has to be checked. Note that for index checking we cannot use the emit_range_check function (although very similar code needs to be generated in both cases) since for index - checking the array type against which we are checking the indeces + checking the array type against which we are checking the indices may be unconstrained and consequently we need to retrieve the actual index bounds from the array object itself (GNU_ARRAY_OBJECT). The place where we need to do that is in diff --git a/gcc/ada/tree_io.adb b/gcc/ada/tree_io.adb index b62fb8e2bb2..699808d1067 100644 --- a/gcc/ada/tree_io.adb +++ b/gcc/ada/tree_io.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -107,7 +107,7 @@ package body Tree_IO is ----------------------- procedure Read_Buffer; - -- Reads data into buffer, setting Bufe appropriately + -- Reads data into buffer, setting Bufn appropriately function Read_Byte return Byte; pragma Inline (Read_Byte); diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index 972e9a3da56..a25cfae44fa 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -1654,7 +1654,7 @@ package body Treepr is No_Indent : Boolean := False); -- This procedure tests the given value of one of the Fields referenced -- by the current node to determine whether to visit it recursively. - -- Normally No_Indent is false, which means tha the visited node will + -- Normally No_Indent is false, which means that the visited node will -- be indented using New_Prefix. If No_Indent is set to True, then -- this indentation is skipped, and Prefix_Str is used for the call -- to print the descendent. No_Indent is effective only if the diff --git a/gcc/ada/types.adb b/gcc/ada/types.adb index 978b4121fa0..d6ca613bcbe 100644 --- a/gcc/ada/types.adb +++ b/gcc/ada/types.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -83,8 +83,8 @@ package body Types is -- Note that we do not bother to worry about shifts in the day. -- It seems unlikely that such shifts could ever occur in practice - -- and even if they do we err on the safe side, ie we say that the time - -- stamps are different. + -- and even if they do we err on the safe side, i.e., we say that the + -- time stamps are different. Sright := V (Right, 13) + 60 * (V (Right, 11) + 60 * V (Right, 09)); Sleft := V (Left, 13) + 60 * (V (Left, 11) + 60 * V (Left, 09)); diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index dcaec5f4221..9b4bfb825e4 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -212,7 +212,7 @@ package Types is subtype Source_Ptr is Text_Ptr; -- Type used to represent a source location, which is a subscript of a - -- character in the source buffer. As noted above, diffferent source + -- character in the source buffer. As noted above, different source -- buffers have different ranges, so it is possible to tell from a -- Source_Ptr value which source it refers to. Note that negative numbers -- are allowed to accommodate the following special values. @@ -435,7 +435,7 @@ package Types is No_List : constant List_Id := List_High_Bound; -- Used to indicate absence of a list. Note that the value is zero, which - -- is the same as Empty, which is helpful in intializing nodes where a + -- is the same as Empty, which is helpful in initializing nodes where a -- value of zero can represent either an empty node or an empty list. Error_List : constant List_Id := List_Low_Bound; @@ -460,7 +460,7 @@ package Types is -- Type used to identify an element list (Elist header table subscript) No_Elist : constant Elist_Id := Elist_Low_Bound; - -- Used to indicate absense of an element list. Note that this is not + -- Used to indicate absence of an element list. Note that this is not -- an actual Elist header, so element list operations on this value -- are not valid. @@ -509,7 +509,7 @@ package Types is -- Each character literal in the source is interpreted as being one of the -- 16#8000_0000 possible Wide_Wide_Character codes, and a unique Integer -- Value is assigned, corresponding to the UTF_32 value, which also - -- correspondds to the POS value in the Wide_Wide_Character type, and also + -- corresponds to the POS value in the Wide_Wide_Character type, and also -- corresponds to the POS value in the Wide_Character and Character types -- for values that are in appropriate range. String literals are similarly -- interpreted as a sequence of such codes. @@ -615,7 +615,7 @@ package Types is Dummy_Time_Stamp : constant Time_Stamp_Type := (others => '0'); -- This is used for dummy time stamp values used in the D lines for - -- non-existant files, and is intended to be an impossible value. + -- non-existent files, and is intended to be an impossible value. function "=" (Left, Right : Time_Stamp_Type) return Boolean; function "<=" (Left, Right : Time_Stamp_Type) return Boolean; diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index 86a3187fd74..ffc636771d1 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -72,7 +72,7 @@ package body Uintp is Udigits_Min : Int; -- These values are used to make sure that the mark/release mechanism does -- not destroy values saved in the U_Power tables or in the hash table used - -- by UI_From_Int. Whenever an entry is made in either of these tabls, + -- by UI_From_Int. Whenever an entry is made in either of these tables, -- Uints_Min and Udigits_Min are updated to protect the entry, and Release -- never cuts back beyond these minimum values. @@ -142,7 +142,7 @@ package body Uintp is -- is less than 2**15, the value returned is the input value, in this case -- the result may be negative. It is expected that any use will mask off -- unnecessary bits. This is used for finding Arg mod B where B is a power - -- of two. Hence the actual base is irrelevent as long as it is a power of + -- of two. Hence the actual base is irrelevant as long as it is a power of -- two. procedure Most_Sig_2_Digits @@ -172,7 +172,7 @@ package body Uintp is Remainder : out Uint; Discard_Quotient : Boolean; Discard_Remainder : Boolean); - -- Compute euclidian division of Left by Right, and return Quotient and + -- Compute Euclidean division of Left by Right, and return Quotient and -- signed Remainder (Left rem Right). -- -- If Discard_Quotient is True, Quotient is left unchanged. @@ -750,7 +750,7 @@ package body Uintp is -- This is done in one pass - -- Mathematically: assume base congruent to 1 and compute an equivelent + -- Mathematically: assume base congruent to 1 and compute an equivalent -- integer to Left. -- If Sign = -1 return the alternating sum of the "digits" @@ -759,7 +759,7 @@ package body Uintp is -- (where D1 is Least Significant Digit) - -- Mathematically: assume base congruent to -1 and compute an equivelent + -- Mathematically: assume base congruent to -1 and compute an equivalent -- integer to Left. -- This is used in Rem and Base is assumed to be 2 ** 15 @@ -2742,7 +2742,7 @@ package body Uintp is -- The value is outside the direct representation range and must -- therefore be stored in the table. Expand the table to contain - -- the count and tigis. The index of the new table entry will be + -- the count and digits. The index of the new table entry will be -- returned as the result. Uints.Increment_Last; diff --git a/gcc/ada/uintp.ads b/gcc/ada/uintp.ads index e689cf84127..7454c70ca51 100644 --- a/gcc/ada/uintp.ads +++ b/gcc/ada/uintp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -233,7 +233,7 @@ package Uintp is function UI_Modular_Inverse (N : Uint; Modulo : Uint) return Uint; -- Compute the multiplicative inverse of N in modular arithmetics with the -- given Modulo (uses Euclid's algorithm). Note: the call is considered - -- to be erroneous (and the behavior is undefined) if n is not inversible. + -- to be erroneous (and the behavior is undefined) if n is not invertible. function UI_From_Dint (Input : Dint) return Uint; -- Converts Dint value to universal integer form diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 01aa7522b03..96a85586433 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -1469,7 +1469,7 @@ create_var_decl_1 (tree var_name, tree asm_name, tree type, tree var_init, var_name, type); /* If this is external, throw away any initializations (they will be done - elsewhere) unless this is a a constant for which we would like to remain + elsewhere) unless this is a constant for which we would like to remain able to get the initializer. If we are defining a global here, leave a constant initialization and save any variable elaborations for the elaboration routine. If we are just annotating types, throw away the @@ -2082,7 +2082,7 @@ gnat_genericize_r (tree *stmt_p, int *walk_subtrees, void *data) return NULL; } - /* Otherwise, no need to walk the the same tree twice. */ + /* Otherwise, no need to walk the same tree twice. */ if (pointer_set_contains (p_set, stmt)) { *walk_subtrees = 0; @@ -2214,7 +2214,7 @@ end_subprog_body (tree body) if (type_annotate_only) return; - /* Perform the required pre-gimplfication transformations on the tree. */ + /* Perform the required pre-gimplification transformations on the tree. */ gnat_genericize (fndecl); /* We do different things for nested and non-nested functions. @@ -3231,7 +3231,7 @@ update_pointer_to (tree old_type, tree new_type) qualifiers than the new_type ones, for instance in some cases of pointers to private record type elaboration (see the comments around the call to this routine from gnat_to_gnu_entity/E_Access_Type). We have to merge the - qualifiers in thoses cases too, to avoid accidentally discarding the + qualifiers in those cases too, to avoid accidentally discarding the initial set, and will often end up with old_type == new_type then. */ new_type = build_qualified_type (new_type, TYPE_QUALS (old_type) diff --git a/gcc/ada/utils2.c b/gcc/ada/utils2.c index a380d4498bc..3c6cb0074eb 100644 --- a/gcc/ada/utils2.c +++ b/gcc/ada/utils2.c @@ -143,7 +143,7 @@ known_alignment (tree exp) both type and expression information in this case. Beware that we can still get a dummy designated subtype here (e.g. Taft - Amendement types), in which the alignment information is meaningless and + Amendment types), in which the alignment information is meaningless and should be ignored. We always compute a type_alignment value and return the MAX of it diff --git a/gcc/ada/validsw.ads b/gcc/ada/validsw.ads index dde1a59d231..f24bc878272 100644 --- a/gcc/ada/validsw.ads +++ b/gcc/ada/validsw.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- 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- -- @@ -73,14 +73,14 @@ package Validsw is -- Controls the validity checking of IN OUT parameters. If this switch -- is set to True using -gnatVm or a 'm' in the argument of a pragma -- Validity_Checks, then the initial value of all IN OUT parameters - -- will be checked at the point of call of a procecure. Note that the + -- will be checked at the point of call of a procedure. Note that the -- character 'm' here stands for modified (parameters). Validity_Check_In_Params : Boolean := False; -- Controls the validity checking of IN parameters. If this switch is -- set to True using -gnatVm or an 'i' in the argument of a pragma -- Validity_Checks, then the initial value of all IN parameters - -- will be checked at the point of call of a procecure or function. + -- will be checked at the point of call of a procedure or function. Validity_Check_Operands : Boolean := False; -- Controls validity checking of operands. If this switch is set to @@ -145,7 +145,7 @@ package Validsw is procedure Set_Validity_Check_Options (Options : String); -- Like the above procedure, except that the call is simply ignored if - -- there are any error conditions, this is for example appopriate for + -- there are any error conditions, this is for example appropriate for -- calls where the string is known to be valid, e.g. because it was -- obtained by Save_Validity_Check_Options. diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb index 41a07d021a4..4b4e61a155b 100644 --- a/gcc/ada/vms_conv.adb +++ b/gcc/ada/vms_conv.adb @@ -44,7 +44,7 @@ package body VMS_Conv is -- kept in a more conveniently accessible form described in this -- section. - -- Commands, command qualifers and options have a similar common format + -- Commands, command qualifiers and options have a similar common format -- so that searching for matching names can be done in a common manner. type Item_Id is (Id_Command, Id_Switch, Id_Option); @@ -274,7 +274,7 @@ package body VMS_Conv is procedure Place_Unix_Switches (S : VMS_Data.String_Ptr); -- Given a unix switch string, place corresponding switches in Buffer, - -- updating Ptr appropriatelly. Note that in the case of use of ! the + -- updating Ptr appropriately. Note that in the case of use of ! the -- result may be to remove a previously placed switch. procedure Preprocess_Command_Data; @@ -2020,7 +2020,7 @@ package body VMS_Conv is -- end of the Argv, otherwise strings like -- "foo/bar" get split at the slash. - -- The begining and ending of the string + -- The beginning and ending of the string -- are flagged with embedded nulls which -- are removed when building the Spawn -- call. Nulls are use because they won't diff --git a/gcc/ada/vms_conv.ads b/gcc/ada/vms_conv.ads index 666cd3a2fad..965bb372d48 100644 --- a/gcc/ada/vms_conv.ads +++ b/gcc/ada/vms_conv.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2003-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-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- -- @@ -65,7 +65,7 @@ package VMS_Conv is -- GNATCmd. The entries are represented by an array of records. type Parameter_Type is - -- A parameter is defined as a whitespace bounded string, not begining + -- A parameter is defined as a whitespace bounded string, not beginning -- with a slash. (But see note under FILES_OR_WILDCARD). (File, -- A required file or directory parameter @@ -81,7 +81,7 @@ package VMS_Conv is -- parameters including wildcard specifications. Unlimited_As_Is, - -- Un unlimited number of whitespace separated paameters that are + -- An unlimited number of whitespace separated parameters that are -- passed through as is (not canonicalized). Files_Or_Wildcard); diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index f77f2615a52..7dc0bf003f4 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -56,7 +56,7 @@ -- - a contiguous sequence of comments that constitute the -- documentation of the qualifier. --- - each command zone ends with the declaration of the contant array +-- - each command zone ends with the declaration of the constant array -- for the command, of the form: -- __Switches : aliased constant Switches := @@ -67,7 +67,7 @@ package VMS_Data is -- QUALIFIERS -- ---------------- - -- The syntax of a qualifier delaration is as follows: + -- The syntax of a qualifier declaration is as follows: -- SWITCH_STRING ::= "/ command-qualifier-name TRANSLATION" @@ -109,7 +109,7 @@ package VMS_Data is -- The unix-switch-string always starts with a minus, and has no commas -- or spaces in it. Case is significant in the unix switch string. If a -- unix switch string is preceded by the not sign (!) it means that the - -- effect of the corresponding command qualifer is to remove any previous + -- effect of the corresponding command qualifier is to remove any previous -- occurrence of the given switch in the command line. -- The DIRECTORIES_TRANSLATION format is used where a list of directories @@ -149,7 +149,7 @@ package VMS_Data is -- The COMMANDS_TRANSLATION case is only used for gnatmake, to correspond -- to the use of -cargs, -bargs and -largs (the ARGS string as indicated -- is one of these three possibilities). The name given by COMMAND is the - -- corresponding command name to be used to interprete the switches to be + -- corresponding command name to be used to interpret the switches to be -- passed on. Switches of this type set modes, e.g. /COMPILER_QUALIFIERS -- sets the mode so that all subsequent switches, up to another switch -- with COMMANDS_TRANSLATION apply to the corresponding commands issued @@ -162,7 +162,7 @@ package VMS_Data is -- since all subsequent switches apply to an issued command. -- For the DIRECT_TRANSLATION case, an implicit additional qualifier - -- declaration is created by prepending NO to the name of the qualifer, + -- declaration is created by prepending NO to the name of the qualifier, -- and then inverting the sense of the UNIX_SWITCHES string. For example, -- given the qualifier definition: @@ -182,7 +182,7 @@ package VMS_Data is -- String pointer type used throughout type Switches is array (Natural range <>) of String_Ptr; - -- Type used for array of swtiches + -- Type used for array of switches type Switches_Ptr is access constant Switches; @@ -513,7 +513,7 @@ package VMS_Data is -- /NORESTRICTION_LIST (D) -- /RESTRICTION_LIST -- - -- Generate list of pragma Rerstrictions that could be applied to the + -- Generate list of pragma Restrictions that could be applied to the -- current unit. This is useful for code audit purposes, and also may be -- used to improve code generation in some cases. @@ -526,7 +526,7 @@ package VMS_Data is -- /RETURN_CODES=VMS -- -- Specifies the style of default exit code returned. Must be used in - -- conjunction with and match the Link qualifer with same name. + -- conjunction with and match the Link qualifier with same name. -- -- POSIX (D) Return Posix success (0) by default. -- @@ -772,7 +772,7 @@ package VMS_Data is -- /NOLOCS (D) -- /LOCS -- - -- Use full source locations referebces in the report file. + -- Use full source locations references in the report file. S_Check_Mess : aliased constant S := "/MESSAGES_PROJECT_FILE=" & "DEFAULT " & @@ -821,7 +821,7 @@ package VMS_Data is -- /SECTIONS[=section-option, section-option, ...] -- -- Specify what sections should be included into the report file. - -- By default, all three section (diagnises in the format correcponding + -- By default, all three section (diagnoses in the format corresponding -- to compiler error and warning messages, diagnoses grouped by rules and -- then - by files, diagnoses grouped by files and then - by rules) are -- included in the report file. @@ -829,7 +829,7 @@ package VMS_Data is -- section-option may be one of the following: -- -- COMPILER_STYLE Include diagnostics in compile-style format - -- (diagoses are grouped by files, for each file + -- (diagnoses are grouped by files, for each file -- they are ordered according to the references -- into the source) -- BY_RULES Include diagnostics grouped first by rules and @@ -1072,7 +1072,7 @@ package VMS_Data is -- -- Causes the file modification time stamp of the input file to be -- preserved and used for the time stamp of the output file(s). This may - -- be useful for preserving coherency of time stamps in an enviroment + -- be useful for preserving coherency of time stamps in an environment -- where gnatchop is used as part of a standard build process. S_Chop_Quiet : aliased constant S := "/QUIET " & @@ -1253,7 +1253,7 @@ package VMS_Data is -- /NOQUIET (D) -- /QUIET -- - -- Quiet output. If there are no error, do not ouuput anything, except in + -- Quiet output. If there are no error, do not output anything, except in -- verbose mode (qualifier /VERBOSE) or in informative-only mode -- (qualifier /NODELETE). @@ -1661,7 +1661,7 @@ package VMS_Data is -- forces generation of the .ALI file. This file is marked as being -- in error, so it cannot be used for binding purposes, but it does -- contain reasonably complete cross-reference information, and thus may - -- be useful for use by tools (e.g. semantic browing tools or integrated + -- be useful for use by tools (e.g. semantic browsing tools or integrated -- development environments) that are driven from the .ALI file. S_GCC_Full : aliased constant S := "/FULL_PATH_IN_BRIEF_MESSAGES " & @@ -2404,7 +2404,7 @@ package VMS_Data is -- allows proper processing of the output -- generated by specialized tools including -- gnatprep (where --! is used) and the SPARK - -- annnotation language (where --# is used). + -- annotation language (where --# is used). -- For the purposes of this rule, a special -- character is defined as being in one of the -- ASCII ranges 16#21#..16#2F# or @@ -3211,7 +3211,7 @@ package VMS_Data is -- -- NOREDUNDANT Suppress warnings for redundant constructs. -- - -- SUPPRESS Completely suppresse the output of all warning + -- SUPPRESS Completely suppress the output of all warning -- messages. Same as /NOWARNINGS. -- -- UNCHECKED_CONVERSIONS Activates warnings on unchecked conversions. @@ -3323,7 +3323,7 @@ package VMS_Data is -- of lower case. -- -- NONE No wide characters are allowed. Same - -- as /NOWIDE_CHARCTER_ENCODING. + -- as /NOWIDE_CHARACTER_ENCODING. -- -- HEX In this encoding, a wide character is represented by -- the following five character sequence: ESC a b c d @@ -3363,7 +3363,7 @@ package VMS_Data is -- 16#0800#-16#ffff#: 2#1110xxxx# 2#10xxxxxx# 2#10xxxxxx# -- -- where the xxx bits correspond to the left-padded bits - -- of the the 16-bit character value. Note that all lower + -- of the 16-bit character value. Note that all lower -- half ASCII characters are represented as ASCII bytes -- and all upper half characters and other wide characters -- are represented as sequences of upper-half (The full @@ -3982,7 +3982,7 @@ package VMS_Data is S_Link_Library : aliased constant S := "/LIBRARY=|" & "-l|"; - -- /LYBRARY=xyz + -- /LIBRARY=xyz -- -- Link with library named "xyz". @@ -4046,7 +4046,7 @@ package VMS_Data is -- -- Specifies the style of codes returned by -- Ada.Command_Line.Set_Exit_Status. Must be used in conjunction with - -- and match the Bind qualifer with the same name. + -- and match the Bind qualifier with the same name. -- -- POSIX (D) Return Posix compatible exit codes. -- @@ -4081,7 +4081,7 @@ package VMS_Data is "--for-linker="; -- / -- - -- Any other switch that will be transmited to the underlying linker. + -- Any other switch that will be transmitted to the underlying linker. Link_Switches : aliased constant Switches := (S_Link_Add 'Access, @@ -4424,7 +4424,7 @@ package VMS_Data is -- a Unix-style Makefile. By default, each source file is prefixed with -- its (relative or absolute) directory name. This name is whatever you -- specified in the various /SOURCE_SEARCH and /SEARCH qualifiers. If - -- you also speficy the /QUIET qualifier, only the source file names, + -- you also specify the /QUIET qualifier, only the source file names, -- without relative paths, are output. If you just specify the -- /DEPENDENCY_LIST qualifier, dependencies of the GNAT internal system -- files are omitted. This is typically what you want. If you also @@ -4486,7 +4486,7 @@ package VMS_Data is -- -- Force recompilations. Recompile all sources, even though some object -- files may be up to date, but don't recompile predefined or GNAT - -- internal files unless the /ALL_FILES qualfier is also specified. + -- internal files unless the /ALL_FILES qualifier is also specified. S_Make_Full : aliased constant S := "/FULL_PATH_IN_BRIEF_MESSAGES " & "-F"; @@ -4674,7 +4674,7 @@ package VMS_Data is -- /NOPROCESSES (D) -- /PROCESSES=NNN -- - -- Use NNN processes to carry out the (re)complations. If you have a + -- Use NNN processes to carry out the (re)compilations. If you have a -- multiprocessor machine, compilations will occur in parallel. In the -- event of compilation errors, messages from various compilations might -- get interspersed (but GNAT MAKE will give you the full ordered list of @@ -5138,7 +5138,7 @@ package VMS_Data is -- CYCLOMATIC_OFF Do not compute the McCabe Cyclomatic -- Complexity -- ESSENTIAL_ON Compute the Essential Complexity - -- ESSENTIAL_OFF Do not ompute the Essential Complexity + -- ESSENTIAL_OFF Do not compute the Essential Complexity -- LOOP_NESTIMG_ON Compute the maximal loop nesting -- LOOP_NESTIMG_OFF Do not compute the maximal loop nesting -- AVERAGE_COMPLEXITY_ON Compute the average complexity for @@ -5393,7 +5393,7 @@ package VMS_Data is -- -- Create or update a project file. 'file_name' may include directory -- information. The specified file must be writable. There may be only - -- one qualifier /PROJECT_FILE. When a qualifier /PROJECT_DILE is + -- one qualifier /PROJECT_FILE. When a qualifier /PROJECT_FILE is -- specified, no qualifier /CONFIG_FILE may be specified. S_Name_Subdirs : aliased constant S := "/SUBDIRS=<" & @@ -5770,7 +5770,7 @@ package VMS_Data is -- -- Specifies the form of the line terminators in the produced source. -- By default, the form of the line terminator depends on the platforms. - -- On Unix and VMS, it is a Line Feed (LF) chararcter. On Windows (DOS), + -- On Unix and VMS, it is a Line Feed (LF) character. On Windows (DOS), -- It is a Carriage Return (CR) followed by a Line Feed. -- The Options DOS and CRLF are equivalent. The options UNIX and LF are -- also equivalent. @@ -5825,7 +5825,7 @@ package VMS_Data is "-W8"; -- /RESULT_ENCODING[=encoding-type] -- - -- Specify the wide character encoding method used when writtimg the + -- Specify the wide character encoding method used when writing the -- reformatted code in the result file. 'encoding-type' is one of the -- following: -- @@ -6487,7 +6487,7 @@ package VMS_Data is -- -- (nnn is a non-negative integer). Set the indentation level in the -- generated body stub to nnn. nnn=0 means "no indentation". - -- Default insdentation is 3. + -- Default indentation is 3. S_Stub_Keep : aliased constant S := "/KEEP " & "-k"; diff --git a/gcc/ada/widechar.adb b/gcc/ada/widechar.adb index e51681dd4e3..861df119739 100644 --- a/gcc/ada/widechar.adb +++ b/gcc/ada/widechar.adb @@ -126,7 +126,7 @@ package body Widechar is begin Chr := In_Char; - -- Scan out the wide character. if the first character is a bracket, + -- Scan out the wide character. If the first character is a bracket, -- we allow brackets encoding regardless of the standard encoding -- method being used, but otherwise we use this standard method. diff --git a/gcc/ada/widechar.ads b/gcc/ada/widechar.ads index 8686f81890b..e9a756e3f0c 100644 --- a/gcc/ada/widechar.ads +++ b/gcc/ada/widechar.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -43,7 +43,7 @@ package Widechar is Wide_Char_Byte_Count : Nat := 0; -- This value is incremented whenever Scan_Wide or Skip_Wide is called. -- The amount added is the length of the wide character sequence minus - -- one. This means that the count that accululates here represents the + -- one. This means that the count that accumulates here represents the -- difference between the length in characters and the length in bytes. -- This is used for checking the line length in characters. diff --git a/gcc/ada/xeinfo.adb b/gcc/ada/xeinfo.adb index b451d0b94b5..feb542988c4 100644 --- a/gcc/ada/xeinfo.adb +++ b/gcc/ada/xeinfo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -380,7 +380,7 @@ begin while Match (Line, Get_FN) loop - -- Non-inlined funcion + -- Non-inlined function if not Present (Inlined, FN) then Put_Line (Ofile, ""); @@ -439,7 +439,7 @@ begin Line := Getlin; exit when not Match (Line, Get_Asrt); - -- Pragma asser found, get its continuation lines + -- Pragma assert found, get its continuation lines loop exit when Match (Line, Semicoln); @@ -452,7 +452,7 @@ begin Match (Line, Get_Cmnt, M); Replace (M, A); - -- Get continuations of return statemnt + -- Get continuations of return statement while not Match (Line, Semicoln) loop Nextlin := Getlin; diff --git a/gcc/ada/xgnatugn.adb b/gcc/ada/xgnatugn.adb index f3f37e2de3c..3c45fde12cb 100644 --- a/gcc/ada/xgnatugn.adb +++ b/gcc/ada/xgnatugn.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-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- -- @@ -64,7 +64,7 @@ -- appropriate vms equivalents. Note that replacements do not occur -- within ^alpha^beta^ sequences. --- Any occurence of [filename].extension, where extension one of the +-- Any occurrence of [filename].extension, where extension one of the -- following: -- "o", "ads", "adb", "ali", "ada", "atb", "ats", "adc", "c" diff --git a/gcc/ada/xr_tabls.adb b/gcc/ada/xr_tabls.adb index 3456bac9c2b..82b2e7d0382 100644 --- a/gcc/ada/xr_tabls.adb +++ b/gcc/ada/xr_tabls.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -49,7 +49,7 @@ package body Xr_Tabls is function Get_Key (E : File_Reference) return Cst_String_Access; function Hash (F : Cst_String_Access) return HTable_Headers; function Equal (F1, F2 : Cst_String_Access) return Boolean; - -- The five subprograms above are used to instanciate the static + -- The five subprograms above are used to instantiate the static -- htable to store the files that should be processed. package File_HTable is new GNAT.HTable.Static_HTable @@ -81,7 +81,7 @@ package body Xr_Tabls is function Next (E : Declaration_Reference) return Declaration_Reference; procedure Set_Next (E, Next : Declaration_Reference); function Get_Key (E : Declaration_Reference) return Cst_String_Access; - -- The subprograms above are used to instanciate the static + -- The subprograms above are used to instantiate the static -- htable to store the entities that have been found in the application package Entities_HTable is new GNAT.HTable.Static_HTable @@ -1389,7 +1389,7 @@ package body Xr_Tabls is File_Ref.Visited := False; -- ??? Do not add a source file to the list. This is true at - -- least for gnatxref, and probably for gnatfind as wel + -- least for gnatxref, and probably for gnatfind as well if F'Length > 4 and then F (F'Last - 3 .. F'Last) = ".ali" diff --git a/gcc/ada/xr_tabls.ads b/gcc/ada/xr_tabls.ads index 55fb8241fa5..d5e9c5ee67c 100644 --- a/gcc/ada/xr_tabls.ads +++ b/gcc/ada/xr_tabls.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -140,7 +140,7 @@ package Xr_Tabls is (Sorted : Boolean := True) return Declaration_Array_Access; -- Return a sorted list of all the declarations in the application. - -- Freeing this array is the responsability of the caller, however it + -- Freeing this array is the responsibility of the caller, however it -- shouldn't free the actual contents of the array, which are pointers -- to internal data @@ -274,7 +274,7 @@ package Xr_Tabls is procedure Reset_Directory (File : File_Reference); -- Reset the cached directory for file. Next time Get_File is called, the - -- directory willl be recomputed. + -- directory will be recomputed. procedure Set_Unvisited (File_Ref : File_Reference); -- Set File_Ref as unvisited. So Next_Unvisited_File will return it @@ -282,7 +282,7 @@ package Xr_Tabls is procedure Read_File (File_Name : String; Contents : out GNAT.OS_Lib.String_Access); - -- Reads File_Name into the newly allocated strig Contents. Types.EOF + -- Reads File_Name into the newly allocated string Contents. Types.EOF -- character will be added to the returned Contents to simplify parsing. -- Name_Error is raised if the file was not found. End_Error is raised if -- the file could not be read correctly. For most systems correct reading diff --git a/gcc/ada/xref_lib.adb b/gcc/ada/xref_lib.adb index 7f22dce6f89..af9abd7199c 100644 --- a/gcc/ada/xref_lib.adb +++ b/gcc/ada/xref_lib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -109,7 +109,7 @@ package body Xref_Lib is (Source : not null access String; Ptr : in out Positive; Number : out Natural); - -- Skips any separators and parses Source upto the first character that + -- Skips any separators and parses Source up to the first character that -- is not a decimal digit. Returns value of parsed digits or 0 if none. procedure Parse_X_Filename (File : in out ALI_File); @@ -808,7 +808,7 @@ package body Xref_Lib is exit when Ali (Ptr) = EOF; end loop; - -- We were not able to find the symbol, this should not happend but + -- We were not able to find the symbol, this should not happen but -- since we don't want to stop here we return a string of three -- question marks as the symbol name. diff --git a/gcc/ada/xref_lib.ads b/gcc/ada/xref_lib.ads index 8fd38a68782..e0db3fdb700 100644 --- a/gcc/ada/xref_lib.ads +++ b/gcc/ada/xref_lib.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-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- -- @@ -115,7 +115,7 @@ package Xref_Lib is -- If Der_Info is true, then the derived type information will be -- processed. -- - -- If Type_Tree is true, then the type hierarchy wil be searched + -- If Type_Tree is true, then the type hierarchy will be searched -- going from the pattern to the parent type. procedure Search_Xref diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb index 786f4e39d45..691e9016b69 100644 --- a/gcc/ada/xsinfo.adb +++ b/gcc/ada/xsinfo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-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- -- @@ -37,7 +37,7 @@ -- Note: this program assumes that sinfo.ads has passed the error checks -- which are carried out by the CSinfo utility, so it does not duplicate --- these checks and assumes the soruce is correct. +-- these checks and assumes the source is correct. -- An optional argument allows the specification of an output file name to -- override the default sinfo.h file name for the generated output file. -- 2.30.2