Source position: pastree.pp line 1530
public function TPasImplBlock.AddWhileDo(
const ACondition: TPasExpr
):TPasImplWhileDo;