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