[PATCH, ADA] Typos in source code comments [5/7]
Ralf Wildenhues
Ralf.Wildenhues@gmx.de
Sun Apr 13 10:57:00 GMT 2008
* Ralf Wildenhues wrote on Sun, Apr 13, 2008 at 09:51:15AM CEST:
> OK for trunk? This survived a bootstrap and check-ada.
Updated patch including copyright year updates. OK?
Thanks,
Ralf
gcc/ada/ChangeLog:
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.
diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb
index 6fafa8c..2b53f59 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 d263ec3..1c8d217 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 77cfa7b..fc4055b 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 bc8bd1d..3243089 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 c23ef36..9b340dd 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 42fe418..6eb8a0c 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 4da9c00..b309c37 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 ca37a7f..7732daa 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 0f4b0c8..a37538b 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 1b88b16..e444970 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 547dcb7..ee06529 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 329c56f..85c266a 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 a722190..6f48dfd 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 a4bc949..56e94a9 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 898b75e..33fb253 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 5b677bf..74ab07a 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 068d340..2555eb8 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 ace4756..232c138 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 544fa13..92d1a18 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 f12b9af..bbe2ae5 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 7938ae1..4f0a540 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 08802c6..1a4c6b9 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 6f0e36b..67583c9 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 557bf9a..6719cc0 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 41dbc21..020fd33 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 85f8dfc..70e755d 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 d8a23a0..858bd7b 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 f0af3e0..65cc80b 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 e535a53..36f0fbf 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 e47f0e4..83709f7 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 fd8a168..986a30a 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 afbdc6b..9feba09 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 7ff99e5..8ad468c 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 0b7f277..866a405 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 adfaf11..81afc79 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 cfa7d3a..dfa4c03 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 f8bf911..90e8bb3 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 c2718af..d8cf787 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 c42cc51..03897ac 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 182ade1..bc5b193 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 c87d651..0609e0b 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 8f6fab9..c189be4 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 3cf96e2..0741664 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 9f205d4..47e991a 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 ead49f8..f1d8905 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 50be73a..7683d3a 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 7bd3529..bdc237c 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 995f5ac..ed660fe 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 2359701..691a322 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 c838865..83cc368 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 6efbc9f..805caab 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 f7f68e6..76f63f9 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 7b2f093..44b0f60 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 d3319b6..93f0780 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 6099861..f930ecb 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 ae84ffb..441b394 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 d0b74f5..30dda43 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 d85d797..763144c 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 321d175..dcc7293 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 e790e55..bbce51f 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 2f4a16f..c86bb3c 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
More information about the Gcc-patches
mailing list