Source position: tcl80.pp line 920
function Tcl_GlobalEvalObj(
interp: PTcl_Interp;
pObj: PTcl_Obj
):Integer;