separate (RPC)

procedure UUID_Vector_Free(UUID_Vector : in out UUID_Vector_Type) is
-- ****************************************************************************

  procedure free_uuid_vector(uuid_vector : System.Address);
  pragma INTERFACE (C, free_uuid_vector);

begin
  free_uuid_vector(UUID_Vector.all'ADDRESS);
  UUID_Vector := NULL;
end UUID_Vector_Free;