50 lines
1.2 KiB
Diff
50 lines
1.2 KiB
Diff
From f5433fbfe4324fd443664fb924116b5ed675bef5 Mon Sep 17 00:00:00 2001
|
|
From: Bram Moolenaar <Bram@vim.org>
|
|
Date: Sun, 21 Jun 2020 20:06:54 +0200
|
|
Subject: [PATCH] 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)
|
|
---
|
|
src/if_perl.xs | 19 +++++++++++++++++++
|
|
1 file changed, 19 insertions(+)
|
|
|
|
diff --git a/src/if_perl.xs b/src/if_perl.xs
|
|
index 099d386..5adccce 100644
|
|
--- a/src/if_perl.xs
|
|
+++ b/src/if_perl.xs
|
|
@@ -651,6 +651,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
|
|
@@ -675,6 +680,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.
|
|
*
|
|
--
|
|
2.27.0
|