separate (RPC)

function RPC_SM_Allocate(
  Size   : in DCE_Base.Unsigned32;
  Status : in DCE_Status.Status_Type
  ) return DCE_Base.Memory_Pointer_Type is
-- ****************************************************************************

  function rpc_sm_allocate(
             size   : DCE_Base.Unsigned32;
             status : System.Address
             ) return DCE_Base.Memory_Pointer_Type;
  pragma INTERFACE (C, rpc_sm_allocate);

begin
  return ( rpc_sm_allocate(Size, Status'ADDRESS) );
end RPC_SM_Allocate;