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

croak_for_this_reason(aTHX_ ...);

##</code><code>##

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

croak_for_this_reason(aTHX_ ...);

##</code><code>##

STATIC void croak_for_this_reason(pTHX_ ...) {
#define croak_for_this_reason(...) croak_for_this_reason(aTHX_ ...)
   ...
   croak(...);
}

croak_for_this_reason(...);