2012-05-26 Oliver Kellogg <okellogg@users.sourceforge.net>
* alloc.ads, exp_dbug.adb, gcc-interface/misc.c, lib.ads, lib-xref.adb,
lib-xref.ads, sem_ch10.adb, sem_ch12.adb, sem_res.ads, table.ads:
Fix typo.
===================================================================
@@ -66,7 +66,7 @@
-- (a) Corresponding spec for a body
-- (b) Parent spec of a child library spec
- -- (d) With'ed specs
+ -- (c) With'ed specs
-- (d) Parent body of a subunit
-- (e) Subunits corresponding to any specified stubs
-- (f) Bodies of inlined subprograms that are called
@@ -227,7 +227,7 @@
-- A subprogram body (in an adb file) may stand for both a spec and a body.
-- A simple model (and one that was adopted through version 2.07) is simply
-- to assume that such an adb file acts as its own spec if no ads file is
- -- is present.
+ -- present.
-- However, this is not correct. RM 10.1.4(4) requires that such a body
-- act as a spec unless a subprogram declaration of the same name is
===================================================================
@@ -144,7 +144,7 @@
function Last return Table_Index_Type;
pragma Inline (Last);
- -- Returns the current value of the last used entry in the table, which
+ -- Returns the current index of the last used entry in the table, which
-- can then be used as a subscript for Table. Note that the only way to
-- modify Last is to call the Set_Last procedure. Last must always be
-- used to determine the logically last entry.
===================================================================
@@ -767,7 +767,7 @@
-- If the subprogram body is a child unit, we must create a
-- declaration for it, in order to properly load the parent(s).
- -- After this, the original unit does not acts as a spec, because
+ -- After this, the original unit does not act as a spec, because
-- there is an explicit one. If this unit appears in a context
-- clause, then an implicit with on the parent will be added when
-- installing the context. If this is the main unit, there is no
===================================================================
@@ -6612,7 +6612,7 @@
-- If we are not instantiating, then this is where we load and
-- analyze subunits, i.e. at the point where the stub occurs. A
-- more permissive system might defer this analysis to the point
- -- of instantiation, but this seems to complicated for now.
+ -- of instantiation, but this seems too complicated for now.
if not Instantiating then
declare
===================================================================
@@ -30,7 +30,7 @@
------------------------------------------------------------------------------
-- This package contains definitions for initial sizes and growth increments
+-- for the various dynamic arrays used for principal compiler data strcutures.
-- The indicated initial size is allocated for the start of each file, and
-- the increment factor is a percentage used to increase the table size when
-- it needs expanding (e.g. a value of 100 = 100% increase = double)
===================================================================
@@ -348,7 +348,7 @@
void
gnat_init_gcc_eh (void)
{
- /* We shouldn't do anything if the No_Exceptions_Handler pragma is set,
+ /* We shouldn't do anything if the No_Exception_Handlers pragma is set,
though. This could for instance lead to the emission of tables with
references to symbols (such as the Ada eh personality routine) within
libraries we won't link against. */
===================================================================
@@ -45,7 +45,7 @@
-- Since in practice a lot of semantic analysis has to be postponed until
-- types are known (e.g. static folding, setting of suppress flags), the
-- Resolve routines also complete the semantic analysis, and call the
- -- expander for possibly expansion of the completely type resolved node.
+ -- expander for possibly expanding the completely type resolved node.
procedure Resolve (N : Node_Id; Typ : Entity_Id);
procedure Resolve (N : Node_Id; Typ : Entity_Id; Suppress : Check_Id);
===================================================================
@@ -619,7 +619,7 @@
-- case of 'p' since we want to include inherited primitive operations
-- from other packages.
- -- We also omit this test is this is a body reference for a subprogram
+ -- We also omit this test if this is a body reference for a subprogram
-- instantiation. In this case the reference is to the generic body,
-- which clearly need not be in the main unit containing the instance.
-- For the same reason we accept an implicit reference generated for
===================================================================
@@ -23,7 +23,7 @@
-- --
------------------------------------------------------------------------------
+-- This package contains logic for collecting and outputting cross-reference
-- information.
with Einfo; use Einfo;
===================================================================
@@ -83,7 +83,7 @@
-- B : Ddd.Ttt;
-- procedure Y is ..
- -- Here B is a procedure local variable, so it does not need fully
+ -- Here B is a procedure local variable, so it does not need full
-- qualification. The flag Has_Qualified_Name will be set on the
-- first attempt to qualify B, to indicate that the job is done
-- and need not be redone.