Tcl_HashTable

type Tcl_HashTable = packed record

  buckets: PPTcl_HashEntry;

  staticBuckets: array [0..TCL_SMALL_HASH_TABLE-1] of PTcl_HashEntry;

  numBuckets: Integer;

  numEntries: Integer;

  rebuildSize: Integer;

  downShift: Integer;

  mask: Integer;

  keyType: Integer;

  findProc: Tcl_HashFindProc;

  createProc: Tcl_HashCreateProc;

end;