Source position: tcl80.pp line 781
procedure Tcl_AddErrorInfo(
interp: PTcl_Interp;
message: PChar
);