separate (RPC)

procedure RPC_SM_Destroy_Client_Context(
  Unusable_Context_Handle : in     DCE_Base.Memory_Pointer_Type;
  Status                  :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_sm_destroy_client_context(
             handle : DCE_Base.Memory_Pointer_Type;
             status : System.Address);
  pragma INTERFACE (C, rpc_sm_destroy_client_context);

  Local_Status : DCE_Status.Status_Type;

begin
  rpc_sm_destroy_client_context(Unusable_Context_Handle, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_SM_Destroy_Client_Context;