Projects
Mega:23.09
vim
_service:tar_scm:backport-fix-build-failed-due-...
Sign Up
Log In
Username
Password
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File _service:tar_scm:backport-fix-build-failed-due-to-Perl-upgrade.patch of Package vim
From 0212089f2742173bbb6b8f1c62b19cb9795629d4 Mon Sep 17 00:00:00 2001 From: Philip H <47042125+pheiduck@users.noreply.github.com> Date: Thu, 22 Jun 2023 08:55:47 +0200 Subject: [PATCH] fix build failed due to Perl upgrade Solution: https://github.com/vim/vim/pull/12575 --- src/if_perl.xs | 14 +++++++------- 1 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/if_perl.xs b/src/if_perl.xs index 1afb1d4..9dbfdab 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -40,7 +40,7 @@ /* Work around for perl-5.18. * Don't include "perl\lib\CORE\inline.h" for now, * include it after Perl_sv_free2 is defined. */ -#ifdef DYNAMIC_PERL +#if (PERL_REVISION == 5) && (PERL_VERSION >= 18) # define PERL_NO_INLINE_FUNCTIONS #endif @@ -397,14 +397,14 @@ static bool (*Perl_sv_2bool)(pTHX_ SV*); static IV (*Perl_sv_2iv)(pTHX_ SV*); static SV* (*Perl_sv_2mortal)(pTHX_ SV*); # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) -static char* (*Perl_sv_2pv_flags)(pTHX_ SV*, STRLEN*, I32); +static char* (*Perl_sv_2pv_flags)(pTHX_ SV*, STRLEN* const, const U32); static char* (*Perl_sv_2pv_nolen)(pTHX_ SV*); # else 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); +static char* (*Perl_sv_2pvbyte_flags)(pTHX_ SV*, STRLEN* const, const U32); # endif static SV* (*Perl_sv_bless)(pTHX_ SV*, HV*); # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) @@ -705,7 +705,7 @@ S_POPMARK(pTHX) # endif /* perl-5.34 needs Perl_SvTRUE_common; used in SvTRUE_nomg_NN */ -# if (PERL_REVISION == 5) && (PERL_VERSION >= 34) +# if (PERL_REVISION == 5) && (PERL_VERSION == 34) PERL_STATIC_INLINE bool Perl_SvTRUE_common(pTHX_ SV * sv, const bool sv_2bool_is_fallback) { @@ -732,7 +732,7 @@ Perl_SvTRUE_common(pTHX_ SV * sv, const bool sv_2bool_is_fallback) # endif /* perl-5.32 needs Perl_SvTRUE */ -# if (PERL_REVISION == 5) && (PERL_VERSION >= 32) +# if (PERL_REVISION == 5) && (PERL_VERSION == 32) PERL_STATIC_INLINE bool Perl_SvTRUE(pTHX_ SV *sv) { if (!LIKELY(sv)) @@ -1645,7 +1645,7 @@ Buffers(...) PPCODE: if (items == 0) { - if (GIMME == G_SCALAR) + if (GIMME_V == G_SCALAR) { i = 0; FOR_ALL_BUFFERS(vimbuf) @@ -1696,7 +1696,7 @@ Windows(...) PPCODE: if (items == 0) { - if (GIMME == G_SCALAR) + if (GIMME_V == G_SCALAR) XPUSHs(sv_2mortal(newSViv(win_count()))); else { -- 2.33.0
Locations
Projects
Search
Status Monitor
Help
Open Build Service
OBS Manuals
API Documentation
OBS Portal
Reporting a Bug
Contact
Mailing List
Forums
Chat (IRC)
Twitter
Open Build Service (OBS)
is an
openSUSE project
.
浙ICP备2022010568号-2