Source position: tcl80.pp line 604
type Tcl_HashEntry = packed record
nextPtr: PTcl_HashEntry;
tablePtr: PTcl_HashTable;
bucketPtr: PPTcl_HashEntry;
clientData: Tcl_ClientData;
key: array [0..3] of Char;
end;