| blob | ba4beae285160c40f3aa0371d92eefff993277d8 |
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT COMPILER COMPONENTS --
4 -- --
5 -- S E M _ C H 1 0 --
6 -- --
7 -- B o d y --
8 -- --
9 -- Copyright (C) 1992-2023, 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 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. --
20 -- --
21 -- GNAT was originally developed by the GNAT team at New York University. --
22 -- Extensive contributions were provided by Ada Core Technologies Inc. --
23 -- --
24 ------------------------------------------------------------------------------
81 -----------------------
82 -- Local Subprograms --
83 -----------------------
86 -- Analyzes items in the context clause of compilation unit
89 -- Subsidiary of Analyze_Compilation_Unit. Perform full analysis of the
90 -- limited-with units of N when it is a package declaration that does not
91 -- require a package body, and the profile of some subprogram defined in N
92 -- depends on shadow incomplete type entities visible through limited-with
93 -- context clauses. This analysis is required to provide the backend with
94 -- the non-limited view of these shadow entities.
97 -- Build and decorate the list of shadow entities for a package mentioned
98 -- in a limited_with clause. If the package was not previously analyzed
99 -- then it also performs a basic decoration of the real entities. This is
100 -- required in order to avoid passing non-decorated entities to the
101 -- back-end. Implements Ada 2005 (AI-50217).
104 -- Common processing for all stubs (subprograms, tasks, packages, and
105 -- protected cases). N is the stub to be analyzed. Once the subunit name
106 -- is established, load and analyze. Nam is the non-overloadable entity
107 -- for which the proper body provides a completion. Subprogram stubs are
108 -- handled differently because they can be declarations.
111 -- Check whether the source for the body of a compilation unit must be
112 -- included in a standalone library.
115 -- Carries out possible tests for violation of No_Elab_Code all for withed
116 -- units in the Context_Items of unit N.
119 -- If a with_clause mentions a private child unit, the compilation unit
120 -- must be a member of the same family, as described in 10.1.2.
123 -- Verify that a stub is declared immediately within a compilation unit,
124 -- and not in an inner frame.
127 -- When a child unit appears in a context clause, the implicit withs on
128 -- parents are made explicit, and with clauses are inserted in the context
129 -- clause before the one for the child. If a parent in the with_clause
130 -- is a renaming, the implicit with_clause is on the renaming whose name
131 -- is mentioned in the with_clause, and not on the package it renames.
132 -- N is the compilation unit whose list of context items receives the
133 -- implicit with_clauses.
136 -- Generate cross-reference information for the parents of child units
137 -- and of subunits. N is a defining_program_unit_name, and P_Id is the
138 -- immediate parent scope.
140 function Has_With_Clause
144 -- Determine whether compilation unit C_Unit contains a [limited] with
145 -- clause for package Pack. Use the flag Is_Limited to designate desired
146 -- clause kind.
149 -- If the main unit is a child unit, implicit withs are also added for
150 -- all its ancestors.
153 -- Check that the shadow entity is not already in the homonym chain, for
154 -- example through a limited_with clause in a parent unit.
157 -- Subsidiary to Install_Context and Install_Parents. Process all with
158 -- and use clauses for current unit and its library unit if any. The flag
159 -- Chain is used to control the "chaining" or linking together of use-type
160 -- and use-package clauses to avoid circularities with reinstalling
161 -- clauses.
164 -- Subsidiary to Install_Context. Process only limited with_clauses for
165 -- current unit. Implements Ada 2005 (AI-50217).
168 -- Place shadow entities for a limited_with package in the visibility
169 -- structures for the current compilation. Implements Ada 2005 (AI-50217).
171 procedure Install_Parents
175 -- This procedure establishes the context for the compilation of a child
176 -- unit. If Lib_Unit is a child library spec then the context of the parent
177 -- is installed, and the parent itself made immediately visible, so that
178 -- the child unit is processed in the declarative region of the parent.
179 -- Install_Parents makes a recursive call to itself to ensure that all
180 -- parents are loaded in the nested case. If Lib_Unit is a library body,
181 -- the only effect of Install_Parents is to install the private decls of
182 -- the parents, because the visible parent declarations will have been
183 -- installed as part of the context of the corresponding spec. The flag
184 -- Chain is used to control the "chaining" or linking of use-type and
185 -- use-package clauses to avoid circularities when installing context.
188 -- In the compilation of a child unit, a child of any of the ancestor
189 -- units is directly visible if it is visible, because the parent is in
190 -- an enclosing scope. Iterate over context to find child units of U_Name
191 -- or of some ancestor of it.
193 procedure Install_With_Clause
196 -- If the unit is not a child unit, make unit immediately visible. The
197 -- caller ensures that the unit is not already currently installed. The
198 -- flag Private_With_OK is set true in Install_Private_With_Clauses, which
199 -- is called when compiling the private part of a package, or installing
200 -- the private declarations of a parent unit.
203 -- When compiling a unit Q descended from some parent unit P, a limited
204 -- with_clause in the context of P that names some other ancestor of Q
205 -- must not be installed because the ancestor is immediately visible.
208 -- Lib_Unit is a library unit which may be a spec or a body. Is_Child_Spec
209 -- returns True if Lib_Unit is a library spec which is a child spec, i.e.
210 -- a library spec that has a parent. If the call to Is_Child_Spec returns
211 -- True, then Parent_Spec (Lib_Unit) is non-Empty and points to the
212 -- compilation unit for the parent spec.
213 --
214 -- Lib_Unit can also be a subprogram body that acts as its own spec. If the
215 -- Parent_Spec is non-empty, this is also a child unit.
218 -- Subsidiary of previous one. Remove use_ and with_clauses
221 -- Remove the shadow entities from visibility introduced for a package
222 -- mentioned in limited with clause N. Implements Ada 2005 (AI-50217).
224 procedure Remove_Limited_With_Unit
227 -- Remove the shadow entities from visibility introduced for a package
228 -- denoted by declaration Pack_Decl. Lim_Clause is the related limited
229 -- with clause, if any. Implements Ada 2005 (AI-50217).
232 -- Remove_Parents checks if Lib_Unit is a child spec. If so then the parent
233 -- contexts established by the corresponding call to Install_Parents are
234 -- removed. Remove_Parents contains a recursive call to itself to ensure
235 -- that all parents are removed in the nested case.
238 -- Reset all visibility flags on unit after compiling it, either as a main
239 -- unit or as a unit in the context.
242 -- Replace Old_E by New_E on visibility list
245 -- Remove single entity from visibility list
248 -- A dummy procedure, for debugging use, called just before analyzing the
249 -- main unit (after dealing with any context clauses).
251 --------------------------
252 -- Limited_With_Clauses --
253 --------------------------
255 -- Limited_With clauses are the mechanism chosen for Ada 2005 to support
256 -- mutually recursive types declared in different units. A limited_with
257 -- clause that names package P in the context of unit U makes the types
258 -- declared in the visible part of P available within U, but with the
259 -- restriction that these types can only be used as incomplete types.
260 -- The limited_with clause does not impose a semantic dependence on P,
261 -- and it is possible for two packages to have limited_with_clauses on
262 -- each other without creating an elaboration circularity.
264 -- To support this feature, the analysis of a limited_with clause must
265 -- create an abbreviated view of the package, without performing any
266 -- semantic analysis on it. This "package abstract" contains shadow types
267 -- that are in one-one correspondence with the real types in the package,
268 -- and that have the properties of incomplete types.
270 -- The implementation creates two element lists: one to chain the shadow
271 -- entities, and one to chain the corresponding type entities in the tree
272 -- of the package. Links between corresponding entities in both chains
273 -- allow the compiler to select the proper view of a given type, depending
274 -- on the context. Note that in contrast with the handling of private
275 -- types, the limited view and the nonlimited view of a type are treated
276 -- as separate entities, and no entity exchange needs to take place, which
277 -- makes the implementation much simpler than could be feared.
279 ------------------------------
280 -- Analyze_Compilation_Unit --
281 ------------------------------
286 procedure Check_Redundant_Withs
289 -- Determine whether the context list of a compilation unit contains
290 -- redundant with clauses. When checking body clauses against spec
291 -- clauses, set Context_Items to the context list of the body and
292 -- Spec_Context_Items to that of the spec. Parent packages are not
293 -- examined for documentation purposes.
295 ---------------------------
296 -- Check_Redundant_Withs --
297 ---------------------------
299 procedure Check_Redundant_Withs
302 is
305 procedure Process_Body_Clauses
310 -- Examine the context clauses of a package body, trying to match the
311 -- name entity of Clause with any list element. If the match occurs
312 -- on a use package clause set Used to True, for a use type clause or
313 -- pragma Elaborate[_All], set Used_Type_Or_Elab to True.
315 procedure Process_Spec_Clauses
321 -- Examine the context clauses of a package spec, trying to match
322 -- the name entity of Clause with any list element. If the match
323 -- occurs on a use package clause, set Used to True, for a with
324 -- package clause other than Clause, set Withed to True. Limited
325 -- with clauses, implicitly generated with clauses and withs
326 -- having pragmas Elaborate or Elaborate_All applied to them are
327 -- skipped. Exit_On_Self is used to control the search loop and
328 -- force an exit whenever Clause sees itself in the search.
330 --------------------------
331 -- Process_Body_Clauses --
332 --------------------------
334 procedure Process_Body_Clauses
339 is
346 -- In an expanded name in a use clause, if the prefix is a renamed
347 -- package, the entity is set to the original package as a result,
348 -- when checking whether the package appears in a previous with
349 -- clause, the renaming has to be taken into account, to prevent
350 -- spurious/incorrect warnings. A common case is use of Text_IO.
352 ---------------
353 -- Same_Unit --
354 ---------------
357 begin
363 -- Start of processing for Process_Body_Clauses
365 begin
372 -- Package use clause
375 and then not Used
376 then
377 -- Search through use clauses
381 -- Case of a direct use of the one we are looking for
386 -- Handle nested case, as in "with P; use P.Q.R"
388 else
389 declare
392 begin
393 -- Loop through prefixes looking for match
407 -- USE TYPE clause
410 and then not Used_Type_Or_Elab
411 then
412 declare
415 begin
416 -- Loop through prefixes looking for a match
419 loop
420 if not Used_Type_Or_Elab
422 then
431 -- Pragma Elaborate or Elaborate_All
434 and then
436 in Name_Elaborate | Name_Elaborate_All
437 and then not Used_Type_Or_Elab
438 then
439 Prag_Unit :=
454 --------------------------
455 -- Process_Spec_Clauses --
456 --------------------------
458 procedure Process_Spec_Clauses
464 is
468 begin
475 -- Stop the search since the context items after Cont_Item have
476 -- already been examined in a previous iteration of the reverse
477 -- loop in Check_Redundant_Withs.
479 if Exit_On_Self
481 then
485 -- Package use clause
488 and then not Used
489 then
494 -- Package with clause. Avoid processing self, implicitly
495 -- generated with clauses or limited with clauses. Note that
496 -- we examine with clauses having pragmas Elaborate or
497 -- Elaborate_All applied to them due to cases such as:
499 -- with Pack;
500 -- with Pack;
501 -- pragma Elaborate (Pack);
503 -- In this case, the second with clause is redundant since
504 -- the pragma applies only to the first "with Pack;".
506 -- Note that we only consider with_clauses that comes from
507 -- source. In the case of renamings used as prefixes of names
508 -- in with_clauses, we generate a with_clause for the prefix,
509 -- which we do not treat as implicit because it is needed for
510 -- visibility analysis, but is also not redundant.
518 then
526 -- Start of processing for Check_Redundant_Withs
528 begin
532 -- Avoid checking implicitly generated with clauses, limited with
533 -- clauses or withs that have pragma Elaborate or Elaborate_All.
540 -- With_clauses introduced for renamings of parent clauses
541 -- are not marked implicit because they need to be properly
542 -- installed, but they do not come from source and do not
543 -- require warnings.
546 then
547 -- Package body-to-spec check
550 declare
556 begin
557 Process_Spec_Clauses
563 Process_Body_Clauses
569 -- "Type Elab" refers to the presence of either a use
570 -- type clause, pragmas Elaborate or Elaborate_All.
572 -- +---------------+---------------------------+------+
573 -- | Spec | Body | Warn |
574 -- +--------+------+--------+------+-----------+------+
575 -- | Withed | Used | Withed | Used | Type Elab | |
576 -- | X | | X | | | X |
577 -- | X | | X | X | | |
578 -- | X | | X | | X | |
579 -- | X | | X | X | X | |
580 -- | X | X | X | | | X |
581 -- | X | X | X | | X | |
582 -- | X | X | X | X | | X |
583 -- | X | X | X | X | X | |
584 -- +--------+------+--------+------+-----------+------+
588 and then
591 then
592 Error_Msg_N -- CODEFIX
597 -- Standalone package spec or body check
599 else
602 then
603 Error_Msg_N
607 declare
611 begin
612 -- The mechanism for examining the context clauses of a
613 -- package spec can be applied to package body clauses.
615 Process_Spec_Clauses
623 Error_Msg_N -- CODEFIX
634 -- Local variables
642 -- Start of processing for Analyze_Compilation_Unit
644 begin
649 -- If the unit is a subunit whose parent has not been analyzed (which
650 -- indicates that the main unit is a subunit, either the current one or
651 -- one of its descendants) then the subunit is compiled as part of the
652 -- analysis of the parent, which we proceed to do. Basically this gets
653 -- handled from the top down and we don't want to do anything at this
654 -- level (i.e. this subunit will be handled on the way down from the
655 -- parent), so at this level we immediately return. If the subunit ends
656 -- up not analyzed, it means that the parent did not contain a stub for
657 -- it, or that there errors were detected in some ancestor.
665 else
673 -- Analyze context (this will call Sem recursively for with'ed units) To
674 -- detect circularities among with-clauses that are not caught during
675 -- loading, we set the Context_Pending flag on the current unit. If the
676 -- flag is already set there is a potential circularity. We exclude
677 -- predefined units from this check because they are known to be safe.
678 -- We also exclude package bodies that are present because circularities
679 -- between bodies are harmless (and necessary).
682 declare
685 begin
689 else
693 then
702 Error_Msg_N
716 else
724 -- If the unit is a package body, the spec is already loaded and must be
725 -- analyzed first, before we analyze the body.
729 -- If no Lib_Unit, then there was a serious previous error, so just
730 -- ignore the entire analysis effort.
733 Check_Error_Detected;
736 else
737 -- Analyze the package spec
741 -- Check for unused with's
745 -- Verify that the library unit is a package declaration
748 N_Package_Declaration | N_Generic_Package_Declaration
749 then
750 Error_Msg_N
754 -- Otherwise, the entity in the declaration is visible. Update the
755 -- version to reflect dependence of this body on the spec.
757 else
763 N_Defining_Program_Unit_Name
764 then
770 -- If the unit is a subprogram body, then we similarly need to analyze
771 -- its spec. However, things are a little simpler in this case, because
772 -- here, this analysis is done mostly for error checking and consistency
773 -- purposes (but not only, e.g. there could be a contract on the spec),
774 -- so there's nothing else to be done.
779 -- If the subprogram body is a child unit, we must create a
780 -- declaration for it, in order to properly load the parent(s).
781 -- After this, the original unit does not acts as a spec, because
782 -- there is an explicit one. If this unit appears in a context
783 -- clause, then an implicit with on the parent will be added when
784 -- installing the context. If this is the main unit, there is no
785 -- Unit_Table entry for the declaration (it has the unit number
786 -- of the main unit) and code generation is unaffected.
792 Unum :=
793 Load_Unit
801 -- Build subprogram declaration and attach parent unit to it
802 -- This subprogram declaration does not come from source,
803 -- Nevertheless the backend must generate debugging info for
804 -- it, and this must be indicated explicitly. We also mark
805 -- the body entity as a child unit now, to prevent a
806 -- cascaded error if the spec entity cannot be entered
807 -- in its scope. Finally we create a Units table entry for
808 -- the subprogram declaration, to maintain a one-to-one
809 -- correspondence with compilation unit nodes. This is
810 -- critical for the tree traversals performed by CodePeer.
812 declare
815 Get_Comes_From_Source_Default;
817 begin
820 -- Note: We copy the Context_Items from the explicit body
821 -- to the implicit spec, setting the former to Empty_List
822 -- to preserve the treeish nature of the tree, during
823 -- analysis of the spec. Then we put it back the way it
824 -- was -- copy the Context_Items from the spec to the
825 -- body, and set the spec Context_Items to Empty_List.
826 -- It is necessary to preserve the treeish nature,
827 -- because otherwise we will call End_Use_* twice on the
828 -- same thing.
830 Lib_Unit :=
833 Unit =>
835 Specification =>
836 Copy_Separate_Tree
838 Aux_Decls_Node =>
847 -- Now that a separate declaration exists, the body
848 -- of the child unit does not act as spec any longer.
856 -- Restore Context_Items to the body
864 -- Here for subprogram with separate declaration
866 else
872 -- If this is a child unit, generate references to the parents
875 N_Defining_Program_Unit_Name
876 then
877 Generate_Parent_References
883 -- If it is a child unit, the parent must be elaborated first and we
884 -- update version, since we are dependent on our parent.
888 -- The analysis of the parent is done with style checks off
890 declare
893 begin
901 -- Restore style check settings
907 -- With the analysis done, install the context. Note that we can't
908 -- install the context from the with clauses as we analyze them, because
909 -- each with clause must be analyzed in a clean visibility context, so
910 -- we have to wait and install them all at once.
916 -- Set the entities of all parents in the program_unit_name
918 Generate_Parent_References
922 -- All components of the context: with-clauses, library unit, ancestors
923 -- if any, (and their context) are analyzed and installed.
925 -- Call special debug routine sm if this is the main unit
928 sm;
931 -- Now analyze the unit (package, subprogram spec, body) itself
939 Check_Redundant_Withs
945 -- The above call might have made Unit_Node an N_Subprogram_Body from
946 -- something else, so propagate any Acts_As_Spec flag.
950 then
954 -- Register predefined units in Rtsfind
960 -- Treat compilation unit pragmas that appear after the library unit
962 declare
964 begin
971 -- Analyze the contract of a [generic] subprogram that acts as a
972 -- compilation unit after all compilation pragmas have been analyzed.
975 N_Generic_Subprogram_Declaration | N_Subprogram_Declaration
976 then
980 -- Generate distribution stubs if requested and no error
984 or else
987 then
990 -- Regular RCI package
998 and then
1000 then
1001 -- Shared passive package
1006 and then
1007 Is_Remote_Call_Interface
1009 then
1010 -- Instantiation of a RCI generic package
1016 -- Build dispatch tables of library-level tagged types only now because
1017 -- the generation of distribution stubs above may create some of them.
1032 -- Remove unit from visibility, so that environment is clean for the
1033 -- next compilation, which is either the main unit or some other unit
1034 -- in the context.
1037 | N_Package_Renaming_Declaration
1038 | N_Subprogram_Declaration
1039 | N_Generic_Declaration
1042 then
1045 -- If the unit is an instantiation whose body will be elaborated for
1046 -- inlining purposes, use the proper entity of the instance. The entity
1047 -- may be missing if the instantiation was illegal.
1052 then
1053 Remove_Unit_From_Visibility
1059 then
1060 -- Bodies that are not the main unit are compiled if they are generic
1061 -- or contain generic or inlined units. Their analysis brings in the
1062 -- context of the corresponding spec (unit declaration) which must be
1063 -- removed as well, to return the compilation environment to its
1064 -- proper state.
1070 -- Last step is to deinstall the context we just installed as well as
1071 -- the unit just compiled.
1075 -- When generating code for a non-generic main unit, check that withed
1076 -- generic units have a body if they need it, even if the units have not
1077 -- been instantiated. Force the load of the bodies to produce the proper
1078 -- error if the body is absent. The same applies to GNATprove mode, with
1079 -- the added benefit of capturing global references within the generic.
1080 -- This in turn allows for proper inlining of subprogram bodies without
1081 -- a previous declaration.
1085 or else
1087 then
1088 -- Check whether the source for the body of the unit must be included
1089 -- in a standalone library.
1093 -- Indicate that the main unit is now analyzed, to catch possible
1094 -- circularities between it and generic bodies. Remove main unit from
1095 -- visibility. This might seem superfluous, but the main unit must
1096 -- not be visible in the generic body expansions that follow.
1101 declare
1108 begin
1112 -- Check for explicit with clause
1117 -- Ada 2005 (AI-50217): Ignore limited-withed units
1120 then
1123 -- Compile the generic subprogram, unless it is intrinsic or
1124 -- imported so no body is required, or generic package body
1125 -- if the package spec requires a body.
1132 then
1136 Un :=
1137 Load_Unit
1139 Get_Body_Name
1140 (Get_Unit_Name
1141 (Unit_Declaration_Node
1147 else
1148 Un :=
1149 Load_Unit
1159 Error_Msg_NE
1166 then
1176 -- Restore style checks settings
1181 -- In GNATprove mode, force the loading of an Interrupt_Priority when
1182 -- processing compilation units with potentially "main" subprograms.
1183 -- This is required for the ceiling priority protocol checks, which
1184 -- are triggered by these subprograms.
1186 if GNATprove_Mode
1188 | N_Procedure_Instantiation
1189 | N_Subprogram_Body
1190 then
1191 declare
1194 begin
1200 Spec :=
1209 -- Main subprogram must have no parameters, and if it is a
1210 -- function, it must return an integer.
1214 or else
1216 then
1223 -- Deal with creating elaboration counter if needed. We create an
1224 -- elaboration counter only for units that come from source since
1225 -- units manufactured by the compiler never need elab checks.
1229 | N_Generic_Package_Declaration
1230 | N_Subprogram_Declaration
1231 | N_Generic_Subprogram_Declaration
1232 then
1233 declare
1237 begin
1241 -- See if an elaboration entity is required for possible access
1242 -- before elaboration checking. Note that we must allow for this
1243 -- even if -gnatE is not set, since a client may be compiled in
1244 -- -gnatE mode and reference the entity.
1246 -- These entities are also used by the binder to prevent multiple
1247 -- attempts to execute the elaboration code for the library case
1248 -- where the elaboration routine might otherwise be called more
1249 -- than once.
1251 -- They are also needed to ensure explicit visibility from the
1252 -- binder generated code of all the units involved in a partition
1253 -- when control-flow preservation is requested.
1256 and then
1261 -- Preelaborated units do not need checks
1265 -- No checks needed if pragma Elaborate_Body present
1269 -- No checks needed if unit does not require a body
1273 -- No checks needed for predefined files
1277 -- No checks required if no separate spec
1280 )
1281 then
1282 -- This is a case where we only need the entity for checking to
1283 -- prevent multiple elaboration checks.
1287 -- Otherwise the unit requires an elaboration entity because it
1288 -- carries a body.
1290 else
1298 -- Freeze the compilation unit entity. This for sure is needed because
1299 -- of some warnings that can be output (see Freeze_Subprogram), but may
1300 -- in general be required. If freezing actions result, place them in the
1301 -- compilation unit actions list, and analyze them.
1303 declare
1306 begin
1314 -- Call Check_Package_Body so that a body containing subprograms with
1315 -- Inline_Always can be made available for front end inlining.
1320 -- We don't need to do this if the Expander is not active, since there
1321 -- is no code to inline.
1323 and then Expander_Active
1324 then
1325 declare
1330 begin
1332 Reset_Style_Check_Options;
1337 Reset_Style_Check_Options;
1344 -- If we are generating obsolescent warnings, then here is where we
1345 -- generate them for the with'ed items. The reason for this special
1346 -- processing is that the normal mechanism of generating the warnings
1347 -- for referenced entities does not work for context clause references.
1348 -- That's because when we first analyze the context, it is too early to
1349 -- know if the with'ing unit is itself obsolescent (which suppresses
1350 -- the warnings).
1352 if not GNAT_Mode
1353 and then Warn_On_Obsolescent_Feature
1355 then
1356 -- Push current compilation unit as scope, so that the test for
1357 -- being within an obsolescent unit will work correctly. The check
1358 -- is not performed within an instantiation, because the warning
1359 -- will have been emitted in the corresponding generic unit.
1363 -- Loop through context items to deal with with clauses
1365 declare
1370 begin
1375 -- Suppress this check in limited-withed units. Further work
1376 -- needed here if we decide to incorporate this check on
1377 -- limited-withed units.
1380 then
1393 -- Remove temporary install of current unit as scope
1395 Pop_Scope;
1398 -- If No_Elaboration_Code_All was encountered, this is where we do the
1399 -- transitive test of with'ed units to make sure they have the aspect.
1400 -- This is delayed till the end of analyzing the compilation unit to
1401 -- ensure that the pragma/aspect, if present, has been analyzed.
1405 -- If this is a main compilation containing a package declaration that
1406 -- requires no package body, and the profile of some subprogram depends
1407 -- on shadow incomplete entities then perform full analysis of its
1408 -- limited-with units.
1413 ---------------------
1414 -- Analyze_Context --
1415 ---------------------
1421 begin
1422 -- First process all configuration pragmas at the start of the context
1423 -- items. Strictly these are not part of the context clause, but that
1424 -- is where the parser puts them. In any case for sure we must analyze
1425 -- these before analyzing the actual context items, since they can have
1426 -- an effect on that analysis (e.g. pragma Ada_2005 may allow a unit to
1427 -- be with'ed as a result of changing categorizations in Ada 2005).
1433 loop
1438 -- This is the point at which we capture the configuration settings
1439 -- for the unit. At the moment only the Optimize_Alignment setting
1440 -- needs to be captured. Probably more later ???
1444 else
1448 -- Loop through actual context items. This is done in two passes:
1450 -- a) The first pass analyzes nonlimited with clauses and also any
1451 -- configuration pragmas (we need to get the latter analyzed right
1452 -- away, since they can affect processing of subsequent items).
1454 -- b) The second pass analyzes limited_with clauses (Ada 2005: AI-50217)
1458 -- For with clause, analyze the with clause, and then update the
1459 -- version, since we are dependent on a unit that we with.
1463 then
1464 -- Skip analyzing with clause if no unit, nothing to do (this
1465 -- happens for a with that references a non-existent unit).
1469 -- Skip analyzing with clause if this is a with_clause for
1470 -- the main unit, which happens if a subunit has a useless
1471 -- with_clause on its parent.
1476 -- Here for the case of a useless with for the main unit
1478 else
1483 -- Do version update (skipped for implicit with)
1489 -- Skip pragmas. Configuration pragmas at the start were handled in
1490 -- the loop above, and remaining pragmas are not processed until we
1491 -- actually install the context (see Install_Context). We delay the
1492 -- analysis of these pragmas to make sure that we have installed all
1493 -- the implicit with's on parent units.
1495 -- Skip use clauses at this stage, since we don't want to do any
1496 -- installing of potentially use-visible entities until we
1497 -- actually install the complete context (in Install_Context).
1498 -- Otherwise things can get installed in the wrong context.
1500 else
1507 -- Second pass: examine all limited_with clauses. All other context
1508 -- items are ignored in this pass.
1514 then
1515 -- No need to check errors on implicitly generated limited-with
1516 -- clauses.
1520 -- Verify that the illegal contexts given in 10.1.2 (18/2) are
1521 -- properly rejected, including renaming declarations.
1524 | N_Subprogram_Declaration
1525 | N_Generic_Declaration
1526 | N_Generic_Instantiation
1527 then
1530 -- Check wrong use of a limited with clause applied to the
1531 -- compilation unit containing the limited-with clause.
1533 -- limited with P.Q;
1534 -- package P.Q is ...
1539 -- Check wrong use of limited-with clause applied to some
1540 -- immediate ancestor.
1543 declare
1547 begin
1549 loop
1551 Error_Msg_N
1553 Item);
1563 -- Check if the limited-withed unit is already visible through
1564 -- some context clause of the current compilation unit or some
1565 -- ancestor of the current compilation unit.
1567 declare
1573 begin
1575 loop
1582 N_Package_Declaration |
1583 N_Package_Renaming_Declaration
1584 then
1586 N_Package_Declaration
1587 then
1589 else
1593 -- Check if the named package (or some ancestor)
1594 -- leaves visible the full-view of the unit given
1595 -- in the limited-with clause.
1597 loop
1599 Unit_Name)
1600 then
1602 Error_Msg_N
1605 Error_Msg_N
1628 -- Skip analyzing with clause if no unit, see above
1634 -- A limited_with does not impose an elaboration order, but there
1635 -- is a semantic dependency for recompilation purposes.
1641 -- Pragmas and use clauses and with clauses other than limited with's
1642 -- are ignored in this pass through the context items.
1644 else
1652 -------------------------------
1653 -- Analyze_Package_Body_Stub --
1654 -------------------------------
1661 begin
1662 -- The package declaration must be in the current declarative part
1672 then
1675 else
1676 -- Retain and restore the configuration options of the enclosing
1677 -- context as the proper body may introduce a set of its own.
1681 -- Indicate that the body of the package exists. If we are doing
1682 -- only semantic analysis, the stub stands for the body. If we are
1683 -- generating code, the existence of the body will be confirmed
1684 -- when we load the proper body.
1703 -------------------------
1704 -- Analyze_Proper_Body --
1705 -------------------------
1711 -- This procedure is called when the main unit is a stub, or when we
1712 -- are not generating code. In such a case, we analyze the subunit if
1713 -- present, which is user-friendly, but we don't complain if the subunit
1714 -- is missing. In GNATprove_Mode, we issue an error to avoid formal
1715 -- verification of a partial unit.
1717 ----------------------
1718 -- Optional_Subunit --
1719 ----------------------
1725 begin
1726 -- Try to load subunit, but ignore any errors that occur during the
1727 -- loading of the subunit, by using the special feature in Errout to
1728 -- ignore all errors. Note that Fatal_Error will still be set, so we
1729 -- will be able to check for this case below.
1735 Unum :=
1736 Load_Unit
1746 -- All done if we successfully loaded the subunit
1751 then
1754 -- If the file was empty or seriously mangled, the unit itself may
1755 -- be missing.
1758 Error_Msg_N
1762 Error_Msg_N
1765 else
1774 then
1777 else
1778 Set_Corresponding_Body (
1784 -- Local variables
1789 -- Start of processing for Analyze_Proper_Body
1791 begin
1792 -- If the subunit is already loaded, it means that the main unit is a
1793 -- subunit, and that the current unit is one of its parents which was
1794 -- being analyzed to provide the needed context for the analysis of the
1795 -- subunit. In this case we analyze the subunit and continue with the
1796 -- parent, without looking at subsequent subunits.
1800 -- If the proper body is already linked to the stub node, the stub is
1801 -- in a generic unit and just needs analyzing.
1806 -- If the subunit has severe errors, the spec of the enclosing
1807 -- body may not be available, in which case do not try analysis.
1811 then
1815 -- Collect SCO information for loaded subunit if we are in the
1816 -- extended main unit.
1818 if Generate_SCO
1819 and then In_Extended_Main_Source_Unit
1821 then
1827 -- Otherwise we must load the subunit and link to it
1829 else
1830 -- Load the subunit, this must work, since we originally loaded
1831 -- the subunit earlier on. So this will not really load it, just
1832 -- give access to it.
1834 Unum :=
1835 Load_Unit
1841 -- And analyze the subunit in the parent context (note that we
1842 -- do not call Semantics, since that would remove the parent
1843 -- context). Because of this, we have to manually reset the
1844 -- compiler state to Analyzing since it got destroyed by Load.
1849 -- Check that the proper body is a subunit and not a child
1850 -- unit. If the unit was previously loaded, the error will
1851 -- have been emitted when copying the generic node, so we
1852 -- just return to avoid cascaded errors.
1864 -- If the main unit is a subunit, then we are just performing semantic
1865 -- analysis on that subunit, and any other subunits of any parent unit
1866 -- should be ignored. If the main unit is itself a subunit, another
1867 -- subunit is irrelevant unless it is a subunit of the current one, that
1868 -- is to say appears in the current source tree.
1872 then
1873 -- But before we return, set the flag for unloaded subunits. This
1874 -- will suppress junk warnings of variables in the same declarative
1875 -- part (or a higher level one) that are in danger of looking unused
1876 -- when in fact there might be a declaration in the subunit that we
1877 -- do not intend to load.
1882 -- If the subunit is not already loaded, and we are generating code,
1883 -- then this is the case where compilation started from the parent, and
1884 -- we are generating code for an entire subunit tree. In that case we
1885 -- definitely need to load the subunit.
1887 -- In order to continue the analysis with the rest of the parent,
1888 -- and other subunits, we load the unit without requiring its
1889 -- presence, and emit a warning if not found, rather than terminating
1890 -- the compilation abruptly, as for other missing file problems.
1894 -- If the proper body is already linked to the stub node, the stub is
1895 -- in a generic unit and just needs analyzing.
1897 -- We update the version. Although we are not strictly technically
1898 -- semantically dependent on the subunit, given our approach of macro
1899 -- substitution of subunits, it makes sense to include it in the
1900 -- version identification.
1907 -- Otherwise we must load the subunit and link to it
1909 else
1910 -- Make sure that, if the subunit is preprocessed and -gnateG is
1911 -- specified, the preprocessed file will be written.
1914 Unum :=
1915 Load_Unit
1922 -- Give message if we did not get the unit Emit warning even if
1923 -- missing subunit is not within main unit, to simplify debugging.
1928 Error_Msg_File_1 :=
1930 Error_Msg_N
1935 -- Load_Unit may reset Compiler_State, since it may have been
1936 -- necessary to parse an additional units, so we make sure that
1937 -- we reset it to the Analyzing state.
1944 Write_Eol;
1949 -- Check for child unit instead of subunit
1952 Error_Msg_N
1956 -- OK, we have a subunit
1958 else
1962 -- We update the version. Although we are not technically
1963 -- semantically dependent on the subunit, given our approach
1964 -- of macro substitution of subunits, it makes sense to
1965 -- include it in the version identification.
1969 -- Collect SCO information for loaded subunit if we are in
1970 -- the extended main unit.
1972 if Generate_SCO
1973 and then In_Extended_Main_Source_Unit
1975 then
1979 -- Analyze the unit if semantics active
1982 or else Try_Semantics
1983 then
1990 -- The remaining case is when the subunit is not already loaded and we
1991 -- are not generating code. In this case we are just performing semantic
1992 -- analysis on the parent, and we are not interested in the subunit. For
1993 -- subprograms, analyze the stub as a body. For other entities the stub
1994 -- has already been marked as completed.
1996 else
1997 Optional_Subunit;
2001 ----------------------------------
2002 -- Analyze_Protected_Body_Stub --
2003 ----------------------------------
2010 begin
2013 -- First occurrence of name may have been as an incomplete type
2022 else
2023 -- Retain and restore the configuration options of the enclosing
2024 -- context as the proper body may introduce a set of its own.
2045 -----------------------------------------
2046 -- Analyze_Required_Limited_With_Units --
2047 -----------------------------------------
2054 -- Determines whether the given package has some subprogram with a
2055 -- profile that depends on shadow incomplete type entities of a
2056 -- limited-with unit.
2059 -- Determines whether the compilation unit N has limited-with context
2060 -- clauses.
2062 ------------------------------
2063 -- Has_Limited_With_Clauses --
2064 ------------------------------
2069 begin
2074 then
2084 ------------------------------
2085 -- Depends_On_Limited_Views --
2086 ------------------------------
2091 -- Determines whether the type of some formal of Subp, or its return
2092 -- type, is a shadow incomplete entity of a limited-with unit.
2094 ----------------------------
2095 -- Has_Limited_View_Types --
2096 ----------------------------
2101 begin
2106 = E_Incomplete_Type
2107 then
2118 = E_Incomplete_Type
2119 then
2126 -- Local variables
2130 begin
2134 then
2137 -- Recursion on nested packages skipping package renamings
2142 then
2152 -- Local variables
2156 -- Start of processing for Analyze_Required_Limited_With_Units
2158 begin
2159 -- Cases where no action is required
2161 if not Expander_Active
2166 or else not Has_Limited_With_Clauses
2168 then
2172 -- Perform full analyis of limited-with units to provide the backend
2173 -- with the full-view of shadow entities.
2180 then
2188 ----------------------------------
2189 -- Analyze_Subprogram_Body_Stub --
2190 ----------------------------------
2192 -- A subprogram body stub can appear with or without a previous spec. If
2193 -- there is one, then the analysis of the body will find it and verify
2194 -- conformance. The formals appearing in the specification of the stub play
2195 -- no role, except for requiring an additional conformance check. If there
2196 -- is no previous subprogram declaration, the stub acts as a spec, and
2197 -- provides the defining entity for the subprogram.
2203 begin
2206 -- Verify that the identifier for the stub is unique within this
2207 -- declarative part.
2210 N_Block_Statement | N_Package_Body | N_Subprogram_Body
2211 then
2217 then
2225 -- Retain and restore the configuration options of the enclosing context
2226 -- as the proper body may introduce a set of its own.
2230 -- Treat stub as a body, which checks conformance if there is a previous
2231 -- declaration, or else introduces entity and its signature.
2239 ---------------------
2240 -- Analyze_Subunit --
2241 ---------------------
2243 -- A subunit is compiled either by itself (for semantic checking) or as
2244 -- part of compiling the parent (for code generation). In either case, by
2245 -- the time we actually process the subunit, the parent has already been
2246 -- installed and analyzed. The node N is a compilation unit, whose context
2247 -- needs to be treated here, because we come directly here from the parent
2248 -- without calling Analyze_Compilation_Unit.
2250 -- The compilation context includes the explicit context of the subunit,
2251 -- and the context of the parent, together with the parent itself. In order
2252 -- to compile the current context, we remove the one inherited from the
2253 -- parent, in order to have a clean visibility table. We restore the parent
2254 -- context before analyzing the proper body itself. On exit, we remove only
2255 -- the explicit context of the subunit.
2257 -- WARNING: This routine manages SPARK regions. Return statements must be
2258 -- replaced by gotos which jump to the end of the routine and restore the
2259 -- SPARK mode.
2272 Cunit_Boolean_Restrictions_Save;
2273 -- Save non-partition wide restrictions before processing the subunit.
2274 -- All subunits are analyzed with config restrictions reset and we need
2275 -- to restore these saved values at the end.
2278 -- Capture names in use clauses of the subunit. This must be done before
2279 -- re-installing parent declarations, because items in the context must
2280 -- not be hidden by declarations local to the parent.
2283 -- Recursive procedure to restore scope of all ancestors of subunit,
2284 -- from outermost in. If parent is not a subunit, the call to install
2285 -- context installs context of spec and (if parent is a child unit) the
2286 -- context of its parents as well. It is confusing that parents should
2287 -- be treated differently in both cases, but the semantics are just not
2288 -- identical.
2291 -- As part of the removal of the parent scope, the use clauses are
2292 -- removed, to be reinstalled when the context of the subunit has been
2293 -- analyzed. Use clauses may also have been affected by the analysis of
2294 -- the context of the subunit, so they have to be applied again, to
2295 -- insure that the compilation environment of the rest of the parent
2296 -- unit is identical.
2299 -- Remove current scope from scope stack, and preserve the list of use
2300 -- clauses in it, to be reinstalled after context is analyzed.
2302 -----------------------------
2303 -- Analyze_Subunit_Context --
2304 -----------------------------
2310 begin
2314 -- Make withed units immediately visible. If child unit, make the
2315 -- ultimate parent immediately visible.
2321 -- Protect frontend against previous errors in context clauses
2327 else
2328 -- If a subunits has serious syntax errors, the context
2329 -- may not have been loaded. Add a harmless unit name to
2330 -- attempt processing.
2334 then
2339 loop
2345 Check_Error_Detected;
2367 -- Reset visibility of withed units. They will be made visible again
2368 -- when we install the subunit context.
2374 -- Protect frontend against previous errors in context clauses
2378 then
2380 loop
2396 ------------------------
2397 -- Re_Install_Parents --
2398 ------------------------
2403 begin
2410 -- If the subunit occurs within a child unit, we must restore the
2411 -- immediate visibility of any siblings that may occur in context.
2412 -- In addition, we must reset the previous visibility of the
2413 -- parent unit which is now on the scope stack. This is because
2414 -- the Previous_Visibility was previously set when removing the
2415 -- context. This is necessary to prevent the parent entity from
2416 -- remaining visible after the subunit is compiled. This only
2417 -- has an effect if a homonym exists in a body to be processed
2418 -- later if inlining is enabled.
2432 -- Make entities in scope visible again. For child units, restore
2433 -- visibility only if they are actually in context.
2444 -- A subunit appears within a body, and for a nested subunits all the
2445 -- parents are bodies. Restore full visibility of their private
2446 -- entities.
2454 ----------------------------
2455 -- Re_Install_Use_Clauses --
2456 ----------------------------
2460 begin
2468 ------------------
2469 -- Remove_Scope --
2470 ------------------
2475 begin
2490 Pop_Scope;
2495 -- Save the SPARK mode-related data to restore on exit. Removing
2496 -- enclosing scopes and contexts to provide a clean environment for the
2497 -- context of the subunit will eliminate any previously set SPARK_Mode.
2499 -- Start of processing for Analyze_Subunit
2501 begin
2502 -- For subunit in main extended unit, we reset the configuration values
2503 -- for the non-partition-wide restrictions. For other units reset them.
2506 Restore_Config_Cunit_Boolean_Restrictions;
2507 else
2508 Reset_Cunit_Boolean_Restrictions;
2512 declare
2515 begin
2526 -- Save current use clauses
2528 Remove_Scope;
2531 -- Now remove parents and their context, including enclosing subunits
2532 -- and the outer parent body which is not a subunit.
2539 Remove_Scope;
2544 Remove_Scope;
2548 then
2555 Analyze_Subunit_Context;
2557 -- Take into account the effect of any SPARK_Mode configuration
2558 -- pragma, which takes precedence over a different value of
2559 -- SPARK_Mode inherited from the context of the stub.
2569 -- If the context includes a child unit of the parent of the subunit,
2570 -- the parent will have been removed from visibility, after compiling
2571 -- that cousin in the context. The visibility of the parent must be
2572 -- restored now. This also applies if the context includes another
2573 -- subunit of the same parent which in turn includes a child unit in
2574 -- its context.
2579 and then not
2581 then
2588 Re_Install_Use_Clauses;
2591 -- Restore state of suppress flags for current body
2595 -- If the subunit is within a child unit, then siblings of any parent
2596 -- unit that appear in the context clause of the subunit must also be
2597 -- made immediately visible.
2606 -- Reinstall the SPARK_Mode which was in effect prior to any scope and
2607 -- context manipulations, taking into account a possible SPARK_Mode
2608 -- configuration pragma if present.
2612 -- If the subunit is part of a compilation unit which is subject to
2613 -- pragma Elaboration_Checks, set the model specified by the pragma
2614 -- because it applies to all parts of the unit.
2618 -- The syntax rules require a proper body for a subprogram subunit
2621 then
2623 then
2624 Error_Msg_N
2627 else
2628 Error_Msg_N
2637 -- The subunit may contain a with_clause on a sibling of some ancestor.
2638 -- Removing the context will remove from visibility those ancestor child
2639 -- units, which must be restored to the visibility they have in the
2640 -- enclosing body.
2643 declare
2645 begin
2655 -- Deal with restore of restrictions
2660 ----------------------------
2661 -- Analyze_Task_Body_Stub --
2662 ----------------------------
2669 begin
2672 -- First occurrence of name may have been as an incomplete type
2681 else
2693 -- Check for duplicate stub, if so give message and terminate
2698 else
2704 -- Set elaboration flag to indicate that entity is callable. This
2705 -- cannot be done in the expansion of the body itself, because the
2706 -- proper body is not in a declarative part. This is only done if
2707 -- expansion is active, because the context may be generic and the
2708 -- flag not defined yet.
2713 Name =>
2721 -------------------------
2722 -- Analyze_With_Clause --
2723 -------------------------
2725 -- Analyze the declaration of a unit in a with clause. At end, label the
2726 -- with clause with the defining entity for the unit.
2730 -- Retrieve the original kind of the unit node, before analysis. If it
2731 -- is a subprogram instantiation, its analysis below will rewrite the
2732 -- node as the declaration of the wrapper package. If the same
2733 -- instantiation appears indirectly elsewhere in the context, it will
2734 -- have been analyzed already.
2745 -- Set True if the unit currently being compiled is an internal unit
2748 -- Set True if a with violates a restriction, no point in giving any
2749 -- warnings if we have this definite error.
2753 begin
2756 -- If this is an internal unit which is a renaming, then this is a
2757 -- violation of No_Obsolescent_Features.
2759 -- Note: this is not quite right if the user defines one of these units
2760 -- himself, but that's a marginal case, and fixing it is hard ???
2764 then
2771 Error_Msg_N
2777 -- Check No_Implementation_Units violation
2782 else
2788 -- Several actions are skipped for dummy packages (those supplied for
2789 -- with's where no matching file could be found). Such packages are
2790 -- identified by the Sloc value being set to No_Location.
2794 -- Ada 2005 (AI-50217): Build visibility structures but do not
2795 -- analyze the unit.
2797 -- If the designated unit is a predefined unit, which might be used
2798 -- implicitly through the rtsfind machinery, a limited with clause
2799 -- on such a unit is usually pointless, because run-time units are
2800 -- unlikely to appear in mutually dependent units, and because this
2801 -- disables the rtsfind mechanism. We transform such limited with
2802 -- clauses into regular with clauses.
2808 else
2816 -- If we are compiling under "don't quit" mode (-gnatq) and we have
2817 -- already detected serious errors then we mark the with-clause nodes as
2818 -- analyzed before the corresponding compilation unit is analyzed. This
2819 -- is done here to protect the frontend against never ending recursion
2820 -- caused by circularities in the sources (because the previous errors
2821 -- may break the regular machine of the compiler implemented in
2822 -- Load_Unit to detect circularities).
2834 -- Check restrictions, except that we skip the check if this is an
2835 -- internal unit unless we are compiling the internal unit as the
2836 -- main unit. We also skip this for dummy packages.
2844 -- Deal with special case of GNAT.Current_Exceptions which interacts
2845 -- with the optimization of local raise statements into gotos.
2851 in Name_Most_Recent_Exception | Name_Exception_Traces
2852 then
2857 -- Check for inappropriate with of internal implementation unit if we
2858 -- are not compiling an internal unit and also check for withing unit
2859 -- in wrong version of Ada. Do not issue these messages for implicit
2860 -- with's generated by the compiler itself.
2862 if Implementation_Unit_Warnings
2863 and then not Intunit
2865 and then not Restriction_Violation
2866 then
2871 -- Add alternative name if available, otherwise issue a
2872 -- general warning message.
2876 else
2877 Error_Msg_F
2887 and then Warn_On_Ada_2005_Compatibility
2888 then
2894 and then Warn_On_Ada_2012_Compatibility
2895 then
2901 and then Warn_On_Ada_2022_Compatibility
2902 then
2909 -- Semantic analysis of a generic unit is performed on a copy of
2910 -- the original tree. Retrieve the entity on which semantic info
2911 -- actually appears.
2916 -- Note: in the following test, Unit_Kind is the original Nkind, but in
2917 -- the case of an instantiation, semantic analysis above will have
2918 -- replaced the unit by its instantiated version. If the instance body
2919 -- has been generated, the instance now denotes the body entity. For
2920 -- visibility purposes we need the entity of its spec.
2924 N_Package_Instantiation)
2926 then
2932 then
2933 -- If the instance has not been rewritten as a package declaration,
2934 -- then it appeared already in a previous with clause. Retrieve
2935 -- the entity from the previous instance.
2941 -- The visible subprogram is created during instantiation, and is
2942 -- an attribute of the wrapper package. We retrieve the wrapper
2943 -- package directly from the instantiation node. If the instance
2944 -- is inlined the unit is still an instantiation. Otherwise it has
2945 -- been rewritten as the declaration of the wrapper itself.
2948 E_Name :=
2949 Related_Instance
2951 else
2957 then
2963 then
2964 -- For a child unit that has no spec, one has been created and
2965 -- analyzed. The entity required is that of the spec.
2969 else
2975 -- Child unit in a with clause
2979 -- If this is a child unit without a spec, and it has been analyzed
2980 -- already, a declaration has been created for it. The with_clause
2981 -- must reflect the actual body, and not the generated declaration,
2982 -- to prevent spurious binding errors involving an out-of-date spec.
2983 -- Note that this can only happen if the unit includes more than one
2984 -- with_clause for the child unit (e.g. in separate subunits).
2989 then
2995 -- Restore style checks
2999 -- Record the reference, but do NOT set the unit as referenced, we want
3000 -- to consider the unit as unreferenced if this is the only reference
3001 -- that occurs.
3006 -- Generate references and check No_Dependence restriction for parents
3015 and then
3018 then
3019 -- The prefix is a child unit that denotes a renaming declaration.
3020 -- Replace the prefix directly with the renamed unit, because the
3021 -- rest of the prefix is irrelevant to the visibility of the real
3022 -- unit.
3034 -- If E_Name is the dummy entity for a nonexistent unit, its scope
3035 -- is set to Standard_Standard, and no attempt should be made to
3036 -- further unwind scopes.
3042 -- Abandon processing in case of previous errors
3045 Check_Error_Detected;
3052 then
3053 -- If the entity is set without its unit being compiled, the
3054 -- original parent is a renaming, and Par_Name is the renamed
3055 -- entity. For visibility purposes, we need the original entity,
3056 -- which must be analyzed now because Load_Unit directly retrieves
3057 -- the renamed unit, and the renaming declaration itself has not
3058 -- been analyzed.
3065 -- Guard against missing or misspelled child units
3071 else
3074 -- Mark the node to indicate that a related error has been posted.
3075 -- This defends further compilation passes against improper use of
3076 -- the invalid WITH clause node.
3084 -- If the withed unit is System, and a system extension pragma is
3085 -- present, compile the extension now, rather than waiting for a
3086 -- visibility check on a specific entity.
3092 then
3093 -- If the extension is not present, an error will have been emitted
3098 -- Ada 2005 (AI-262): Remove from visibility the entity corresponding
3099 -- to private_with units; they will be made visible later (just before
3100 -- the private part is analyzed)
3106 -- Propagate Fatal_Error setting from with'ed unit to current unit
3110 -- Nothing to do if with'ed unit had no error
3115 -- If with'ed unit had a detected fatal error, propagate it
3120 -- If with'ed unit had an ignored error, then propagate it but do not
3121 -- overide an existring setting.
3130 ------------------------------
3131 -- Check_Private_Child_Unit --
3132 ------------------------------
3143 begin
3150 -- The parent is itself a body. The parent entity is to be found in
3151 -- the corresponding spec.
3156 -- If the parent itself is a subunit, Curr_Unit is the entity of the
3157 -- enclosing body, retrieve the spec entity which is the proper
3158 -- ancestor we need for the following tests.
3166 else
3174 else
3179 -- Loop through context items
3184 -- Ada 2005 (AI-262): Allow private_with of a private child package
3185 -- in public siblings
3191 then
3194 declare
3200 begin
3201 -- If the child unit is a public child then locate the nearest
3202 -- private ancestor. Child_Parent will then be set to the
3203 -- parent of that ancestor.
3208 loop
3220 loop
3221 Curr_Private :=
3235 Standard_Standard
3236 then
3237 Error_Msg_NE
3241 else
3242 Error_Msg_N
3244 Error_Msg_NE
3249 elsif Curr_Private
3254 then
3257 else
3258 Error_Msg_NE
3269 ----------------------
3270 -- Check_Stub_Level --
3271 ----------------------
3277 begin
3279 N_Package_Body | N_Subprogram_Body | N_Task_Body | N_Protected_Body
3281 then
3284 -- In an instance, a missing stub appears at any level. A warning
3285 -- message will have been emitted already for the missing file.
3295 -------------------
3296 -- Decorate_Type --
3297 -------------------
3299 procedure Decorate_Type
3304 is
3307 begin
3308 -- An unanalyzed type or a shadow entity of a type is treated as an
3309 -- incomplete type, and carries the corresponding attributes.
3324 -- A tagged type and its corresponding shadow entity share one common
3325 -- class-wide type. The list of primitive operations for the shadow
3326 -- entity is empty.
3332 CW_Typ :=
3333 New_External_Entity
3338 -- Set parent to be the same as the parent of the tagged type.
3339 -- We need a parent field set, and it is supposed to point to
3340 -- the declaration of the type. The tagged type declaration
3341 -- essentially declares two separate types, the tagged type
3342 -- itself and the corresponding class-wide type, so it is
3343 -- reasonable for the parent fields to point to the declaration
3344 -- in both cases.
3362 ------------------------
3363 -- Expand_With_Clause --
3364 ------------------------
3370 -- Build name to be used in implicit with_clause. In most cases this
3371 -- is the source name, but if renamings are present we must make the
3372 -- original unit visible, not the one it renames. The entity in the
3373 -- with clause is the renamed unit, but the identifier is the one from
3374 -- the source, which allows us to recover the unit renaming.
3376 ---------------------
3377 -- Build_Unit_Name --
3378 ---------------------
3384 begin
3388 else
3393 and then
3395 N_Package_Renaming_Declaration
3396 then
3397 -- The name in the with_clause is of the form A.B.C, and B is
3398 -- given by a renaming declaration. In that case we may not
3399 -- have analyzed the unit for B, but replaced it directly in
3400 -- lib-load with the unit it renames. We have to make A.B
3401 -- visible, so analyze the declaration for B now, in case it
3402 -- has not been done yet.
3405 Analyze
3406 (Parent
3410 Result :=
3421 -- Local variables
3426 -- Start of processing for Expand_With_Clause
3428 begin
3429 Withn :=
3439 -- If the unit is a [generic] package or subprogram declaration
3440 -- (including a subprogram body acting as spec), a private_with_clause
3441 -- on a child unit implies that the implicit with on the parent is also
3442 -- private.
3445 | N_Package_Declaration
3446 | N_Generic_Subprogram_Declaration
3447 | N_Subprogram_Declaration
3448 | N_Subprogram_Body
3449 then
3458 -- If we have "with X.Y;", we want to recurse on "X", except in the
3459 -- unusual case where X.Y is a renaming of X. In that case, the scope
3460 -- of X will be null.
3464 then
3469 --------------------------------
3470 -- Generate_Parent_References --
3471 --------------------------------
3477 begin
3480 else
3486 -- Done already, if the unit has been compiled indirectly as
3487 -- part of the closure of its context because of inlining.
3501 -- The guard here on P_Name is to handle the error condition where
3502 -- the parent unit is missing because the file was not found.
3512 ---------------------
3513 -- Has_With_Clause --
3514 ---------------------
3516 function Has_With_Clause
3520 is
3524 -- Return the entity for the unit named in a [limited] with clause
3526 ----------------
3527 -- Named_Unit --
3528 ----------------
3531 begin
3534 else
3539 -- Start of processing for Has_With_Clause
3541 begin
3547 then
3557 -----------------------------
3558 -- Implicit_With_On_Parent --
3559 -----------------------------
3561 procedure Implicit_With_On_Parent
3564 is
3572 -- Build prefix of child unit name. Recurse if needed
3575 -- If the unit is a child unit, build qualified name with all ancestors
3577 -------------------------
3578 -- Build_Ancestor_Name --
3579 -------------------------
3586 begin
3587 -- Ancestor may have been rewritten as a package body. Retrieve the
3588 -- original spec to trace earlier ancestors.
3592 then
3598 else
3599 return
3601 Prefix =>
3607 ---------------------
3608 -- Build_Unit_Name --
3609 ---------------------
3614 begin
3618 else
3619 Result :=
3622 Prefix =>
3631 -- Start of processing for Implicit_With_On_Parent
3633 begin
3634 -- The unit of the current compilation may be a package body that
3635 -- replaces an instance node. In this case we need the original instance
3636 -- node to construct the proper parent name.
3640 then
3644 -- We add the implicit with if the child unit is the current unit being
3645 -- compiled. If the current unit is a body, we do not want to add an
3646 -- implicit_with a second time to the corresponding spec.
3650 then
3662 -- Node is placed at the beginning of the context items, so that
3663 -- subsequent use clauses on the parent can be validated.
3675 --------------
3676 -- In_Chain --
3677 --------------
3682 begin
3687 else
3695 ---------------------
3696 -- Install_Context --
3697 ---------------------
3702 begin
3706 Install_Parents
3715 -----------------------------
3716 -- Install_Context_Clauses --
3717 -----------------------------
3727 begin
3728 -- First skip configuration pragmas at the start of the context. They
3729 -- are not technically part of the context clause, but that's where the
3730 -- parser puts them. Note they were analyzed in Analyze_Context.
3736 loop
3740 -- Loop through the actual context clause items. We process everything
3741 -- except Limited_With clauses in this routine. Limited_With clauses
3742 -- are separately installed (see Install_Limited_Context_Clauses).
3746 -- Case of explicit WITH clause
3750 then
3753 -- Limited withed units will be installed later
3757 -- If Name (Item) is not an entity name, something is wrong, and
3758 -- this will be detected in due course, for now ignore the item
3778 -- If the unit is a subprogram instance, it appears nested within
3779 -- a package that carries the parent information.
3783 then
3790 else
3791 -- If not an expanded name, the child unit must be a
3792 -- renaming, nothing to do.
3800 then
3801 Implicit_With_On_Parent
3805 -- Check license conditions unless this is a dummy unit
3817 -- Signal error of bad license
3819 -------------------
3820 -- License_Error --
3821 -------------------
3824 begin
3825 Error_Msg_N
3830 -- Start of processing for License_Check
3832 begin
3833 -- Exclude license check if withed unit is an internal unit.
3834 -- This situation arises e.g. with the GPL version of GNAT.
3839 -- Otherwise check various cases
3840 else
3847 License_Error;
3852 License_Error;
3857 License_Error;
3867 -- Case of USE PACKAGE clause
3872 -- Case of USE TYPE clause
3877 -- case of PRAGMA
3889 -- The unit also has implicit with_clauses on its own parents
3898 -- If the unit is a body, the context of the specification must also
3899 -- be installed. That includes private with_clauses in that context.
3904 then
3907 -- Only install private with-clauses of a spec that comes from
3908 -- source, excluding specs created for a subprogram body that is
3909 -- a child unit.
3912 Install_Private_With_Clauses
3918 -- If the unit is the body of a public child unit, the private
3919 -- declarations of the parent must be made visible. If the child
3920 -- unit is private, the private declarations have been installed
3921 -- already in the call to Install_Parents for the spec. Installing
3922 -- private declarations must be done for all ancestors of public
3923 -- child units. In addition, sibling units mentioned in the
3924 -- context clause of the body are directly visible.
3926 declare
3931 begin
3939 then
3950 -- For a package body, children in context are immediately visible
3956 | N_Generic_Subprogram_Declaration
3957 | N_Package_Declaration
3958 | N_Subprogram_Declaration
3959 then
3962 Set_Is_Private_Descendant
3967 else
3968 Set_Is_Private_Descendant
3979 -------------------------------------
3980 -- Install_Limited_Context_Clauses --
3981 -------------------------------------
3987 -- Check that the unlimited view of a given compilation_unit is not
3988 -- already visible through "use + renamings".
3991 -- Check that if a limited_with clause of a given compilation_unit
3992 -- mentions a descendant of a private child of some library unit, then
3993 -- the given compilation_unit must be the declaration of a private
3994 -- descendant of that library unit, or a public descendant of such. The
3995 -- code is analogous to that of Check_Private_Child_Unit but we cannot
3996 -- use entities on the limited with_clauses because their units have not
3997 -- been analyzed, so we have to climb the tree of ancestors looking for
3998 -- private keywords.
4000 procedure Expand_Limited_With_Clause
4004 -- If a child unit appears in a limited_with clause, there are implicit
4005 -- limited_with clauses on all parents that are not already visible
4006 -- through a regular with clause. This procedure creates the implicit
4007 -- limited with_clauses for the parents and loads the corresponding
4008 -- units. The shadow entities are created when the inserted clause is
4009 -- analyzed. Implements Ada 2005 (AI-50217).
4011 ---------------------
4012 -- Check_Renamings --
4013 ---------------------
4022 begin
4025 -- Protect the frontend against previous critical errors
4028 when N_Generic_Package_Declaration
4029 | N_Generic_Subprogram_Declaration
4030 | N_Package_Declaration
4031 | N_Subprogram_Declaration
4032 =>
4039 -- Check "use + renamings"
4047 -- Look only at use package clauses
4057 then
4058 -- The unlimited view is visible through use clause and
4059 -- renamings. There is no need to generate the error
4060 -- message here because Is_Visible_Through_Renamings
4061 -- takes care of generating the precise error message.
4067 -- The use clause may refer to a local package.
4068 -- Check all the enclosing scopes.
4076 Error_Msg_N
4086 -- Recursive call to check all the ancestors
4093 ---------------------------------------
4094 -- Check_Private_Limited_Withed_Unit --
4095 ---------------------------------------
4102 begin
4103 -- Compilation unit of the parent of the withed library unit
4107 -- If the child unit is a public child, then locate its nearest
4108 -- private ancestor, if any, then Child_Parent will then be set to
4109 -- the parent of that ancestor.
4114 loop
4125 -- Traverse all the ancestors of the current compilation unit to
4126 -- check if it is a descendant of named library unit.
4133 loop
4139 Error_Msg_N
4141 Error_Msg_NE
4146 or else Curr_Private
4149 N_Package_Body | N_Subprogram_Body | N_Subunit
4150 then
4151 -- Current unit is private, of descendant of a private unit
4155 else
4156 Error_Msg_NE
4162 --------------------------------
4163 -- Expand_Limited_With_Clause --
4164 --------------------------------
4166 procedure Expand_Limited_With_Clause
4170 is
4176 -- Returns true if the context already includes a with_clause for
4177 -- this unit. If the with_clause is nonlimited, the unit is fully
4178 -- visible and an implicit limited_with should not be created. If
4179 -- there is already a limited_with clause for W, a second one is
4180 -- simply redundant.
4182 --------------------------
4183 -- Previous_Withed_Unit --
4184 --------------------------
4189 begin
4190 -- A limited with_clause cannot appear in the same context_clause
4191 -- as a nonlimited with_clause which mentions the same library.
4197 then
4207 -- Start of processing for Expand_Limited_With_Clause
4209 begin
4212 -- Create node for name of withed unit
4214 Withn :=
4219 Withn :=
4231 Unum :=
4232 Load_Unit
4238 -- Do not generate a limited_with_clause on the current unit. This
4239 -- path is taken when a unit has a limited_with clause on one of its
4240 -- child units.
4247 Set_Corresponding_Spec
4254 -- Add implicit limited_with_clauses for parents of child units
4255 -- mentioned in limited_with clauses.
4269 -- Start of processing for Install_Limited_Context_Clauses
4271 begin
4277 then
4279 Expand_Limited_With_Clause
4289 -- A unit may have a limited with on itself if it has a limited
4290 -- with_clause on one of its child units. In that case it is
4291 -- already being compiled and it makes no sense to install its
4292 -- limited view.
4294 -- If the item is a limited_private_with_clause, install it if the
4295 -- current unit is a body or if it is a private child. Otherwise
4296 -- the private clause is installed before analyzing the private
4297 -- part of the current unit.
4301 and then
4302 not Is_Ancestor_Unit
4304 then
4308 N_Package_Body | N_Subprogram_Body | N_Subunit
4309 then
4318 -- Ada 2005 (AI-412): Examine visible declarations of a package spec,
4319 -- looking for incomplete subtype declarations of incomplete types
4320 -- visible through a limited with clause.
4325 then
4326 declare
4331 begin
4335 and then
4337 and then
4339 then
4345 -- Convert an incomplete subtype declaration into a
4346 -- corresponding nonlimited view subtype declaration.
4347 -- This is usually the case when analyzing a body that
4348 -- has regular with clauses, when the spec has limited
4349 -- ones.
4351 -- If the nonlimited view is still incomplete, it is
4352 -- the dummy entry already created, and the declaration
4353 -- cannot be reanalyzed. This is the case when installing
4354 -- a parent unit that has limited with-clauses.
4363 Mutate_Ekind
4367 -- Reanalyze the declaration, suppressing the call to
4368 -- Enter_Name to avoid duplicate names.
4370 Analyze_Subtype_Declaration
4382 ---------------------
4383 -- Install_Parents --
4384 ---------------------
4386 procedure Install_Parents
4390 is
4396 begin
4406 | N_Generic_Renaming_Declaration
4407 then
4408 Error_Msg_N
4412 Error_Msg_N
4420 -- Verify that a child of an instance is itself an instance, or the
4421 -- renaming of one. Given that an instance that is a unit is replaced
4422 -- with a package declaration, check against the original node. The
4423 -- parent may be currently being instantiated, in which case it appears
4424 -- as a declaration, but the generic_parent is already established
4425 -- indicating that we deal with an instance.
4430 or else
4433 then
4435 else
4436 Error_Msg_N
4438 Lib_Unit);
4442 -- This is the recursive call that ensures all parents are loaded
4445 Install_Parents
4447 Is_Private =>
4452 -- Now we can install the context for this parent
4458 -- The child unit is in the declarative region of the parent. The parent
4459 -- must therefore appear in the scope stack and be visible, as when
4460 -- compiling the corresponding body. If the child unit is private or it
4461 -- is a package body, private declarations must be accessible as well.
4462 -- Use declarations in the parent must also be installed. Finally, other
4463 -- child units of the same parent that are in the context are
4464 -- immediately visible.
4466 -- Find entity for compilation unit, and set its private descendant
4467 -- status as needed. Indicate that it is a compilation unit, which is
4468 -- redundant in general, but needed if this is a generated child spec
4469 -- for a child body without previous spec.
4483 -- Save current visibility of unit
4491 -- If the parent is a generic unit, its formal part may contain formal
4492 -- packages and use clauses for them.
4505 ----------------------------------
4506 -- Install_Private_With_Clauses --
4507 ----------------------------------
4513 begin
4517 Write_Eol;
4525 then
4526 -- If the unit is an ancestor of the current one, it is the
4527 -- case of a private limited with clause on a child unit, and
4528 -- the compilation of one of its descendants, In that case the
4529 -- limited view is errelevant.
4533 and then
4536 then
4539 else
4549 ----------------------
4550 -- Install_Siblings --
4551 ----------------------
4558 begin
4559 -- Iterate over explicit with clauses, and check whether the scope of
4560 -- each entity is an ancestor of the current unit, in which case it is
4561 -- immediately visible.
4566 -- Do not install private_with_clauses declaration, unless unit
4567 -- is itself a private child unit, or is a body. Note that for a
4568 -- subprogram body the private_with_clause does not take effect
4569 -- until after the specification.
4576 -- Skip processing malformed trees
4580 then
4586 then
4591 then
4594 -- Check for the presence of another unit in the context that
4595 -- may be inadvertently hidden by the child.
4602 then
4603 declare
4606 begin
4611 then
4612 Error_Msg_NE
4624 -- The With_Clause may be on a grandchild or one of its further
4625 -- descendants, which makes a child immediately visible. Examine
4626 -- ancestry to determine whether such a child exists. For example,
4627 -- if current unit is A.C, and with_clause is on A.X.Y.Z, then X
4628 -- is immediately visible.
4631 declare
4634 begin
4647 -- If the item is a private with-clause on a child unit, the parent
4648 -- may have been installed already, but the child unit must remain
4649 -- invisible until installed in a private part or body, unless there
4650 -- is already a regular with_clause for it in the current unit.
4656 declare
4660 -- Scan context of current unit, to check whether there is
4661 -- a with_clause on the same unit as a private with-clause
4662 -- on a parent, in which case child unit is visible. If the
4663 -- unit is a grandchild, the same applies to its parent.
4665 ----------------
4666 -- In_Context --
4667 ----------------
4670 begin
4671 Clause :=
4678 then
4680 or else
4683 then
4694 begin
4704 ---------------------------------
4705 -- Install_Limited_With_Clause --
4706 ---------------------------------
4717 -- A unit mentioned in a limited with_clause may not be mentioned in
4718 -- a regular with_clause, but must still be included in the current
4719 -- partition. We need to determine whether the unit needs a body, so
4720 -- that the binder can determine the name of the file to be compiled.
4721 -- Checking whether a unit needs a body can be done without semantic
4722 -- analysis, by examining the nature of the declarations in the package.
4724 function Has_Limited_With_Clause
4727 -- Determine whether any package in the ancestor chain starting with
4728 -- C_Unit has a limited with clause for package Pack.
4730 -------------------------
4731 -- Check_Body_Required --
4732 -------------------------
4739 -- Recursive procedure that does the work and checks nested packages
4741 ------------------------
4742 -- Check_Declarations --
4743 ------------------------
4752 -- If a pragma import applies to a previous subprogram, the
4753 -- enclosing unit may not need a body. The processing is syntactic
4754 -- and does not require a declaration to be analyzed. The code
4755 -- below also handles pragma Import when applied to a subprogram
4756 -- that renames another. In this case the pragma applies to the
4757 -- renamed entity.
4758 --
4759 -- Chains of multiple renames are not handled by the code below.
4760 -- It is probably impossible to handle all cases without proper
4761 -- name resolution. In such cases the algorithm is conservative
4762 -- and will indicate that a body is needed???
4764 -------------------------
4765 -- Check_Pragma_Import --
4766 -------------------------
4775 -- Make one pass over list of subprograms. Called again if
4776 -- subprogram is a renaming. E is known to be an identifier.
4778 ---------------------
4779 -- Remove_Homonyms --
4780 ---------------------
4784 -- Name of renamed entity, if any
4786 begin
4791 /= N_Subprogram_Renaming_Declaration
4792 then
4796 else
4800 else
4812 -- Renaming of attribute
4814 else
4820 -- Start of processing for Check_Pragma_Import
4822 begin
4823 -- Find name of entity in Import pragma. We have not analyzed
4824 -- the construct, so we must guard against syntax errors.
4830 then
4832 else
4839 -- Start of processing for Check_Declarations
4841 begin
4842 -- Search for Elaborate Body pragma
4847 loop
4856 -- Look for declarations that require the presence of a body. We
4857 -- have already skipped pragmas at the start of the list.
4861 -- Subprogram that comes from source means body may be needed.
4862 -- Save for subsequent examination of import pragmas.
4866 | N_Subprogram_Renaming_Declaration
4867 | N_Generic_Subprogram_Declaration
4868 then
4871 -- Package declaration of generic package declaration. We need
4872 -- to recursively examine nested declarations.
4875 | N_Generic_Package_Declaration
4876 then
4881 then
4888 -- Same set of tests for private part. In addition to subprograms
4889 -- detect the presence of Taft Amendment types (incomplete types
4890 -- completed in the body).
4896 | N_Subprogram_Renaming_Declaration
4897 | N_Generic_Subprogram_Declaration
4898 then
4902 | N_Generic_Package_Declaration
4903 then
4906 -- Collect incomplete type declarations for separate pass
4913 then
4920 -- Now check incomplete declarations to locate Taft amendment
4921 -- types. This can be done by examining the defining identifiers
4922 -- of type declarations without real semantic analysis.
4924 declare
4927 begin
4935 then
4942 -- If no completion, this is a TAT, and a body is needed
4953 -- Finally, check whether there are subprograms that still require
4954 -- a body, i.e. are not renamings or null.
4957 declare
4961 begin
4967 = N_Subprogram_Renaming_Declaration
4968 then
4973 then
4976 else
4987 -- Start of processing for Check_Body_Required
4989 begin
4990 -- If this is an imported package (Java and CIL usage) no body is
4991 -- needed. Scan list of pragmas that may follow a compilation unit
4992 -- to look for a relevant pragma Import.
4995 declare
4998 begin
5003 then
5015 -----------------------------
5016 -- Has_Limited_With_Clause --
5017 -----------------------------
5019 function Has_Limited_With_Clause
5022 is
5026 begin
5033 -- Retrieve the Compilation_Unit node for Par and determine if
5034 -- its context clauses contain a limited with for Pack.
5046 -- If there are more ancestors, climb up the tree, otherwise we
5047 -- are done.
5051 else
5059 -- Start of processing for Install_Limited_With_Clause
5061 begin
5064 -- In case of limited with_clause on subprograms, generics, instances,
5065 -- or renamings, the corresponding error was previously posted and we
5066 -- have nothing to do here. If the file is missing altogether, it has
5067 -- no source location.
5071 then
5077 -- Handle child packages
5084 -- Do not install the limited-view if the context of the unit is already
5085 -- available through a regular with clause.
5089 then
5093 -- Do not install the limited-view if the full-view is already visible
5094 -- through renaming declarations.
5100 -- Do not install the limited view if this is the unit being analyzed.
5101 -- This unusual case will happen when a unit has a limited_with clause
5102 -- on one of its children. The compilation of the child forces the load
5103 -- of the parent which tries to install the limited view of the child
5104 -- again. Installing the limited view must also be disabled when
5105 -- compiling the body of the child unit.
5110 and then Is_Ancestor_Unit
5112 then
5116 -- This scenario is similar to the one above, the difference is that the
5117 -- compilation of sibling Par.Sib forces the load of parent Par which
5118 -- tries to install the limited view of Lim_Pack [1]. However Par.Sib
5119 -- has a with clause for Lim_Pack [2] in its body, and thus needs the
5120 -- nonlimited views of all entities from Lim_Pack.
5122 -- limited with Lim_Pack; -- [1]
5123 -- package Par is ... package Lim_Pack is ...
5125 -- with Lim_Pack; -- [2]
5126 -- package Par.Sib is ... package body Par.Sib is ...
5128 -- In this case Main_Unit_Entity is the spec of Par.Sib and Current_
5129 -- Sem_Unit is the body of Par.Sib.
5135 -- The body has a regular with clause
5140 -- One of the ancestors has a limited with clause
5143 N_Package_Specification
5145 then
5149 -- A common use of the limited-with is to have a limited-with in the
5150 -- package spec, and a normal with in its package body. For example:
5152 -- limited with X; -- [1]
5153 -- package A is ...
5155 -- with X; -- [2]
5156 -- package body A is ...
5158 -- The compilation of A's body installs the context clauses found at [2]
5159 -- and then the context clauses of its specification (found at [1]). As
5160 -- a consequence, at [1] the specification of X has been analyzed and it
5161 -- is immediately visible. According to the semantics of limited-with
5162 -- context clauses we don't install the limited view because the full
5163 -- view of X supersedes its limited view.
5166 and then
5169 then
5171 -- The presence of both the limited and the analyzed nonlimited view
5172 -- may also be an error, such as an illegal context for a limited
5173 -- with_clause. In that case, do not process the context item at all.
5180 declare
5182 begin
5188 then
5196 -- If this is a child body, assume that the nonlimited with_clause
5197 -- appears in an ancestor. Could be refined ???
5199 if Is_Child_Unit
5200 (Defining_Entity
5202 then
5206 else
5208 -- If in package declaration, nonlimited view brought in from
5209 -- parent unit or some error condition.
5218 Write_Eol;
5221 -- If the unit has not been analyzed and the limited view has not been
5222 -- already installed then we install it.
5227 -- Minimum decoration
5239 -- Place entity on visibility structure
5247 Write_Eol;
5250 -- Install the incomplete view. The first element of the limited
5251 -- view is a header (an E_Package entity) used to reference the
5252 -- first shadow entity in the private part of the package.
5259 loop
5266 Write_Eol;
5273 -- If the unit appears in a previous regular with_clause, the regular
5274 -- entities of the public part of the withed package must be replaced
5275 -- by the shadow ones.
5277 -- This code must be kept synchronized with the code that replaces the
5278 -- shadow entities by the real entities in Remove_Limited_With_Unit,
5279 -- otherwise the contents of the homonym chains are not consistent.
5281 else
5282 -- Hide all the type entities of the public part of the package to
5283 -- avoid its usage. This is needed to cover all the subtype decla-
5284 -- rations because we do not remove them from the homonym chain.
5296 -- Replace the real entities by the shadow entities of the limited
5297 -- view. The first element of the limited view is a header that is
5298 -- used to reference the first shadow entity in the private part
5299 -- of the package. Successive elements are the limited views of the
5300 -- type (including regular incomplete types) declared in the package.
5307 loop
5310 -- Do not unchain nested packages and child units
5314 then
5315 declare
5320 begin
5321 -- Replace Typ by Lim_Typ in the homonyms list, so that the
5322 -- limited view becomes available.
5324 -- If the nonlimited view is a record with an anonymous
5325 -- self-referential component, the analysis of the record
5326 -- declaration creates an incomplete type with the same name
5327 -- in order to define an internal access type. The visible
5328 -- entity is now the incomplete type, and that is the one to
5329 -- replace in the visibility structure.
5331 -- Similarly, if the source already contains the incomplete
5332 -- type declaration, the limited view of the incomplete type
5333 -- is in fact never visible (AI05-129) but we have created a
5334 -- shadow entity E1 for it that points to E2, the incomplete
5335 -- type at stake. This in turn has full view E3 that is the
5336 -- full declaration, with a corresponding shadow entity E4.
5337 -- When reinstalling the limited view, the visible entity E2
5338 -- is first replaced with E1, but E4 must eventually become
5339 -- the visible entity as per the AI and thus displace E1, as
5340 -- it is replacing E3 in the homonyms list.
5341 --
5342 -- regular views limited views
5343 --
5344 -- * E2 (incomplete) <-- E1 (shadow)
5345 --
5346 -- |
5347 -- V
5348 --
5349 -- E3 (full) <-- E4 (shadow) *
5350 --
5351 -- [*] denotes the visible entity (Current_Entity)
5356 -- This is a regular replacement
5361 then
5367 Write_Eol;
5372 -- This is where E1 is replaced with E4
5376 and then
5379 then
5385 Write_Eol;
5400 -- The package must be visible while the limited-with clause is active
5401 -- because references to the type P.T must resolve in the usual way.
5402 -- In addition, we remember that the limited-view has been installed to
5403 -- uninstall it at the point of context removal.
5408 -- If unit has not been analyzed in some previous context, check
5409 -- (imperfectly ???) whether it might need a body.
5412 Check_Body_Required;
5415 -- If the package in the limited_with clause is a child unit, the clause
5416 -- is unanalyzed and appears as a selected component. Recast it as an
5417 -- expanded name so that the entity can be properly set. Use entity of
5418 -- parent, if available, for higher ancestors in the name.
5421 declare
5425 begin
5430 loop
5433 -- Set entity of parent identifiers if the unit is a child
5434 -- unit. This ensures that the tree is properly formed from
5435 -- semantic point of view. The unit entities are not fully
5436 -- analyzed, so we need to follow unit links in the tree.
5441 Ent :=
5442 Defining_Entity
5445 -- Set entity of last ancestor
5458 -------------------------
5459 -- Install_With_Clause --
5460 -------------------------
5462 procedure Install_With_Clause
5465 is
5469 begin
5470 -- Ada 2005 (AI-262): Do not install the private withed unit if we are
5471 -- compiling a package declaration and the Private_With_OK flag was not
5472 -- set by the caller. These declarations will be installed later (before
5473 -- analyzing the private part of the package).
5477 in N_Package_Declaration | N_Generic_Package_Declaration
5478 and then not Private_With_OK
5479 then
5490 else
5495 Write_Eol;
5498 -- We do not apply the restrictions to an internal unit unless we are
5499 -- compiling the internal unit as a main unit. This check is also
5500 -- skipped for dummy units (for missing packages).
5505 then
5506 Check_Restricted_Unit
5512 -- If the unit is not analyzed after analysis of the with clause and
5513 -- it is an instantiation then it awaits a body and is the main unit.
5514 -- Its appearance in the context of some other unit indicates a
5515 -- circular dependency (DEC suite perversity).
5519 then
5520 Error_Msg_N
5527 then
5529 Error_Msg_N
5531 else
5532 Error_Msg_N
5539 -- Abandon processing in case of previous errors
5542 Check_Error_Detected;
5548 -- If the unit is a wrapper package for a compilation unit that is
5549 -- a subprogram instance, indicate that the instance itself is a
5550 -- visible unit. This is necessary if the instance is inlined.
5556 -- If the child unit appears in the context of its parent, it is
5557 -- immediately visible.
5565 then
5566 -- Set flag as well on the visible entity that denotes the
5567 -- instance, which renames the current one.
5569 Set_Is_Visible_Lib_Unit
5570 (Related_Instance
5574 -- The parent unit may have been installed already, and may have
5575 -- appeared in a use clause.
5594 -- A [private] with clause overrides a limited with clause. Restore the
5595 -- proper view of the package by performing the following actions:
5596 --
5597 -- * Remove all shadow entities which hide their corresponding
5598 -- entities from direct visibility by updating the entity and
5599 -- homonym chains.
5600 --
5601 -- * Enter the corresponding entities back in direct visibility
5602 --
5603 -- Note that the original limited with clause which installed its view
5604 -- is still marked as "active". This effect is undone when the clause
5605 -- itself is removed, see Remove_Limited_With_Clause.
5611 -- Ada 2005 (AI-377): it is illegal for a with_clause to name a child
5612 -- unit if there is a visible homograph for it declared in the same
5613 -- declarative region. This pathological case can only arise when an
5614 -- instance I1 of a generic unit G1 has an explicit child unit I1.G2,
5615 -- G1 has a generic child also named G2, and the context includes with_
5616 -- clauses for both I1.G2 and for G1.G2, making an implicit declaration
5617 -- of I1.G2 visible as well. If the child unit is named Standard, do
5618 -- not apply the check to the Standard package itself.
5623 then
5624 declare
5630 begin
5640 then
5642 Error_Msg_N
5645 With_Clause);
5651 then
5652 -- With_clause for child unit of instance appears before
5653 -- in the context. We want to place the error message on
5654 -- it, not on the generic child unit itself.
5656 declare
5659 begin
5667 Error_Msg_N
5670 Prev_Clause);
5682 -------------------
5683 -- Is_Child_Spec --
5684 -------------------
5689 begin
5700 ------------------------------------
5701 -- Is_Legal_Shadow_Entity_In_Body --
5702 ------------------------------------
5706 begin
5708 and then
5709 Has_With_Clause
5713 ----------------------
5714 -- Is_Ancestor_Unit --
5715 ----------------------
5720 begin
5724 else
5729 ----------------------------------
5730 -- Is_Visible_Through_Renamings --
5731 ----------------------------------
5733 function Is_Visible_Through_Renamings
5736 is
5737 function Is_Limited_Withed_Unit
5740 -- Return True if Pkg_Ent is a limited-withed package of the given
5741 -- library unit.
5743 ----------------------------
5744 -- Is_Limited_Withed_Unit --
5745 ----------------------------
5747 function Is_Limited_Withed_Unit
5750 is
5753 begin
5758 then
5768 -- Local variables
5775 begin
5776 -- Example of the error detected by this subprogram:
5778 -- package P is
5779 -- type T is ...
5780 -- end P;
5782 -- with P;
5783 -- package Q is
5784 -- package Ren_P renames P;
5785 -- end Q;
5787 -- with Q;
5788 -- package R is ...
5790 -- limited with P; -- ERROR
5791 -- package R.C is ...
5795 loop
5801 N_Package_Declaration
5802 then
5803 Decl :=
5804 First (Visible_Declarations
5809 and then not Is_Limited_Withed_Unit
5812 then
5813 -- Generate the error message only if the current unit
5814 -- is a package declaration; in case of subprogram
5815 -- bodies and package bodies we just return True to
5816 -- indicate that the limited view must not be
5817 -- installed.
5821 then
5822 Error_Msg_N
5826 Error_Msg_NE
5843 -- If it is a body not acting as spec, follow pointer to the
5844 -- corresponding spec, otherwise follow pointer to parent spec.
5848 N_Package_Body | N_Subprogram_Body
5849 then
5852 -- Aux_Unit is a body that acts as a spec. Clause has
5853 -- already been flagged as illegal.
5857 else
5861 else
5871 -----------------------
5872 -- Load_Needed_Body --
5873 -----------------------
5875 -- N is a generic unit named in a with clause, or else it is a unit that
5876 -- contains a generic unit or an inlined function. In order to perform an
5877 -- instantiation, the body of the unit must be present. If the unit itself
5878 -- is generic, we assume that an instantiation follows, and load & analyze
5879 -- the body unconditionally. This forces analysis of the spec as well.
5881 -- If the unit is not generic, but contains a generic unit, it is loaded on
5882 -- demand, at the point of instantiation (see ch12).
5884 procedure Load_Needed_Body
5887 is
5892 -- The loading and analysis is done with style checks off
5894 begin
5900 Unum :=
5901 Load_Unit
5911 else
5917 Write_Eol;
5920 -- We always perform analyses
5930 -------------------------
5931 -- Build_Limited_Views --
5932 -------------------------
5940 -- The corresponding shadow entity of the withed package. This entity
5941 -- offers incomplete views of packages and types as well as abstract
5942 -- views of states and variables declared within.
5945 -- The last shadow entity created by routine Build_Shadow_Entity
5947 procedure Build_Shadow_Entity
5952 -- Create a shadow entity that hides Ent and offers an abstract or
5953 -- incomplete view of Ent. Scop is the proper scope. Flag Is_Tagged
5954 -- should be set when Ent is a tagged type. The generated entity is
5955 -- added to Shadow_Pack. The routine updates the value of Last_Shadow.
5958 -- Perform minimal decoration of a package or its corresponding shadow
5959 -- entity denoted by Ent. Scop is the proper scope.
5962 -- Perform full decoration of an abstract state or its corresponding
5963 -- shadow entity denoted by Ent. Scop is the proper scope.
5966 -- Perform minimal decoration of a variable denoted by Ent. Scop is the
5967 -- proper scope.
5969 procedure Process_Declarations_And_States
5974 -- Inspect the states of package Pack and declarative list Decls. Create
5975 -- shadow entities for all nested packages, states, types and variables
5976 -- encountered. Scop is the proper scope. Create_Abstract_Views should
5977 -- be set when the abstract states and variables need to be processed.
5979 -------------------------
5980 -- Build_Shadow_Entity --
5981 -------------------------
5983 procedure Build_Shadow_Entity
5988 is
5989 begin
5992 -- The shadow entity must share the same name and parent as the
5993 -- entity it hides.
5998 -- The abstract view of a variable is a state, not another variable
6002 else
6010 -- Add the new shadow entity to the limited view of the package
6015 -- Perform context-specific decoration of the shadow entity
6027 -- If Ent is a private type and we are analyzing the body of its
6028 -- scope, its private and full views are swapped and, therefore,
6029 -- we need to undo this swapping in order to build the same shadow
6030 -- entity as we would have in other contexts.
6035 then
6037 else
6042 Set_Non_Limited_View
6056 ----------------------
6057 -- Decorate_Package --
6058 ----------------------
6061 begin
6067 --------------------
6068 -- Decorate_State --
6069 --------------------
6072 begin
6080 -----------------------
6081 -- Decorate_Variable --
6082 -----------------------
6085 begin
6091 -------------------------------------
6092 -- Process_Declarations_And_States --
6093 -------------------------------------
6095 procedure Process_Declarations_And_States
6100 is
6102 -- Determine whether package Pack defines abstract state either by
6103 -- using an aspect or a pragma. If this is the case, build shadow
6104 -- entities for all abstract states of Pack.
6107 -- Generate shadow entities for all abstract states in list States
6109 -----------------------------
6110 -- Find_And_Process_States --
6111 -----------------------------
6115 -- Generate shadow entities for a single abstract state or
6116 -- multiple states expressed as an aggregate.
6118 -------------------
6119 -- Process_State --
6120 -------------------
6129 begin
6130 -- Multiple abstract states appear as an aggregate
6141 -- A null state has no abstract view
6146 -- State declaration with various options appears as an
6147 -- extension aggregate.
6152 -- Simple state declaration
6157 -- Possibly an illegal state declaration
6159 else
6163 -- Abstract states are elaborated when the related pragma is
6164 -- elaborated. Since the withed package is not analyzed yet,
6165 -- the entities of the abstract states are not available. To
6166 -- overcome this complication, create the entities now and
6167 -- store them in their respective declarations. The entities
6168 -- are later used by routine Create_Abstract_State to declare
6169 -- and enter the states into visibility.
6178 -- Otherwise the package was previously withed
6180 else
6187 -- Local variables
6193 -- Start of processing for Find_And_Process_States
6195 begin
6196 -- Find aspect Abstract_State
6209 -- Find pragma Abstract_State by inspecting the declarations
6214 Process_State
6215 (Get_Pragma_Arg
6225 --------------------
6226 -- Process_States --
6227 --------------------
6233 begin
6242 -- Local variables
6250 -- Start of processing for Process_Declarations_And_States
6252 begin
6253 -- Build abstract views for all states defined in the package
6257 -- When a package has been analyzed, all states are stored in list
6258 -- Abstract_States. Generate the shadow entities directly.
6265 -- The package may declare abstract states by using an aspect or a
6266 -- pragma. Attempt to locate one of these construct and if found,
6267 -- build the shadow entities.
6269 else
6270 Find_And_Process_States;
6274 -- Inspect the declarative list, looking for nested packages, types
6275 -- and variable declarations.
6280 -- Packages
6285 -- Perform minor decoration when the withed package has not
6286 -- been analyzed.
6292 -- Create a shadow entity that offers a limited view of all
6293 -- visible types declared within.
6297 Process_Declarations_And_States
6299 Decls =>
6304 -- Types
6307 | N_Incomplete_Type_Declaration
6308 | N_Private_Extension_Declaration
6309 | N_Private_Type_Declaration
6310 | N_Protected_Type_Declaration
6311 | N_Task_Type_Declaration
6312 then
6315 -- Determine whether the type is tagged. Note that packages
6316 -- included via a limited with clause are not always analyzed,
6317 -- hence the tree lookup rather than the use of attribute
6318 -- Is_Tagged_Type.
6323 Is_Tagged :=
6326 or else
6331 | N_Private_Type_Declaration
6332 then
6338 else
6342 -- Perform minor decoration when the withed package has not
6343 -- been analyzed.
6349 -- Create a shadow entity that hides the type and offers an
6350 -- incomplete view of the said type.
6354 -- Variables
6356 elsif Create_Abstract_Views
6359 then
6362 -- Perform minor decoration when the withed package has not
6363 -- been analyzed.
6369 -- Create a shadow entity that hides the variable and offers an
6370 -- abstract view of the said variable.
6379 -- Local variables
6388 -- Start of processing for Build_Limited_Views
6390 begin
6393 -- A library_item mentioned in a limited_with_clause is a package
6394 -- declaration, not a subprogram declaration, generic declaration,
6395 -- generic instantiation, or package renaming declaration.
6402 Error_Msg_N
6411 Error_Msg_N
6413 N);
6417 Error_Msg_N
6422 Error_Msg_N
6427 Error_Msg_N
6435 -- The withed unit may not be analyzed, but the with clause itself
6436 -- must be minimally decorated. This ensures that the checks on unused
6437 -- with clauses also process limieted withs.
6450 -- Check if the chain is already built
6458 -- Create the shadow package wich hides the withed unit and provides
6459 -- incomplete view of all types and packages declared within.
6466 -- Inspect the abstract states and visible declarations of the withed
6467 -- unit and create shadow entities that hide existing packages, states,
6468 -- variables and types.
6470 Process_Declarations_And_States
6478 -- Ada 2005 (AI-262): Build the limited view of the private declarations
6479 -- to accommodate limited private with clauses.
6481 Process_Declarations_And_States
6489 else
6497 ----------------------------
6498 -- Check_No_Elab_Code_All --
6499 ----------------------------
6502 begin
6506 then
6507 declare
6511 begin
6515 and then not
6518 -- In GNATprove mode, some runtime units are implicitly
6519 -- loaded to make their entities available for analysis. In
6520 -- this case, ignore violations of No_Elaboration_Code_All
6521 -- for this special analysis mode.
6523 and then not
6525 then
6527 Error_Msg_N
6529 Error_Msg_NE
6540 -------------------------------
6541 -- Check_Body_Needed_For_SAL --
6542 -------------------------------
6546 -- Determine whether use of entity E might require the presence of its
6547 -- body. For a package this requires a recursive traversal of all nested
6548 -- declarations.
6550 -----------------------
6551 -- Entity_Needs_Body --
6552 -----------------------
6557 begin
6563 -- A generic subprogram always requires the presence of its
6564 -- body because an instantiation needs both templates. The only
6565 -- exceptions is a generic subprogram renaming. In this case the
6566 -- body is needed only when the template is declared outside the
6567 -- compilation unit being checked.
6571 else
6576 and then
6579 then
6585 then
6597 else
6602 -- Start of processing for Check_Body_Needed_For_SAL
6604 begin
6607 N_Generic_Package_Declaration
6608 and then
6610 then
6618 N_Subprogram_Declaration
6620 then
6624 Check_Body_Needed_For_SAL
6629 then
6634 then
6635 Check_Body_Needed_For_SAL
6640 --------------------
6641 -- Remove_Context --
6642 --------------------
6647 begin
6648 -- If this is a child unit, first remove the parent units
6657 ----------------------------
6658 -- Remove_Context_Clauses --
6659 ----------------------------
6665 begin
6666 -- Ada 2005 (AI-50217): We remove the context clauses in two phases:
6667 -- limited-views first and regular-views later (to maintain the stack
6668 -- model).
6670 -- First Phase: Remove limited_with context clauses
6675 -- We are interested only in with clauses that got installed on entry
6679 then
6683 -- An unusual case: If the library unit of the Main_Unit has a
6684 -- limited with_clause on some unit P and the context somewhere
6685 -- includes a with_clause on P, P has been analyzed. The entity
6686 -- for P is still visible, which in general is harmless because
6687 -- this is the end of the compilation, but it can affect pending
6688 -- instantiations that may have been generated elsewhere, so it
6689 -- it is necessary to remove U from visibility so that inlining
6690 -- and the analysis of instance bodies can proceed cleanly.
6695 then
6696 Set_Is_Immediately_Visible
6704 -- Second Phase: Loop through context items and undo regular
6705 -- with_clauses and use_clauses.
6710 -- We are interested only in with clauses which got installed on
6711 -- entry, as indicated by their Context_Installed flag set
6716 then
6721 then
6722 -- Remove items from one with'ed unit
6739 --------------------------------
6740 -- Remove_Limited_With_Clause --
6741 --------------------------------
6746 begin
6749 -- Limited with clauses that designate units other than packages are
6750 -- illegal and are never installed.
6756 -- Indicate that the limited views of the clause have been removed
6761 ------------------------------
6762 -- Remove_Limited_With_Unit --
6763 ------------------------------
6765 procedure Remove_Limited_With_Unit
6768 is
6770 -- Remove the shadow entities of package Pack_Id from direct visibility
6773 -- Remove the shadow entities of package Pack_Id from direct visibility,
6774 -- restore the corresponding entities they hide into direct visibility,
6775 -- and update the entity and homonym chains.
6777 --------------------------------------------
6778 -- Remove_Shadow_Entities_From_Visibility --
6779 --------------------------------------------
6787 begin
6788 -- Remove the package from direct visibility
6793 -- Remove all shadow entities from direct visibility
6802 -----------------------------------------
6803 -- Remove_Shadow_Entities_With_Restore --
6804 -----------------------------------------
6806 -- This code must be kept synchronized with the code that replaces the
6807 -- real entities by the shadow entities in Install_Limited_With_Clause,
6808 -- otherwise the contents of the homonym chains are not consistent.
6812 -- Remove shadow entity Shadow by updating the entity and homonym
6813 -- chains.
6815 procedure Restore_Chains
6818 -- Remove a sequence of shadow entities starting from From and ending
6819 -- prior to Upto by updating the entity and homonym chains.
6821 procedure Restore_Type_Visibility
6824 -- Restore a sequence of types starting from From and ending prior to
6825 -- Upto back in direct visibility.
6827 ------------------------------
6828 -- Restore_Chain_For_Shadow --
6829 ------------------------------
6837 begin
6838 -- If the package has incomplete types, the limited view of the
6839 -- incomplete type is in fact never visible (AI05-129) but we
6840 -- have created a shadow entity E1 for it, that points to E2,
6841 -- the incomplete type at stake. This in turn has a full view
6842 -- E3 that is the full declaration, with a corresponding
6843 -- shadow entity E4. When reinstalling the nonlimited view,
6844 -- the visible entity E4 is replaced directly with E2 in the
6845 -- the homonyms list and E3 is simply ignored.
6846 --
6847 -- regular views limited views
6848 --
6849 -- * E2 (incomplete) <-- E1 (shadow)
6850 --
6851 -- |
6852 -- V
6853 --
6854 -- E3 (full) <-- E4 (shadow) *
6855 --
6856 -- [*] denotes the visible entity (Current_Entity)
6861 -- This is a regular replacement
6869 Write_Eol;
6874 -- This is where E4 is replaced with E2
6880 then
6886 Write_Eol;
6896 --------------------
6897 -- Restore_Chains --
6898 --------------------
6900 procedure Restore_Chains
6903 is
6906 begin
6910 -- Do not unchain nested packages and child units
6918 else
6926 -----------------------------
6927 -- Restore_Type_Visibility --
6928 -----------------------------
6930 procedure Restore_Type_Visibility
6933 is
6936 begin
6947 -- Local variables
6951 -- Start of processing Remove_Shadow_Entities_With_Restore
6953 begin
6954 -- The limited view of a package is being uninstalled by removing
6955 -- the effects of a limited with clause. If the clause appears in a
6956 -- unit which is not part of the main unit closure, then the related
6957 -- package must not be visible.
6961 then
6964 -- Otherwise a limited view is being overridden by a nonlimited view.
6965 -- Leave the visibility of the package as is because the unit must be
6966 -- visible when the nonlimited view is installed.
6968 else
6972 -- Remove the shadow entities from visibility by updating the entity
6973 -- and homonym chains.
6975 Restore_Chains
6979 -- Reinstate the types that were hidden by the shadow entities back
6980 -- into direct visibility.
6982 Restore_Type_Visibility
6987 -- Local variables
6991 -- Start of processing for Remove_Limited_With_Unit
6993 begin
6994 -- Nothing to do when the limited view of the package is not installed
7004 Write_Eol;
7007 -- The package already appears in the compilation closure. As a result,
7008 -- its shadow entities must be replaced by the real entities they hide
7009 -- and the previously hidden entities must be entered back into direct
7010 -- visibility.
7015 -- Otherwise the package is not analyzed and its shadow entities must be
7016 -- removed from direct visibility.
7018 else
7022 -- Indicate that the limited view of the package is not installed
7027 --------------------
7028 -- Remove_Parents --
7029 --------------------
7039 begin
7045 then
7056 -- Remove from visibility the siblings as well, which are directly
7057 -- visible while the parent is in scope.
7070 -- This is the recursive call to remove the context of any higher
7071 -- level parent. This recursion ensures that all parents are removed
7072 -- in the reverse order of their installation.
7078 ---------------------------------
7079 -- Remove_Private_With_Clauses --
7080 ---------------------------------
7086 -- Check whether a given unit appears in a regular with_clause. Used to
7087 -- determine whether a private_with_clause, implicit or explicit, should
7088 -- be ignored.
7090 ----------------------------
7091 -- In_Regular_With_Clause --
7092 ----------------------------
7097 begin
7103 -- The following guard is needed to ensure that the name has
7104 -- been properly analyzed before we go fetching its entity.
7109 then
7119 -- Start of processing for Remove_Private_With_Clauses
7121 begin
7126 -- If private_with_clause is redundant, remove it from context,
7127 -- as a small optimization to subsequent handling of private_with
7128 -- clauses in other nested packages. We replace the clause with
7129 -- a null statement, which is otherwise ignored by the rest of
7130 -- the compiler.
7133 declare
7135 begin
7148 else
7154 else
7160 ---------------------------------
7161 -- Remove_Unit_From_Visibility --
7162 ---------------------------------
7165 begin
7170 Write_Eol;
7177 -- If the unit is a wrapper package, the subprogram instance is
7178 -- what must be removed from visibility.
7179 -- Should we use Related_Instance instead???
7186 --------
7187 -- sm --
7188 --------
7191 begin
7195 -------------
7196 -- Replace --
7197 -------------
7202 begin
7212 else
7224 -------------
7225 -- Unchain --
7226 -------------
7231 begin
7240 else
7253 Write_Eol;