Source position: tcl80.pp line 790
function Tcl_LinkVar(
interp: PTcl_Interp;
varName: PChar;
var addr;
typ: Integer
):Integer;