X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Fada%2Fsem_ch7.ads;fp=gcc%2Fada%2Fsem_ch7.ads;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=b711089647575936101a956c5f4967566ba4d93f;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/ada/sem_ch7.ads b/gcc/ada/sem_ch7.ads deleted file mode 100644 index b7110896..00000000 --- a/gcc/ada/sem_ch7.ads +++ /dev/null @@ -1,87 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- S E M _ C H 7 -- --- -- --- S p e c -- --- -- --- $Revision: 1.1.16.2 $ --- -- --- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- --- -- --- GNAT is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- --- MA 02111-1307, USA. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -with Types; use Types; -package Sem_Ch7 is - - procedure Analyze_Package_Body (N : Node_Id); - procedure Analyze_Package_Declaration (N : Node_Id); - procedure Analyze_Package_Specification (N : Node_Id); - procedure Analyze_Private_Type_Declaration (N : Node_Id); - - procedure End_Package_Scope (P : Entity_Id); - -- Calls Uninstall_Declarations, and then pops the scope stack. - - procedure Exchange_Declarations (Id : Entity_Id); - -- Exchange private and full declaration on entry/exit from a package - -- declaration or body. The semantic links of the respective nodes - -- are preserved in the exchange. - - procedure Install_Visible_Declarations (P : Entity_Id); - procedure Install_Private_Declarations (P : Entity_Id); - - -- On entrance to a package body, make declarations in package spec - -- immediately visible. - - -- When compiling the body of a package, both routines are called in - -- succession. When compiling the body of a child package, the call - -- to Install_Private_Declaration is immediate for private children, - -- but is deffered until the compilation of the private part of the - -- child for public child packages. - - procedure Install_Package_Entity (Id : Entity_Id); - -- Basic procedure for the previous two. Places one entity on its - -- visibility chain, and recurses on the visible part if the entity - -- is an inner package. - - function Unit_Requires_Body (P : Entity_Id) return Boolean; - -- Check if a unit requires a body. A specification requires a body - -- if it contains declarations that require completion in a body. - - procedure May_Need_Implicit_Body (E : Entity_Id); - -- If a package declaration contains tasks and does not require a - -- body, create an implicit body at the end of the current declarative - -- part to activate those tasks. - - function Is_Fully_Visible (Type_Id : Entity_Id) return Boolean; - -- Indicates whether the Full Declaration of a private type is visible. - - procedure New_Private_Type (N : Node_Id; Id : Entity_Id; Def : Node_Id); - -- Common processing for private type declarations and for formal - -- private type declarations. For private types, N and Def are the type - -- declaration node; for formal private types, Def is the formal type - -- definition. - - procedure Uninstall_Declarations (P : Entity_Id); - -- At the end of a package declaration or body, declarations in the - -- visible part are no longer immediately visible, and declarations in - -- the private part are not visible at all. For inner packages, place - -- visible entities at the end of their homonym chains. For compilation - -- units, make all entities invisible. In both cases, exchange private - -- and visible declarations to restore order of elaboration. -end Sem_Ch7;