diff options
| author | jsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-16 01:13:56 +0000 |
|---|---|---|
| committer | jsm28 <jsm28@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-16 01:13:56 +0000 |
| commit | 3d069ad47acec10e0ef434afbd79b5d3e0d77596 (patch) | |
| tree | 2cd8aefc64fec3e76f720d71eb36492e54d37507 /gcc | |
| parent | 8626dbb9ba26fc1b06f3de7738aae45f5e302725 (diff) | |
| download | gcc-3d069ad47acec10e0ef434afbd79b5d3e0d77596.tar.gz | |
* 5ataprop.adb, 5atpopsp.adb, 5ftaprop.adb, 5gmastop.adb,
5gtaprop.adb, 5htaprop.adb, 5itaprop.adb, 5lintman.adb,
5omastop.adb, 5oosinte.adb, 5otaprop.adb, 5staprop.adb,
5vinterr.adb, 5vtaprop.adb, 5vtpopde.adb, 5wintman.adb,
5wtaprop.adb, 5zinterr.adb, 5ztaprop.adb, 6vcstrea.adb,
7sintman.adb, 7staprop.adb, 9drpc.adb, ChangeLog, Makefile.in,
a-except.adb, a-tags.ads, a-tasatt.adb, a-teioed.adb,
a-textio.ads, a-witeio.ads, a-wtedit.adb, ali.ads, comperr.adb,
cstand.adb, einfo.ads, errout.adb, exp_ch11.adb, exp_ch2.adb,
exp_ch3.adb, exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch9.adb,
exp_util.adb, exp_util.ads, fname-uf.adb, g-cgi.ads, g-exctra.ads,
g-expect.ads, g-regist.adb, g-spipat.adb, gnatchop.adb,
gnatlink.adb, gnatls.adb, gnatmain.adb, gnatmem.adb, init.c,
make.adb, make.ads, mdlltool.adb, nlists.ads, osint.ads,
par-ch3.adb, par-ch4.adb, par-ch5.adb, par-ch6.adb, par.adb,
repinfo.adb, s-fatflt.ads, s-fatlfl.ads, s-fatllf.ads,
s-fatsfl.ads, s-finimp.adb, s-finimp.ads, s-interr.adb,
s-secsta.ads, s-shasto.ads, s-stalib.adb, s-stalib.ads,
s-tarest.ads, s-tasdeb.adb, s-tassta.adb, s-tassta.ads,
s-vaflop.ads, scans.ads, scn.adb, sem.ads, sem_aggr.adb,
sem_attr.adb, sem_case.ads, sem_ch10.adb, sem_ch12.adb,
sem_ch13.adb, sem_ch3.adb, sem_ch3.ads, sem_ch5.adb, sem_ch7.adb,
sem_ch8.adb, sem_ch8.ads, sem_type.adb, sem_util.ads, sinfo.ads,
sprint.adb, tbuild.ads, types.ads, utils.c, xeinfo.adb: Fix
spelling errors.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48055 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
108 files changed, 291 insertions, 263 deletions
diff --git a/gcc/ada/5ataprop.adb b/gcc/ada/5ataprop.adb index ac19d7b78b4..77fec994842 100644 --- a/gcc/ada/5ataprop.adb +++ b/gcc/ada/5ataprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.60 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -220,7 +220,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines @@ -738,7 +738,7 @@ package body System.Task_Primitives.Operations is (Attributes'Access, Adjusted_Stack_Size); pragma Assert (Result = 0); - -- Set the scheduling parameters explicitely, since this is the only + -- Set the scheduling parameters explicitly, since this is the only -- way to force the OS to take the scope attribute into account Result := pthread_attr_setinheritsched diff --git a/gcc/ada/5atpopsp.adb b/gcc/ada/5atpopsp.adb index ada9ee92dcb..6d8cb87a2c9 100644 --- a/gcc/ada/5atpopsp.adb +++ b/gcc/ada/5atpopsp.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.13 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -91,7 +91,7 @@ package body Specific is function New_Fake_ATCB return Task_ID; -- Allocate and Initialize a new ATCB. This code can safely be called from - -- a foreign thread, as it doesn't access implicitely or explicitely + -- a foreign thread, as it doesn't access implicitly or explicitly -- "self" before having initialized the new ATCB. ------------------- diff --git a/gcc/ada/5ftaprop.adb b/gcc/ada/5ftaprop.adb index c9213f2b0fc..6a33979a43d 100644 --- a/gcc/ada/5ftaprop.adb +++ b/gcc/ada/5ftaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.26 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -205,7 +205,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/5gmastop.adb b/gcc/ada/5gmastop.adb index 9dd0bad83b4..67c6a399cf2 100644 --- a/gcc/ada/5gmastop.adb +++ b/gcc/ada/5gmastop.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Version for IRIX/MIPS) -- -- -- --- $Revision: 1.7 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- @@ -108,7 +108,7 @@ package body System.Machine_State_Operations is function To_Uns32_Ptr is new Unchecked_Conversion (Addr_Int, Uns32_Ptr); -------------------------------- - -- ABI-Dependant Declarations -- + -- ABI-Dependent Declarations -- -------------------------------- o32 : constant Natural := Boolean'Pos (System.Word_Size = 32); diff --git a/gcc/ada/5gtaprop.adb b/gcc/ada/5gtaprop.adb index 0ec29dfb2c3..28284745641 100644 --- a/gcc/ada/5gtaprop.adb +++ b/gcc/ada/5gtaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.37 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -168,7 +168,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/5htaprop.adb b/gcc/ada/5htaprop.adb index 95e5c3cec11..08d2a7ee34c 100644 --- a/gcc/ada/5htaprop.adb +++ b/gcc/ada/5htaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.42 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -255,7 +255,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/5itaprop.adb b/gcc/ada/5itaprop.adb index f88d8c33a06..b1edfd05253 100644 --- a/gcc/ada/5itaprop.adb +++ b/gcc/ada/5itaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -336,7 +336,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/5lintman.adb b/gcc/ada/5lintman.adb index d58987d56ae..6737f0094ef 100644 --- a/gcc/ada/5lintman.adb +++ b/gcc/ada/5lintman.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- @@ -220,7 +220,7 @@ package body System.Interrupt_Management is -- ??? The original signal mask (the one we had before coming into this -- signal catching function) should be restored by - -- Raise_From_Signal_Handler. For now, restore it explicitely + -- Raise_From_Signal_Handler. For now, restore it explicitly Result := pthread_sigmask (SIG_UNBLOCK, Signal_Mask'Access, null); pragma Assert (Result = 0); @@ -290,7 +290,7 @@ begin -- not restored after the exception (longjmp) from the handler. -- The right fix should be made in sigsetjmp so that we save -- the Signal_Set and restore it after a longjmp. - -- Since SA_NODEFER is obsolete, instead we reset explicitely + -- Since SA_NODEFER is obsolete, instead we reset explicitly -- the mask in the exception handler. Result := sigemptyset (Signal_Mask'Access); diff --git a/gcc/ada/5omastop.adb b/gcc/ada/5omastop.adb index 129ea81d705..ee0ba97e0ef 100644 --- a/gcc/ada/5omastop.adb +++ b/gcc/ada/5omastop.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Version for x86) -- -- -- --- $Revision: 1.7 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- @@ -471,7 +471,7 @@ package body System.Machine_State_Operations is return To_Address (MS.eip); else -- When doing a call the return address is pushed to the stack. - -- We want to return the call point address, so we substract + -- We want to return the call point address, so we subtract -- Asm_Call_Size from the return address. This value is set -- to 5 as an asm call takes 5 bytes on x86 architectures. diff --git a/gcc/ada/5oosinte.adb b/gcc/ada/5oosinte.adb index 2e12d922c6f..55c34a6fa36 100644 --- a/gcc/ada/5oosinte.adb +++ b/gcc/ada/5oosinte.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- @@ -58,7 +58,7 @@ package body System.OS_Interface is -- Although the OS uses a 32-bit integer representing milliseconds -- as timer value that doesn't work for us since 32 bits are not -- enough for absolute timing. Also it is useful to use better - -- intermediate precision when adding/substracting timing intervals. + -- intermediate precision when adding/subtracting timing intervals. -- So we use the standard Ada Duration type which is implemented using -- microseconds. diff --git a/gcc/ada/5otaprop.adb b/gcc/ada/5otaprop.adb index 3fd7229a79e..b728f0bccda 100644 --- a/gcc/ada/5otaprop.adb +++ b/gcc/ada/5otaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.57 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- @@ -816,7 +816,7 @@ package body System.Task_Primitives.Operations is -- recommend a minimum size of 32 kB. (The original was 4 kB) -- Systems that use many tasks (say > 30) and require much -- memory may run out of virtual address space, since OS/2 - -- has a per-proces limit of 512 MB, of which max. 300 MB is + -- has a per-process limit of 512 MB, of which max. 300 MB is -- usable in practise. if Stack_Size = Unspecified_Size then diff --git a/gcc/ada/5staprop.adb b/gcc/ada/5staprop.adb index 3815b5fb751..e0b56c0f54a 100644 --- a/gcc/ada/5staprop.adb +++ b/gcc/ada/5staprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.92 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -257,7 +257,7 @@ package body System.Task_Primitives.Operations is function New_Fake_ATCB (Stack_Base : Interfaces.C.unsigned) return Task_ID; -- Allocate and Initialize a new ATCB. This code can safely be called from - -- a foreign thread, as it doesn't access implicitely or explicitely + -- a foreign thread, as it doesn't access implicitly or explicitly -- "self" before having initialized the new ATCB. ------------ @@ -549,7 +549,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_L, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/5vinterr.adb b/gcc/ada/5vinterr.adb index cb974377a97..33e6a1da468 100644 --- a/gcc/ada/5vinterr.adb +++ b/gcc/ada/5vinterr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.4 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- @@ -908,7 +908,7 @@ package body System.Interrupts is -- Abort_Task_Interrupt is one of the Interrupt unmasked -- in all tasks. We mask the Interrupt in this particular task - -- so that "sigwait" is possible to catch an explicitely sent + -- so that "sigwait" is possible to catch an explicitly sent -- Abort_Task_Interrupt from the Server_Tasks. -- This sigwaiting is needed so that we make sure a Server_Task is diff --git a/gcc/ada/5vtaprop.adb b/gcc/ada/5vtaprop.adb index d3891c84b77..93c11968dd4 100644 --- a/gcc/ada/5vtaprop.adb +++ b/gcc/ada/5vtaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.60 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -169,7 +169,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/5vtpopde.adb b/gcc/ada/5vtpopde.adb index 5da5cde38d6..8735af58ff1 100644 --- a/gcc/ada/5vtpopde.adb +++ b/gcc/ada/5vtpopde.adb @@ -47,7 +47,7 @@ package body System.Task_Primitives.Operations.DEC is use type Interfaces.C.int; -- The FAB_RAB_Type specifieds where the context field (the calling - -- task) is stored. Other fields defined for FAB_RAB arent' need and + -- task) is stored. Other fields defined for FAB_RAB aren't need and -- so are ignored. type FAB_RAB_Type is record diff --git a/gcc/ada/5wintman.adb b/gcc/ada/5wintman.adb index 7e8acb989fa..6e47959bd26 100644 --- a/gcc/ada/5wintman.adb +++ b/gcc/ada/5wintman.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.2 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2000 Free Software Foundation, Inc. -- -- -- @@ -66,7 +66,7 @@ package body System.Interrupt_Management is end Initialize_Interrupts; begin - -- "Reserve" all the interrupts, except those that are explicitely defined + -- "Reserve" all the interrupts, except those that are explicitly defined for J in Interrupt_ID'Range loop Reserve (J) := True; diff --git a/gcc/ada/5wtaprop.adb b/gcc/ada/5wtaprop.adb index 850ddb696b8..698b745b690 100644 --- a/gcc/ada/5wtaprop.adb +++ b/gcc/ada/5wtaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.66 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -149,7 +149,7 @@ package body System.Task_Primitives.Operations is function New_Fake_ATCB return Task_ID; -- Allocate and Initialize a new ATCB. This code can safely be called from - -- a foreign thread, as it doesn't access implicitely or explicitely + -- a foreign thread, as it doesn't access implicitly or explicitly -- "self" before having initialized the new ATCB. ------------------------------------ @@ -474,7 +474,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is handled. + -- initialized in Initialize_TCB and the Storage_Error is handled. -- Other mutexes (such as All_Tasks_Lock, Memory_Lock...) used in -- the RTS is initialized before any status change of RTS. -- Therefore raising Storage_Error in the following routines diff --git a/gcc/ada/5zinterr.adb b/gcc/ada/5zinterr.adb index 5e428f26c08..e7422ef614b 100644 --- a/gcc/ada/5zinterr.adb +++ b/gcc/ada/5zinterr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.7 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- -- @@ -1494,7 +1494,7 @@ package body System.Interrupts is -- (Abort_Task_Interrupt) from the Interrupt_Manager for unbinding -- a procedure handler or an entry. Or it could be a wake up -- from status change (Unblocked -> Blocked). If that is not - -- the case, we should excecute the attached procedure or entry. + -- the case, we should execute the attached procedure or entry. POP.Unlock (Self_ID); diff --git a/gcc/ada/5ztaprop.adb b/gcc/ada/5ztaprop.adb index 0d9538c3b0f..ba273d9cb5a 100644 --- a/gcc/ada/5ztaprop.adb +++ b/gcc/ada/5ztaprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- @@ -249,7 +249,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/6vcstrea.adb b/gcc/ada/6vcstrea.adb index 858a10cfb3b..1c4e00c2e0d 100644 --- a/gcc/ada/6vcstrea.adb +++ b/gcc/ada/6vcstrea.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.4 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1996-1999 Free Software Foundation, Inc. -- -- -- @@ -169,7 +169,7 @@ package body Interfaces.C_Streams is -- In order for the above fwrite hack to work, we must always buffer -- stdout and stderr. Is_regular_file on VMS cannot detect when -- these are redirected to a file, so checking for that condition - -- doesnt help. + -- doesn't help. if mode = IONBF and then (stream = stdout or else stream = stderr) diff --git a/gcc/ada/7sintman.adb b/gcc/ada/7sintman.adb index 2e0a85ca894..dcd56df2a6d 100644 --- a/gcc/ada/7sintman.adb +++ b/gcc/ada/7sintman.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.14 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -111,7 +111,7 @@ package body System.Interrupt_Management is begin -- With the __builtin_longjmp, the signal mask is not restored, so we - -- need to restore it explicitely. + -- need to restore it explicitly. Result := pthread_sigmask (SIG_UNBLOCK, Signal_Mask'Access, null); pragma Assert (Result = 0); @@ -176,7 +176,7 @@ begin -- The right fix should be made in sigsetjmp so that we save -- the Signal_Set and restore it after a longjmp. - -- Since SA_NODEFER is obsolete, instead we reset explicitely + -- Since SA_NODEFER is obsolete, instead we reset explicitly -- the mask in the exception handler. Result := sigemptyset (Signal_Mask'Access); diff --git a/gcc/ada/7staprop.adb b/gcc/ada/7staprop.adb index 7c2dbe82be7..82bffbc2b4c 100644 --- a/gcc/ada/7staprop.adb +++ b/gcc/ada/7staprop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.40 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001, Florida State University -- -- -- @@ -303,7 +303,7 @@ package body System.Task_Primitives.Operations is --------------------- -- Note: mutexes and cond_variables needed per-task basis are - -- initialized in Intialize_TCB and the Storage_Error is + -- initialized in Initialize_TCB and the Storage_Error is -- handled. Other mutexes (such as All_Tasks_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. -- Therefore rasing Storage_Error in the following routines diff --git a/gcc/ada/9drpc.adb b/gcc/ada/9drpc.adb index 8f749fa51da..4f9d314d000 100644 --- a/gcc/ada/9drpc.adb +++ b/gcc/ada/9drpc.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.2 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992,1993,1994,1995 Free Software Foundation, Inc. -- -- -- @@ -1009,7 +1009,7 @@ package body System.RPC is Partition_ID'Image (Partition)); Garbage_Collector.Allocate (Anonymous); - -- We substracted the size of the header from the size of the + -- We subtracted the size of the header from the size of the -- global message in order to provide immediatly Params size Anonymous.Element.Start diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 96b05ac3480..7db9716fd28 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,31 @@ +2001-12-16 Joseph S. Myers <jsm28@cam.ac.uk> + + * 5ataprop.adb, 5atpopsp.adb, 5ftaprop.adb, 5gmastop.adb, + 5gtaprop.adb, 5htaprop.adb, 5itaprop.adb, 5lintman.adb, + 5omastop.adb, 5oosinte.adb, 5otaprop.adb, 5staprop.adb, + 5vinterr.adb, 5vtaprop.adb, 5vtpopde.adb, 5wintman.adb, + 5wtaprop.adb, 5zinterr.adb, 5ztaprop.adb, 6vcstrea.adb, + 7sintman.adb, 7staprop.adb, 9drpc.adb, ChangeLog, Makefile.in, + a-except.adb, a-tags.ads, a-tasatt.adb, a-teioed.adb, + a-textio.ads, a-witeio.ads, a-wtedit.adb, ali.ads, comperr.adb, + cstand.adb, einfo.ads, errout.adb, exp_ch11.adb, exp_ch2.adb, + exp_ch3.adb, exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch9.adb, + exp_util.adb, exp_util.ads, fname-uf.adb, g-cgi.ads, g-exctra.ads, + g-expect.ads, g-regist.adb, g-spipat.adb, gnatchop.adb, + gnatlink.adb, gnatls.adb, gnatmain.adb, gnatmem.adb, init.c, + make.adb, make.ads, mdlltool.adb, nlists.ads, osint.ads, + par-ch3.adb, par-ch4.adb, par-ch5.adb, par-ch6.adb, par.adb, + repinfo.adb, s-fatflt.ads, s-fatlfl.ads, s-fatllf.ads, + s-fatsfl.ads, s-finimp.adb, s-finimp.ads, s-interr.adb, + s-secsta.ads, s-shasto.ads, s-stalib.adb, s-stalib.ads, + s-tarest.ads, s-tasdeb.adb, s-tassta.adb, s-tassta.ads, + s-vaflop.ads, scans.ads, scn.adb, sem.ads, sem_aggr.adb, + sem_attr.adb, sem_case.ads, sem_ch10.adb, sem_ch12.adb, + sem_ch13.adb, sem_ch3.adb, sem_ch3.ads, sem_ch5.adb, sem_ch7.adb, + sem_ch8.adb, sem_ch8.ads, sem_type.adb, sem_util.ads, sinfo.ads, + sprint.adb, tbuild.ads, types.ads, utils.c, xeinfo.adb: Fix + spelling errors. + 2001-12-14 Vincent Celier <celier@gnat.com> * osint.adb(Create_Debug_File): When an object file is specified, diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in index e2601a24542..66b7b5f43b9 100644 --- a/gcc/ada/Makefile.in +++ b/gcc/ada/Makefile.in @@ -793,7 +793,7 @@ SO_OPTS=-Wl,-soname, # gnatlib-shared-dual GNATLIB_SHARED=gnatlib-shared-default -# default value for gnatmake's target dependant file +# default value for gnatmake's target dependent file MLIB_TGT=mlib-tgt # $(filter-out PATTERN...,TEXT) removes all PATTERN words from TEXT. @@ -2610,16 +2610,16 @@ utils2.o : utils2.c $(CONFIG_H) $(TREE_H) $(srcdir)/../flags.h ada.h types.h \ atree.h nlists.h elists.h sinfo.h einfo.h namet.h snames.h stringt.h \ uintp.h fe.h $(ADA_TREE_H) gigi.h -# specific rules for tools needing target dependant sources +# specific rules for tools needing target dependent sources # for each such source (e.g. mlib-tgt.adb) a link from the target # specific name to the default name is defined in the subdir "tools". # This subdir is added at the beginning of the source path fore the compilation -# of this unit. Here are the step for adding a new target dependant source: +# of this unit. Here are the step for adding a new target dependent source: # - create a Macro with the default name for the source (e.g. mlib-tgt) -# - change the value if this Macro in each target-dependant section of this +# - change the value if this Macro in each target-dependent section of this # Makefile (close to LIBGNAT_TARGET_PAIRS defs) if there is a # specific version of the file for this section -# - Add a link from target dependant version to the default name in "tools" +# - Add a link from target dependent version to the default name in "tools" # (see stamp-tool_src_dir target) # - Add a specific target for the object in order to compile with # "tools" on the source path (see mlib-tgt) diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index e3228d7d31a..de21237587c 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.119 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -334,7 +334,7 @@ package body Ada.Exceptions is (X : Exception_Occurrence) return String; -- Returns an image of the complete call chain associated with an - -- exception occurence in its most basic form, that is as a raw sequence + -- exception occurrence in its most basic form, that is as a raw sequence -- of hexadecimal binary addresses. function Tailored_Exception_Traceback diff --git a/gcc/ada/a-tags.ads b/gcc/ada/a-tags.ads index 2c0daef98a8..c48b43266bf 100644 --- a/gcc/ada/a-tags.ads +++ b/gcc/ada/a-tags.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.23 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -61,7 +61,7 @@ private ---------------------------------------------------------------- -- GNAT's Dispatch Table format is customizable in order to match the - -- format used in another langauge. GNAT supports programs that use + -- format used in another language. GNAT supports programs that use -- two different dispatch table format at the same time: the native -- format that supports Ada 95 tagged types and which is described in -- Ada.Tags and a foreign format for types that are imported from some diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb index 395906334d1..18c11d34d68 100644 --- a/gcc/ada/a-tasatt.adb +++ b/gcc/ada/a-tasatt.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.21 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2000 Florida State University -- -- -- @@ -123,7 +123,7 @@ -- finalization for that type of attribute. On task termination, the -- runtime system uses the pointer to call the appropriate deallocator. --- While this gets around the limitation that instantations be at +-- While this gets around the limitation that instantiations be at -- the library level, it relies on an implementation feature that -- may not always be safe, i.e. that it is safe to call the -- Deallocate procedure for an instantiation of Ada.Task_Attributes diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb index 8a448c87b5f..b67fe5fbc08 100644 --- a/gcc/ada/a-teioed.adb +++ b/gcc/ada/a-teioed.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.18 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -741,7 +741,7 @@ package body Ada.Text_IO.Editing is -- Processing the radix and sign expansion separately -- would require lots of copying--the string and some of its - -- indicies--without really simplifying the logic. The cases are: + -- indices--without really simplifying the logic. The cases are: -- 1) Expand $, replace '.' with Radix_Point -- 2) No currency expansion, replace '.' with Radix_Point diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index 2fbb2d6da9e..24d863caec0 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.51 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- @@ -344,7 +344,7 @@ private Self : aliased File_Type; -- Set to point to the containing Text_AFCB block. This is used to - -- implement the Current_{Error,Input,Ouput} functions which return + -- implement the Current_{Error,Input,Output} functions which return -- a File_Access, the file access value returned is a pointer to -- the Self field of the corresponding file. diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads index c51e331d847..cdb118525f5 100644 --- a/gcc/ada/a-witeio.ads +++ b/gcc/ada/a-witeio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.14 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- @@ -142,7 +142,7 @@ package Ada.Wide_Text_IO is -- Buffer control -- -------------------- - -- Note: The paramter file is in out in the RM, but as pointed out + -- Note: The parameter file is in out in the RM, but as pointed out -- in <<95-5166.a Tucker Taft 95-6-23>> this is clearly an oversight. procedure Flush (File : in File_Type); diff --git a/gcc/ada/a-wtedit.adb b/gcc/ada/a-wtedit.adb index b7783a2dcee..7a729279c42 100644 --- a/gcc/ada/a-wtedit.adb +++ b/gcc/ada/a-wtedit.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.11 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -931,7 +931,7 @@ package body Ada.Wide_Text_IO.Editing is -- Processing the radix and sign expansion separately -- would require lots of copying--the string and some of its - -- indicies--without really simplifying the logic. The cases are: + -- indices--without really simplifying the logic. The cases are: -- 1) Expand $, replace '.' with Radix_Point -- 2) No currency expansion, replace '.' with Radix_Point diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index 488fb63141d..af885304f86 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -605,7 +605,7 @@ package ALI is Etype : Character; -- Set to the identification character for the entity. See section - -- "Cross-Reference Entity Indentifiers in lib-xref.ads for details. + -- "Cross-Reference Entity Identifiers in lib-xref.ads for details. Col : Pos; -- Column number of definition @@ -635,7 +635,7 @@ package ALI is -- This field is set to blank if no typeref is present, or if the -- typeref refers to an entity in standard. Otherwise it contains -- the identification character for the typeref entity. See section - -- "Cross-Reference Entity Indentifiers in lib-xref.ads for details. + -- "Cross-Reference Entity Identifiers in lib-xref.ads for details. Tref_Col : Nat; -- This field is set to zero if no typeref is present, or if the diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index b3d868fab60..55d8c89841a 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.1 $ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -98,7 +98,7 @@ package body Comperr is Abort_In_Progress := True; - -- If errors have already occured, then we guess that the abort may + -- If errors have already occurred, then we guess that the abort may -- well be caused by previous errors, and we don't make too much fuss -- about it, since we want to let the programmer fix the errors first. diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 5ca383d543b..fc29af096cc 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -251,7 +251,7 @@ package body CStand is -- The tree for the package Standard is prefixed to all compilations. -- Several entities required by semantic analysis are denoted by global -- variables that are initialized to point to the corresponding - -- occurences in STANDARD. The visible entities of STANDARD are + -- occurrences in STANDARD. The visible entities of STANDARD are -- created here. The private entities defined in STANDARD are created -- by Initialize_Standard in the semantics module. diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index ad8b437f219..804900b2ca2 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.6 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -400,7 +400,7 @@ package Einfo is -- for finalization purposes, The block entity has an implicit label -- declaration in the enclosing declarative part, and has otherwise -- no direct connection in the tree with the block statement. The --- link is to the identifier (which is an occurence of the entity) +-- link is to the identifier (which is an occurrence of the entity) -- and not to the block_statement itself, because the statement may -- be rewritten, e.g. in the process of removing dead code. @@ -2466,7 +2466,7 @@ package Einfo is -- Parameter_Mode (synthesized) -- Applies to formal parameter entities. This is a synonym for Ekind, -- used when obtaining the formal kind of a formal parameter (the result --- is one of E_[In/Out/In_Out]_Paramter) +-- is one of E_[In/Out/In_Out]_Parameter) -- Parent_Subtype (Node19) -- Present in E_Record_Type. Points to the subtype to use for a diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index d78858c42cd..e4576e64d50 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.4 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -59,7 +59,7 @@ package body Errout is -- type, and is used by Add_Class to insert 'Class at the proper point Continuation : Boolean; - -- Indicates if current message is a continuation. Intialized from the + -- Indicates if current message is a continuation. Initialized from the -- Msg_Cont parameter in Error_Msg_Internal and then set True if a \ -- insertion character is encountered. diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index 62a4f6fd3e6..22b9ccd02a6 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.117 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -1419,7 +1419,7 @@ package body Exp_Ch11 is Make_Defining_Identifier (Loc, Chars => New_Internal_Name ('T')); - -- Set the constructed type as global, since we wil be + -- Set the constructed type as global, since we will be -- referencing the object that is of this type globally Set_Is_Statically_Allocated (Dtyp); diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index 1a0c903f892..8118f2e21d3 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.64 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -47,7 +47,7 @@ package body Exp_Ch2 is ----------------------- procedure Expand_Discriminant (N : Node_Id); - -- An occurence of a discriminant within a discriminated type is replaced + -- An occurrence of a discriminant within a discriminated type is replaced -- with the corresponding discriminal, that is to say the formal parameter -- of the initialization procedure for the type that is associated with -- that particular discriminant. This replacement is not performed for diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 012e2543e50..22d84263da1 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -4868,7 +4868,7 @@ package body Exp_Ch3 is if For_Body then return Make_Subprogram_Body (Loc, Spec, Empty_List, Empty); - -- For the case of _Input and _Ouput applied to an abstract type, + -- For the case of _Input and _Output applied to an abstract type, -- generate abstract specifications. These will never be called, -- but we need the slots allocated in the dispatching table so -- that typ'Class'Input and typ'Class'Output will work properly. diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 8c299c1dc14..111a17e9670 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -1235,7 +1235,7 @@ package body Exp_Ch4 is -- Note that this does *not* fix the array concatenation bug when the -- low bound is Integer'first sibce that bug comes from the pointer - -- derefencing an unconstrained array. An there we need a constraint + -- dereferencing an unconstrained array. An there we need a constraint -- check to make sure the length of the concatenated array is ok. ??? Insert_Action (Cnode, Func_Body, Suppress => All_Checks); diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 3f5a73b8a1b..110249f0c16 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -2588,7 +2588,7 @@ package body Exp_Ch5 is -- already being returned with the stack pointer depressed and no -- further processing is required except to set the By_Ref flag to -- ensure that gigi does not attempt an extra unnecessary copy. - -- (actually not just unncessary but harmfully wrong in the case + -- (actually not just unnecessary but harmfully wrong in the case -- of a controlled type, where gigi does not know how to do a copy). if Requires_Transient_Scope (T) diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 9930904d39d..d58b01cd231 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -502,7 +502,7 @@ package body Exp_Ch6 is -- This is used when the actual involves a reference to an element -- of a packed array, where we can appropriately use a simpler -- approach than the full call by copy code. We just copy the value - -- in and out of an apropriate temporary. + -- in and out of an appropriate temporary. procedure Check_Fortran_Logical; -- A value of type Logical that is passed through a formal parameter @@ -1477,7 +1477,7 @@ package body Exp_Ch6 is Insert_Action (Prev, Make_Raise_Constraint_Error (Loc, Cond)); end if; - -- Perform apropriate validity checks on parameters + -- Perform appropriate validity checks on parameters if Validity_Checks_On then diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 8e45b4387c5..7acc5512447 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.1 $ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -4216,7 +4216,7 @@ package body Exp_Ch9 is begin -- As described above, The entry alternative is transformed into a -- block that contains the gnulli call, and possibly assignment - -- statments for in-out parameters. The gnulli call may itself be + -- statements for in-out parameters. The gnulli call may itself be -- rewritten into a transient block if some unconstrained parameters -- require it. We need to retrieve the call to complete its parameter -- list. @@ -4690,7 +4690,7 @@ package body Exp_Ch9 is when N_Subprogram_Body => - -- Exclude funtions created to analyze defaults. + -- Exclude functions created to analyze defaults. if not Is_Eliminated (Defining_Entity (Op_Body)) then New_Op_Body := @@ -4783,7 +4783,7 @@ package body Exp_Ch9 is Next (Op_Body); end loop; - -- Finally, create the body of the funtion that maps an entry index + -- Finally, create the body of the function that maps an entry index -- into the corresponding body index, except when there is no entry, -- or in a ravenscar-like profile (no abort, no entry queue, 1 entry) diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index f7a52a73a75..66bf2a96e5b 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.8 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -2421,7 +2421,7 @@ package body Exp_Util is begin -- A class-wide equivalent type is not needed when Java_VM -- because the JVM back end handles the class-wide object - -- intialization itself (and doesn't need or want the + -- initialization itself (and doesn't need or want the -- additional intermediate type to handle the assignment). if Expander_Active and then not Java_VM then diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 4bbaeb8dc70..b2c9ed52dc7 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -360,7 +360,7 @@ package Exp_Util is Unc_Typ : Entity_Id) return Node_Id; -- Returns a subtype indication corresponding to the actual type of an - -- expresion E. Unc_Typ is an unconstrained array or record, or + -- expression E. Unc_Typ is an unconstrained array or record, or -- a classwide type. function May_Generate_Large_Temp (Typ : Entity_Id) return Boolean; diff --git a/gcc/ada/fname-uf.adb b/gcc/ada/fname-uf.adb index ab6aaeb6b82..37fe82c5c43 100644 --- a/gcc/ada/fname-uf.adb +++ b/gcc/ada/fname-uf.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.6 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -138,7 +138,7 @@ package body Fname.UF is N : Int; begin - -- Null or error name means that some previous error occured + -- Null or error name means that some previous error occurred -- This is an unrecoverable error, so signal it. if Uname <= Error_Name then diff --git a/gcc/ada/g-cgi.ads b/gcc/ada/g-cgi.ads index 10e4907d6e5..a64ae7f9c60 100644 --- a/gcc/ada/g-cgi.ads +++ b/gcc/ada/g-cgi.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.9 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- @@ -133,7 +133,7 @@ package GNAT.CGI is (Auth_Type, Content_Length, Content_Type, - Document_Root, -- Web server dependant + Document_Root, -- Web server dependent Gateway_Interface, HTTP_Accept, HTTP_Accept_Encoding, @@ -151,26 +151,26 @@ package GNAT.CGI is Query_String, Remote_Addr, Remote_Host, - Remote_Port, -- Web server dependant + Remote_Port, -- Web server dependent Remote_Ident, Remote_User, Request_Method, - Request_URI, -- Web server dependant - Script_Filename, -- Web server dependant + Request_URI, -- Web server dependent + Script_Filename, -- Web server dependent Script_Name, - Server_Addr, -- Web server dependant - Server_Admin, -- Web server dependant + Server_Addr, -- Web server dependent + Server_Admin, -- Web server dependent Server_Name, Server_Port, Server_Protocol, - Server_Signature, -- Web server dependant + Server_Signature, -- Web server dependent Server_Software); -- CGI metavariables that are set by the Web server during program -- execution. All these variables are part of the restricted CGI runtime -- environment and can be read using Metavariable service. The detailed -- meanings of these metavariables are out of the scope of this -- description. Please refer to http://www.w3.org/CGI/ for a description - -- of the CGI specification. Some metavariables are Web server dependant + -- of the CGI specification. Some metavariables are Web server dependent -- and are not described in the cited document. procedure Put_Header diff --git a/gcc/ada/g-exctra.ads b/gcc/ada/g-exctra.ads index 854ff9d8a60..3007045edc9 100644 --- a/gcc/ada/g-exctra.ads +++ b/gcc/ada/g-exctra.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.4 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2000 Ada Core Technologies, Inc. -- -- -- @@ -38,7 +38,7 @@ -- -- This output includes the basic information associated with the exception -- (name, message) as well as a backtrace of the call chain at the point --- where the exception occured. This backtrace is only output if the call +-- where the exception occurred. This backtrace is only output if the call -- chain information is available, depending if the binder switch dedicated -- to that purpose has been used or not. -- diff --git a/gcc/ada/g-expect.ads b/gcc/ada/g-expect.ads index 5df3e73d43b..d4295afe9df 100644 --- a/gcc/ada/g-expect.ads +++ b/gcc/ada/g-expect.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.8 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2000-2001 Ada Core Technologies, Inc. -- -- -- @@ -206,7 +206,7 @@ package GNAT.Expect is function Get_Pid (Descriptor : Process_Descriptor) return Process_Id; - -- Return the process id assocated with a given process descriptor. + -- Return the process id associated with a given process descriptor. -------------------- -- Adding filters -- diff --git a/gcc/ada/g-regist.adb b/gcc/ada/g-regist.adb index 97e58fbc24e..531aee77f02 100644 --- a/gcc/ada/g-regist.adb +++ b/gcc/ada/g-regist.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.4 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- @@ -313,7 +313,7 @@ package body GNAT.Registry is exception when Registry_Error => - -- An error occured, the key was not found + -- An error occurred, the key was not found return False; end Key_Exists; diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index fbacdb600c9..767d4a11e22 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.21 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1998-2001, Ada Core Technologies, Inc. -- -- -- @@ -616,7 +616,7 @@ package body GNAT.Spitbol.Patterns is -- occurs in constructing a pattern, and it means that the pattern -- matching circuitry does not have to keep track of the structure -- of a pattern with respect to concatenation, since the appropriate - -- succesor is always at hand. + -- successor is always at hand. -- Concatenation itself generates no additional possibilities for -- backtracking, but the constituent patterns of the concatenated @@ -1315,7 +1315,7 @@ package body GNAT.Spitbol.Patterns is Start : out Natural; Stop : out Natural); -- Identical in all respects to XMatch, except that trace information is - -- output on Standard_Ouput during execution of the match. This is the + -- output on Standard_Output during execution of the match. This is the -- version that is called if the original Match call has Debug => True. --------- diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index 72fec21d7e7..9eae58f4c84 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1998-2001 Ada Core Technologies, Inc. -- -- -- @@ -312,7 +312,7 @@ procedure Gnatchop is EOL : EOL_String; Success : in out Boolean); -- If Success is True on entry, writes a source reference pragma using - -- the chop file from Info, and the given line number. On return Sucess + -- the chop file from Info, and the given line number. On return Success -- indicates whether the write succeeded. If Success is False on entry, -- or if the global flag Source_References is False, then the call to -- Write_Source_Reference_Pragma has no effect. EOL indicates the end @@ -813,7 +813,7 @@ procedure Gnatchop is end if; -- If not in compilation mode combine current unit with any - -- preceeding configuration pragmas. + -- preceding configuration pragmas. if not Compilation_Mode and then Unit.Last > First_Unit diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index 30482a87638..5143a252f10 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.72 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- @@ -93,7 +93,7 @@ procedure Gnatlink is Table_Initial => 20, Table_Increment => 100, Table_Name => "Gnatlink.Response_File_Objects"); - -- This table collects the objects file that are to be put in the reponse + -- This table collects the objects file that are to be put in the response -- file. Only application objects are collected there (see details in -- Linker_Objects table comments) diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index f5446e8f6ee..fc5904e9eea 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -145,7 +145,7 @@ procedure Gnatls is -- Give the Sdep entry corresponding to the unit U in ali record A. function Index (Char : Character; Str : String) return Natural; - -- Returns the first occurence of Char in Str. + -- Returns the first occurrence of Char in Str. -- Returns 0 if Char is not in Str. procedure Output_Object (O : File_Name_Type); @@ -244,7 +244,7 @@ procedure Gnatls is Error_Msg_Name_1 := Units.Table (U).Uname; Error_Msg_Name_2 := ALIs.Table (A).Afile; Write_Eol; - Error_Msg ("wrong ALI format, can't find dependancy line for & in %"); + Error_Msg ("wrong ALI format, can't find dependency line for & in %"); Exit_Program (E_Fatal); -- Not needed since we exit the program but avoids compiler warning @@ -1103,7 +1103,7 @@ begin Output_Unit (U); -- Output source now, unless if it will be done as part of - -- outputing dependancies. + -- outputing dependencies. if not (Dependable and then Print_Source) then Output_Source (Corresponding_Sdep_Entry (Id, U)); diff --git a/gcc/ada/gnatmain.adb b/gcc/ada/gnatmain.adb index 0903f516175..cba6181b64b 100644 --- a/gcc/ada/gnatmain.adb +++ b/gcc/ada/gnatmain.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -123,7 +123,7 @@ procedure Gnatmain is -- Displays Program followed by the arguments in Args function Index (Char : Character; Str : String) return Natural; - -- Returns the first occurence of Char in Str. + -- Returns the first occurrence of Char in Str. -- Returns 0 if Char is not in Str. procedure Scan_Arg (Argv : String; And_Save : Boolean); diff --git a/gcc/ada/gnatmem.adb b/gcc/ada/gnatmem.adb index f8493d362d9..c4c91244884 100644 --- a/gcc/ada/gnatmem.adb +++ b/gcc/ada/gnatmem.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1997-2001, Ada Core Technologies, Inc. -- -- -- @@ -70,7 +70,7 @@ with Memroot; use Memroot; procedure Gnatmem is ------------------------------------------------ - -- Potentially Target Dependant Subprograms. -- + -- Potentially Target Dependent Subprograms. -- ------------------------------------------------ function Get_Current_TTY return String; diff --git a/gcc/ada/init.c b/gcc/ada/init.c index e4a83cfc5a0..0637b781ad1 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -4,7 +4,7 @@ * * * I N I T * * * - * $Revision: 1.6 $ + * $Revision: 1.7 $ * * * C Implementation File * * * @@ -1335,7 +1335,7 @@ __gnat_error_handler (sigargs, mechargs) long curr_invo_handle; long *mstate; - /* Resignaled condtions aren't effected by by pragma Import_Exception */ + /* Resignaled conditions aren't effected by by pragma Import_Exception */ switch (sigargs[1]) { diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index d32d0acf77f..739fbee2f49 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.5 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -101,7 +101,7 @@ package body Make is -- The elements comprised between Q.First and Q_Front - 1 are the -- elements that have been enqueued and then dequeued, while the -- elements between Q_Front and Q.Last - 1 are the elements currently - -- in the Q. When the Q is intialized Q_Front = Q.First = Q.Last. + -- in the Q. When the Q is initialized Q_Front = Q.First = Q.Last. -- After Compile_Sources has terminated its execution, Q_Front = Q.Last -- and the elements contained between Q.Front and Q.Last-1 are those that -- were explored and thus marked by Compile_Sources. Whenever the Q is diff --git a/gcc/ada/make.ads b/gcc/ada/make.ads index 587f71d6a55..e96ba564750 100644 --- a/gcc/ada/make.ads +++ b/gcc/ada/make.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.21 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -167,7 +167,7 @@ package Make is -- In_Place_Mode when True save library/object files in their object -- directory if they already exist; otherwise, in the source directory. -- - -- Initialize_ALI_Data set it to True when you want to intialize ALI + -- Initialize_ALI_Data set it to True when you want to initialize ALI -- data-structures. This is what you should do most of the time. -- (especially the first time around when you call this routine). -- This parameter is set to False to preserve previously recorded @@ -238,7 +238,7 @@ package Make is -- Then xref_tab.adb and types.adb are inserted in the Q if they are not -- already marked. -- Note that there is no file listed under W unchecked_deallocation%s - -- so no generic body should ever be explicitely compiled (unless the + -- so no generic body should ever be explicitly compiled (unless the -- Main_Source at the start was a generic body). -- -- 4. Repeat steps 2 and 3 above until the Q is empty diff --git a/gcc/ada/mdlltool.adb b/gcc/ada/mdlltool.adb index fee7218c5be..c1ecc7f006d 100644 --- a/gcc/ada/mdlltool.adb +++ b/gcc/ada/mdlltool.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.4 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- @@ -81,9 +81,9 @@ package body MDLL.Tools is procedure Delete_File (Filename : in String) is File : constant String := Filename & ASCII.Nul; - Sucess : Boolean; + Success : Boolean; begin - OS_Lib.Delete_File (File'Address, Sucess); + OS_Lib.Delete_File (File'Address, Success); end Delete_File; ------------- diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads index 910e02546c5..54f78cdc7d6 100644 --- a/gcc/ada/nlists.ads +++ b/gcc/ada/nlists.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.31 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992-2000 Free Software Foundation, Inc. -- -- -- @@ -328,7 +328,7 @@ package Nlists is procedure Allocate_List_Tables (N : Node_Id); -- Called when nodes table is expanded to include node N. This call -- makes sure that list structures internal to Nlists are adjusted - -- apropriately to reflect this increase in the size of the nodes table. + -- appropriately to reflect this increase in the size of the nodes table. function Next_Node_Address return System.Address; function Prev_Node_Address return System.Address; diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads index fdb3278a61f..be387392295 100644 --- a/gcc/ada/osint.ads +++ b/gcc/ada/osint.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.1 $ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -136,7 +136,7 @@ package Osint is -- Writes name of program as invoked to standard output procedure Fail (S1 : String; S2 : String := ""; S3 : String := ""); - -- Outputs error messages S1 & S2 & S3 preceeded by the name of the + -- Outputs error messages S1 & S2 & S3 preceded by the name of the -- executing program and exits with E_Fatal. function Is_Directory_Separator (C : Character) return Boolean; @@ -264,7 +264,7 @@ package Osint is -- These subprograms are used to parse out the directory names in a -- search path specified by a Search_Path argument. The procedure -- initializes an internal pointer to point to the initial directory - -- name, and calls to the function return sucessive directory names, + -- name, and calls to the function return successive directory names, -- with a null pointer marking the end of the list. function Get_Primary_Src_Search_Directory return String_Ptr; diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 211665345e1..afecf24892c 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -3420,7 +3420,7 @@ package body Ch3 is -- are considered to end a declarative part (i.e. we have a missing -- BEGIN situation). We are fairly conservative in making this -- judgment, because it is a real mess to go into statement mode - -- prematurely in reponse to a junk declaration. + -- prematurely in response to a junk declaration. when Tok_Abort | Tok_Accept | diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 30fba5619cc..767410953b3 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.91 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -499,7 +499,7 @@ package body Ch4 is -- (..., identifier => expression , ...) - -- If there is at least one occurence of identifier => (but + -- If there is at least one occurrence of identifier => (but -- none of the other cases apply), then we have a call. -- Test for Id => case @@ -624,7 +624,7 @@ package body Ch4 is end if; -- Comma present (and scanned out), test for identifier => case - -- Test for identifer => case + -- Test for identifier => case if Token = Tok_Identifier then Save_Scan_State (Scan_State); -- at Id diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 2ec56726e6b..fb31c34e5c6 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.95 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -968,7 +968,7 @@ package body Ch5 is -- LABEL ::= <<label_STATEMENT_IDENTIFIER>> - -- STATEMENT_INDENTIFIER ::= DIRECT_NAME + -- STATEMENT_IDENTIFIER ::= DIRECT_NAME -- The IDENTIFIER of a STATEMENT_IDENTIFIER shall be an identifier -- (not an OPERATOR_SYMBOL) diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index d5d1d3daaa1..5b7dd520d14 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.81 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -208,7 +208,7 @@ package body Ch6 is if Token = Tok_New then if not Pf_Flags.Gins then - Error_Msg_SC ("generic instantation not allowed here!"); + Error_Msg_SC ("generic instantiation not allowed here!"); end if; Scan; -- past NEW @@ -1083,7 +1083,7 @@ package body Ch6 is end if; if Token = Tok_In then - Error_Msg_SC ("IN must preceed OUT in parameter mode"); + Error_Msg_SC ("IN must precede OUT in parameter mode"); Scan; -- past IN Set_In_Present (Node, True); end if; diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 958a8a7d0af..5ecce52393f 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -750,7 +750,7 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- Used if an error occurs while scanning a parenthesized list of items -- separated by semicolons. The scan pointer is advanced to the next -- semicolon or right parenthesis at the outer parenthesis level, or - -- to the next is or RETURN keyword occurence, whichever comes first. + -- to the next is or RETURN keyword occurrence, whichever comes first. procedure Resync_Cunit; -- Synchronize to next token which could be the start of a compilation diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 9e711527e5b..a5bbaf4c777 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.36 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- @@ -104,7 +104,7 @@ package body Repinfo is ----------------------- Unit_Casing : Casing_Type; - -- Indentifier casing for current unit + -- Identifier casing for current unit procedure Spaces (N : Natural); -- Output given number of spaces diff --git a/gcc/ada/s-fatflt.ads b/gcc/ada/s-fatflt.ads index b27d4b2b839..748bb5fac14 100644 --- a/gcc/ada/s-fatflt.ads +++ b/gcc/ada/s-fatflt.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- @@ -41,7 +41,7 @@ with System.Fat_Gen; package System.Fat_Flt is pragma Pure (Fat_Flt); - -- Note the only entity from this package that is acccessed by Rtsfind + -- Note the only entity from this package that is accessed by Rtsfind -- is the name of the package instantiation. Entities within this package -- (i.e. the individual floating-point attribute routines) are accessed -- by name using selected notation. diff --git a/gcc/ada/s-fatlfl.ads b/gcc/ada/s-fatlfl.ads index a16a26fbe91..cfa608946a0 100644 --- a/gcc/ada/s-fatlfl.ads +++ b/gcc/ada/s-fatlfl.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- @@ -41,7 +41,7 @@ with System.Fat_Gen; package System.Fat_LFlt is pragma Pure (Fat_LFlt); - -- Note the only entity from this package that is acccessed by Rtsfind + -- Note the only entity from this package that is accessed by Rtsfind -- is the name of the package instantiation. Entities within this package -- (i.e. the individual floating-point attribute routines) are accessed -- by name using selected notation. diff --git a/gcc/ada/s-fatllf.ads b/gcc/ada/s-fatllf.ads index 3d4953dff46..aef1dae49f1 100644 --- a/gcc/ada/s-fatllf.ads +++ b/gcc/ada/s-fatllf.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- @@ -41,7 +41,7 @@ with System.Fat_Gen; package System.Fat_LLF is pragma Pure (Fat_LLF); - -- Note the only entity from this package that is acccessed by Rtsfind + -- Note the only entity from this package that is accessed by Rtsfind -- is the name of the package instantiation. Entities within this package -- (i.e. the individual floating-point attribute routines) are accessed -- by name using selected notation. diff --git a/gcc/ada/s-fatsfl.ads b/gcc/ada/s-fatsfl.ads index bc17fbd6647..6d7c7073eec 100644 --- a/gcc/ada/s-fatsfl.ads +++ b/gcc/ada/s-fatsfl.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.3 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992,1993,1994,1995,1996 Free Software Foundation, Inc. -- -- -- @@ -41,7 +41,7 @@ with System.Fat_Gen; package System.Fat_SFlt is pragma Pure (Fat_SFlt); - -- Note the only entity from this package that is acccessed by Rtsfind + -- Note the only entity from this package that is accessed by Rtsfind -- is the name of the package instantiation. Entities within this package -- (i.e. the individual floating-point attribute routines) are accessed -- by name using selected notation. diff --git a/gcc/ada/s-finimp.adb b/gcc/ada/s-finimp.adb index 60df91c6dd1..724477b2b2f 100644 --- a/gcc/ada/s-finimp.adb +++ b/gcc/ada/s-finimp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.48 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -105,10 +105,10 @@ package body System.Finalization_Implementation is Object.My_Address - Object'Address; procedure Ptr_Adjust (Ptr : in out Finalizable_Ptr); - -- Substract the offset to the pointer + -- Subtract the offset to the pointer procedure Reverse_Adjust (P : Finalizable_Ptr); - -- Ajust the components in the reverse order in which they are stored + -- Adjust the components in the reverse order in which they are stored -- on the finalization list. (Adjust and Finalization are not done in -- the same order) @@ -437,10 +437,10 @@ package body System.Finalization_Implementation is P : Finalizable_Ptr := L; Q : Finalizable_Ptr; - type Fake_Exception_Occurence is record + type Fake_Exception_Occurrence is record Id : Exception_Id; end record; - type Ptr is access all Fake_Exception_Occurence; + type Ptr is access all Fake_Exception_Occurrence; -- Let's get the current exception before starting to finalize in -- order to check if we are in the abort case if an exception is diff --git a/gcc/ada/s-finimp.ads b/gcc/ada/s-finimp.ads index 49db440a0ec..4c5efcede66 100644 --- a/gcc/ada/s-finimp.ads +++ b/gcc/ada/s-finimp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.31 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- -- -- @@ -139,7 +139,7 @@ pragma Elaborate_Body (Finalization_Implementation); -- Initialize the field My_Address to the Object'Address procedure Adjust (Object : in out Record_Controller); - -- Adjust the components and their finalization pointers by substracting + -- Adjust the components and their finalization pointers by subtracting -- by the offset of the target and the source addresses of the assignment -- Inherit Finalize from Limited_Record_Controller diff --git a/gcc/ada/s-interr.adb b/gcc/ada/s-interr.adb index 03db2ff1512..8bd065ed214 100644 --- a/gcc/ada/s-interr.adb +++ b/gcc/ada/s-interr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.36 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001 Free Software Foundation, Inc. -- -- -- @@ -1096,7 +1096,7 @@ package body System.Interrupts is -- Abort_Task_Interrupt is one of the Interrupt unmasked -- in all tasks. We mask the Interrupt in this particular task - -- so that "sigwait" is possible to catch an explicitely sent + -- so that "sigwait" is possible to catch an explicitly sent -- Abort_Task_Interrupt from the Server_Tasks. -- This sigwaiting is needed so that we make sure a Server_Task is @@ -1412,7 +1412,7 @@ package body System.Interrupts is -- Abort_Task_Interrupt is one of the Interrupt unmasked -- in all tasks. We mask the Interrupt in this particular task - -- so that "sigwait" is possible to catch an explicitely sent + -- so that "sigwait" is possible to catch an explicitly sent -- Abort_Task_Interrupt from the Interrupt_Manager. -- There are two Interrupt interrupts that this task catch through diff --git a/gcc/ada/s-secsta.ads b/gcc/ada/s-secsta.ads index 82d7e6cc50a..cdc6db1bdc8 100644 --- a/gcc/ada/s-secsta.ads +++ b/gcc/ada/s-secsta.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.21 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-1999 Free Software Foundation, Inc. -- -- -- @@ -89,7 +89,7 @@ package System.Secondary_Stack is procedure SS_Info; -- Debugging procedure used to print out secondary Stack allocation -- information. This procedure is generic in order to avoid a direct - -- dependance on a particular IO package. + -- dependence on a particular IO package. private diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads index d1b5e819edc..f884e76935b 100644 --- a/gcc/ada/s-shasto.ads +++ b/gcc/ada/s-shasto.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.5 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1998-2001 Free Software Foundation, Inc. -- -- -- @@ -33,7 +33,7 @@ -- -- ------------------------------------------------------------------------------ --- This package manages the shared/persistant storage required for +-- This package manages the shared/persistent storage required for -- full implementation of variables in Shared_Passive packages, more -- precisely variables whose enclosing dynamic scope is a shared -- passive package. This implementation is specific to GNAT and GLADE diff --git a/gcc/ada/s-stalib.adb b/gcc/ada/s-stalib.adb index 189cfa14c00..ddfdf846e4f 100644 --- a/gcc/ada/s-stalib.adb +++ b/gcc/ada/s-stalib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1995-2001 Free Software Foundation, Inc. -- -- -- @@ -49,7 +49,7 @@ with System.Soft_Links; -- Referenced directly from generated code using external symbols so it -- must always be present in a build, even if no unit has a direct with -- of this unit. Also referenced from exception handling routines. --- This is needed for programs that don't use exceptions explicitely but +-- This is needed for programs that don't use exceptions explicitly but -- direct calls to Ada.Exceptions are generated by gigi (for example, -- by calling __gnat_raise_constraint_error directly). diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads index cfd6622158f..bf9a10b0b31 100644 --- a/gcc/ada/s-stalib.ads +++ b/gcc/ada/s-stalib.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.43 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -58,7 +58,7 @@ with Unchecked_Conversion; package System.Standard_Library is pragma Suppress (All_Checks); - -- Suppress explicitely all the checks to work around the Solaris linker + -- Suppress explicitly all the checks to work around the Solaris linker -- bug when using gnatmake -f -a (but without -gnatp). This is not needed -- with Solaris 2.6, so eventually can be removed ??? diff --git a/gcc/ada/s-tarest.ads b/gcc/ada/s-tarest.ads index 7846fbc3233..48a2bc796ae 100644 --- a/gcc/ada/s-tarest.ads +++ b/gcc/ada/s-tarest.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.5 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- @@ -148,7 +148,7 @@ package System.Tasking.Restricted.Stages is -- are those of the task to create. This parameter should be passed as -- the single argument to State. -- Elaborated is a pointer to a Boolean that must be set to true on exit - -- if the task could be sucessfully elaborated. + -- if the task could be successfully elaborated. -- Chain is a linked list of task that needs to be created. On exit, -- Created_Task.Activation_Link will be Chain.T_ID, and Chain.T_ID -- will be Created_Task (e.g the created task will be linked at the front diff --git a/gcc/ada/s-tasdeb.adb b/gcc/ada/s-tasdeb.adb index 4ee2fd45a80..aceeecfdb84 100644 --- a/gcc/ada/s-tasdeb.adb +++ b/gcc/ada/s-tasdeb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1997-2001 Free Software Foundation, Inc. -- -- -- @@ -91,7 +91,7 @@ package body System.Tasking.Debug is Width : Integer; Buffer : Buffer_Ptr); -- Put TCB pointer T, (coded in hexadecimal) into Buffer - -- right-justififed in Width characters. + -- right-justified in Width characters. procedure Put (N : Integer_Address; diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index 3c265f2f1d2..9fe7f891b95 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.138 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1991-2001 Florida State University -- -- -- @@ -735,7 +735,7 @@ package body System.Tasking.Stages is Abort_Dependents (Self_ID); - -- We need to explicitely wait for the task to be + -- We need to explicitly wait for the task to be -- terminated here because on true concurrent system, we -- may end this procedure before the tasks are really -- terminated. diff --git a/gcc/ada/s-tassta.ads b/gcc/ada/s-tassta.ads index 913435a03fb..f52ebcaebc2 100644 --- a/gcc/ada/s-tassta.ads +++ b/gcc/ada/s-tassta.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.33 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-1999, Free Software Foundation, Inc. -- -- -- @@ -194,7 +194,7 @@ package System.Tasking.Stages is -- are those of the task to create. This parameter should be passed as -- the single argument to State. -- Elaborated is a pointer to a Boolean that must be set to true on exit - -- if the task could be sucessfully elaborated. + -- if the task could be successfully elaborated. -- Chain is a linked list of task that needs to be created. On exit, -- Created_Task.Activation_Link will be Chain.T_ID, and Chain.T_ID -- will be Created_Task (e.g the created task will be linked at the front diff --git a/gcc/ada/s-vaflop.ads b/gcc/ada/s-vaflop.ads index 5f22cffdc04..92fad30b1ea 100644 --- a/gcc/ada/s-vaflop.ads +++ b/gcc/ada/s-vaflop.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.13 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1997-1998 Free Software Foundation, Inc. -- -- -- @@ -164,7 +164,7 @@ package System.Vax_Float_Operations is -- These routines return a decimal C string image of their argument. -- They are provided for implicit use by the debugger, in response to -- the special encoding used for Vax floating-point types (see Exp_Dbug - -- for details). They supercede the above Debug_Output_D/F/G routines + -- for details). They supersede the above Debug_Output_D/F/G routines -- which didn't work properly with GDBTK. procedure pd (Arg : D); diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index d11023372b6..bcb12e1c93a 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -64,7 +64,7 @@ package Scans is Tok_Operator_Symbol, -- op symbol Name, Literal, Lit_Or_Name, Desig - Tok_Identifier, -- identifer Name, Lit_Or_Name, Desig + Tok_Identifier, -- identifier Name, Lit_Or_Name, Desig Tok_Double_Asterisk, -- ** diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index af6668af5c1..ae0e1125e50 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -492,7 +492,7 @@ package body Scn is Scan; - -- Clear flags for reserved words used as indentifiers + -- Clear flags for reserved words used as identifiers for J in Token_Type loop Used_As_Identifier (J) := False; diff --git a/gcc/ada/sem.ads b/gcc/ada/sem.ads index a88761627fe..41fc032b462 100644 --- a/gcc/ada/sem.ads +++ b/gcc/ada/sem.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.101 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -126,7 +126,7 @@ -- it up without causing too much distortion to our basic model. -- -- A switch (sede below) is set to indicate that we are in the initial --- occurence of a default expression. The analyzer is then called on this +-- occurrence of a default expression. The analyzer is then called on this -- expression with the switch set true. Analysis and resolution proceed -- almost as usual, except that Freeze_Expression will not freeze -- non-static expressions if this switch is set, and the call to Expand at diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 6bb3cccc6d4..4a5bafd9b67 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.1 $ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -1313,7 +1313,7 @@ package body Sem_Aggr is is Nxt_Ind : Node_Id := Next_Index (Index); Nxt_Ind_Constr : Node_Id := Next_Index (Index_Constr); - -- Index is the current index corresponding to the expresion. + -- Index is the current index corresponding to the expression. Resolution_OK : Boolean := True; -- Set to False if resolution of the expression failed. diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index a8e2306d816..bee8fe78290 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.7 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -5512,7 +5512,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 8d0b3f1fbb6..dd45600c2ec 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1996-2001 Free Software Foundation, Inc. -- -- -- @@ -48,7 +48,7 @@ package Sem_Case is procedure No_OP (C : Node_Id); -- The no-operation routine. Does absolutely nothing. Can be used - -- in the following generic for the parameter Proces_Empty_Choice. + -- in the following generic for the parameter Process_Empty_Choice. generic with function Get_Alternatives (N : Node_Id) return List_Id; diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 8a1cc690eac..1ef523c23a3 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -703,7 +703,7 @@ package body Sem_Ch10 is if Nkind (Item) = N_With_Clause then -- Skip analyzing with clause if no unit, nothing to do (this - -- happens for a with that references a non-existant unit) + -- happens for a with that references a non-existent unit) if Present (Library_Unit (Item)) then Analyze (Item); @@ -998,7 +998,7 @@ package body Sem_Ch10 is begin Check_Stub_Level (N); - -- First occurence of name may have been as an incomplete type. + -- First occurrence of name may have been as an incomplete type. if Present (Nam) and then Ekind (Nam) = E_Incomplete_Type then Nam := Full_View (Nam); @@ -1364,7 +1364,7 @@ package body Sem_Ch10 is begin Check_Stub_Level (N); - -- First occurence of name may have been as an incomplete type. + -- First occurrence of name may have been as an incomplete type. if Present (Nam) and then Ekind (Nam) = E_Incomplete_Type then Nam := Full_View (Nam); diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 655291f1d0a..13e46238cf6 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.14 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -5016,7 +5016,7 @@ package body Sem_Ch12 is begin -- If the instance and the generic body appear within the same - -- unit, and the instance preceeds the generic, the freeze node for + -- unit, and the instance precedes the generic, the freeze node for -- the instance must appear after that of the generic. If the generic -- is nested within another instance I2, then current instance must -- be frozen after I2. In both cases, the freeze nodes are those of @@ -5297,7 +5297,7 @@ package body Sem_Ch12 is -- The inherited context is attached to the enclosing compilation -- unit. This is either the main unit, or the declaration for the - -- main unit (in case the instantation appears within the package + -- main unit (in case the instantiation appears within the package -- declaration and the main unit is its body). Current_Unit := Parent (Inst); @@ -8103,7 +8103,7 @@ package body Sem_Ch12 is -- package itself. If the instance is a subprogram, all entities -- in the corresponding package are renamings. If this entity is -- a formal package, make its own formals private as well. The - -- actual in this case is itself the renaming of an instantation. + -- actual in this case is itself the renaming of an instantiation. -- If the entity is not a package renaming, it is the entity -- created to validate formal package actuals: ignore. diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index a4a76ff2cc3..f15850a3b4b 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -3438,7 +3438,7 @@ package body Sem_Ch13 is -- For enumeration types, we must check each literal to see if the -- representation is the same. Note that we do not permit enumeration - -- reprsentation clauses for Character and Wide_Character, so these + -- representation clauses for Character and Wide_Character, so these -- cases were already dealt with. elsif Is_Enumeration_Type (T1) then diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 515f2e148da..eb3d2939405 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.10 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -96,7 +96,7 @@ package body Sem_Ch3 is -- process an implicit derived full type for a type derived from a private -- type (in that case the subprograms must only be derived for the private -- view of the type). - -- ??? These flags need a bit of re-examination and re-documentaion: + -- ??? These flags need a bit of re-examination and re-documentation: -- ??? are they both necessary (both seem related to the recursion)? procedure Build_Derived_Access_Type @@ -204,7 +204,7 @@ package body Sem_Ch3 is -- procedures for the type where Discrim is a discriminant. Discriminals -- are not used during semantic analysis, and are not fully defined -- entities until expansion. Thus they are not given a scope until - -- intialization procedures are built. + -- initialization procedures are built. function Build_Discriminant_Constraints (T : Entity_Id; @@ -3942,7 +3942,7 @@ package body Sem_Ch3 is -- o The discriminants specified by a new KNOWN_DISCRIMINANT_PART, if -- there is one; - -- o Otherwise, each discriminant of the parent type (implicitely + -- o Otherwise, each discriminant of the parent type (implicitly -- declared in the same order with the same specifications). In this -- case, the discriminants are said to be "inherited", or if unknown in -- the parent are also unknown in the derived type. @@ -4130,7 +4130,7 @@ package body Sem_Ch3 is -- Then the above transformation turns this into -- type Der_Base is new Base with null record; - -- -- procedure P (X : Base) is implicitely inherited here + -- -- procedure P (X : Base) is implicitly inherited here -- -- as procedure P (X : Der_Base). -- subtype Der is Der_Base (2); @@ -9850,7 +9850,7 @@ package body Sem_Ch3 is Set_Corresponding_Discriminant (New_C, Old_C); Build_Discriminal (New_C); - -- If we are explicitely inheriting a girder discriminant it will be + -- If we are explicitly inheriting a girder discriminant it will be -- completely hidden. elsif Girder_Discrim then diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads index aefb310c647..5a1671feccd 100644 --- a/gcc/ada/sem_ch3.ads +++ b/gcc/ada/sem_ch3.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.57 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -175,7 +175,7 @@ package Sem_Ch3 is procedure Process_Full_View (N : Node_Id; Full_T, Priv_T : Entity_Id); -- Process some semantic actions when the full view of a private type is -- encountered and analyzed. The first action is to create the full views - -- of the dependant private subtypes. The second action is to recopy the + -- of the dependent private subtypes. The second action is to recopy the -- primitive operations of the private view (in the tagged case). -- N is the N_Full_Type_Declaration node. diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index fcb7c78e795..9386a19af6b 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -484,7 +484,7 @@ package body Sem_Ch5 is procedure Non_Static_Choice_Error (Choice : Node_Id); -- Error routine invoked by the generic instantiation below when - -- the case statment has a non static choice. + -- the case statement has a non static choice. procedure Process_Statements (Alternative : Node_Id); -- Analyzes all the statements associated to a case alternative. diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index 74d70d1fed8..91f2ad14202 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -69,14 +69,14 @@ package body Sem_Ch7 is -- with the presence of two separate definitions for private types: the -- first is the private type declaration, and the second is the full type -- declaration. It is important that all references to the type point to - -- the same defining occurence, namely the first one. To enforce the two + -- the same defining occurrence, namely the first one. To enforce the two -- separate views of the entity, the corresponding information is swapped -- between the two declarations. Outside of the package, the defining - -- occurence only contains the private declaration information, while in + -- occurrence only contains the private declaration information, while in -- the private part and the body of the package the defining occurrence -- contains the full declaration. To simplify the swap, the defining -- occurrence that currently holds the private declaration points to the - -- full declaration. During semantic processing the defining occurence also + -- full declaration. During semantic processing the defining occurrence also -- points to a list of private dependents, that is to say access types or -- composite types whose designated types or component types are subtypes -- or derived types of the private type in question. After the full decla- @@ -151,7 +151,7 @@ package body Sem_Ch7 is Write_Eol; end if; - -- Set Body_Id. Note that this wil be reset to point to the + -- Set Body_Id. Note that this will be reset to point to the -- generic copy later on in the generic case. Body_Id := Defining_Entity (N); diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 7e24ef65b9a..6d4e43044fc 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -258,7 +258,7 @@ package body Sem_Ch8 is -- a) The defining occurrence for a package holds a flag -In_Use- to -- indicate that it is currently in the scope of a use clause. If a - -- redundant use clause is encountered, then the corresponding occurence + -- redundant use clause is encountered, then the corresponding occurrence -- of the package name is flagged -Redundant_Use-. -- b) On exit from a scope, the use clauses in its declarative part are @@ -281,14 +281,14 @@ package body Sem_Ch8 is -- with the presence of two separate definitions for private types: the -- first is the private type declaration, and second is the full type -- declaration. It is important that all references to the type point to - -- the same defining occurence, namely the first one. To enforce the two + -- the same defining occurrence, namely the first one. To enforce the two -- separate views of the entity, the corresponding information is swapped -- between the two declarations. Outside of the package, the defining - -- occurence only contains the private declaration information, while in + -- occurrence only contains the private declaration information, while in -- the private part and the body of the package the defining occurrence -- contains the full declaration. To simplify the swap, the defining -- occurrence that currently holds the private declaration points to the - -- full declaration. During semantic processing the defining occurence + -- full declaration. During semantic processing the defining occurrence -- also points to a list of private dependents, that is to say access -- types or composite types whose designated types or component types are -- subtypes or derived types of the private type in question. After the diff --git a/gcc/ada/sem_ch8.ads b/gcc/ada/sem_ch8.ads index c2713657a4a..08285662604 100644 --- a/gcc/ada/sem_ch8.ads +++ b/gcc/ada/sem_ch8.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.33 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -155,7 +155,7 @@ package Sem_Ch8 is -- of the scope suppress flags. function Present_System_Aux (N : Node_Id := Empty) return Boolean; - -- Return True if the auxiliary system file has been sucessfully loaded. + -- Return True if the auxiliary system file has been successfully loaded. -- Otherwise attempt to load it, using the name supplied by a previous -- Extend_System pragma, and report on the success of the load. -- If N is present, it is a selected component whose prefix is System, diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb index afb347d4c71..ef0626010f9 100644 --- a/gcc/ada/sem_type.adb +++ b/gcc/ada/sem_type.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -361,7 +361,7 @@ package body Sem_Type is else -- Overloaded prefix in indexed or selected component, - -- or call whose name is an expresion or another call. + -- or call whose name is an expression or another call. Add_Entry (Etype (N), Etype (N)); end if; diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index f31738df9b1..303086b379f 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.1 $ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -455,7 +455,7 @@ package Sem_Util is function Is_Selector_Name (N : Node_Id) return Boolean; -- Given an N_Identifier node N, determines if it is a Selector_Name. -- As described in Sinfo, Selector_Names are special because they - -- represent use of the N_Identifier node for a true identifer, when + -- represent use of the N_Identifier node for a true identifier, when -- normally such nodes represent a direct name. function Is_Statement (N : Node_Id) return Boolean; @@ -540,7 +540,7 @@ package Sem_Util is Report : Boolean; Success : out Boolean); -- Reorders lists of actuals according to names of formals, value returned - -- in Success indicates sucess of reordering. For more details, see body. + -- in Success indicates success of reordering. For more details, see body. -- Errors are reported only if Report is set to True. procedure Note_Possible_Modification (N : Node_Id); diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 3d9398c5083..ba58c82f45f 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision$ +-- $Revision: 1.5 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -386,7 +386,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), + -- (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. @@ -3456,7 +3456,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) diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 8c58ca81540..e7c1a6a0de9 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.205 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -134,7 +134,7 @@ package body Sprint is -- called to ensure that the current node has a proper Sloc set. 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); diff --git a/gcc/ada/tbuild.ads b/gcc/ada/tbuild.ads index 51d539b523b..b2b2176ae2d 100644 --- a/gcc/ada/tbuild.ads +++ b/gcc/ada/tbuild.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.69 $ +-- $Revision: 1.1 $ -- -- -- Copyright (C) 1992-2000, Free Software Foundation, Inc. -- -- -- @@ -73,7 +73,7 @@ package Tbuild is 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). diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index 53c47c3fb95..4c73f2e4bc8 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.2 $ +-- $Revision: 1.3 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -445,7 +445,7 @@ pragma Preelaborate (Types); 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; diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 089770b5b73..8f1f3419b1a 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * $Revision$ + * $Revision: 1.6 $ * * * Copyright (C) 1992-2001, Free Software Foundation, Inc. * * * @@ -304,7 +304,7 @@ poplevel (keep, reverse, functionbody) /* Reverse the list of XXXX_DECL nodes if desired. Note that the ..._DECL nodes chained through the `names' field of current_binding_level are in - reverse order except for PARM_DECL node, which are explicitely stored in + reverse order except for PARM_DECL node, which are explicitly stored in the right order. */ current_binding_level->names = decl_chain = (reverse) ? nreverse (current_binding_level->names) diff --git a/gcc/ada/xeinfo.adb b/gcc/ada/xeinfo.adb index 172127dc0ee..bdf752d5869 100644 --- a/gcc/ada/xeinfo.adb +++ b/gcc/ada/xeinfo.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision$ +-- $Revision: 1.2 $ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -249,7 +249,7 @@ procedure XEinfo is begin Anchored_Mode := True; - Match ("$Revision$", "$Rev" & "ision: " & Break (' ') * XEinforev); + Match ("$Revision: 1.2 $", "$Rev" & "ision: " & Break (' ') * XEinforev); if Argument_Count > 0 then Create (Ofile, Out_File, Argument (1)); @@ -417,7 +417,7 @@ begin while Match (Line, Get_FN) loop - -- Non-inlined funcion + -- Non-inlined function if not Present (Inlined, FN) then Put_Line (Ofile, ""); |