diff options
| author | Bram Moolenaar <Bram@vim.org> | 2020-06-21 20:06:54 +0200 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2020-06-21 20:06:54 +0200 |
| commit | f5433fbfe4324fd443664fb924116b5ed675bef5 (patch) | |
| tree | 59f9c99a89ef94eed9eef02e848376e20fdce3a6 /src/if_perl.xs | |
| parent | da58134eedf43ae4b9013c93ecbdf55e4da4b8a3 (diff) | |
patch 8.2.1031: build failure with Perl5.32v8.2.1031
Problem: Build failure with Perl5.32.
Solution: Define a few more functions. (Felix Yan, closes #6310)
Diffstat (limited to 'src/if_perl.xs')
| -rw-r--r-- | src/if_perl.xs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index 9a99fc08fc..bf269cbcb0 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -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. * |