(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* Last modified on Sat Jul 10 01:51:09 PDT 1993 by heydon                   *)

MODULE QId;

IMPORT Atom, Word, Text;

PROCEDURE Equal(READONLY qid1, qid2: T): BOOLEAN =
  BEGIN
    RETURN qid1.id0 = qid2.id0 AND qid1.id1 = qid2.id1
  END Equal;

PROCEDURE Hash(READONLY qid: T): Word.T =
  VAR res := Text.Hash(Atom.ToText(qid.id1)); BEGIN
    IF qid.id0 # NIL THEN
      res := Word.Xor(res, Text.Hash(Atom.ToText(qid.id0)))
    END;
    RETURN res
  END Hash;

BEGIN END QId.