separate (RPC)

procedure RPC_EP_Unregister(
  IF_Handle            : in     RPC_Interface_Handle_Type;
  Binding_Vector       : in     RPC_Binding_Vector_Type;
  Object_UUID_Vector   : in     UUID_Vector_Type;
  Status               :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_ep_unregister(
              if_handle          : RPC_Interface_Handle_Type;
              binding_vector     : RPC_Binding_Vector_Type;
              object_uuid_vector : UUID_Vector_Type;
              status             : System.Address);
  pragma INTERFACE (C, rpc_ep_unregister);

  Local_Status  : DCE_Status.Status_Type;

begin
  rpc_ep_unregister(IF_Handle, Binding_Vector, Object_UUID_Vector,
		    Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_EP_Unregister;