aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sem_ch3.ads
diff options
context:
space:
mode:
authorRobert Dewar <dewar@adacore.com>2014-07-31 09:46:06 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2014-07-31 11:46:06 +0200
commite95ad7ea78884d4df12f60a8d3592989b895664b (patch)
tree0f391a6a56870e6cc571ea4c576b17789b2a079b /gcc/ada/sem_ch3.ads
parente9a794351b31fd48b76e65c2dc29f534829e42cc (diff)
downloadgcc-e95ad7ea78884d4df12f60a8d3592989b895664b.zip
gcc-e95ad7ea78884d4df12f60a8d3592989b895664b.tar.gz
gcc-e95ad7ea78884d4df12f60a8d3592989b895664b.tar.bz2
gnat_ugn.texi: Document new switch -gnato0.
2014-07-31 Robert Dewar <dewar@adacore.com> * gnat_ugn.texi: Document new switch -gnato0. * sem_ch3.ads: Minor reformatting. * gnatlink.adb (Process_Args): Compile bind file with -gnato0 (we do not want overflow checks when incrementing elaboration counters). * einfo.ads: Minor reformatting. From-SVN: r213328
Diffstat (limited to 'gcc/ada/sem_ch3.ads')
-rw-r--r--gcc/ada/sem_ch3.ads58
1 files changed, 29 insertions, 29 deletions
diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads
index dedf943..a904856 100644
--- a/gcc/ada/sem_ch3.ads
+++ b/gcc/ada/sem_ch3.ads
@@ -50,18 +50,18 @@ package Sem_Ch3 is
(Related_Nod : Node_Id;
N : Node_Id) return Entity_Id;
-- An access definition defines a general access type for a formal
- -- parameter. The procedure is called when processing formals, when
- -- the current scope is the subprogram. The Implicit type is attached
- -- to the Related_Nod put into the enclosing scope, so that the only
- -- entities defined in the spec are the formals themselves.
+ -- parameter. The procedure is called when processing formals, when the
+ -- current scope is the subprogram. The Implicit type is attached to the
+ -- Related_Nod put into the enclosing scope, so that the only entities
+ -- defined in the spec are the formals themselves.
procedure Access_Subprogram_Declaration
(T_Name : Entity_Id;
T_Def : Node_Id);
-- The subprogram specification yields the signature of an implicit
- -- type, whose Ekind is Access_Subprogram_Type. This implicit type is
- -- the designated type of the declared access type. In subprogram calls,
- -- the signature of the implicit type works like the profile of a regular
+ -- type, whose Ekind is Access_Subprogram_Type. This implicit type is the
+ -- designated type of the declared access type. In subprogram calls, the
+ -- signature of the implicit type works like the profile of a regular
-- subprogram.
procedure Add_Internal_Interface_Entities (Tagged_Type : Entity_Id);
@@ -94,8 +94,8 @@ package Sem_Ch3 is
-- enclosing declaration that generated Ityp.
--
-- A related mechanism is used during expansion, for itypes created in
- -- branches of conditionals. See Ensure_Defined in exp_util.
- -- Could both mechanisms be merged ???
+ -- branches of conditionals. See Ensure_Defined in exp_util. Could both
+ -- mechanisms be merged ???
procedure Check_Abstract_Overriding (T : Entity_Id);
-- Check that all abstract subprograms inherited from T's parent type have
@@ -126,11 +126,11 @@ package Sem_Ch3 is
Parent_Type : Entity_Id;
Actual_Subp : Entity_Id := Empty);
-- Derive the subprogram Parent_Subp from Parent_Type, and replace the
- -- subsidiary subtypes with the derived type to build the specification
- -- of the inherited subprogram (returned in New_Subp). For tagged types,
- -- the derived subprogram is aliased to that of the actual (in the
- -- case where Actual_Subp is nonempty) rather than to the corresponding
- -- subprogram of the parent type.
+ -- subsidiary subtypes with the derived type to build the specification of
+ -- the inherited subprogram (returned in New_Subp). For tagged types, the
+ -- derived subprogram is aliased to that of the actual (in the case where
+ -- Actual_Subp is nonempty) rather than to the corresponding subprogram of
+ -- the parent type.
procedure Derive_Subprograms
(Parent_Type : Entity_Id;
@@ -183,10 +183,10 @@ package Sem_Ch3 is
(C : Entity_Id;
N : Node_Id := Empty) return Boolean;
-- Determines if a record component C is visible in the present context.
- -- Note that even though component C could appear in the entity chain
- -- of a record type, C may not be visible in the current context. For
- -- instance, C may be a component inherited in the full view of a private
- -- extension which is not visible in the current context.
+ -- Note that even though component C could appear in the entity chain of a
+ -- record type, C may not be visible in the current context. For instance,
+ -- C may be a component inherited in the full view of a private extension
+ -- which is not visible in the current context.
--
-- If present, N is the selected component of which C is the selector. If
-- the prefix of N is a type conversion inserted for a discriminant check,
@@ -199,9 +199,9 @@ package Sem_Ch3 is
Suffix_Index : Nat := 1;
In_Iter_Schm : Boolean := False);
-- Process an index that is given in an array declaration, an entry
- -- family declaration or a loop iteration. The index is given by an
- -- index declaration (a 'box'), or by a discrete range. The later can
- -- be the name of a discrete type, or a subtype indication.
+ -- family declaration or a loop iteration. The index is given by an index
+ -- declaration (a 'box'), or by a discrete range. The later can be the name
+ -- of a discrete type, or a subtype indication.
--
-- Related_Nod is the node where the potential generated implicit types
-- will be inserted. The next last parameters are used for creating the
@@ -257,9 +257,9 @@ package Sem_Ch3 is
-- primitive operations of the private view (in the tagged case).
-- N is the N_Full_Type_Declaration node.
--
- -- Full_T is the full view of the type whose full declaration is in N.
+ -- Full_T is the full view of the type whose full declaration is in N.
--
- -- Priv_T is the private view of the type whose full declaration is in N.
+ -- Priv_T is the private view of the type whose full declaration is in N.
procedure Process_Range_Expr_In_Decl
(R : Node_Id;
@@ -298,12 +298,12 @@ package Sem_Ch3 is
(N : Node_Id;
Prev : Entity_Id := Empty);
-- Process the discriminants contained in an N_Full_Type_Declaration or
- -- N_Incomplete_Type_Decl node N. If the declaration is a completion,
- -- Prev is entity on the partial view, on which references are posted.
- -- However, note that Process_Discriminants is called for a completion only
- -- if partial view had no discriminants (else we just check conformance
- -- between the two views and do not call Process_Discriminants again for
- -- the completion).
+ -- N_Incomplete_Type_Decl node N. If the declaration is a completion, Prev
+ -- is entity on the partial view, on which references are posted. However,
+ -- note that Process_Discriminants is called for a completion only if
+ -- partial view had no discriminants (else we just check conformance
+ -- between the two views and do not call Process_Discriminants again
+ -- for the completion).
function Replace_Anonymous_Access_To_Protected_Subprogram
(N : Node_Id) return Entity_Id;