Ignore:
Timestamp:
Feb 15, 2015, 3:00:58 PM (5 years ago)
Author:
Maxim Reznik
Message:

Create completion region for package_body

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ada-2012/src/semantic/gela-pass_utils.ads

    r370 r398  
    1212with Gela.Elements.Defining_Names;
    1313with Gela.Elements.Defining_Identifiers;
     14with Gela.Elements.Use_Package_Clauses;
    1415with Gela.Lexical_Types;
    1516with Gela.Semantic_Types;
     
    3839      return Gela.Semantic_Types.Env_Index;
    3940
     41   function Create_Completion_Region
     42     (Comp   : Gela.Compilations.Compilation_Access;
     43      Env    : Gela.Semantic_Types.Env_Index;
     44      Symbol : Gela.Lexical_Types.Symbol)
     45      return Gela.Semantic_Types.Env_Index;
     46
    4047   function Add_Names
    4148     (Comp         : Gela.Compilations.Compilation_Access;
     
    4653      return Gela.Semantic_Types.Env_Index;
    4754   --  Add (Symbol, Name) from List and Names to Env
     55
     56   function Add_Use_Package
     57     (Comp : Gela.Compilations.Compilation_Access;
     58      Env  : Gela.Semantic_Types.Env_Index;
     59      Node : not null Gela.Elements.Use_Package_Clauses.
     60        Use_Package_Clause_Access)
     61      return Gela.Semantic_Types.Env_Index;
     62   --  Add "use {Symbol};" to Env
    4863
    4964   function Add_Names_Create_Region
Note: See TracChangeset for help on using the changeset viewer.