Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Wed Jan 18 21:06:32 PST 1995 by najork
UNSAFE MODULE; IMPORT Integer, Word; PROCEDURE Address Equal (a, b: T): BOOLEAN = BEGIN RETURN a = b; END Equal; PROCEDUREHash (a: T): Word.T = BEGIN RETURN LOOPHOLE(a, Word.T); END Hash; PROCEDURECompare (a, b: T): [-1..1] = BEGIN RETURN Integer.Compare(LOOPHOLE(a, INTEGER), LOOPHOLE(b, INTEGER)); END Compare; BEGIN END Address.