Source position: tcl80.pp line 634
type Tcl_HashSearch = packed record
tablePtr: PTcl_HashTable;
nextIndex: Integer;
nextEntryPtr: PTcl_HashEntry;
end;