diff options
Diffstat (limited to 'src/if_perl.xs')
-rw-r--r-- | src/if_perl.xs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index 3af309a65..015189cc0 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -195,7 +195,9 @@ typedef int perl_key; # define Perl_croak_xs_usage dll_Perl_croak_xs_usage # endif # ifndef PROTO -# define Perl_croak_nocontext dll_Perl_croak_nocontext +# ifdef PERL_IMPLICIT_CONTEXT +# define Perl_croak_nocontext dll_Perl_croak_nocontext +# endif # define Perl_call_argv dll_Perl_call_argv # define Perl_call_pv dll_Perl_call_pv # define Perl_eval_sv dll_Perl_eval_sv @@ -345,7 +347,9 @@ static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const para __attribute__noreturn__; # endif # endif +# ifdef PERL_IMPLICIT_CONTEXT static void (*Perl_croak_nocontext)(const char*, ...) __attribute__noreturn__; +# endif static I32 (*Perl_dowantarray)(pTHX); static void (*Perl_free_tmps)(pTHX); static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32); |