Source position: compproc.inc line 246
function fpc_do_as(
aclass: TClass;
aobject: TObject
):TObject;