separate (RPC)

procedure RPC_Mgmt_Set_Server_Stack_Size(
  Thread_Stack_Size : in     DCE_Base.unsigned32;
  Status            :    out DCE_Status.Status_Type) is
-- ****************************************************************************

  procedure rpc_mgmt_set_server_stack_size(
              thread_stack_size : DCE_Base.unsigned32;
              status            : System.Address);
  pragma INTERFACE (C, rpc_mgmt_set_server_stack_size);

  Local_Status  : DCE_Status.Status_Type;

begin
  rpc_mgmt_set_server_stack_size(Thread_Stack_Size, Local_Status'ADDRESS);
  Status := Local_Status;
end RPC_Mgmt_Set_Server_Stack_Size;