diff options
62 files changed, 192 insertions, 167 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0717377c5b3..3e4c64edc41 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,24 @@ +2008-04-13 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> + + * s-secsta.adb, s-sequio.ads, s-shasto.ads, + s-soflin.ads, s-stalib.ads, s-stausa.adb, + s-stausa.ads, s-strxdr.adb, s-taenca.adb, s-taenca.ads, + s-taprob.adb, s-taprop-hpux-dce.adb, s-taprop-irix.adb, + s-taprop-linux.adb, s-taprop-mingw.adb, s-taprop-posix.adb, + s-taprop-solaris.adb, s-taprop-tru64.adb, s-taprop-vms.adb, + s-taprop-vxworks.adb, s-taprop.ads, s-tarest.adb, + s-tarest.ads, s-tasini.adb, s-tasini.ads, s-taskin.ads, + s-tasque.ads, s-tassta.adb, s-tassta.ads, s-tasuti.ads, + s-tpoben.adb, s-tpoben.ads, s-tpobop.adb, + s-tpopsp-posix.adb, s-tpopsp-rtems.adb, s-tposen.adb, + s-tposen.ads, s-traceb-hpux.adb, s-traces.ads, + s-trafor-default.ads, s-unstyp.ads, s-utf_32.ads, + s-vaflop.adb, s-vaflop.ads, s-valrea.adb, s-valuti.adb, + s-wchstw.ads, s-wchwts.adb, s-wchwts.ads, scans.ads, + scn.adb, scng.adb, seh_init.c, sem.ads, sem_aggr.adb, + sem_attr.adb, sem_attr.ads, sem_case.adb, sem_case.ads, + sem_cat.adb, sem_cat.ads: Fix comment typos. + 2008-04-12 Joel Sherrill <joel@oarcorp.com> PR ada/35825 diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb index 6fafa8cfdab..2b53f5959a4 100644 --- a/gcc/ada/s-secsta.adb +++ b/gcc/ada/s-secsta.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -135,7 +135,7 @@ package body System.Secondary_Stack is -- For the static case, the secondary stack is a single contiguous -- chunk of storage, carved out of the primary stack, and represented - -- by the following data strcuture + -- by the following data structure type Fixed_Stack_Id is record Top : SS_Ptr; @@ -237,7 +237,7 @@ package body System.Secondary_Stack is end loop; -- Find out if the available memory in the current chunk is - -- sufficient, if not, go to the next one and eventally create + -- sufficient, if not, go to the next one and eventually create -- the necessary room. while Chunk.Last - Stack.Top + 1 < Max_Size loop diff --git a/gcc/ada/s-sequio.ads b/gcc/ada/s-sequio.ads index d263ec33f45..1c8d217befa 100644 --- a/gcc/ada/s-sequio.ads +++ b/gcc/ada/s-sequio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package contains the declaration of the control block used for --- Seqential_IO. This must be declared at the outer library level. It also +-- Sequential_IO. This must be declared at the outer library level. It also -- contains code that is shared between instances of Sequential_IO. with System.File_Control_Block; diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads index 77cfa7b6421..fc4055b9826 100644 --- a/gcc/ada/s-shasto.ads +++ b/gcc/ada/s-shasto.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -31,7 +31,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 @@ -134,7 +134,7 @@ -- the same stream is used simultaneously, both operations can -- terminate abruptly by raising exception Mode_Error because the -- stream has been opened in read mode and then in write mode and at --- least used by the read opartion. To avoid this unexpected +-- least used by the read operation. To avoid this unexpected -- behaviour, we introduce a synchronization at the partition level. -- Note: a special circuit allows the use of stream attributes Read and @@ -214,7 +214,7 @@ package System.Shared_Storage is -- the lock is busy. procedure Shared_Var_Unlock (Var : String); - -- This procedure releases the shared storage lock obtaind by a + -- This procedure releases the shared storage lock obtained by a -- prior call to the Shared_Mem_Lock procedure, and is to be -- generated as the last operation in the body of a protected -- subprogram. diff --git a/gcc/ada/s-soflin.ads b/gcc/ada/s-soflin.ads index bc8bd1d609f..324308900ed 100644 --- a/gcc/ada/s-soflin.ads +++ b/gcc/ada/s-soflin.ads @@ -107,7 +107,7 @@ package System.Soft_Links is function return String; pragma Favor_Top_Level (Task_Name_Call); - -- Suppress checks on all these types, since we know the corrresponding + -- Suppress checks on all these types, since we know the corresponding -- values can never be null (the soft links are always initialized). pragma Suppress (Access_Check, No_Param_Proc); diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads index c23ef36e97f..9b340ddc2b2 100644 --- a/gcc/ada/s-stalib.ads +++ b/gcc/ada/s-stalib.ads @@ -116,7 +116,7 @@ package System.Standard_Library is -- The following record defines the underlying representation of exceptions - -- WARNING! Any changes to this may need to be reflectd in the following + -- WARNING! Any changes to this may need to be reflected in the following -- locations in the compiler and runtime code: -- 1. The Internal_Exception routine in s-exctab.adb @@ -165,7 +165,7 @@ package System.Standard_Library is -- Definitions for standard predefined exceptions defined in Standard, - -- Why are the Nul's necessary here, seems like they should not be + -- Why are the NULs necessary here, seems like they should not be -- required, since Gigi is supposed to add a Nul to each name ??? Constraint_Error_Name : constant String := "CONSTRAINT_ERROR" & ASCII.NUL; diff --git a/gcc/ada/s-stausa.adb b/gcc/ada/s-stausa.adb index 42fe418d7c5..6eb8a0ca6ef 100644 --- a/gcc/ada/s-stausa.adb +++ b/gcc/ada/s-stausa.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -219,7 +219,7 @@ package body System.Stack_Usage is -- If variable GNAT_STACK_LIMIT is set, then we will take care of the -- environment task, using GNAT_STASK_LIMIT as the size of the stack. - -- It doens't make sens to process the stack when no bound is set (e.g. + -- It doesn't make sens to process the stack when no bound is set (e.g. -- limit is typically up to 4 GB). if Stack_Size_Chars /= Null_Address then diff --git a/gcc/ada/s-stausa.ads b/gcc/ada/s-stausa.ads index 4da9c00aef8..b309c3735e8 100644 --- a/gcc/ada/s-stausa.ads +++ b/gcc/ada/s-stausa.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -127,7 +127,7 @@ package System.Stack_Usage is -- this point, it will increase the measured stack size. -- Strategy: We could augment this stack frame and see if it changes the - -- measure. However, this error should be negligeable. + -- measure. However, this error should be negligible. -- Pattern zone overflow: @@ -225,7 +225,7 @@ package System.Stack_Usage is -- When this flag is true, then stack analysis is enabled procedure Compute_Result (Analyzer : in out Stack_Analyzer); - -- Read the patern zone and deduce the stack usage. It should be called + -- Read the pattern zone and deduce the stack usage. It should be called -- from the same frame as Fill_Stack. If Analyzer.Probe is not null, an -- array of Unsigned_32 with Analyzer.Probe elements is allocated on -- Compute_Result's stack frame. Probe can be used to detect the error: @@ -249,7 +249,7 @@ package System.Stack_Usage is procedure Report_Result (Analyzer : Stack_Analyzer); -- Store the results of the computation in memory, at the address -- corresponding to the symbol __gnat_stack_usage_results. This is not - -- done inside Compute_Resuls in order to use as less stack as possible + -- done inside Compute_Result in order to use as less stack as possible -- within a task. procedure Output_Results; @@ -281,7 +281,7 @@ private -- Pattern used to recognize untouched memory Bottom_Pattern_Mark : Stack_Address; - -- Bound of the pattern area on the stack clostest to the bottom + -- Bound of the pattern area on the stack closest to the bottom Top_Pattern_Mark : Stack_Address; -- Topmost bound of the pattern area on the stack @@ -334,7 +334,7 @@ private (SP_Low : Stack_Address; SP_High : Stack_Address) return Natural; pragma Inline (Stack_Size); - -- Return the size of a portion of stack delimeted by SP_High and SP_Low + -- Return the size of a portion of stack delimited by SP_High and SP_Low -- (), i.e. the difference between SP_High and SP_Low. The storage element -- pointed by SP_Low is not included in the size. Inlined to reduce the -- size of the stack used by the instrumentation code. diff --git a/gcc/ada/s-strxdr.adb b/gcc/ada/s-strxdr.adb index ca37a7fd4e7..7732daadfb1 100644 --- a/gcc/ada/s-strxdr.adb +++ b/gcc/ada/s-strxdr.adb @@ -33,7 +33,7 @@ -- This file is an alternate version of s-stratt.adb based on the XDR -- standard. It is especially useful for exchanging streams between two --- different systems with different basic type representations and endianess. +-- different systems with different basic type representations and endianness. with Ada.IO_Exceptions; with Ada.Streams; use Ada.Streams; @@ -74,8 +74,8 @@ package body System.Stream_Attributes is F_Size : Integer; -- Fraction bit size E_Last : Integer; -- Max exponent value F_Mask : SE; -- Mask to apply on first fraction byte - E_Bytes : SEO; -- N. of exponent bytes completly used - F_Bytes : SEO; -- N. of fraction bytes completly used + E_Bytes : SEO; -- N. of exponent bytes completely used + F_Bytes : SEO; -- N. of fraction bytes completely used F_Bits : Integer; -- N. of bits used on first fraction word end record; diff --git a/gcc/ada/s-taenca.adb b/gcc/ada/s-taenca.adb index 0f4b0c8fa4d..a37538b7308 100644 --- a/gcc/ada/s-taenca.adb +++ b/gcc/ada/s-taenca.adb @@ -113,7 +113,7 @@ package body System.Tasking.Entry_Calls is pragma Inline (Poll_Base_Priority_Change_At_Entry_Call); -- A specialized version of Poll_Base_Priority_Change, that does the -- optional entry queue reordering. Has to be called with the Self_ID's - -- ATCB write-locked. May temporariliy release the lock. + -- ATCB write-locked. May temporarily release the lock. --------------------- -- Check_Exception -- diff --git a/gcc/ada/s-taenca.ads b/gcc/ada/s-taenca.ads index 1b88b16dc8e..e4449707be0 100644 --- a/gcc/ada/s-taenca.ads +++ b/gcc/ada/s-taenca.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -70,7 +70,7 @@ package System.Tasking.Entry_Calls is pragma Inline (Try_To_Cancel_Entry_Call); -- Try to cancel async. entry call. -- Effect includes Abort_To_Level and Wait_For_Completion. - -- Cancelled = True iff the cancelation was successful, i.e., + -- Cancelled = True iff the cancellation was successful, i.e., -- the call was not Done before this call. -- On return, the call is off-queue and the ATC level is reduced by one. diff --git a/gcc/ada/s-taprob.adb b/gcc/ada/s-taprob.adb index 547dcb72264..ee06529d19e 100644 --- a/gcc/ada/s-taprob.adb +++ b/gcc/ada/s-taprob.adb @@ -101,7 +101,7 @@ package body System.Tasking.Protected_Objects is Ceiling_Violation : Boolean; begin - -- The lock is made without defering abort + -- The lock is made without deferring abort -- Therefore the abort has to be deferred before calling this routine. -- This means that the compiler has to generate a Defer_Abort call @@ -171,7 +171,7 @@ package body System.Tasking.Protected_Objects is -- read ownership of the protected object, so that this method of -- storing the (single) protected object's owner does not work reliably -- for read locks. However, this is the approach taken for two major - -- reasosn: first, this function is not currently being used (it is + -- reasons: first, this function is not currently being used (it is -- provided for possible future use), and second, it largely simplifies -- the implementation. diff --git a/gcc/ada/s-taprop-hpux-dce.adb b/gcc/ada/s-taprop-hpux-dce.adb index 329c56f8ccb..85c266ae322 100644 --- a/gcc/ada/s-taprop-hpux-dce.adb +++ b/gcc/ada/s-taprop-hpux-dce.adb @@ -221,7 +221,7 @@ package body System.Task_Primitives.Operations is -- Note: mutexes and cond_variables needed per-task basis are initialized -- in Initialize_TCB and the Storage_Error is handled. Other mutexes (such -- as RTS_Lock, Memory_Lock...) used in RTS is initialized before any - -- status change of RTS. Therefore rasing Storage_Error in the following + -- status change of RTS. Therefore raising Storage_Error in the following -- routines should be able to be handled safely. procedure Initialize_Lock @@ -859,7 +859,7 @@ package body System.Task_Primitives.Operations is Succeeded := Result = 0; pthread_detach (T.Common.LL.Thread'Access); - -- Detach the thread using pthread_detach, sinc DCE threads do not have + -- Detach the thread using pthread_detach, since DCE threads do not have -- pthread_attr_set_detachstate. Result := pthread_attr_destroy (Attributes'Access); diff --git a/gcc/ada/s-taprop-irix.adb b/gcc/ada/s-taprop-irix.adb index a7221903cc8..6f48dfddb8e 100644 --- a/gcc/ada/s-taprop-irix.adb +++ b/gcc/ada/s-taprop-irix.adb @@ -219,7 +219,7 @@ package body System.Task_Primitives.Operations is -- Note: mutexes and cond_variables needed per-task basis are initialized -- in Initialize_TCB and the Storage_Error is handled. Other mutexes (such -- as RTS_Lock, Memory_Lock...) used in RTS is initialized before any - -- status change of RTS. Therefore rasing Storage_Error in the following + -- status change of RTS. Therefore raising Storage_Error in the following -- routines should be able to be handled safely. procedure Initialize_Lock diff --git a/gcc/ada/s-taprop-linux.adb b/gcc/ada/s-taprop-linux.adb index a4bc9495719..56e94a96781 100644 --- a/gcc/ada/s-taprop-linux.adb +++ b/gcc/ada/s-taprop-linux.adb @@ -250,7 +250,7 @@ package body System.Task_Primitives.Operations is -- Note: mutexes and cond_variables needed per-task basis are initialized -- in Initialize_TCB and the Storage_Error is handled. Other mutexes (such -- as RTS_Lock, Memory_Lock...) used in RTS is initialized before any - -- status change of RTS. Therefore rasing Storage_Error in the following + -- status change of RTS. Therefore raising Storage_Error in the following -- routines should be able to be handled safely. procedure Initialize_Lock diff --git a/gcc/ada/s-taprop-mingw.adb b/gcc/ada/s-taprop-mingw.adb index 898b75e2173..33fb253e2aa 100644 --- a/gcc/ada/s-taprop-mingw.adb +++ b/gcc/ada/s-taprop-mingw.adb @@ -391,7 +391,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. Other mutexes (such + -- in Initialize_TCB and the Storage_Error is handled. Other mutexes (such -- as RTS_Lock, Memory_Lock...) used in the RTS is initialized before any -- status change of RTS. Therefore raising Storage_Error in the following -- routines should be able to be handled safely. @@ -788,7 +788,7 @@ package body System.Task_Primitives.Operations is -- This is because the GetCurrentThread NT call does not return the real -- thread handler but only a "pseudo" one. It is not possible to release - -- the thread handle and free the system ressources from this "pseudo" + -- the thread handle and free the system resources from this "pseudo" -- handle. So we really want to keep the real thread handle set in -- System.Task_Primitives.Operations.Create_Task during thread creation. @@ -992,7 +992,7 @@ package body System.Task_Primitives.Operations is if Self_ID.Common.LL.Thread /= 0 then -- This task has been activated. Wait for the thread to terminate - -- then close it. this is needed to release system ressources. + -- then close it. This is needed to release system resources. Result := WaitForSingleObject (T.Common.LL.Thread, Wait_Infinite); pragma Assert (Result /= WAIT_FAILED); diff --git a/gcc/ada/s-taprop-posix.adb b/gcc/ada/s-taprop-posix.adb index 5b677bf539f..74ab07a0abb 100644 --- a/gcc/ada/s-taprop-posix.adb +++ b/gcc/ada/s-taprop-posix.adb @@ -271,10 +271,10 @@ 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 RTS_Lock, Memory_Lock...) -- used in RTS is initialized before any status change of RTS. - -- Therefore rasing Storage_Error in the following routines + -- Therefore raising Storage_Error in the following routines -- should be able to be handled safely. procedure Initialize_Lock diff --git a/gcc/ada/s-taprop-solaris.adb b/gcc/ada/s-taprop-solaris.adb index 068d3401f62..2555eb8fee3 100644 --- a/gcc/ada/s-taprop-solaris.adb +++ b/gcc/ada/s-taprop-solaris.adb @@ -107,16 +107,16 @@ package body System.Task_Primitives.Operations is -- controls whether we emulate priority ceiling locking -- To get a scheduling close to annex D requirements, we use the real-time - -- class provided for LWP's and map each task/thread to a specific and + -- class provided for LWPs and map each task/thread to a specific and -- unique LWP (there is 1 thread per LWP, and 1 LWP per thread). -- The real time class can only be set when the process has root - -- priviledges, so in the other cases, we use the normal thread scheduling + -- privileges, so in the other cases, we use the normal thread scheduling -- and priority handling. Using_Real_Time_Class : Boolean := False; - -- indicates wether the real time class is being used (i.e the process - -- has root priviledges). + -- indicates whether the real time class is being used (i.e the process + -- has root privileges). Prio_Param : aliased struct_pcparms; -- Hold priority info (Real_Time) initialized during the package @@ -521,7 +521,7 @@ package body System.Task_Primitives.Operations is -- Note: mutexes and cond_variables needed per-task basis are initialized -- in Initialize_TCB and the Storage_Error is handled. Other mutexes (such -- as RTS_Lock, Memory_Lock...) used in RTS is initialized before any - -- status change of RTS. Therefore rasing Storage_Error in the following + -- status change of RTS. Therefore raising Storage_Error in the following -- routines should be able to be handled safely. procedure Initialize_Lock @@ -1139,11 +1139,12 @@ package body System.Task_Primitives.Operations is pragma Assert (Result = 0 or else Result = EINTR); end Sleep; - -- Note that we are relying heaviliy here on GNAT represting Calendar.Time, - -- System.Real_Time.Time, Duration, System.Real_Time.Time_Span in the same - -- way, i.e., as a 64-bit count of nanoseconds. + -- Note that we are relying heavily here on GNAT representing + -- Calendar.Time, System.Real_Time.Time, Duration, + -- System.Real_Time.Time_Span in the same way, i.e., as a 64-bit count of + -- nanoseconds. - -- This allows us to always pass the timeout value as a Duration + -- This allows us to always pass the timeout value as a Duration. -- ??? -- We are taking liberties here with the semantics of the delays. That is, diff --git a/gcc/ada/s-taprop-tru64.adb b/gcc/ada/s-taprop-tru64.adb index ace4756fea0..232c138bae1 100644 --- a/gcc/ada/s-taprop-tru64.adb +++ b/gcc/ada/s-taprop-tru64.adb @@ -226,7 +226,7 @@ package body System.Task_Primitives.Operations is -- Note: mutexes and cond_variables needed per-task basis are initialized -- in Initialize_TCB and the Storage_Error is handled. Other mutexes (such -- as RTS_Lock, Memory_Lock...) used in RTS is initialized before any - -- status change of RTS. Therefore rasing Storage_Error in the following + -- status change of RTS. Therefore raising Storage_Error in the following -- routines should be able to be handled safely. procedure Initialize_Lock diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 544fa13bdeb..92d1a187b7d 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -192,7 +192,7 @@ package body System.Task_Primitives.Operations is -- Note: mutexes and cond_variables needed per-task basis are initialized -- in Initialize_TCB and the Storage_Error is handled. Other mutexes (such -- as RTS_Lock, Memory_Lock...) used in RTS is initialized before any - -- status change of RTS. Therefore rasing Storage_Error in the following + -- status change of RTS. Therefore raising Storage_Error in the following -- routines should be able to be handled safely. procedure Initialize_Lock diff --git a/gcc/ada/s-taprop-vxworks.adb b/gcc/ada/s-taprop-vxworks.adb index f12b9afd702..bbe2ae50d48 100644 --- a/gcc/ada/s-taprop-vxworks.adb +++ b/gcc/ada/s-taprop-vxworks.adb @@ -535,7 +535,7 @@ package body System.Task_Primitives.Operations is else -- If Ticks = int'last, it was most probably truncated so -- let's make another round after recomputing Ticks from - -- the the absolute time. + -- the absolute time. if Ticks /= int'Last then Timedout := True; @@ -655,7 +655,7 @@ package body System.Task_Primitives.Operations is -- If Ticks = int'last, it was most probably truncated -- so let's make another round after recomputing Ticks - -- from the the absolute time. + -- from the absolute time. if errno = S_objLib_OBJ_TIMEOUT and then Ticks /= int'Last then Timedout := True; diff --git a/gcc/ada/s-taprop.ads b/gcc/ada/s-taprop.ads index 7938ae1002e..4f0a5408d9c 100644 --- a/gcc/ada/s-taprop.ads +++ b/gcc/ada/s-taprop.ads @@ -250,7 +250,7 @@ package System.Task_Primitives.Operations is -- It is not clear what to do about ceiling violations due to RTS calls -- done at interrupt priority. In general, it is not acceptable to give - -- all RTS locks interrupt priority, since that whould give terrible + -- all RTS locks interrupt priority, since that would give terrible -- performance on systems where this has the effect of masking hardware -- interrupts, though we could get away allowing Interrupt_Priority'last -- where we are layered on an OS that does not allow us to mask interrupts. @@ -413,7 +413,7 @@ package System.Task_Primitives.Operations is -- thread of control in the RTS. Since we intend these routines to be used -- for implementing the Single_Lock RTS, Lock_RTS should follow the first -- Defer_Abort operation entering RTS. In the same fashion Unlock_RTS - -- should preceed the last Undefer_Abort exiting RTS. + -- should precede the last Undefer_Abort exiting RTS. -- -- These routines also replace the functions Lock/Unlock_All_Tasks_List diff --git a/gcc/ada/s-tarest.adb b/gcc/ada/s-tarest.adb index 08802c6e22f..1a4c6b96f97 100644 --- a/gcc/ada/s-tarest.adb +++ b/gcc/ada/s-tarest.adb @@ -200,7 +200,7 @@ package body System.Tasking.Restricted.Stages is -- a task terminating due to completing the last statement of its body. -- If the task terminates because of an exception raised by the -- execution of its task body, then Cause is set to Unhandled_Exception. - -- Aborts are not allowed in the restriced profile to which this file + -- Aborts are not allowed in the restricted profile to which this file -- belongs. EO : Exception_Occurrence; diff --git a/gcc/ada/s-tarest.ads b/gcc/ada/s-tarest.ads index 6f0e36b43e6..67583c9f75e 100644 --- a/gcc/ada/s-tarest.ads +++ b/gcc/ada/s-tarest.ads @@ -158,7 +158,7 @@ package System.Tasking.Restricted.Stages is -- 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 diff --git a/gcc/ada/s-tasini.adb b/gcc/ada/s-tasini.adb index 557bf9a8cb3..6719cc05395 100644 --- a/gcc/ada/s-tasini.adb +++ b/gcc/ada/s-tasini.adb @@ -387,7 +387,7 @@ package body System.Tasking.Initialization is -- should not be necessary here, if Abort_Task is implemented correctly, -- since Abort_Task should include the effect of Wakeup. However, the -- above call was in earlier versions of this file, and at least for - -- some targets Abort_Task has not beek doing Wakeup. It should not + -- some targets Abort_Task has not been doing Wakeup. It should not -- hurt to uncomment the above call, until the error is corrected for -- all targets. @@ -402,7 +402,7 @@ package body System.Tasking.Initialization is -- and let it decide if it wants to complete the aborted construct -- immediately. - -- Note that the effect of the lowl-level Abort_Task is not persistent. + -- Note that the effect of the low-level Abort_Task is not persistent. -- If the target task is not blocked, this wakeup will be missed. -- We don't bother calling Abort_Task if this task is aborting itself, @@ -413,7 +413,7 @@ package body System.Tasking.Initialization is -- Note that an earlier version of this code had some false reasoning -- about being able to reliably wake up a task that had suspended on - -- a blocking system call that does not atomically relase the task's + -- a blocking system call that does not atomically release the task's -- lock (e.g., UNIX nanosleep, which we once thought could be used to -- implement delays). That still left the possibility of missed -- wakeups. diff --git a/gcc/ada/s-tasini.ads b/gcc/ada/s-tasini.ads index 41dbc218fb2..020fd33255f 100644 --- a/gcc/ada/s-tasini.ads +++ b/gcc/ada/s-tasini.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -80,7 +80,7 @@ package System.Tasking.Initialization is -- nested. The symptom of over-deferring abort is that an exception may -- fail to be raised, or an abort may fail to take place. - -- Therefore, there are two sets of the inlinable defer/undefer routines, + -- Therefore, there are two sets of the inlineable defer/undefer routines, -- which are the ones to be used inside GNARL. One set allows nesting. The -- other does not. People who maintain the GNARL should try to avoid using -- the nested versions, or at least look very critically at the places @@ -98,8 +98,8 @@ package System.Tasking.Initialization is -- internal calls to the tasking runtime system assume abort is already -- deferred, and do not modify the deferral level. - -- There is also a set of non-linable defer/undefer routines, for direct - -- call from the compiler. These are not in-lineable because they may need + -- There is also a set of non-inlineable defer/undefer routines, for direct + -- call from the compiler. These are not inlineable because they may need -- to be called via pointers ("soft links"). For the sake of efficiency, -- the version with Self_ID as parameter should used wherever possible. -- These are all nestable. @@ -137,7 +137,7 @@ package System.Tasking.Initialization is procedure Change_Base_Priority (T : Task_Id); -- Change the base priority of T. Has to be called with the affected - -- task's ATCB write-locked. May temporariliy release the lock. + -- task's ATCB write-locked. May temporarily release the lock. ---------------------- -- Task Lock/Unlock -- diff --git a/gcc/ada/s-taskin.ads b/gcc/ada/s-taskin.ads index 85f8dfc6af7..70e755da016 100644 --- a/gcc/ada/s-taskin.ads +++ b/gcc/ada/s-taskin.ads @@ -60,7 +60,7 @@ package System.Tasking is -- Never undefer abort while holding a lock -- Overlapping critical sections must be properly nested, and locks must - -- be released in LIFO order. e.g., the following is not allowed: + -- be released in LIFO order. E.g., the following is not allowed: -- Lock (X); -- ... diff --git a/gcc/ada/s-tasque.ads b/gcc/ada/s-tasque.ads index d8a23a04aad..858bd7ba98c 100644 --- a/gcc/ada/s-tasque.ads +++ b/gcc/ada/s-tasque.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -95,7 +95,7 @@ package System.Tasking.Queuing is procedure Requeue_Call_With_New_Prio (Entry_Call : Entry_Call_Link; Prio : System.Any_Priority); -- Change Priority of the call and re insert to the queue when priority - -- queueing is in effect. When FIFO is inforced, this routine + -- queueing is in effect. When FIFO is enforced, this routine -- should not have any effect. end System.Tasking.Queuing; diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index f0af3e06c3a..65cc80b24f7 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -56,7 +56,7 @@ with System.Stack_Usage; with System.Soft_Links; -- These are procedure pointers to non-tasking routines that use task -- specific data. In the absence of tasking, these routines refer to global --- data. In the presense of tasking, they must be replaced with pointers to +-- data. In the presence of tasking, they must be replaced with pointers to -- task-specific versions. Also used for Create_TSD, Destroy_TSD, -- Get_Current_Excep, Finalize_Global_List, Task_Termination, Handler. @@ -112,7 +112,7 @@ package body System.Tasking.Stages is procedure Vulnerable_Complete_Task (Self_ID : Task_Id); -- Complete the calling task. This procedure must be called with -- abort deferred. It should only be called by Complete_Task and - -- Finalizate_Global_Tasks (for the environment task). + -- Finalize_Global_Tasks (for the environment task). procedure Vulnerable_Complete_Master (Self_ID : Task_Id); -- Complete the current master of the calling task. This procedure @@ -1883,7 +1883,7 @@ package body System.Tasking.Stages is -- Package elaboration code begin - -- Establish the Adafinal softlink + -- Establish the Adafinal oftlink -- This is not done inside the central RTS initialization routine -- to avoid with-ing this package from System.Tasking.Initialization. diff --git a/gcc/ada/s-tassta.ads b/gcc/ada/s-tassta.ads index e535a53be54..36f0fbfc3f2 100644 --- a/gcc/ada/s-tassta.ads +++ b/gcc/ada/s-tassta.ads @@ -196,7 +196,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-tasuti.ads b/gcc/ada/s-tasuti.ads index e47f0e49d2b..83709f704b0 100644 --- a/gcc/ada/s-tasuti.ads +++ b/gcc/ada/s-tasuti.ads @@ -95,7 +95,7 @@ package System.Tasking.Utilities is procedure Abort_Tasks (Tasks : Task_List); -- Abort_Tasks is called to initiate abort, however, the actual - -- aborti is done by aborted task by means of Abort_Handler + -- aborting is done by aborted task by means of Abort_Handler procedure Make_Passive (Self_ID : Task_Id; Task_Completed : Boolean); -- Update counts to indicate current task is either terminated or diff --git a/gcc/ada/s-tpoben.adb b/gcc/ada/s-tpoben.adb index fd8a16814e8..986a30af9e8 100644 --- a/gcc/ada/s-tpoben.adb +++ b/gcc/ada/s-tpoben.adb @@ -239,7 +239,7 @@ package body System.Tasking.Protected_Objects.Entries is raise Program_Error; end if; - -- The lock is made without defering abort + -- The lock is made without deferring abort -- Therefore the abort has to be deferred before calling this routine. -- This means that the compiler has to generate a Defer_Abort call @@ -311,7 +311,7 @@ package body System.Tasking.Protected_Objects.Entries is -- have read ownership of the protected object, so that this method of -- storing the (single) protected object's owner does not work -- reliably for read locks. However, this is the approach taken for two - -- major reasosn: first, this function is not currently being used (it + -- major reasons: first, this function is not currently being used (it -- is provided for possible future use), and second, it largely -- simplifies the implementation. diff --git a/gcc/ada/s-tpoben.ads b/gcc/ada/s-tpoben.ads index afbdc6bac0d..9feba091396 100644 --- a/gcc/ada/s-tpoben.ads +++ b/gcc/ada/s-tpoben.ads @@ -159,7 +159,7 @@ package System.Tasking.Protected_Objects.Entries is (Object : Protection_Entries_Access) return Boolean; -- Returns True if an Interrupt_Handler or Attach_Handler pragma applies -- to the protected object. That is to say this primitive returns False for - -- Protection, but is overriden to return True when interrupt handlers are + -- Protection, but is overridden to return True when interrupt handlers are -- declared so the check required by C.3.1(11) can be implemented in -- System.Tasking.Protected_Objects.Initialize_Protection. diff --git a/gcc/ada/s-tpobop.adb b/gcc/ada/s-tpobop.adb index 7ff99e5e34d..8ad468c7be8 100644 --- a/gcc/ada/s-tpobop.adb +++ b/gcc/ada/s-tpobop.adb @@ -506,7 +506,7 @@ package body System.Tasking.Protected_Objects.Operations is -- See also Cancel_Protected_Entry_Call for code expansion of asynchronous -- entry call. - -- The initial part of this procedure does not need to lock the the calling + -- The initial part of this procedure does not need to lock the calling -- task's ATCB, up to the point where the call record first may be queued -- (PO_Do_Or_Queue), since before that no other task will have access to -- the record. @@ -520,7 +520,7 @@ package body System.Tasking.Protected_Objects.Operations is -- There are some heuristics here, just to save time for frequently -- occurring cases. For example, we check Initially_Abortable to try to -- avoid calling the procedure Wait_Until_Abortable, since the normal case - -- for async. entry calls is to be queued abortably. + -- for async. entry calls is to be queued abortably. -- Another heuristic uses the Block.Enqueued to try to avoid calling -- Cancel_Protected_Entry_Call if the call can be served immediately. diff --git a/gcc/ada/s-tpopsp-posix.adb b/gcc/ada/s-tpopsp-posix.adb index 0b7f2779822..866a4054070 100644 --- a/gcc/ada/s-tpopsp-posix.adb +++ b/gcc/ada/s-tpopsp-posix.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/s-tpopsp-rtems.adb b/gcc/ada/s-tpopsp-rtems.adb index adfaf11d961..81afc79cb7b 100644 --- a/gcc/ada/s-tpopsp-rtems.adb +++ b/gcc/ada/s-tpopsp-rtems.adb @@ -10,6 +10,7 @@ -- $Revision: 1.2 $ -- -- -- Copyright (C) 1991-2003, Florida State University -- +-- Copyright (C) 2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -36,7 +37,7 @@ ------------------------------------------------------------------------------ -- This is a RTEMS version of this package which uses a special --- variable for Ada self which is contexted switch implicitly by RTEMS. +-- variable for Ada self which is context switched implicitly by RTEMS. -- -- This is the same as the POSIX version except that an RTEMS variable -- is used instead of a POSIX key. diff --git a/gcc/ada/s-tposen.adb b/gcc/ada/s-tposen.adb index cfa7d3a7e7e..dfa4c03beba 100644 --- a/gcc/ada/s-tposen.adb +++ b/gcc/ada/s-tposen.adb @@ -407,7 +407,7 @@ package body System.Tasking.Protected_Objects.Single_Entry is -- have read ownership of the protected object, so that this method of -- storing the (single) protected object's owner does not work -- reliably for read locks. However, this is the approach taken for two - -- major reasosn: first, this function is not currently being used (it + -- major reasons: first, this function is not currently being used (it -- is provided for possible future use), and second, it largely -- simplifies the implementation. diff --git a/gcc/ada/s-tposen.ads b/gcc/ada/s-tposen.ads index f8bf9114409..90e8bb37374 100644 --- a/gcc/ada/s-tposen.ads +++ b/gcc/ada/s-tposen.ads @@ -204,7 +204,7 @@ package System.Tasking.Protected_Objects.Single_Entry is -- Lock a protected object for read access. Upon return, the caller -- owns the lock for read access, and no other calls to Lock -- with the same argument will return until the corresponding call - -- to Unlock has been made by the caller. Other cals to Lock_Read_Only + -- to Unlock has been made by the caller. Other calls to Lock_Read_Only -- may (but need not) return before the call to Unlock, and the -- corresponding callers will also own the lock for read access. diff --git a/gcc/ada/s-traceb-hpux.adb b/gcc/ada/s-traceb-hpux.adb index c2718af3f60..d8cf7872616 100644 --- a/gcc/ada/s-traceb-hpux.adb +++ b/gcc/ada/s-traceb-hpux.adb @@ -8,6 +8,7 @@ -- B o d y -- -- -- -- Copyright (C) 1999-2006, AdaCore -- +-- Copyright (C) 2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -86,7 +87,7 @@ package body System.Traceback is -- Frames with dynamic stack allocation are handled using the associated -- frame pointer, but HP compilers and GCC setup this pointer differently. -- HP compilers set it to point at the top (highest address) of the static - -- part of the frame, wheras GCC sets it to point at the bottom of this + -- part of the frame, whereas GCC sets it to point at the bottom of this -- region. We have to fake the unwinder to compensate for this difference, -- for which we'll need to access some subprograms unwind descriptors. diff --git a/gcc/ada/s-traces.ads b/gcc/ada/s-traces.ads index c42cc516820..03897acff06 100644 --- a/gcc/ada/s-traces.ads +++ b/gcc/ada/s-traces.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -40,17 +40,17 @@ -- A new primitive, Send_Trace_Info (Id : Trace_T; 'data') is introduced. -- Trace_T is an event identifier, 'data' are the informations to pass --- with the event. Thid procedure is used from within the Runtime to send +-- with the event. This procedure is used from within the Runtime to send -- debug informations. -- This primitive is overloaded in System.Traces.Tasking and this package --- Send_Trace_Info calls Send_Trace, in System.Traces.Send, which is trarget +-- Send_Trace_Info calls Send_Trace, in System.Traces.Send, which is target -- dependent, to send the debug informations to a debugger, stream .. -- To add a new event, just add them to the Trace_T type, and write the -- corresponding Send_Trace_Info procedure. It may be required for some --- target to modify Send_Trace (eg. VxWorks). +-- target to modify Send_Trace (e.g. VxWorks). -- To add a new target, just adapt System.Traces.Send to your own purposes diff --git a/gcc/ada/s-trafor-default.ads b/gcc/ada/s-trafor-default.ads index 182ade1ba94..bc5b193e83f 100644 --- a/gcc/ada/s-trafor-default.ads +++ b/gcc/ada/s-trafor-default.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -42,7 +42,7 @@ package System.Traces.Format is subtype String_Trace is String (1 .. Max_Size); -- Specific type in which trace information is stored. An ASCII.NUL -- character ends the string so that it is compatible with C strings - -- which is useful on some targets (eg. VxWorks) + -- which is useful on some targets (e.g. VxWorks) -- These private functions handles String_Trace formatting diff --git a/gcc/ada/s-unstyp.ads b/gcc/ada/s-unstyp.ads index c87d651c5d6..0609e0b0345 100644 --- a/gcc/ada/s-unstyp.ads +++ b/gcc/ada/s-unstyp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -55,7 +55,7 @@ package System.Unsigned_Types is type Packed_Byte is mod 2 ** 8; for Packed_Byte'Size use 8; - -- Component type for Packed_Butes array + -- Component type for Packed_Bytes array type Packed_Bytes1 is array (Natural range <>) of Packed_Byte; for Packed_Bytes1'Alignment use 1; @@ -200,7 +200,7 @@ package System.Unsigned_Types is pragma Import (Intrinsic, Rotate_Left); pragma Import (Intrinsic, Rotate_Right); - -- The following definitions are obsolsecent. They were needed by the + -- The following definitions are obsolescent. They were needed by the -- previous version of the compiler and runtime, but are not needed -- by the current version. We retain them to help with bootstrap path -- problems. Also they seem harmless, and if any user programs have diff --git a/gcc/ada/s-utf_32.ads b/gcc/ada/s-utf_32.ads index 8f6fab9c4fd..c189be4aaf7 100755 --- a/gcc/ada/s-utf_32.ads +++ b/gcc/ada/s-utf_32.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2005-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 2005-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -117,14 +117,14 @@ package System.UTF_32 is function Is_UTF_32_Digit (U : UTF_32) return Boolean; function Is_UTF_32_Digit (C : Category) return Boolean; pragma Inline (Is_UTF_32_Digit); - -- Returns true iff U is a digit that can be used to extend an identifer, + -- Returns true iff U is a digit that can be used to extend an identifier, -- or if C is one of the corresponding categories, which are the following: -- Number, Decimal_Digit (Nd) function Is_UTF_32_Line_Terminator (U : UTF_32) return Boolean; pragma Inline (Is_UTF_32_Line_Terminator); -- Returns true iff U is an allowed line terminator for source programs, - -- if U is in the category Zp (Separator, Paragaph), or Zs (Separator, + -- if U is in the category Zp (Separator, Paragraph), or Zs (Separator, -- Line), or if U is a conventional line terminator (CR, LF, VT, FF). -- There is no category version for this function, since the set of -- characters does not correspond to a set of Unicode categories. @@ -143,7 +143,7 @@ package System.UTF_32 is pragma Inline (Is_UTF_32_Other); -- Returns true iff U is an other format character, which means that it -- can be used to extend an identifier, but is ignored for the purposes of - -- matching of identiers, or if C is one of the corresponding categories, + -- matching of identifiers, or if C is one of the corresponding categories, -- which are the following: -- Other, Format (Cf) @@ -151,7 +151,7 @@ package System.UTF_32 is function Is_UTF_32_Punctuation (C : Category) return Boolean; pragma Inline (Is_UTF_32_Punctuation); -- Returns true iff U is a punctuation character that can be used to - -- separate pices of an identifier, or if C is one of the corresponding + -- separate pieces of an identifier, or if C is one of the corresponding -- categories, which are the following: -- Punctuation, Connector (Pc) @@ -177,7 +177,7 @@ package System.UTF_32 is -- Note that the Ada category format effector is subsumed by the above -- list of Unicode categories. -- - -- Note that Other, Unassiged (Cn) is quite deliberately not included + -- Note that Other, Unassigned (Cn) is quite deliberately not included -- in the list of categories above. This means that should any of these -- code positions be defined in future with graphic characters they will -- be allowed without a need to change implementations or the standard. diff --git a/gcc/ada/s-vaflop.adb b/gcc/ada/s-vaflop.adb index 3cf96e26e93..0741664082b 100644 --- a/gcc/ada/s-vaflop.adb +++ b/gcc/ada/s-vaflop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -33,7 +33,7 @@ -- This is a dummy body for use on non-Alpha systems so that the library -- can compile. This dummy version uses ordinary conversions and other --- arithmetic operations. it is used only for testing purposes in the +-- arithmetic operations. It is used only for testing purposes in the -- case where the -gnatdm switch is used to force testing of VMS features -- on non-VMS systems. diff --git a/gcc/ada/s-vaflop.ads b/gcc/ada/s-vaflop.ads index 9f205d48338..47e991a3b33 100644 --- a/gcc/ada/s-vaflop.ads +++ b/gcc/ada/s-vaflop.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1997-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -175,7 +175,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/s-valrea.adb b/gcc/ada/s-valrea.adb index ead49f80649..f1d89052a06 100644 --- a/gcc/ada/s-valrea.adb +++ b/gcc/ada/s-valrea.adb @@ -82,7 +82,7 @@ package body System.Val_Real is Num_Saved_Zeroes : Natural := 0; -- This counts zeroes after the decimal point. A non-zero value means - -- that this number of previously scanned digits are zero. if the end + -- that this number of previously scanned digits are zero. If the end -- of the number is reached, these zeroes are simply discarded, which -- ensures that trailing zeroes after the point never affect the value -- (which might otherwise happen as a result of rounding). With this diff --git a/gcc/ada/s-valuti.adb b/gcc/ada/s-valuti.adb index 50be73acd9f..7683d3a9cb8 100644 --- a/gcc/ada/s-valuti.adb +++ b/gcc/ada/s-valuti.adb @@ -294,8 +294,8 @@ package body System.Val_Util is P := P + 1; -- If underscore is at the end of string, then this is an error and - -- we raise Constraint_Error, leaving the pointer past the undescore. - -- This seems a bit strange. It means e,g, that if the field is: + -- we raise Constraint_Error, leaving the pointer past the underscore. + -- This seems a bit strange. It means e.g. that if the field is: -- 345_ diff --git a/gcc/ada/s-wchstw.ads b/gcc/ada/s-wchstw.ads index 7bd3529586d..bdc237c06ac 100644 --- a/gcc/ada/s-wchstw.ads +++ b/gcc/ada/s-wchstw.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -46,17 +46,18 @@ package System.WCh_StW is EM : System.WCh_Con.WC_Encoding_Method); -- This routine simply takes its argument and converts it to wide string -- format, storing the result in R (1 .. L), with L being set appropriately - -- on return. The caller guarantees that R is long enough to accomodate the - -- result. This is used in the context of the Wide_Image attribute, where - -- the argument is the corresponding 'Image attribute. Any wide character - -- escape sequences in the string are converted to the corresponding wide - -- character value. No syntax checks are made, it is assumed that any such - -- sequences are validly formed (this must be assured by the caller), and - -- results from the fact that Wide_Image is only used on strings that have - -- been built by the compiler, such as images of enumeration literals. If - -- the method for encoding is a shift-in, shift-out convention, then it is - -- assumed that normal (non-wide character) mode holds at the start and end - -- of the argument string. EM indicates the wide character encoding method. + -- on return. The caller guarantees that R is long enough to accommodate + -- the result. This is used in the context of the Wide_Image attribute, + -- where the argument is the corresponding 'Image attribute. Any wide + -- character escape sequences in the string are converted to the + -- corresponding wide character value. No syntax checks are made, it is + -- assumed that any such sequences are validly formed (this must be assured + -- by the caller), and results from the fact that Wide_Image is only used + -- on strings that have been built by the compiler, such as images of + -- enumeration literals. If the method for encoding is a shift-in, + -- shift-out convention, then it is assumed that normal (non-wide + -- character) mode holds at the start and end of the argument string. EM + -- indicates the wide character encoding method. -- Note: in the WCEM_Brackets case, the brackets escape sequence is used -- only for codes greater than 16#FF#. diff --git a/gcc/ada/s-wchwts.adb b/gcc/ada/s-wchwts.adb index 995f5acda0f..ed660fefc0f 100644 --- a/gcc/ada/s-wchwts.adb +++ b/gcc/ada/s-wchwts.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -101,7 +101,7 @@ package body System.WCh_WtS is end Wide_String_To_String; -------------------------------- - -- Wide_Wide_Sring_To_String -- + -- Wide_Wide_String_To_String -- -------------------------------- function Wide_Wide_String_To_String diff --git a/gcc/ada/s-wchwts.ads b/gcc/ada/s-wchwts.ads index 2359701462c..691a322ea6c 100644 --- a/gcc/ada/s-wchwts.ads +++ b/gcc/ada/s-wchwts.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -32,7 +32,7 @@ ------------------------------------------------------------------------------ -- This package contains the routine used to convert wide strings and wide --- wide stringsto strings for use by wide and wide wide character attributes +-- wide strings to strings for use by wide and wide wide character attributes -- (value, image etc.) and also by the numeric IO subpackages of -- Ada.Text_IO.Wide_Text_IO and Ada.Text_IO.Wide_Wide_Text_IO. diff --git a/gcc/ada/scans.ads b/gcc/ada/scans.ads index c838865b477..83cc368dee4 100644 --- a/gcc/ada/scans.ads +++ b/gcc/ada/scans.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -45,7 +45,7 @@ package Scans is -- The following type is used to identify token types returned by Scan. -- The class column in this table indicates the token classes which - -- apply to the token, as defined by subsquent subtype declarations. + -- apply to the token, as defined by subsequent subtype declarations. -- Note: Namet.Is_Keyword_Name depends on the fact that the first entry in -- this type declaration is *not* for a reserved word. For details on why @@ -65,7 +65,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, -- ** @@ -206,7 +206,7 @@ package Scans is Tok_End_Of_Line, -- Represents an end of line. Not used during normal compilation scans -- where end of line is ignored. Active for preprocessor scanning and - -- also when scanning project files (where it is neede because of ???) + -- also when scanning project files (where it is needed because of ???) Tok_Special, -- Used only in preprocessor scanning (to represent one of the diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index 6efbc9f5b28..805caab574e 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -329,7 +329,7 @@ package body Scn is Scan; end if; - -- 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/scng.adb b/gcc/ada/scng.adb index f7f68e634db..76f63f9353b 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -236,7 +236,7 @@ package body Scng is -- Scan_Ptr points to the opening string quote (the checksum for this -- character has not been accumulated yet). On return Scan_Ptr points -- past the closing quote of the string literal, Token and Token_Node - -- are set appropriately, and the checksum is upated. + -- are set appropriately, and the checksum is updated. ----------------------- -- Check_End_Of_Line -- @@ -2066,7 +2066,7 @@ package body Scng is Underline_Found := False; goto Scan_Identifier; - -- Mark character is an error (at start of identifer) + -- Mark character is an error (at start of identifier) elsif Is_UTF_32_Mark (Cat) then Error_Msg @@ -2076,7 +2076,7 @@ package body Scng is Underline_Found := False; goto Scan_Identifier; - -- Other format character is an error (at start of identifer) + -- Other format character is an error (at start of identifier) elsif Is_UTF_32_Other (Cat) then Error_Msg @@ -2108,7 +2108,7 @@ package body Scng is -- Routine to scan line terminator. On entry Scan_Ptr points to a -- character which is one of FF,LR,CR,VT, or one of the wide characters - -- that is treated as a line termiantor. + -- that is treated as a line terminator. <<Scan_Line_Terminator>> @@ -2151,7 +2151,7 @@ package body Scng is -- Identifier scanning routine. On entry, some initial characters of -- the identifier may have already been stored in Name_Buffer. If so, - -- Name_Len has the number of characters stored. otherwise Name_Len is + -- Name_Len has the number of characters stored, otherwise Name_Len is -- set to zero on entry. Underline_Found is also set False on entry. <<Scan_Identifier>> @@ -2324,7 +2324,7 @@ package body Scng is Underline_Found := True; end if; - -- Wide character in Unicode cateogory "Other, Format" + -- Wide character in Unicode category "Other, Format" -- is accepted in an identifier, but is ignored and not -- stored. It seems reasonable to exclude it from the -- checksum. diff --git a/gcc/ada/seh_init.c b/gcc/ada/seh_init.c index 7b2f093feca..44b0f603175 100644 --- a/gcc/ada/seh_init.c +++ b/gcc/ada/seh_init.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 2005, Free Software Foundation, Inc. * + * Copyright (C) 2005-2008, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -37,7 +37,7 @@ #include "tconfig.h" #include "tsystem.h" -/* We don't have libiberty, so us malloc. */ +/* We don't have libiberty, so use malloc. */ #define xmalloc(S) malloc (S) #else diff --git a/gcc/ada/sem.ads b/gcc/ada/sem.ads index d3319b6db80..93f0780edf8 100644 --- a/gcc/ada/sem.ads +++ b/gcc/ada/sem.ads @@ -27,8 +27,8 @@ -- Semantic Analysis: General Model -- -------------------------------------- --- Semantic processing involves 3 phases which are highly interwined --- (ie mutually recursive): +-- Semantic processing involves 3 phases which are highly intertwined +-- (i.e. mutually recursive): -- Analysis implements the bulk of semantic analysis such as -- name analysis and type resolution for declarations, @@ -51,7 +51,7 @@ -- recursive calls to itself to resolve operands. -- Expansion if we are not generating code this phase is a no-op. --- otherwise this phase expands, ie transforms, original +-- otherwise this phase expands, i.e. transforms, original -- declaration, expressions or instructions into simpler -- structures that can be handled by the back-end. This -- phase is also in charge of generating code which is @@ -139,7 +139,7 @@ -- it up without causing too much distortion to our basic model. -- A switch (In_Spec_Expression) is set to show 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 the end of @@ -174,10 +174,10 @@ -- The normal Analysis-Resolution-Expansion mechanism where expansion of the -- children is performed before expansion of the parent does not work if the -- code generated for the children by the expander needs to be evaluated --- repeatdly (for instance in the above aggregate "new Thing (Function_Call)" +-- repeatedly (for instance in the above aggregate "new Thing (Function_Call)" -- needs to be called 100 times.) --- The reason why this mecanism does not work is that, the expanded code for +-- The reason why this mechanism does not work is that, the expanded code for -- the children is typically inserted above the parent and thus when the -- father gets expanded no re-evaluation takes place. For instance in the case -- of aggregates if "new Thing (Function_Call)" is expanded before of the @@ -186,7 +186,7 @@ -- expanded code for "new Thing (Function_Call)". -- To remedy this situation we introduce a new flag which signals whether we --- want a full analysis (ie expansion is enabled) or a pre-analysis which +-- want a full analysis (i.e. expansion is enabled) or a pre-analysis which -- performs Analysis and Resolution but no expansion. -- After the complete pre-analysis of an expression has been carried out we @@ -227,7 +227,7 @@ package Sem is -- expansion phase is skipped. -- -- When this flag is False the flag Expander_Active is also False (the - -- Expander_Activer flag defined in the spec of package Expander tells you + -- Expander_Active flag defined in the spec of package Expander tells you -- whether expansion is currently enabled). You should really regard this -- as a read only flag. @@ -286,7 +286,7 @@ package Sem is -- Scope based suppress checks for the predefined checks (from initial -- command line arguments, or from Suppress pragmas not including an entity - -- entity name) are recorded in the Sem.Supress variable, and all that is + -- entity name) are recorded in the Sem.Suppress variable, and all that is -- necessary is to save the state of this variable on scope entry, and -- restore it on scope exit. This mechanism allows for fast checking of -- the scope suppress state without needing complex data structures. @@ -441,7 +441,7 @@ package Sem is -- It is clear in retrospect that all semantic processing and visibility -- structures should have been fully recursive. The rtsfind mechanism, -- and the complexities brought about by subunits and by generic child - -- units and their instantitions, have led to a hybrid model that carries + -- units and their instantiations, have led to a hybrid model that carries -- more state than one would wish. type Scope_Stack_Entry is record diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 60998611f7e..f930ecbf14c 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -202,7 +202,7 @@ package body Sem_Aggr is Component : Node_Id); -- Give possible misspelling diagnostic if Component is likely to be -- a misspelling of one of the components of the Assoc_List. - -- This is called by Resolv_Aggr_Expr after producing + -- This is called by Resolve_Aggr_Expr after producing -- an invalid component error message. procedure Check_Static_Discriminated_Subtype (T : Entity_Id; V : Node_Id); @@ -254,7 +254,7 @@ package body Sem_Aggr is -- appears last in the sub-aggregate. Check that we do not have -- positional and named components in the array sub-aggregate (unless -- the named association is an others choice). Finally if an others - -- choice is present, make sure it is allowed in the aggregate contex. + -- choice is present, make sure it is allowed in the aggregate context. -- -- 2. If the array sub-aggregate contains discrete_choices: -- @@ -1143,7 +1143,7 @@ package body Sem_Aggr is function Resolve_Aggr_Expr (Expr : Node_Id; Single_Elmt : Boolean) return Boolean; - -- Resolves aggregate expression Expr. Returs False if resolution + -- Resolves aggregate expression Expr. Returns False if resolution -- fails. If Single_Elmt is set to False, the expression Expr may be -- used to initialize several array aggregate elements (this can -- happen for discrete choices such as "L .. H => Expr" or the others @@ -1396,7 +1396,7 @@ package body Sem_Aggr is is Nxt_Ind : constant Node_Id := Next_Index (Index); Nxt_Ind_Constr : constant 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 @@ -2650,7 +2650,7 @@ package body Sem_Aggr is Expr_Type := Etype (Component); -- Otherwise we have to pick up the new type of the component from - -- the new costrained subtype of the aggregate. In fact components + -- the new constrained subtype of the aggregate. In fact components -- which are of a composite type might be constrained by a -- discriminant, and we want to resolve Expr against the subtype were -- all discriminant occurrences are replaced with their actual value. @@ -2914,11 +2914,11 @@ package body Sem_Aggr is -- in sem_ch3 and here rather than have a copy of the code which is a -- maintenance nightmare. - -- ??? Performace WARNING. The current implementation creates a new + -- ??? Performance WARNING. The current implementation creates a new -- itype for all aggregates whose base type is discriminated. -- This means that for record aggregates nested inside an array -- aggregate we will create a new itype for each record aggregate - -- if the array cmponent type has discriminants. For large aggregates + -- if the array component type has discriminants. For large aggregates -- this may be a problem. What should be done in this case is -- to reuse itypes as much as possible. diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index ae84ffbc086..441b394058d 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -454,7 +454,7 @@ package body Sem_Attr is -- Note: This fragment of the tree is temporarily malformed -- because the correct tree requires an E_Subprogram_Type entity -- as the designated type. In most cases this designated type is - -- later overriden by the semantics with the type imposed by the + -- later overridden by the semantics with the type imposed by the -- context during the resolution phase. In the specific case of -- the expression Address!(Prim'Unrestricted_Access), used to -- initialize slots of dispatch tables, this work will be done by @@ -5544,7 +5544,7 @@ package body Sem_Attr is ----------------- -- Constrained is never folded for now, there may be cases that - -- could be handled at compile time. to be looked at later. + -- could be handled at compile time. To be looked at later. when Attribute_Constrained => null; @@ -6655,7 +6655,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. @@ -6781,7 +6781,7 @@ package body Sem_Attr is -- We treat protected types like task types. It would make more -- sense to have another enumeration value, but after all the -- whole point of this feature is to be exactly DEC compatible, - -- and changing the type Type_Clas would not meet this requirement. + -- and changing the type Type_Class would not meet this requirement. elsif Is_Protected_Type (Typ) then Id := RE_Type_Class_Task; @@ -7503,7 +7503,7 @@ package body Sem_Attr is -- that generic unit. This includes any such attribute that -- occurs within the body of a generic unit that is a child -- of the generic unit where the subprogram is declared. - -- The rule also prohibits applying the attibute when the + -- The rule also prohibits applying the attribute when the -- access type is a generic formal access type (since the -- level of the actual type is not known). This restriction -- does not apply when the attribute type is an anonymous diff --git a/gcc/ada/sem_attr.ads b/gcc/ada/sem_attr.ads index d0b74f5c980..30dda4304e1 100644 --- a/gcc/ada/sem_attr.ads +++ b/gcc/ada/sem_attr.ads @@ -326,7 +326,7 @@ package Sem_Attr is -------------------- Attribute_Mechanism_Code => True, - -- function'Mechanism_Code yeilds an integer code for the mechanism + -- function'Mechanism_Code yields an integer code for the mechanism -- used for the result of function, and subprogram'Mechanism_Code (n) -- yields the mechanism used for formal parameter number n (a static -- integer value, 1 = first parameter). The code returned is: @@ -350,7 +350,7 @@ package Sem_Attr is -- A reference T'Null_Parameter denotes an (imaginary) object of type or -- subtype T allocated at (machine) address zero. The attribute is -- allowed only as the default expression of a formal parameter, or as - -- an actual expression of a subporgram call. In either case, the + -- an actual expression of a subprogram call. In either case, the -- subprogram must be imported. -- -- The identity of the object is represented by the address zero in the @@ -446,7 +446,7 @@ package Sem_Attr is -- to convert this to an address using the same semantics as the -- System.Storage_Elements.To_Address function. The important difference -- is that this is a static attribute so it can be used in - -- initializations in preealborate packages. + -- initializations in preelaborate packages. ---------------- -- Type_Class -- diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index d85d7970b88..763144c296b 100644 --- a/gcc/ada/sem_case.adb +++ b/gcc/ada/sem_case.adb @@ -52,7 +52,7 @@ package body Sem_Case is type Sort_Choice_Table_Type is array (Nat range <>) of Choice_Bounds; -- This new array type is used as the actual table type for sorting -- discrete choices. The reason for not using Choice_Table_Type, is that - -- in Sort_Choice_Table_Type we reserve entry 0 for the sorting algortim + -- in Sort_Choice_Table_Type we reserve entry 0 for the sorting algorithm -- (this is not absolutely necessary but it makes the code more -- efficient). diff --git a/gcc/ada/sem_case.ads b/gcc/ada/sem_case.ads index 321d175ce25..dcc72931551 100644 --- a/gcc/ada/sem_case.ads +++ b/gcc/ada/sem_case.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1996-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -46,7 +46,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; @@ -54,7 +54,7 @@ package Sem_Case is -- alternatives, or array aggregate component associations or -- record variants from which we can then access the actual lists -- of discrete choices. N is the node for the original construct - -- ie a case statement, an array aggregate or a record variant. + -- i.e. a case statement, an array aggregate or a record variant. with function Get_Choices (A : Node_Id) return List_Id; -- Given a case statement alternative, array aggregate component diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index e790e553d07..bbce51f7240 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -151,7 +151,7 @@ package body Sem_Cat is -- to apply to the same library unit, in which case the unit has -- all associated categories, so we need to be careful here to -- check pragmas in proper Categorization order in order to - -- return the lowest appplicable value. + -- return the lowest applicable value. -- Ignore Pure specification if set by pragma Pure_Function @@ -194,7 +194,7 @@ package body Sem_Cat is Unit_Category := Get_Categorization (Unit_Entity); With_Category := Get_Categorization (Depended_Entity); - -- These messages are wanings in GNAT mode, to allow it to be + -- These messages are warnings in GNAT mode, to allow it to be -- judiciously turned off. Otherwise it is a real error. Error_Msg_Warn := GNAT_Mode; @@ -762,7 +762,7 @@ package body Sem_Cat is -- Static_Discriminant_Expr -- ------------------------------ - -- We need to accomodate a Why_Not_Static call somehow here ??? + -- We need to accommodate a Why_Not_Static call somehow here ??? function Static_Discriminant_Expr (L : List_Id) return Boolean is Discriminant_Spec : Node_Id; @@ -963,7 +963,7 @@ package body Sem_Cat is end; -- Child depends on parent; therefore parent should also be categorized - -- and satify the dependency hierarchy. + -- and satisfy the dependency hierarchy. -- Check if N is a child spec diff --git a/gcc/ada/sem_cat.ads b/gcc/ada/sem_cat.ads index 2f4a16fd03f..c86bb3c0cc1 100644 --- a/gcc/ada/sem_cat.ads +++ b/gcc/ada/sem_cat.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -47,7 +47,7 @@ package Sem_Cat is -- True when there is a attribute definition clause specifying attribute -- Nam for Typ. In Ada 2005 mode, returns True only when the attribute -- definition clause is visible, unless At_Any_Place is True (in which case - -- no visiblity test is made, and True is returned as long as an attribute + -- no visibility test is made, and True is returned as long as an attribute -- is visible at any place). Note that attribute definition clauses -- inherited from parent types are taken into account by this predicate -- (to test for presence of an attribute definition clause for one |