Mercurial > vim

comparison src/if_perl.xs @ 2096:6510d834609f v7.2.380

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.2.380 Problem: Perl interface builds with 5.10.1 but not with 5.10.0. Solution: Change the #ifdefs. (Sergey Khorev)
author Bram Moolenaar <bram@zimbu.org>
date Tue, 02 Mar 2010 15:14:33 +0100
parents 5abd3e3c0085
children e5265e4d4725
comparison
equal deleted inserted replaced
2095:8aa3cd045aef 2096:6510d834609f
60 #endif 60 #endif
61 #if (PERL_REVISION == 5) && (PERL_VERSION >= 9) 61 #if (PERL_REVISION == 5) && (PERL_VERSION >= 9)
62 # define PERL589_OR_LATER 62 # define PERL589_OR_LATER
63 #endif 63 #endif
64 64
65 #if (PERL_REVISION == 5) && ((PERL_VERSION > 10) || \
66 (PERL_VERSION == 10) && (PERL_SUBVERSION >= 1))
67 # define PERL5101_OR_LATER
68 #endif
69
65 #ifndef pTHX 70 #ifndef pTHX
66 # define pTHX void 71 # define pTHX void
67 # define pTHX_ 72 # define pTHX_
68 #endif 73 #endif
69 74
91 # define perl_run dll_perl_run 96 # define perl_run dll_perl_run
92 # define perl_destruct dll_perl_destruct 97 # define perl_destruct dll_perl_destruct
93 # define perl_free dll_perl_free 98 # define perl_free dll_perl_free
94 # define Perl_get_context dll_Perl_get_context 99 # define Perl_get_context dll_Perl_get_context
95 # define Perl_croak dll_Perl_croak 100 # define Perl_croak dll_Perl_croak
96 # if (PERL_REVISION == 5) && (PERL_VERSION >= 10) 101 # ifdef PERL5101_OR_LATER
97 # define Perl_croak_xs_usage dll_Perl_croak_xs_usage 102 # define Perl_croak_xs_usage dll_Perl_croak_xs_usage
98 # endif 103 # endif
99 # ifndef PROTO 104 # ifndef PROTO
100 # define Perl_croak_nocontext dll_Perl_croak_nocontext 105 # define Perl_croak_nocontext dll_Perl_croak_nocontext
101 # define Perl_call_argv dll_Perl_call_argv 106 # define Perl_call_argv dll_Perl_call_argv
203 static void (*perl_free)(PerlInterpreter*); 208 static void (*perl_free)(PerlInterpreter*);
204 static int (*perl_run)(PerlInterpreter*); 209 static int (*perl_run)(PerlInterpreter*);
205 static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**); 210 static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**);
206 static void* (*Perl_get_context)(void); 211 static void* (*Perl_get_context)(void);
207 static void (*Perl_croak)(pTHX_ const char*, ...); 212 static void (*Perl_croak)(pTHX_ const char*, ...);
208 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10) 213 #ifdef PERL5101_OR_LATER
209 static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params); 214 static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params);
210 #endif 215 #endif
211 static void (*Perl_croak_nocontext)(const char*, ...); 216 static void (*Perl_croak_nocontext)(const char*, ...);
212 static I32 (*Perl_dowantarray)(pTHX); 217 static I32 (*Perl_dowantarray)(pTHX);
213 static void (*Perl_free_tmps)(pTHX); 218 static void (*Perl_free_tmps)(pTHX);
310 {"perl_free", (PERL_PROC*)&perl_free}, 315 {"perl_free", (PERL_PROC*)&perl_free},
311 {"perl_run", (PERL_PROC*)&perl_run}, 316 {"perl_run", (PERL_PROC*)&perl_run},
312 {"perl_parse", (PERL_PROC*)&perl_parse}, 317 {"perl_parse", (PERL_PROC*)&perl_parse},
313 {"Perl_get_context", (PERL_PROC*)&Perl_get_context}, 318 {"Perl_get_context", (PERL_PROC*)&Perl_get_context},
314 {"Perl_croak", (PERL_PROC*)&Perl_croak}, 319 {"Perl_croak", (PERL_PROC*)&Perl_croak},
315 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10) 320 #ifdef PERL5101_OR_LATER
316 {"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage}, 321 {"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage},
317 #endif 322 #endif
318 {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext}, 323 {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext},
319 {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray}, 324 {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray},
320 {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps}, 325 {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps},