1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT COMPILER COMPONENTS                         --
4--                                                                          --
5--                              S E M _ C H 6                               --
6--                                                                          --
7--                                 S p e c                                  --
8--                                                                          --
9--          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
10--                                                                          --
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 2,  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 COPYING.  If not, write --
19-- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
20-- MA 02111-1307, USA.                                                      --
21--                                                                          --
22-- GNAT was originally developed  by the GNAT team at  New York University. --
23-- Extensive contributions were provided by Ada Core Technologies Inc.      --
24--                                                                          --
25------------------------------------------------------------------------------
26
27with Types; use Types;
28package Sem_Ch6 is
29
30   procedure Analyze_Abstract_Subprogram_Declaration (N : Node_Id);
31   procedure Analyze_Function_Call                   (N : Node_Id);
32   procedure Analyze_Operator_Symbol                 (N : Node_Id);
33   procedure Analyze_Parameter_Association           (N : Node_Id);
34   procedure Analyze_Procedure_Call                  (N : Node_Id);
35   procedure Analyze_Return_Statement                (N : Node_Id);
36   procedure Analyze_Subprogram_Declaration          (N : Node_Id);
37   procedure Analyze_Subprogram_Body                 (N : Node_Id);
38
39   function Analyze_Subprogram_Specification (N : Node_Id) return Entity_Id;
40   --  Analyze subprogram specification in both subprogram declarations
41   --  and body declarations. Returns the defining entity for the spec.
42
43   procedure Cannot_Inline (Msg : String; N : Node_Id; Subp : Entity_Id);
44   --  This procedure is called if the node N, an instance of a call to
45   --  subprogram Subp, cannot be inlined. Msg is the message to be issued,
46   --  and has a ? as the last character. If Subp has a pragma Always_Inlined,
47   --  then an error message is issued (by removing the last character of Msg).
48   --  If Subp is not Always_Inlined, then a warning is issued if the flag
49   --  Ineffective_Inline_Warnings is set, and if not, the call has no effect.
50
51   procedure Check_Delayed_Subprogram (Designator : Entity_Id);
52   --  Designator can be a E_Subrpgram_Type, E_Procedure or E_Function. If a
53   --  type in its profile depends on a private type without a full
54   --  declaration, indicate that the subprogram is delayed.
55
56   procedure Check_Discriminant_Conformance
57     (N        : Node_Id;
58      Prev     : Entity_Id;
59      Prev_Loc : Node_Id);
60   --  Check that the discriminants of a full type N fully conform to
61   --  the discriminants of the corresponding partial view Prev.
62   --  Prev_Loc indicates the source location of the partial view,
63   --  which may be different than Prev in the case of private types.
64
65   procedure Check_Fully_Conformant
66     (New_Id  : Entity_Id;
67      Old_Id  : Entity_Id;
68      Err_Loc : Node_Id := Empty);
69   --  Check that two callable entitites (subprograms, entries, literals)
70   --  are fully conformant, post error message if not (RM 6.3.1(17)) with
71   --  the flag being placed on the Err_Loc node if it is specified, and
72   --  on the appropriate component of the New_Id construct if not. Note:
73   --  when checking spec/body conformance, New_Id must be the body entity
74   --  and Old_Id is the spec entity (the code in the implementation relies
75   --  on this ordering, and in any case, this makes sense, since if flags
76   --  are to be placed on the construct, they clearly belong on the body.
77
78   procedure Check_Mode_Conformant
79     (New_Id   : Entity_Id;
80      Old_Id   : Entity_Id;
81      Err_Loc  : Node_Id := Empty;
82      Get_Inst : Boolean := False);
83   --  Check that two callable entitites (subprograms, entries, literals)
84   --  are mode conformant, post error message if not (RM 6.3.1(15)) with
85   --  the flag being placed on the Err_Loc node if it is specified, and
86   --  on the appropriate component of the New_Id construct if not. The
87   --  argument Get_Inst is set to True when this is a check against a
88   --  formal access-to-subprogram type, indicating that mapping of types
89   --  is needed.
90
91   procedure Check_Subtype_Conformant
92     (New_Id  : Entity_Id;
93      Old_Id  : Entity_Id;
94      Err_Loc : Node_Id := Empty);
95   --  Check that two callable entitites (subprograms, entries, literals)
96   --  are subtype conformant, post error message if not (RM 6.3.1(16))
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.
99
100   procedure Check_Type_Conformant
101     (New_Id  : Entity_Id;
102      Old_Id  : Entity_Id;
103      Err_Loc : Node_Id := Empty);
104   --  Check that two callable entitites (subprograms, entries, literals)
105   --  are type conformant, post error message if not (RM 6.3.1(14)) with
106   --  the flag being placed on the Err_Loc node if it is specified, and
107   --  on the appropriate component of the New_Id construct if not.
108
109   procedure Create_Extra_Formals (E : Entity_Id);
110   --  For each parameter of a subprogram or entry that requires an additional
111   --  formal (such as for access parameters and indefinite discriminated
112   --  parameters), creates the appropriate formal and attach it to its
113   --  associated parameter. Each extra formal will also be appended to
114   --  the end of Subp's parameter list (with each subsequent extra formal
115   --  being attached to the preceding extra formal).
116
117   function Find_Corresponding_Spec (N : Node_Id) return Entity_Id;
118   --  Use the subprogram specification in the body to retrieve the previous
119   --  subprogram declaration, if any.
120
121   function Fully_Conformant (New_Id, Old_Id : Entity_Id) return Boolean;
122   --  Determine whether two callable entities (subprograms, entries,
123   --  literals) are fully conformant (RM 6.3.1(17))
124
125   function Fully_Conformant_Expressions
126     (Given_E1 : Node_Id;
127      Given_E2 : Node_Id)
128      return     Boolean;
129   --  Determines if two (non-empty) expressions are fully conformant
130   --  as defined by (RM 6.3.1(18-21))
131
132   function Fully_Conformant_Discrete_Subtypes
133      (Given_S1 : Node_Id;
134       Given_S2 : Node_Id)
135       return Boolean;
136   --  Determines if two subtype definitions are fully conformant. Used
137   --  for entry family conformance checks (RM 6.3.1 (24)).
138
139   function Mode_Conformant (New_Id, Old_Id : Entity_Id) return Boolean;
140   --  Determine whether two callable entities (subprograms, entries,
141   --  literals) are mode conformant (RM 6.3.1(15))
142
143   procedure New_Overloaded_Entity
144     (S            : Entity_Id;
145      Derived_Type : Entity_Id := Empty);
146   --  Process new overloaded entity. Overloaded entities are created
147   --  by enumeration type declarations, subprogram specifications,
148   --  entry declarations, and (implicitly) by type derivations.
149   --  If Derived_Type is not Empty, then it indicates that this
150   --  is subprogram derived for that type.
151
152   procedure Process_Formals (T : List_Id; Related_Nod : Node_Id);
153   --  Enter the formals in the scope of the subprogram or entry, and
154   --  analyze default expressions if any. The implicit types created for
155   --  access parameter are attached to the Related_Nod which comes from the
156   --  context.
157
158   procedure Set_Actual_Subtypes (N : Node_Id; Subp : Entity_Id);
159   --  If the formals of a subprogram are unconstrained, build a subtype
160   --  declaration that uses the bounds or discriminants of the actual to
161   --  construct an actual subtype for them. This is an optimization that
162   --  is done only in some cases where the actual subtype cannot change
163   --  during execution of the subprogram. By setting the actual subtype
164   --  once, we avoid recomputing it unnecessarily.
165
166   procedure Set_Formal_Mode (Formal_Id : Entity_Id);
167   --  Set proper Ekind to reflect formal mode (in, out, in out)
168
169   function Subtype_Conformant (New_Id, Old_Id : Entity_Id) return Boolean;
170   --  Determine whether two callable entities (subprograms, entries,
171   --  literals) are subtype conformant (RM6.3.1(16))
172
173   function Type_Conformant (New_Id, Old_Id : Entity_Id) return Boolean;
174   --  Determine whether two callable entities (subprograms, entries,
175   --  literals) are type conformant (RM6.3.1(14))
176
177   procedure Valid_Operator_Definition (Designator : Entity_Id);
178   --  Verify that an operator definition has the proper number of formals
179
180end Sem_Ch6;
181