Source position: tcl80.pp line 848
procedure Tcl_SetAssocData(
interp: PTcl_Interp;
key: PAnsiChar;
proc: TTclInterpDeleteProc;
clientData: Tcl_ClientData
);