> Date: Fri, 27 Sep 2019 22:04:59 +0300
> From: Eli Zaretskii <[email protected]>
> Cc: [email protected]
>
> ..\tp\Texinfo\XS/.libs/Parsetexi.dll loaded
> looking for boot_Texinfo__Parser
> trying to call boot_Texinfo__Parser...
> ...succeeded
> Free to wrong pool 3f5f20 not 40f01ec at ..\tp/Texinfo/XSLoader.pm line
> 224, <$fh> line 8.
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?
