separate (RPC) procedure RPC_NS_Binding_Inq_Entry_Name( Binding_Handle : in RPC_Binding_Handle_Type; Entry_Name_Syntax : in DCE_Base.NS_Syntax_Type; Entry_Name : out NS_Entry_Name_Type; Status : out DCE_Status.Status_Type) is -- **************************************************************************** use C_String_Pkg; -- /// Direct visibility to the "/=" operator procedure rpc_ns_binding_inq_entry_name( binding_handle : RPC_Binding_Handle_Type; entry_name_syntax : DCE_Base.NS_Syntax_Type; entry_name : System.Address; status : System.Address); pragma INTERFACE (C, rpc_ns_binding_inq_entry_name); Local_CStr : C_String_Pkg.C_String; Local_Status : DCE_Status.Status_Type; Length : natural := 0; begin rpc_ns_binding_inq_entry_name(Binding_Handle, Entry_Name_Syntax, Local_CStr'ADDRESS, Local_Status'ADDRESS); Status := Local_Status; if (Local_CStr /= NULL) then C_String_Pkg.C_to_Ada_String(Local_CStr, string(Entry_Name), TRUE); RPC_String_Free(Local_CStr'ADDRESS, Local_Status); end if; end RPC_NS_Binding_Inq_Entry_Name;