separate (RPC)

procedure RPC_SS_Set_Thread_Handle(
  Thread_Handle : in RPC_SS_Thread_Handle_Type) is
-- ****************************************************************************

  procedure rpc_ss_set_thread_handle(handle : RPC_SS_Thread_Handle_Type);
  pragma INTERFACE (C, rpc_ss_set_thread_handle);

begin
  rpc_ss_set_thread_handle(Thread_Handle);

  exception
    when STORAGE_ERROR => raise RPC_X_NO_MEMORY;
end RPC_SS_Set_Thread_Handle;