mirror of
https://github.com/vim/vim.git
synced 2025-09-23 03:43:49 -04:00
patch 8.2.1031: build failure with Perl5.32
Problem: Build failure with Perl5.32. Solution: Define a few more functions. (Felix Yan, closes #6310)
This commit is contained in:
@@ -658,6 +658,11 @@ S_SvREFCNT_dec(pTHX_ SV *sv)
|
||||
}
|
||||
# endif
|
||||
|
||||
/* perl-5.32 needs Perl_SvREFCNT_dec */
|
||||
# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
|
||||
# define Perl_SvREFCNT_dec S_SvREFCNT_dec
|
||||
# endif
|
||||
|
||||
/* perl-5.26 also needs S_TOPMARK and S_POPMARK. */
|
||||
# if (PERL_REVISION == 5) && (PERL_VERSION >= 26)
|
||||
PERL_STATIC_INLINE I32
|
||||
@@ -682,6 +687,20 @@ S_POPMARK(pTHX)
|
||||
}
|
||||
# endif
|
||||
|
||||
/* perl-5.32 needs Perl_POPMARK */
|
||||
# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
|
||||
# define Perl_POPMARK S_POPMARK
|
||||
|
||||
/* perl-5.32 needs Perl_SvTRUE */
|
||||
PERL_STATIC_INLINE bool
|
||||
Perl_SvTRUE(pTHX_ SV *sv) {
|
||||
if (!LIKELY(sv))
|
||||
return FALSE;
|
||||
SvGETMAGIC(sv);
|
||||
return SvTRUE_nomg_NN(sv);
|
||||
}
|
||||
# endif
|
||||
|
||||
/*
|
||||
* Make all runtime-links of perl.
|
||||
*
|
||||
|
Reference in New Issue
Block a user