Source position: tcl80.pp line 617
type Tcl_HashCreateProc = function(
tablePtr: PTcl_HashTable;
key: PChar;
newPtr: PInteger
):PTcl_HashEntry;