separate (RPC)

procedure RPC_Mgmt_Stats_Vector_Free(
  Statistics : in out RPC_Statistics_Vector_Type;
  Status     :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_mgmt_stats_vector_free(
              stats_vector : System.Address;
              status       : System.Address);
  pragma INTERFACE (C, rpc_mgmt_stats_vector_free);
  
  Local_Status : DCE_Status.Status_Type;

begin
  rpc_mgmt_stats_vector_free(Statistics'ADDRESS, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_Mgmt_Stats_Vector_Free;