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