Source position: tcl80.pp line 806
procedure Tcl_SetResult(
interp: PTcl_Interp;
newValue: PChar;
freeProc: TTclFreeProc
);