Searched refs:Encl_Scope_Node (Results 1 – 2 of 2) sorted by relevance
92 Encl_Scope_Node : Node_Id := Scope (Node (Def_Name)); variable100 if Ekind (Encl_Scope_Node) = E_Package or else101 Ekind (Encl_Scope_Node) = E_Generic_Package or else102 Ekind (Encl_Scope_Node) = E_Package_Body105 if Encl_Scope_Node = Curr_Scope_Node then115 if Ekind (Encl_Scope_Node) = E_Task_Type117 not Comes_From_Source (Encl_Scope_Node)119 Encl_Scope_Node := Corresponding_Body (Parent (Encl_Scope_Node));122 while Present (Encl_Scope_Node) loop124 if Encl_Scope_Node = Curr_Scope_Node then[all …]
1019 Encl_Scope_Node : Scope_Id := Encl_Scope; variable1034 if No (Encl_Scope_Node) then1040 Encl_Scope_Node := Environment_Task_Node;1042 Encl_Scope_Node :=1090 Enclosing_Scope => Encl_Scope_Node,1198 (To_Node => Encl_Scope_Node,