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