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