1 (* ==================================================================== *)
2 (* *)
3 (* NameHash Module for the Gardens Point Component Pascal Compiler. *)
4 (* Implements the main symbol hash table. Uses closed hashing algrthm *)
5 (* Copyright (c) John Gough 1999, 2000. *)
6 (* *)
7 (* ==================================================================== *)
11 IMPORT
12 GPCPcopyright,
13 Console,
14 GPText,
16 CPascalS,
17 RTS;
19 (* ============================================================ *)
21 VAR
29 (* ============================================================ *)
31 (* ============================================================ *)
35 BEGIN
39 (* -------------------------------------------- *)
42 BEGIN
53 ELSE
63 (* ============================================================ *)
67 BEGIN
71 (* ============================================================ *)
78 (* need to turn off overflow checking *)
89 (* -------------------------------------------- *)
95 (* need to turn off overflow checking *)
105 (* -------------------------------------------- *)
109 BEGIN
110 (*
111 * LEN(val) includes the terminating nul character.
112 *)
120 (* -------------------------------------------- *)
124 BEGIN
125 (*
126 * LEN(val) includes the terminating nul character.
127 * LEN(str$) does not include the nul character.
128 *)
136 (* -------------------------------------------- *)
142 BEGIN
153 (* Loop has been exitted. But for which reason? *)
161 (* -------------------------------------------- *)
167 BEGIN
178 (* Loop has been exitted. But for which reason? *)
186 (* -------------------------------------------- *)
189 BEGIN
193 (* ============================================================ *)
196 (* ============================================================ *)