separate (RPC)

function UUID_Compare(
  UUID1         : in UUID_Type;
  UUID2         : in UUID_Type;
  Status        : in DCE_Status.Status_Type;
  Use_NIL_UUID1 : in boolean := FALSE;
  Use_NIL_UUID2 : in boolean := FALSE
  ) return DCE_Base.signed32 is
-- ****************************************************************************

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

  UUID1_Addr   : System.Address := UUID1'ADDRESS;
  UUID2_Addr   : System.Address := UUID2'ADDRESS;
  Local_Status : DCE_Status.Status_Type;
  Local_Value  : DCE_Base.signed32;

begin
  if Use_NIL_UUID1 then
    UUID1_Addr := System.NULL_ADDRESS;
  end if;
  if Use_NIL_UUID2 then
    UUID2_Addr := System.NULL_ADDRESS;
  end if;

  Local_Value := uuid_compare(UUID1_Addr, UUID2_Addr, Local_Status'ADDRESS);

  return Local_Value;
end UUID_Compare;