Source position: tcl80.pp line 847
procedure Tcl_DeleteAssocData(
interp: PTcl_Interp;
key: PAnsiChar
);