Searched refs:Device_Entity (Results 1 – 2 of 2) sorted by relevance
743 Device_Entity : Entity_Id; variable754 Device_Entity := Node (Device_Elmt);757 case Ekind (Device_Entity) is759 Bod := Subprogram_Body (Device_Entity);769 Remove (Subprogram_Spec (Device_Entity));773 Remove (Declaration_Node (Device_Entity));779 Remove_Entity_And_Homonym (Device_Entity);
14978 Device_Entity : Entity_Id; variable14985 Device_Entity := Entity (Arg_Node);14987 if Ekind (Device_Entity) in E_Variable14993 (Package_Specification_Of_Scope (Scope (Device_Entity)),14994 Device_Entity);14999 Device_Entity);