[arch-commits] Commit in vim/trunk (vim-perl-5.32.patch)

[Felix Yan]

    Date: Sunday, June 21, 2020 @ 16:01:42
  Author: felixonmars
Revision: 389882

add missing patch

Added:
  vim/trunk/vim-perl-5.32.patch

---------------------+
 vim-perl-5.32.patch |   35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

Added: vim-perl-5.32.patch
===================================================================
--- vim-perl-5.32.patch	                        (rev 0)
+++ vim-perl-5.32.patch	2020-06-21 16:01:42 UTC (rev 389882)
@@ -0,0 +1,35 @@
+--- src/if_perl.xs.orig	2020-05-24 01:30:05.000000000 +0800
++++ src/if_perl.xs	2020-06-21 23:45:11.458638749 +0800
+@@ -656,6 +656,10 @@
+ 	    Perl_sv_free2(aTHX_ sv, rc);
+     }
+ }
++/* perl-5.32 needs Perl_SvREFCNT_dec */
++# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
++#define Perl_SvREFCNT_dec S_SvREFCNT_dec
++# endif
+ # endif
+ 
+ /* perl-5.26 also needs S_TOPMARK and S_POPMARK. */
+@@ -680,6 +684,21 @@
+     assert((PL_markstack_ptr > PL_markstack) || !"MARK underflow");
+     return *PL_markstack_ptr--;
+ }
++/* perl-5.32 needs Perl_POPMARK */
++# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
++#define Perl_POPMARK S_POPMARK
++# endif
++# endif
++
++/* perl-5.32 needs Perl_SvTRUE */
++# if (PERL_REVISION == 5) && (PERL_VERSION >= 32)
++PERL_STATIC_INLINE bool
++Perl_SvTRUE(pTHX_ SV *sv) {
++    if (!LIKELY(sv))
++        return FALSE;
++    SvGETMAGIC(sv);
++    return SvTRUE_nomg_NN(sv);
++}
+ # endif
+ 
+ /*