STATIC void croak_for_this_reason(pTHX_ ...) {
   dVAR;
   ...
   Perl_croak(aTHX_ ...);
}

croak_for_this_reason(aTHX_ ...);