49 lines
1.7 KiB
Diff
49 lines
1.7 KiB
Diff
From 895a7a472d2eb4413e63cdad3213cb1ef1633458 Mon Sep 17 00:00:00 2001
|
|
From: Bram Moolenaar <Bram@vim.org>
|
|
Date: Thu, 10 Sep 2020 21:36:11 +0200
|
|
Subject: [PATCH] patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
|
|
|
|
Problem: Cannot build with Strawberry Perl 5.32.0.
|
|
Solution: Use Perl_sv_2pvbyte_flags. (closes #6921)
|
|
---
|
|
src/if_perl.xs | 9 +++++++++
|
|
1 file changed, 9 insertions(+)
|
|
|
|
diff --git a/src/if_perl.xs b/src/if_perl.xs
|
|
index 2049509..9f59d39 100644
|
|
--- a/src/if_perl.xs
|
|
+++ b/src/if_perl.xs
|
|
@@ -236,6 +236,9 @@ typedef int perl_key;
|
|
# else
|
|
# define Perl_sv_2pv dll_Perl_sv_2pv
|
|
# endif
|
|
+# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
|
|
+# define Perl_sv_2pvbyte_flags dll_Perl_sv_2pvbyte_flags
|
|
+# endif
|
|
# define Perl_sv_2pvbyte dll_Perl_sv_2pvbyte
|
|
# define Perl_sv_bless dll_Perl_sv_bless
|
|
# if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
|
|
@@ -390,6 +393,9 @@ static char* (*Perl_sv_2pv_nolen)(pTHX_ SV*);
|
|
static char* (*Perl_sv_2pv)(pTHX_ SV*, STRLEN*);
|
|
# endif
|
|
static char* (*Perl_sv_2pvbyte)(pTHX_ SV*, STRLEN*);
|
|
+# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
|
|
+static char* (*Perl_sv_2pvbyte_flags)(pTHX_ SV*, STRLEN*, I32);
|
|
+# endif
|
|
static SV* (*Perl_sv_bless)(pTHX_ SV*, HV*);
|
|
# if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
|
|
static void (*Perl_sv_catpvn_flags)(pTHX_ SV* , const char*, STRLEN, I32);
|
|
@@ -546,6 +552,9 @@ static struct {
|
|
{"Perl_sv_2pv", (PERL_PROC*)&Perl_sv_2pv},
|
|
# endif
|
|
{"Perl_sv_2pvbyte", (PERL_PROC*)&Perl_sv_2pvbyte},
|
|
+# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
|
|
+ {"Perl_sv_2pvbyte_flags", (PERL_PROC*)&Perl_sv_2pvbyte_flags},
|
|
+# endif
|
|
# ifdef PERL589_OR_LATER
|
|
{"Perl_sv_2iv_flags", (PERL_PROC*)&Perl_sv_2iv_flags},
|
|
{"Perl_newXS_flags", (PERL_PROC*)&Perl_newXS_flags},
|
|
--
|
|
2.13.7
|
|
|