while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
       PERL_ASYNC_CHECK();
   }

##</code><code>##

   while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {}