Hi,
2016/5/25 Wed 13:25:44 UTC+9 Ken Takata wrote:
> Hi tux.,
>
> 2016/5/25 Wed 7:27:04 UTC+9 tux. wrote:
> > Well ...
> >
> > > if_perl.obj : error LNK2001: Nicht aufgelöstes externes Symbol
> > > "__imp__Perl_savetmps".
> > > gvim.exe : fatal error LNK1120: 1 nicht aufgelöste externe Verweise.
> >
> > :-(
>
> How about trying Damien's patch for Perl 5.22.2?
> https://groups.google.com/d/msg/vim_dev/xLXIFC8p3EY/VaEapvJ-BAAJ
OK, it seems that another patch is needed.
Please apply the attached patch after Damien's patch.
Both patches are needed.
Regards,
Ken Takata
--
--
You received this message from the "vim_dev" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php
---
You received this message because you are subscribed to the Google Groups
"vim_dev" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
# HG changeset patch
# Parent 92c8a94dcae85ab884362a5da2d4103522bcaa62
diff --git a/src/if_perl.xs b/src/if_perl.xs
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -299,6 +299,9 @@ typedef int perl_key;
# define PerlIOBase_pushed dll_PerlIOBase_pushed
# define PerlIO_define_layer dll_PerlIO_define_layer
# endif
+# if (PERL_REVISION == 5) && (PERL_VERSION >= 24)
+# define Perl_savetmps dll_Perl_savetmps
+# endif
/*
* Declare HANDLE for perl.dll and function pointers.
@@ -455,6 +458,9 @@ static NV (*Perl_sv_2nv_flags)(pTHX_ SV
static IV (*PerlIOBase_pushed)(pTHX_ PerlIO *, const char *, SV *, PerlIO_funcs *);
static void (*PerlIO_define_layer)(pTHX_ PerlIO_funcs *);
#endif
+#if (PERL_REVISION == 5) && (PERL_VERSION >= 24)
+static void (*Perl_savetmps)(pTHX);
+#endif
/*
* Table of name to function pointer of perl.
@@ -598,6 +604,9 @@ static struct {
{"PerlIOBase_pushed", (PERL_PROC*)&PerlIOBase_pushed},
{"PerlIO_define_layer", (PERL_PROC*)&PerlIO_define_layer},
#endif
+#if (PERL_REVISION == 5) && (PERL_VERSION >= 24)
+ {"Perl_savetmps", (PERL_PROC*)&Perl_savetmps},
+#endif
{"", NULL},
};
