separate (RPC)

function UUID_Equal(
  UUID1  : in UUID_Type;
  UUID2  : in UUID_Type;
  Status : in DCE_Status.Status_Type
  ) return DCE_Base.boolean32 is
-- ****************************************************************************

  function uuid_equal(
    uuid1  : System.Address;
    uuid2  : System.Address;
    status : System.Address) return DCE_Base.boolean32;
  pragma INTERFACE (C, uuid_equal);

  Local_Status : DCE_Status.Status_Type;
  Local_Value  : DCE_Base.boolean32;

begin
  Local_Value := uuid_equal(UUID1'ADDRESS, UUID2'ADDRESS, Local_Status'ADDRESS);
  return Local_Value;
end UUID_Equal;