Mercurial > vim

comparison src/if_perl.xs @ 6872:64ff14cbb665 v7.4.756

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 7.4.756 Problem: Can't use strawberry Perl 5.22 x64 on MS-Windows. Solution: Add new defines and #if. (Ken Takata)
author Bram Moolenaar <bram@vim.org>
date Thu, 25 Jun 2015 16:13:46 +0200
parents c052937aae8c
children 42717d048817
comparison
equal deleted inserted replaced
6871:644d290a906a 6872:64ff14cbb665
195 # define Perl_save_strlen dll_Perl_save_strlen 195 # define Perl_save_strlen dll_Perl_save_strlen
196 # endif 196 # endif
197 # define Perl_stack_grow dll_Perl_stack_grow 197 # define Perl_stack_grow dll_Perl_stack_grow
198 # define Perl_set_context dll_Perl_set_context 198 # define Perl_set_context dll_Perl_set_context
199 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) 199 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
200 # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags 200 # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags
201 # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck 201 # if (PERL_REVISION == 5) && (PERL_VERSION < 22)
202 # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck
203 # endif
202 # else 204 # else
203 # define Perl_sv_2bool dll_Perl_sv_2bool 205 # define Perl_sv_2bool dll_Perl_sv_2bool
204 # endif 206 # endif
205 # define Perl_sv_2iv dll_Perl_sv_2iv 207 # define Perl_sv_2iv dll_Perl_sv_2iv
206 # define Perl_sv_2mortal dll_Perl_sv_2mortal 208 # define Perl_sv_2mortal dll_Perl_sv_2mortal
207 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) 209 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
208 # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags 210 # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags
266 # define Perl_Istack_sp_ptr dll_Perl_Istack_sp_ptr 268 # define Perl_Istack_sp_ptr dll_Perl_Istack_sp_ptr
267 # define Perl_Iop_ptr dll_Perl_Iop_ptr 269 # define Perl_Iop_ptr dll_Perl_Iop_ptr
268 # define Perl_call_list dll_Perl_call_list 270 # define Perl_call_list dll_Perl_call_list
269 # define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr 271 # define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr
270 # define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr 272 # define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr
273 # if (PERL_REVISION == 5) && (PERL_VERSION >= 22)
274 # define Perl_xs_handshake dll_Perl_xs_handshake
275 # define Perl_xs_boot_epilog dll_Perl_xs_boot_epilog
276 # endif
271 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) 277 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
272 # ifdef USE_ITHREADS 278 # ifdef USE_ITHREADS
273 # define PL_thr_key *dll_PL_thr_key 279 # define PL_thr_key *dll_PL_thr_key
274 # endif 280 # endif
275 # endif 281 # endif
297 #endif 303 #endif
298 static void (*Perl_croak_nocontext)(const char*, ...); 304 static void (*Perl_croak_nocontext)(const char*, ...);
299 static I32 (*Perl_dowantarray)(pTHX); 305 static I32 (*Perl_dowantarray)(pTHX);
300 static void (*Perl_free_tmps)(pTHX); 306 static void (*Perl_free_tmps)(pTHX);
301 static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32); 307 static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32);
308 #if (PERL_REVISION == 5) && (PERL_VERSION >= 22)
309 static I32* (*Perl_markstack_grow)(pTHX);
310 #else
302 static void (*Perl_markstack_grow)(pTHX); 311 static void (*Perl_markstack_grow)(pTHX);
312 #endif
303 static MAGIC* (*Perl_mg_find)(pTHX_ SV*, int); 313 static MAGIC* (*Perl_mg_find)(pTHX_ SV*, int);
304 static CV* (*Perl_newXS)(pTHX_ char*, XSUBADDR_t, char*); 314 static CV* (*Perl_newXS)(pTHX_ char*, XSUBADDR_t, char*);
305 static SV* (*Perl_newSV)(pTHX_ STRLEN); 315 static SV* (*Perl_newSV)(pTHX_ STRLEN);
306 static SV* (*Perl_newSViv)(pTHX_ IV); 316 static SV* (*Perl_newSViv)(pTHX_ IV);
307 static SV* (*Perl_newSVpv)(pTHX_ const char*, STRLEN); 317 static SV* (*Perl_newSVpv)(pTHX_ const char*, STRLEN);
319 #endif 329 #endif
320 static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int); 330 static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int);
321 static SV** (*Perl_set_context)(void*); 331 static SV** (*Perl_set_context)(void*);
322 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14) 332 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
323 static bool (*Perl_sv_2bool_flags)(pTHX_ SV*, I32); 333 static bool (*Perl_sv_2bool_flags)(pTHX_ SV*, I32);
334 # if (PERL_REVISION == 5) && (PERL_VERSION < 22)
324 static void (*Perl_xs_apiversion_bootcheck)(pTHX_ SV *module, const char *api_p, STRLEN api_len); 335 static void (*Perl_xs_apiversion_bootcheck)(pTHX_ SV *module, const char *api_p, STRLEN api_len);
336 # endif
325 #else 337 #else
326 static bool (*Perl_sv_2bool)(pTHX_ SV*); 338 static bool (*Perl_sv_2bool)(pTHX_ SV*);
327 #endif 339 #endif
328 static IV (*Perl_sv_2iv)(pTHX_ SV*); 340 static IV (*Perl_sv_2iv)(pTHX_ SV*);
329 static SV* (*Perl_sv_2mortal)(pTHX_ SV*); 341 static SV* (*Perl_sv_2mortal)(pTHX_ SV*);
391 static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*); 403 static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*);
392 static OP** (*Perl_Iop_ptr)(register PerlInterpreter*); 404 static OP** (*Perl_Iop_ptr)(register PerlInterpreter*);
393 static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*); 405 static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*);
394 static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*); 406 static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*);
395 # endif 407 # endif
408 #endif
409 #if (PERL_REVISION == 5) && (PERL_VERSION >= 22)
410 static I32 (*Perl_xs_handshake)(const U32, void *, const char *, ...);
411 static void (*Perl_xs_boot_epilog)(pTHX_ const U32);
396 #endif 412 #endif
397 413
398 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14) 414 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
399 # ifdef USE_ITHREADS 415 # ifdef USE_ITHREADS
400 static perl_key* dll_PL_thr_key; 416 static perl_key* dll_PL_thr_key;
451 #endif 467 #endif
452 {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow}, 468 {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow},
453 {"Perl_set_context", (PERL_PROC*)&Perl_set_context}, 469 {"Perl_set_context", (PERL_PROC*)&Perl_set_context},
454 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14) 470 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
455 {"Perl_sv_2bool_flags", (PERL_PROC*)&Perl_sv_2bool_flags}, 471 {"Perl_sv_2bool_flags", (PERL_PROC*)&Perl_sv_2bool_flags},
472 # if (PERL_REVISION == 5) && (PERL_VERSION < 22)
456 {"Perl_xs_apiversion_bootcheck",(PERL_PROC*)&Perl_xs_apiversion_bootcheck}, 473 {"Perl_xs_apiversion_bootcheck",(PERL_PROC*)&Perl_xs_apiversion_bootcheck},
474 # endif
457 #else 475 #else
458 {"Perl_sv_2bool", (PERL_PROC*)&Perl_sv_2bool}, 476 {"Perl_sv_2bool", (PERL_PROC*)&Perl_sv_2bool},
459 #endif 477 #endif
460 {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv}, 478 {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv},
461 {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal}, 479 {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal},
519 {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr}, 537 {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr},
520 {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr}, 538 {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr},
521 {"Perl_Iunitcheckav_ptr", (PERL_PROC*)&Perl_Iunitcheckav_ptr}, 539 {"Perl_Iunitcheckav_ptr", (PERL_PROC*)&Perl_Iunitcheckav_ptr},
522 # endif 540 # endif
523 #endif 541 #endif
542 #if (PERL_REVISION == 5) && (PERL_VERSION >= 22)
543 {"Perl_xs_handshake", (PERL_PROC*)&Perl_xs_handshake},
544 {"Perl_xs_boot_epilog", (PERL_PROC*)&Perl_xs_boot_epilog},
545 #endif
524 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14) 546 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
525 # ifdef USE_ITHREADS 547 # ifdef USE_ITHREADS
526 {"PL_thr_key", (PERL_PROC*)&dll_PL_thr_key}, 548 {"PL_thr_key", (PERL_PROC*)&dll_PL_thr_key},
527 # endif 549 # endif
528 #else 550 #else