1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING3. If not, go to --
19 -- http://www.gnu.org/licenses for a complete copy of the license. --
21 -- GNAT was originally developed by the GNAT team at New York University. --
22 -- Extensive contributions were provided by Ada Core Technologies Inc. --
24 ------------------------------------------------------------------------------
26 with Types; use Types;
29 type Conformance_Type is
30 (Type_Conformant, Mode_Conformant, Subtype_Conformant, Fully_Conformant);
31 -- Conformance type used in conformance checks between specs and bodies,
32 -- and for overriding. The literals match the RM definitions of the
33 -- corresponding terms.
35 procedure Analyze_Abstract_Subprogram_Declaration (N : Node_Id);
36 procedure Analyze_Extended_Return_Statement (N : Node_Id);
37 procedure Analyze_Function_Call (N : Node_Id);
38 procedure Analyze_Operator_Symbol (N : Node_Id);
39 procedure Analyze_Parameter_Association (N : Node_Id);
40 procedure Analyze_Procedure_Call (N : Node_Id);
41 procedure Analyze_Simple_Return_Statement (N : Node_Id);
42 procedure Analyze_Subprogram_Declaration (N : Node_Id);
43 procedure Analyze_Subprogram_Body (N : Node_Id);
45 function Analyze_Subprogram_Specification (N : Node_Id) return Entity_Id;
46 -- Analyze subprogram specification in both subprogram declarations
47 -- and body declarations. Returns the defining entity for the
50 procedure Cannot_Inline (Msg : String; N : Node_Id; Subp : Entity_Id);
51 -- This procedure is called if the node N, an instance of a call to
52 -- subprogram Subp, cannot be inlined. Msg is the message to be issued,
53 -- and has a ? as the last character. If Subp has a pragma Always_Inlined,
54 -- then an error message is issued (by removing the last character of Msg).
55 -- If Subp is not Always_Inlined, then a warning is issued if the flag
56 -- Ineffective_Inline_Warnings is set, and if not, the call has no effect.
58 procedure Check_Conventions (Typ : Entity_Id);
59 -- Ada 2005 (AI-430): Check that the conventions of all inherited and
60 -- overridden dispatching operations of type Typ are consistent with
61 -- their respective counterparts.
63 procedure Check_Delayed_Subprogram (Designator : Entity_Id);
64 -- Designator can be a E_Subprogram_Type, E_Procedure or E_Function. If a
65 -- type in its profile depends on a private type without a full
66 -- declaration, indicate that the subprogram or type is delayed.
68 procedure Check_Discriminant_Conformance
72 -- Check that the discriminants of a full type N fully conform to
73 -- the discriminants of the corresponding partial view Prev.
74 -- Prev_Loc indicates the source location of the partial view,
75 -- which may be different than Prev in the case of private types.
77 procedure Check_Fully_Conformant
80 Err_Loc : Node_Id := Empty);
81 -- Check that two callable entitites (subprograms, entries, literals)
82 -- are fully conformant, post error message if not (RM 6.3.1(17)) with
83 -- the flag being placed on the Err_Loc node if it is specified, and
84 -- on the appropriate component of the New_Id construct if not. Note:
85 -- when checking spec/body conformance, New_Id must be the body entity
86 -- and Old_Id is the spec entity (the code in the implementation relies
87 -- on this ordering, and in any case, this makes sense, since if flags
88 -- are to be placed on the construct, they clearly belong on the body.
90 procedure Check_Mode_Conformant
93 Err_Loc : Node_Id := Empty;
94 Get_Inst : Boolean := False);
95 -- Check that two callable entitites (subprograms, entries, literals)
96 -- are mode conformant, post error message if not (RM 6.3.1(15)) with
97 -- the flag being placed on the Err_Loc node if it is specified, and
98 -- on the appropriate component of the New_Id construct if not. The
99 -- argument Get_Inst is set to True when this is a check against a
100 -- formal access-to-subprogram type, indicating that mapping of types
103 procedure Check_Subtype_Conformant
106 Err_Loc : Node_Id := Empty);
107 -- Check that two callable entitites (subprograms, entries, literals)
108 -- are subtype conformant, post error message if not (RM 6.3.1(16))
109 -- the flag being placed on the Err_Loc node if it is specified, and
110 -- on the appropriate component of the New_Id construct if not.
112 procedure Check_Type_Conformant
115 Err_Loc : Node_Id := Empty);
116 -- Check that two callable entitites (subprograms, entries, literals)
117 -- are type conformant, post error message if not (RM 6.3.1(14)) with
118 -- the flag being placed on the Err_Loc node if it is specified, and
119 -- on the appropriate component of the New_Id construct if not.
121 function Conforming_Types
124 Ctype : Conformance_Type;
125 Get_Inst : Boolean := False) return Boolean;
126 -- Check that the types of two formal parameters are conforming. In most
127 -- cases this is just a name comparison, but within an instance it involves
128 -- generic actual types, and in the presence of anonymous access types
129 -- it must examine the designated types.
131 procedure Create_Extra_Formals (E : Entity_Id);
132 -- For each parameter of a subprogram or entry that requires an additional
133 -- formal (such as for access parameters and indefinite discriminated
134 -- parameters), creates the appropriate formal and attach it to its
135 -- associated parameter. Each extra formal will also be appended to
136 -- the end of Subp's parameter list (with each subsequent extra formal
137 -- being attached to the preceding extra formal).
139 function Find_Corresponding_Spec (N : Node_Id) return Entity_Id;
140 -- Use the subprogram specification in the body to retrieve the previous
141 -- subprogram declaration, if any.
143 function Fully_Conformant (New_Id, Old_Id : Entity_Id) return Boolean;
144 -- Determine whether two callable entities (subprograms, entries,
145 -- literals) are fully conformant (RM 6.3.1(17))
147 function Fully_Conformant_Expressions
151 -- Determines if two (non-empty) expressions are fully conformant
152 -- as defined by (RM 6.3.1(18-21))
154 function Fully_Conformant_Discrete_Subtypes
158 -- Determines if two subtype definitions are fully conformant. Used
159 -- for entry family conformance checks (RM 6.3.1 (24)).
161 function Mode_Conformant (New_Id, Old_Id : Entity_Id) return Boolean;
162 -- Determine whether two callable entities (subprograms, entries,
163 -- literals) are mode conformant (RM 6.3.1(15))
165 procedure New_Overloaded_Entity
167 Derived_Type : Entity_Id := Empty);
168 -- Process new overloaded entity. Overloaded entities are created by
169 -- enumeration type declarations, subprogram specifications, entry
170 -- declarations, and (implicitly) by type derivations. Derived_Type non-
171 -- Empty indicates that this is subprogram derived for that type.
173 procedure Process_Formals (T : List_Id; Related_Nod : Node_Id);
174 -- Enter the formals in the scope of the subprogram or entry, and
175 -- analyze default expressions if any. The implicit types created for
176 -- access parameter are attached to the Related_Nod which comes from the
179 procedure Set_Actual_Subtypes (N : Node_Id; Subp : Entity_Id);
180 -- If the formals of a subprogram are unconstrained, build a subtype
181 -- declaration that uses the bounds or discriminants of the actual to
182 -- construct an actual subtype for them. This is an optimization that
183 -- is done only in some cases where the actual subtype cannot change
184 -- during execution of the subprogram. By setting the actual subtype
185 -- once, we avoid recomputing it unnecessarily.
187 procedure Set_Formal_Mode (Formal_Id : Entity_Id);
188 -- Set proper Ekind to reflect formal mode (in, out, in out)
190 function Subtype_Conformant (New_Id, Old_Id : Entity_Id) return Boolean;
191 -- Determine whether two callable entities (subprograms, entries,
192 -- literals) are subtype conformant (RM6.3.1(16)).
194 function Type_Conformant
197 Skip_Controlling_Formals : Boolean := False) return Boolean;
198 -- Determine whether two callable entities (subprograms, entries,
199 -- literals) are type conformant (RM6.3.1(14)).
201 procedure Valid_Operator_Definition (Designator : Entity_Id);
202 -- Verify that an operator definition has the proper number of formals