diff options
Diffstat (limited to 'data/vim/patches/8.1.0203')
| -rw-r--r-- | data/vim/patches/8.1.0203 | 132 |
1 files changed, 0 insertions, 132 deletions
diff --git a/data/vim/patches/8.1.0203 b/data/vim/patches/8.1.0203 deleted file mode 100644 index 5b07544a8..000000000 --- a/data/vim/patches/8.1.0203 +++ /dev/null @@ -1,132 +0,0 @@ -To: vim_dev@googlegroups.com -Subject: Patch 8.1.0203 -Fcc: outbox -From: Bram Moolenaar <Bram@moolenaar.net> -Mime-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit ------------- - -Patch 8.1.0203 -Problem: Building with Perl 5.28 fails on Windows. -Solution: Define Perl_mg_get. (closes #3196) -Files: src/if_perl.xs - - -*** ../vim-8.1.0202/src/if_perl.xs 2018-07-16 17:45:16.998502685 +0200 ---- src/if_perl.xs 2018-07-22 06:13:58.852007931 +0200 -*************** -*** 199,204 **** ---- 199,207 ---- - # define Perl_gv_stashpv dll_Perl_gv_stashpv - # define Perl_markstack_grow dll_Perl_markstack_grow - # define Perl_mg_find dll_Perl_mg_find -+ # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) -+ # define Perl_mg_get dll_Perl_mg_get -+ # endif - # define Perl_newXS dll_Perl_newXS - # define Perl_newSV dll_Perl_newSV - # define Perl_newSViv dll_Perl_newSViv -*************** -*** 342,347 **** ---- 345,353 ---- - static void (*Perl_markstack_grow)(pTHX); - # endif - static MAGIC* (*Perl_mg_find)(pTHX_ SV*, int); -+ # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) -+ static int (*Perl_mg_get)(pTHX_ SV*); -+ # endif - static CV* (*Perl_newXS)(pTHX_ char*, XSUBADDR_t, char*); - static SV* (*Perl_newSV)(pTHX_ STRLEN); - static SV* (*Perl_newSViv)(pTHX_ IV); -*************** -*** 494,499 **** ---- 500,508 ---- - {"Perl_gv_stashpv", (PERL_PROC*)&Perl_gv_stashpv}, - {"Perl_markstack_grow", (PERL_PROC*)&Perl_markstack_grow}, - {"Perl_mg_find", (PERL_PROC*)&Perl_mg_find}, -+ # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) -+ {"Perl_mg_get", (PERL_PROC*)&Perl_mg_get}, -+ # endif - {"Perl_newXS", (PERL_PROC*)&Perl_newXS}, - {"Perl_newSV", (PERL_PROC*)&Perl_newSV}, - {"Perl_newSViv", (PERL_PROC*)&Perl_newSViv}, -*************** -*** 862,869 **** - { - if (wp->w_perl_private && perl_interp != NULL) - { -! SV *sv = (SV*)wp->w_perl_private; -! D_Save_Sv(sv); - sv_setiv(sv, 0); - SvREFCNT_dec(sv); - } ---- 871,878 ---- - { - if (wp->w_perl_private && perl_interp != NULL) - { -! SV *sv = (SV*)wp->w_perl_private; -! D_Save_Sv(sv); - sv_setiv(sv, 0); - SvREFCNT_dec(sv); - } -*************** -*** 875,882 **** - { - if (bp->b_perl_private && perl_interp != NULL) - { -! SV *sv = (SV *)bp->b_perl_private; -! D_Save_Sv(sv); - sv_setiv(sv, 0); - SvREFCNT_dec(sv); - } ---- 884,891 ---- - { - if (bp->b_perl_private && perl_interp != NULL) - { -! SV *sv = (SV *)bp->b_perl_private; -! D_Save_Sv(sv); - sv_setiv(sv, 0); - SvREFCNT_dec(sv); - } -*************** -*** 911,919 **** - - if (SvRV(sv) == SvRV(rv)) - SvREFCNT_dec(SvRV(rv)); -! else /* XXX: Not sure if the `else` condition are right -! * Test_SvREFCNT() pass in all case. -! */ - sv_setsv(sv, rv); - - return 0; ---- 920,927 ---- - - if (SvRV(sv) == SvRV(rv)) - SvREFCNT_dec(SvRV(rv)); -! else // XXX: Not sure if the `else` condition are right -! // Test_SvREFCNT() pass in all case. - sv_setsv(sv, rv); - - return 0; -*** ../vim-8.1.0202/src/version.c 2018-07-22 05:08:06.827299787 +0200 ---- src/version.c 2018-07-22 06:40:39.675217593 +0200 -*************** -*** 795,796 **** ---- 795,798 ---- - { /* Add new patch number below this line */ -+ /**/ -+ 203, - /**/ - --- - GALAHAD turns back. We see from his POV the lovely ZOOT standing by him - smiling enchantingly and a number of equally delectable GIRLIES draped - around in the seductively poulticed room. They look at him smilingly and - wave. - "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD - - /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ -/// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ -\\\ an exciting new programming language -- http://www.Zimbu.org /// - \\\ help me help AIDS victims -- http://ICCF-Holland.org /// |