separate (RPC)

function RPC_SS_Allocate(Size : in DCE_Base.Unsigned32
  ) return DCE_Base.Memory_Pointer_Type is
-- ****************************************************************************

  function rpc_ss_allocate(size : DCE_Base.Unsigned32
             ) return DCE_Base.Memory_Pointer_Type;
  pragma INTERFACE (C, rpc_ss_allocate);

  Local_Pointer : DCE_Base.Memory_Pointer_Type;

begin
  Local_Pointer := rpc_ss_allocate(Size);
  return ( Local_Pointer );
  
  exception
    when STORAGE_ERROR => raise RPC_X_NO_MEMORY;
end RPC_SS_Allocate;