13 DEFINE HASHINT2 (x,y) = (((x)+HPARAM*(y)) land 0x3fffffff)
14 DEFINE HASHINT3 (x,y,z) = (((x) + (y) * HPARAM + (z) * HPARAM2) land 0x3fffffff)
15 DEFINE HASHINT4 (x,y,z,t) = (((x) + (y) * HPARAM + (z)*HPARAM2 + (t)* HPARAM3) land 0x3fffffff)
16 DEFINE HASHINT5 (x,y,z,t,u) = (((x) + (y) * HPARAM + (z)*HPARAM2 + (t)* HPARAM3 + (u)*HPARAM4) land 0x3fffffff)
18 (* Magic Constants used for hashing *)
29 DEFINE SMALL_H_SIZE = PRIME2
30 DEFINE MED_H_SIZE = PRIME5
31 DEFINE BIG_H_SIZE = PRIME8
33 DEFINE SMALL_A_SIZE = 128
34 DEFINE MED_A_SIZE = 2048
35 DEFINE BIG_A_SIZE = 8192
37 END (* IFNDEF UTILS__ML__ *)