Re: Texinfo 6.7 released

[Eli Zaretskii]

> Date: Fri, 27 Sep 2019 22:04:59 +0300
> From: Eli Zaretskii <address@hidden>
> Cc: address@hidden
> 
>   ..\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?