diff options
44 files changed, 113 insertions, 100 deletions
diff --git a/gcc/ada/86numaux.adb b/gcc/ada/86numaux.adb index f6e1f4c7686..779e63711ce 100644 --- a/gcc/ada/86numaux.adb +++ b/gcc/ada/86numaux.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Machine Version for x86) -- -- -- --- $Revision: 1.15 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1998-2000 Free Software Foundation, Inc. -- -- -- @@ -49,7 +49,7 @@ package body Ada.Numerics.Aux is for FPU_Stack_Pointer'Size use 3; type FPU_Status_Word is record - B : Boolean; -- FPU Busy (for 8087 compatability only) + B : Boolean; -- FPU Busy (for 8087 compatibility only) ES : Boolean; -- Error Summary Status SF : Boolean; -- Stack Fault diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5da42cabd9c..b3670c0cbf0 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,16 @@ +2001-10-28 Joseph S. Myers <jsm28@cam.ac.uk> + + * 86numaux.adb, a-tigeau.ads, a-wtgeau.ads, decl.c, exp_ch6.adb, + exp_ch9.adb, exp_util.adb, fname-sf.ads, freeze.ads, g-awk.adb, + g-comlin.ads, g-dirope.adb, g-dyntab.ads, g-socket.ads, + g-table.ads, g-traceb.ads, gnat-style.texi, gnatchop.adb, init.c, + layout.adb, layout.ads, mdllfile.ads, mlib-fil.ads, osint.ads, + s-fatgen.adb, s-imgrea.adb, s-taprop.ads, s-tasdeb.ads, + sem_aggr.adb, sem_attr.adb, sem_case.ads, sem_ch13.adb, + sem_ch3.adb, sem_elab.adb, sem_maps.ads, sem_res.adb, + sem_util.ads, sinfo.ads, sinput.ads, table.adb, table.ads, + types.ads, urealp.adb: Fix spelling errors. + 2001-10-27 Laurent Guerby <guerby@acm.org> * trans.c (gigi): Fix non determinism leading to bootstrap diff --git a/gcc/ada/a-tigeau.ads b/gcc/ada/a-tigeau.ads index dabc6361734..cec0e2cf766 100644 --- a/gcc/ada/a-tigeau.ads +++ b/gcc/ada/a-tigeau.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.13 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- @@ -68,7 +68,7 @@ private package Ada.Text_IO.Generic_Aux is procedure Check_On_One_Line (File : File_Type; Length : Integer); -- Check to see if item of length Integer characters can fit on -- current line. Call New_Line if not, first checking that the - -- line length can accomodate Length characters, raise Layout_Error + -- line length can accommodate Length characters, raise Layout_Error -- if item is too large for a single line. function Getc (File : File_Type) return Integer; diff --git a/gcc/ada/a-wtgeau.ads b/gcc/ada/a-wtgeau.ads index ed03d521517..1571b373bd6 100644 --- a/gcc/ada/a-wtgeau.ads +++ b/gcc/ada/a-wtgeau.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- -- -- @@ -74,7 +74,7 @@ package Ada.Wide_Text_IO.Generic_Aux is procedure Check_On_One_Line (File : File_Type; Length : Integer); -- Check to see if item of length Integer characters can fit on -- current line. Call New_Line if not, first checking that the - -- line length can accomodate Length characters, raise Layout_Error + -- line length can accommodate Length characters, raise Layout_Error -- if item is too large for a single line. function Is_Blank (C : Character) return Boolean; diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 254d6d906a9..aca20c0b69c 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision$ + * $Revision: 1.5 $ * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * @@ -3395,7 +3395,7 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition) returns_by_ref, Function_Returns_With_DSP (gnat_entity)); - /* ??? For now, don't consider nested fuctions pure. */ + /* ??? For now, don't consider nested functions pure. */ if (! global_bindings_p ()) pure_flag = 0; diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index e15328519cb..493a8c11854 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.343 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -887,7 +887,7 @@ package body Exp_Ch6 is -- Deal with access types where the actual subtpe and the -- formal subtype are not the same, requiring a check. - -- It is neccessary to exclude tagged types because of "downward + -- It is necessary to exclude tagged types because of "downward -- conversion" errors and a strange assertion error in namet -- from gnatf in bug 1215-001 ??? diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 31b5d124e63..8e45b4387c5 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.438 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -8534,7 +8534,7 @@ package body Exp_Ch9 is procedure Traverse is new Traverse_Proc; - -- Start of processsing for Update_Prival_Subtypes + -- Start of processing for Update_Prival_Subtypes begin Traverse (N); diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index a83d561d51c..52c19989150 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -1072,12 +1072,12 @@ package body Exp_Util is -- Val : T := Expr; -- -- <elsif Expr is an entity_name> - -- Val : T (contraints taken from Expr) := Expr; + -- Val : T (constraints taken from Expr) := Expr; -- -- <else> -- type Axxx is access all T; -- Rval : Axxx := Expr'ref; - -- Val : T (contraints taken from Rval) := Rval.all; + -- Val : T (constraints taken from Rval) := Rval.all; -- ??? note: when the Expression is allocated in the secondary stack -- we could use it directly instead of copying it by declaring diff --git a/gcc/ada/fname-sf.ads b/gcc/ada/fname-sf.ads index c401045be8c..0f180edb7db 100644 --- a/gcc/ada/fname-sf.ads +++ b/gcc/ada/fname-sf.ads @@ -39,7 +39,7 @@ -- from tools that do not want to include the compiler front end. -- Note that this unit does depend on several of the compiler front-end --- sources, including osint. If it is necesary to scan source file name +-- sources, including osint. If it is necessary to scan source file name -- pragmas with less dependence on such sources, look at unit SFN_Scan. package Fname.SF is diff --git a/gcc/ada/freeze.ads b/gcc/ada/freeze.ads index f782a5ced1d..9f24a6892fb 100644 --- a/gcc/ada/freeze.ads +++ b/gcc/ada/freeze.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.14 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- @@ -102,7 +102,7 @@ package Freeze is -- These have a delayed freeze. Gigi will generate code to evaluate -- the initialization expression if present and store it in a temp. -- The actual object is created at the point of the freeze, and if - -- neccessary initialized by copying the value of this temporary. + -- necessary initialized by copying the value of this temporary. -- Formal Parameters -- diff --git a/gcc/ada/g-awk.adb b/gcc/ada/g-awk.adb index 7811caec00b..654e11c494c 100644 --- a/gcc/ada/g-awk.adb +++ b/gcc/ada/g-awk.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.10 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- @@ -662,7 +662,7 @@ package body GNAT.AWK is Results : Boolean := False; begin - -- Iterate throught the filters table, if pattern match call action. + -- Iterate through the filters table, if pattern match call action. for F in 1 .. Pattern_Action_Table.Last (Filters) loop if Patterns.Match (Filters.Table (F).Pattern.all, Session) then diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads index dedaefe8819..f1ee5c4a603 100644 --- a/gcc/ada/g-comlin.ads +++ b/gcc/ada/g-comlin.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.24 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- @@ -227,7 +227,7 @@ package GNAT.Command_Line is -- Returns parameter associated with the last switch returned by Getopt. -- If no parameter was associated with the last switch, or no previous -- call has been made to Get_Argument, raises Invalid_Parameter. - -- If the last switch was associated with an optionnal argument and this + -- If the last switch was associated with an optional argument and this -- argument was not found on the command line, Parameter returns an empty -- string diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb index afa996c56b2..677f5c4527a 100644 --- a/gcc/ada/g-dirope.adb +++ b/gcc/ada/g-dirope.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- @@ -228,7 +228,7 @@ package body GNAT.Directory_Operations is procedure Var (K : in out Positive); -- Translate variable name starting at position K with the associated - -- environement value. + -- environment value. procedure Free is new Unchecked_Deallocation (String, OS_Lib.String_Access); @@ -304,7 +304,7 @@ package body GNAT.Directory_Operations is if Path (E) = '}' then - -- OK found, translate with environement value + -- OK found, translate with environment value declare Env : OS_Lib.String_Access := diff --git a/gcc/ada/g-dyntab.ads b/gcc/ada/g-dyntab.ads index 65a25e75884..246e36addbb 100644 --- a/gcc/ada/g-dyntab.ads +++ b/gcc/ada/g-dyntab.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.11 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- @@ -142,7 +142,7 @@ package GNAT.Dynamic_Tables is procedure Set_Last (T : in out Instance; New_Val : Table_Index_Type); pragma Inline (Set_Last); -- This procedure sets Last to the indicated value. If necessary the - -- table is reallocated to accomodate the new value (i.e. on return + -- table is reallocated to accommodate the new value (i.e. on return -- the allocated table has an upper bound of at least Last). If -- Set_Last reduces the size of the table, then logically entries are -- removed from the table. If Set_Last increases the size of the diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index e43ce857e99..4837ecef966 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.22 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- @@ -48,7 +48,7 @@ package GNAT.Sockets is -- Sockets are designed to provide a consistent communication -- facility between applications. This package provides an -- Ada-like interface similar to the one proposed as part of the - -- BSD socket layer. This is a system independant thick binding. + -- BSD socket layer. This is a system independent thick binding. -- Here is a typical example of what you can do. -- with GNAT.Sockets; use GNAT.Sockets; @@ -771,7 +771,7 @@ package GNAT.Sockets is -- Return True if Socket is present in Item -- C select() waits for a number of file descriptors to change - -- status. Usually, three independant sets of descriptors are + -- status. Usually, three independent sets of descriptors are -- watched (read, write and exception). A timeout gives an upper -- bound on the amount of time elapsed before select returns. -- This function blocks until an event occurs. On some platforms, diff --git a/gcc/ada/g-table.ads b/gcc/ada/g-table.ads index 2ddd0b08d70..6074509636d 100644 --- a/gcc/ada/g-table.ads +++ b/gcc/ada/g-table.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.12 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- @@ -148,7 +148,7 @@ pragma Elaborate_Body (Table); procedure Set_Last (New_Val : Table_Index_Type); pragma Inline (Set_Last); -- This procedure sets Last to the indicated value. If necessary the - -- table is reallocated to accomodate the new value (i.e. on return + -- table is reallocated to accommodate the new value (i.e. on return -- the allocated table has an upper bound of at least Last). If Set_Last -- reduces the size of the table, then logically entries are removed -- from the table. If Set_Last increases the size of the table, then diff --git a/gcc/ada/g-traceb.ads b/gcc/ada/g-traceb.ads index 5f7a6ec1540..40106111076 100644 --- a/gcc/ada/g-traceb.ads +++ b/gcc/ada/g-traceb.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.11 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1999-2000 Ada Core Technologies, Inc. -- -- -- @@ -45,7 +45,7 @@ -- To analyze the code locations later using addr2line or gdb, the necessary -- units must be compiled with the debugging switch -g in the usual manner. --- Note that it is not necesary to compile with -g to use Call_Chain. In +-- Note that it is not necessary to compile with -g to use Call_Chain. In -- other words, the following sequence of steps can be used: -- Compile without -g diff --git a/gcc/ada/gnat-style.texi b/gcc/ada/gnat-style.texi index c6f09279571..def4d03e5d7 100644 --- a/gcc/ada/gnat-style.texi +++ b/gcc/ada/gnat-style.texi @@ -366,7 +366,7 @@ a follows: @noindent The "elsif", "else" and "end if" always line up with the "if" keyword. The -prefered location for splitting the line is before "and" or "or". The +preferred location for splitting the line is before "and" or "or". The continuation of a condition is indented with two spaces or as many as needed to make nesting clear. As exception, if conditions are closely related either of the following is diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index acb644460f8..6d444c1fb82 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.44 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- @@ -596,7 +596,7 @@ procedure Gnatchop is -- Call Gnat on the source filename argument with special options -- to generate offset information. If this special compilation completes - -- succesfully then we can do the actual gnatchop operation. + -- successfully then we can do the actual gnatchop operation. Spawn (Gnat_Cmd.all, Gnat_Args.all & Chop_Name, Success); diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 4b808165b90..d20c9cbad97 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -4,7 +4,7 @@ * * * I N I T * * * - * $Revision$ + * $Revision: 1.2 $ * * * C Implementation File * * * @@ -344,7 +344,7 @@ __gnat_error_handler (sig, sip, context) } else { - /* See if the page before the faulting page is accessable. Do that + /* See if the page before the faulting page is accessible. Do that by trying to access it. We'd like to simply try to access 4096 + the faulting address, but it's not guaranteed to be the actual address, just to be on the same page. */ @@ -703,7 +703,7 @@ __gnat_error_handler (info) } else { - /* See if the page before the faulting page is accessable. Do that + /* See if the page before the faulting page is accessible. Do that by trying to access it. */ recurse++; * ((volatile char *) (info->ExceptionRecord->ExceptionInformation[1] @@ -1126,7 +1126,7 @@ __gnat_error_handler (sig, sip) } else { - /* See if the page before the faulting page is accessable. Do that + /* See if the page before the faulting page is accessible. Do that by trying to access it. We'd like to simply try to access 4096 + the faulting address, but it's not guaranteed to be the actual address, just to be on the same page. */ diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index 2ac451768a6..5778ea9814f 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.33 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- @@ -2042,7 +2042,7 @@ package body Layout is -- For access types, set size/alignment. This is system address -- size, except for fat pointers (unconstrained array access types), - -- where the size is two times the address size, to accomodate the + -- where the size is two times the address size, to accommodate the -- two pointers that are required for a fat pointer (data and -- template). Note that E_Access_Protected_Subprogram_Type is not -- an access type for this purpose since it is not a pointer but is @@ -2072,7 +2072,7 @@ package body Layout is -- For other access types, we use either address size, or, if -- a fat pointer is used (pointer-to-unconstrained array case), - -- twice the address size to accomodate a fat pointer. + -- twice the address size to accommodate a fat pointer. else declare diff --git a/gcc/ada/layout.ads b/gcc/ada/layout.ads index 277ef5c0994..af547f738f5 100644 --- a/gcc/ada/layout.ads +++ b/gcc/ada/layout.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- -- -- @@ -64,7 +64,7 @@ package Layout is procedure Set_Discrete_RM_Size (Def_Id : Entity_Id); -- Set proper RM_Size for discrete size, this is normally the minimum - -- number of bits to accomodate the range given, except in the case + -- number of bits to accommodate the range given, except in the case -- where the subtype statically matches the first subtype, in which -- case the size must be copied from the first subtype. For generic -- types, the RM_Size is simply set to zero. This routine also sets diff --git a/gcc/ada/mdllfile.ads b/gcc/ada/mdllfile.ads index ca6a222c724..9f2bb2a2215 100644 --- a/gcc/ada/mdllfile.ads +++ b/gcc/ada/mdllfile.ads @@ -34,7 +34,7 @@ package MDLL.Files is function Get_Ext (Filename : in String) return String; - -- return filename's extention. + -- return filename's extension. function Is_Ali (Filename : in String) return Boolean; @@ -47,6 +47,6 @@ package MDLL.Files is function Ext_To (Filename : in String; New_Ext : in String := No_Ext) return String; - -- return Filename with the extention change to New_Ext. + -- return Filename with the extension change to New_Ext. end MDLL.Files; diff --git a/gcc/ada/mlib-fil.ads b/gcc/ada/mlib-fil.ads index b4d4701b94f..474aafffdd1 100644 --- a/gcc/ada/mlib-fil.ads +++ b/gcc/ada/mlib-fil.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.2 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2001, Ada Core Technologies, Inc. -- -- -- @@ -34,10 +34,10 @@ package MLib.Fil is (Filename : String; New_Ext : String := "") return String; - -- Return Filename with the extention change to New_Ext. + -- Return Filename with the extension change to New_Ext. function Get_Ext (Filename : in String) return String; - -- Return extention of filename. + -- Return extension of filename. function Is_Archive (Filename : String) return Boolean; -- Test if filename is an archive diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads index 842c353fe2b..fdb3278a61f 100644 --- a/gcc/ada/osint.ads +++ b/gcc/ada/osint.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.108 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -113,7 +113,7 @@ package Osint is -- -- Initialize may terminate execution if the parameters are invalid or some -- other fatal error is encountered. The interface is set up to - -- accomodate scanning a series of files (e.g. as the result of + -- accommodate scanning a series of files (e.g. as the result of -- wild card references in DOS, or an expanded list of source files -- in Unix). Of course it is perfectly possible to ignore this in -- the implementation and provide for opening only one file. @@ -425,7 +425,7 @@ package Osint is -- 3. The information could be written to a separate file, whose name is -- related to the name of the source file by a fixed convention. - -- Which of these three methods is chosen depends on the contraints of the + -- Which of these three methods is chosen depends on the constraints of the -- host operating system. The interface described here is independent of -- which of these approaches is used. diff --git a/gcc/ada/s-fatgen.adb b/gcc/ada/s-fatgen.adb index 7fb8160c691..b100aca6cf1 100644 --- a/gcc/ada/s-fatgen.adb +++ b/gcc/ada/s-fatgen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.19 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -174,7 +174,7 @@ package body System.Fat_Gen is -- More useful would be defining Expo to be T'Machine_Emin - 1 or -- T'Machine_Emin - T'Machine_Mantissa, which would preserve - -- monotonicity of the exponent fuction ??? + -- monotonicity of the exponent function ??? -- Check for infinities, transfinites, whatnot. diff --git a/gcc/ada/s-imgrea.adb b/gcc/ada/s-imgrea.adb index c5fdd76cbd9..9c21436874d 100644 --- a/gcc/ada/s-imgrea.adb +++ b/gcc/ada/s-imgrea.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.45 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -158,7 +158,7 @@ package body System.Img_Real is Digs : String (1 .. 2 * Field_Max + 16); -- Array used to hold digits of converted integer value. This is a - -- large enough buffer to accomodate ludicrous values of Fore and Aft. + -- large enough buffer to accommodate ludicrous values of Fore and Aft. Ndigs : Natural; -- Number of digits stored in Digs (and also subscript of last digit) diff --git a/gcc/ada/s-taprop.ads b/gcc/ada/s-taprop.ads index 19f035c4b9a..8271648db46 100644 --- a/gcc/ada/s-taprop.ads +++ b/gcc/ada/s-taprop.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.40 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -453,7 +453,7 @@ package System.Task_Primitives.Operations is -- Suspend a specific task when the underlying thread library provides -- such functionality, unless the thread associated with T is -- Thread_Self. - -- Such functionnality is needed by gdb on some targets (e.g VxWorks) + -- Such functionality is needed by gdb on some targets (e.g VxWorks) -- Return True is the operation is successful function Resume_Task @@ -462,7 +462,7 @@ package System.Task_Primitives.Operations is -- Resume a specific task when the underlying thread library provides -- such functionality, unless the thread associated with T is -- Thread_Self. - -- Such functionnality is needed by gdb on some targets (e.g VxWorks) + -- Such functionality is needed by gdb on some targets (e.g VxWorks) -- Return True is the operation is successful procedure Lock_All_Tasks_List; diff --git a/gcc/ada/s-tasdeb.ads b/gcc/ada/s-tasdeb.ads index b07ab445034..6dc221f6797 100644 --- a/gcc/ada/s-tasdeb.ads +++ b/gcc/ada/s-tasdeb.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.16 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1997-1998, Free Software Foundation, Inc. -- -- -- @@ -117,14 +117,14 @@ package System.Tasking.Debug is -- Suspend all the tasks except the one whose associated thread is -- Thread_Self by traversing All_Tasks_Lists and calling -- System.Task_Primitives.Operations.Suspend_Task - -- Such functionnality is needed by gdb on some targets (e.g VxWorks) + -- Such functionality is needed by gdb on some targets (e.g VxWorks) -- Warning: for efficiency purposes, there is no locking. procedure Resume_All_Tasks (Thread_Self : OS_Interface.Thread_Id); -- Resume all the tasks except the one whose associated thread is -- Thread_Self by traversing All_Tasks_Lists and calling -- System.Task_Primitives.Operations.Continue_Task - -- Such functionnality is needed by gdb on some targets (e.g VxWorks) + -- Such functionality is needed by gdb on some targets (e.g VxWorks) -- Warning: for efficiency purposes, there is no locking. end System.Tasking.Debug; diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 29778ff49b0..6bb3cccc6d4 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.232 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -2011,7 +2011,7 @@ package body Sem_Aggr is procedure Resolve_Aggr_Expr (Expr : Node_Id; Component : Node_Id); -- Analyzes and resolves expression Expr against the Etype of the - -- Component. This routine also applies all appropiate checks to Expr. + -- Component. This routine also applies all appropriate checks to Expr. -- It finally saves a Expr in the newly created association list that -- will be attached to the final record aggregate. Note that if the -- Parent pointer of Expr is not set then Expr was produced with a diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 4574315dbff..287064542a2 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.552 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -5457,7 +5457,7 @@ package body Sem_Attr is when Attribute_Small => - -- The floating-point case is present only for Ada 83 compatability. + -- The floating-point case is present only for Ada 83 compatibility. -- Note that strictly this is an illegal addition, since we are -- extending an Ada 95 defined attribute, but we anticipate an -- ARG ruling that will permit this. diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads index 192b6b1573f..c1f172bcd52 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.5 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1996 Free Software Foundation, Inc. -- -- -- @@ -28,7 +28,7 @@ with Types; use Types; --- Package containing all the routines to proces a list of discrete choices. +-- Package containing all the routines to process a list of discrete choices. -- Such lists can occur in 3 different constructs: case statements, array -- aggregates and record variants. We have factorized what used to be 3 very -- similar sets of routines here. If you didn't figure it out already Choi diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index ae674411d79..3fb6334d3ce 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.390 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -3049,8 +3049,8 @@ package body Sem_Ch13 is S := 1; B := Uint_1; - -- S = size, B = 2 ** (size - 1) (can accomodate -B .. +(B - 1)) - -- Note that we accomodate the case where the bounds cross. This + -- S = size, B = 2 ** (size - 1) (can accommodate -B .. +(B - 1)) + -- Note that we accommodate the case where the bounds cross. This -- can happen either because of the way the bounds are declared -- or because of the algorithm in Freeze_Fixed_Point_Type. @@ -3075,7 +3075,7 @@ package body Sem_Ch13 is Hi := Lo; end if; - -- S = size, (can accomodate 0 .. (2**size - 1)) + -- S = size, (can accommodate 0 .. (2**size - 1)) S := 0; while Hi >= Uint_2 ** S loop diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 127637bd862..f3b0de02651 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -5259,7 +5259,7 @@ package body Sem_Ch3 is -- The following is only useful for the benefit of generic -- instances but it does not interfere with other - -- processsing for the non-generic case so we do it in all + -- processing for the non-generic case so we do it in all -- cases (for generics this statement is executed when -- processing the generic definition, see comment at the -- begining of this if statement). diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 53dc7f82a89..9efa7ca022c 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- @@ -1035,7 +1035,7 @@ package body Sem_Elab is -- If none of those cases holds, but Dynamic_Elaboration_Checks mode -- is set, then we will do the check, but only in the inter-unit case - -- (this is to accomodate unguarded elaboration calls from other units + -- (this is to accommodate unguarded elaboration calls from other units -- in which this same mode is set). We don't want warnings in this case, -- it would generate warnings having nothing to do with elaboration. @@ -1164,7 +1164,7 @@ package body Sem_Elab is -- If none of those cases holds, but Dynamic_Elaboration_Checks mode -- is set, then we will do the check, but only in the inter-unit case - -- (this is to accomodate unguarded elaboration calls from other units + -- (this is to accommodate unguarded elaboration calls from other units -- in which this same mode is set). We inhibit warnings in this case, -- since this instantiation is not occurring in elaboration code. diff --git a/gcc/ada/sem_maps.ads b/gcc/ada/sem_maps.ads index 3033f890ff7..de0f52cb554 100644 --- a/gcc/ada/sem_maps.ads +++ b/gcc/ada/sem_maps.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.4 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1996-1999 Free Software Foundation, Inc. -- -- -- @@ -98,7 +98,7 @@ private -- maps have a fixed size and never need to be reallocated. Furthermore, -- the headers of the hash table of a dynamically allocated map can be -- chosen according to the total number of entries in the map, to - -- accomodate efficiently generic units of different sizes (Unchecked_ + -- accommodate efficiently generic units of different sizes (Unchecked_ -- Conversion vs. Generic_Elementary_Functions, for example). So in -- fact both components of a map have fixed size, and can be allocated -- using the standard table mechanism. A Maps_Table holds records that diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index bf1a7152ac1..e48319ff055 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.4 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -787,7 +787,7 @@ package body Sem_Res is type Kind_Test is access function (E : Entity_Id) return Boolean; function Is_Definite_Access_Type (E : Entity_Id) return Boolean; - -- Determine whether E is an acess type declared by an access decla- + -- Determine whether E is an access type declared by an access decla- -- ration, and not an (anonymous) allocator type. function Operand_Type_In_Scope (S : Entity_Id) return Boolean; @@ -5008,7 +5008,7 @@ package body Sem_Res is -- If we are taking the reference of a volatile entity, then treat -- it as a potential modification of this entity. This is much too - -- conservative, but is neccessary because remove side effects can + -- conservative, but is necessary because remove side effects can -- result in transformations of normal assignments into reference -- sequences that otherwise fail to notice the modification. diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 2d493944d41..f31738df9b1 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.225 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -591,7 +591,7 @@ package Sem_Util is -- Determines if T1 and T2 represent exactly the same type. Two types -- are the same if they are identical, or if one is an unconstrained -- subtype of the other, or they are both common subtypes of the same - -- type with identical contraints. The result returned is conservative. + -- type with identical constraints. The result returned is conservative. -- It is True if the types are known to be the same, but a result of -- False is indecisive (e.g. the compiler may not be able to tell that -- two constraints are identical). diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index b91d522c6e4..8cb5b4b9401 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.2 $ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -6208,7 +6208,7 @@ package Sinfo is -- to unchecked conversion, and these are most conveniently performed -- in the specialized back-end. - -- To accomodate this requirement, for such back ends, the following + -- To accommodate this requirement, for such back ends, the following -- special node is generated recording an unchecked conversion that -- needs to be validated. The back end should post an appropriate -- error message if the unchecked conversion is invalid or warrants diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index b842790bc10..13e0c322018 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -619,7 +619,7 @@ private (S : in out Source_File_Record; New_Max : Nat); -- Allocate or reallocate the lines table for the given source file so - -- that it can accomodate at least New_Max lines. Also allocates or + -- that it can accommodate at least New_Max lines. Also allocates or -- reallocates logical lines table if source ref pragmas are present. procedure Add_Line_Tables_Entry diff --git a/gcc/ada/table.adb b/gcc/ada/table.adb index 95da3a7e355..f8084691e35 100644 --- a/gcc/ada/table.adb +++ b/gcc/ada/table.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.44 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -306,7 +306,7 @@ package body Table is -- Tree_Read -- --------------- - -- Note: we allocate only the space required to accomodate the data + -- Note: we allocate only the space required to accommodate the data -- actually written, which means that a Tree_Write/Tree_Read sequence -- does an implicit Release. diff --git a/gcc/ada/table.ads b/gcc/ada/table.ads index 4588e4d0e89..b0e2c8dd47b 100644 --- a/gcc/ada/table.ads +++ b/gcc/ada/table.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.38 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -155,7 +155,7 @@ pragma Elaborate_Body (Table); procedure Set_Last (New_Val : Table_Index_Type); pragma Inline (Set_Last); -- This procedure sets Last to the indicated value. If necessary the - -- table is reallocated to accomodate the new value (i.e. on return + -- table is reallocated to accommodate the new value (i.e. on return -- the allocated table has an upper bound of at least Last). If Set_Last -- reduces the size of the table, then logically entries are removed -- from the table. If Set_Last increases the size of the table, then diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index 77b22198b72..53c47c3fb95 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -199,7 +199,7 @@ pragma Preelaborate (Types); -- character in the source buffer. As noted above, diffferent 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 accomodate the following special values. + -- are allowed to accommodate the following special values. No_Location : constant Source_Ptr := -1; -- Value used to indicate no source position set in a node diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb index 941af169647..bb2d510cffa 100644 --- a/gcc/ada/urealp.adb +++ b/gcc/ada/urealp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.60 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -162,7 +162,7 @@ package body Urealp is -- For based numbers, just subtract the decimal exponent from the -- high estimate of the number of digits in the numerator and add - -- one to accomodate possible round off errors for non-decimal + -- one to accommodate possible round off errors for non-decimal -- bases. For example: -- 1_500_000 / 10**4 = 1.50E-2 @@ -202,7 +202,7 @@ package body Urealp is -- For based numbers, just subtract the decimal exponent from the -- low estimate of the number of digits in the numerator and subtract - -- one to accomodate possible round off errors for non-decimal + -- one to accommodate possible round off errors for non-decimal -- bases. For example: -- 1_500_000 / 10**4 = 1.50E-2 @@ -988,7 +988,7 @@ package body Urealp is return UR_Is_Negative (Left); -- If we fall through, full gruesome test is required. This happens - -- if the numbers are close together, or in some wierd (/=10) base. + -- if the numbers are close together, or in some weird (/=10) base. else declare |