Lines Matching defs:Inline_Instance_Body
677 procedure Inline_Instance_Body subprogspec
4775 procedure Inline_Instance_Body subprogram
4780 Config_Attrs : constant Config_Switches_Type := Save_Config_Switches;
4782 Curr_Comp : constant Node_Id := Cunit (Current_Sem_Unit);
4783 Curr_Unit : constant Entity_Id := Cunit_Entity (Current_Sem_Unit);
4784 Gen_Comp : constant Entity_Id :=
4787 Scope_Stack_Depth : constant Pos :=
4790 Inner_Scopes : array (1 .. Scope_Stack_Depth) of Entity_Id;
4791 Instances : array (1 .. Scope_Stack_Depth) of Entity_Id;
4792 Use_Clauses : array (1 .. Scope_Stack_Depth) of Node_Id;
4794 Curr_Scope : Entity_Id := Empty;
4795 List : Elist_Id := No_Elist; -- init to avoid warning
4796 N_Instances : Nat := 0;
4797 Num_Inner : Nat := 0;
4798 Num_Scopes : Nat := 0;
4799 Removed : Boolean := False;
4800 S : Entity_Id;
4801 Vis : Boolean;