On Fri, Sep 27, 2019 at 8:21 PM Eli Zaretskii <[email protected]> wrote:
> I see this in boot_Texinfo__Parser:
>
>   XS_EXTERNAL(boot_Texinfo__Parser); /* prototype to pass 
> -Wmissing-prototypes */
>   XS_EXTERNAL(boot_Texinfo__Parser)
>   {
>   #if PERL_VERSION_LE(5, 21, 5)
>       dVAR; dXSARGS;
>   #else
>       dVAR; dXSBOOTARGSXSAPIVERCHK;
>   #endif
>   [...]
>   #if PERL_VERSION_LE(5, 21, 5)
>       XS_VERSION_BOOTCHECK;
>   #  ifdef XS_APIVERSION_BOOTCHECK
>       XS_APIVERSION_BOOTCHECK;
>   #  endif
>   #endif
>   [...]
>   #if PERL_VERSION_LE(5, 21, 5)
>   #  if PERL_VERSION_GE(5, 9, 0)
>       if (PL_unitcheckav)
>           call_list(PL_scopestack_ix, PL_unitcheckav);
>   #  endif
>       XSRETURN_YES;
>   #else
>       Perl_xs_boot_epilog(aTHX_ ax);
>   #endif
>
> I cannot check right now, but I think the version of Perl on the
> system where I built the pretest was indeed above 5.21.5.
>
> What is the conditional code above about?  Why is it needed?

I don't know: that code is automatically generated by xsubpp from Parsetexi.xs.

Reply via email to