PTRawHashImpl.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Michael Plass, October 11, 1988 11:44:50 am PDT
DIRECTORY Checksum, TRawHash;
PTRawHashImpl: CEDAR PROGRAM
IMPORTS Checksum
EXPORTS TRawHash
~
BEGIN
RawHash:
PUBLIC
UNSAFE
PROC [pointer:
LONG
POINTER, units:
NAT]
RETURNS [
CARDINAL] ~
UNCHECKED {
There is certainly a better hash function than this...
RETURN [Checksum.ComputeChecksum[0, units/UNITS[CARD16], pointer]];
};
END.