Mercurial > vim

comparison src/if_perl.xs @ 3050:22550986c713 v7.3.297

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.3.297 Problem: Can't load Perl 5.14 dynamically. Solution: Add code in #ifdefs. (Charles Cooper)
author Bram Moolenaar <bram@vim.org>
date Wed, 07 Sep 2011 18:47:23 +0200
parents a56259157c93
children dec4338a7da2
comparison
equal deleted inserted replaced
3049:9ff11c3e217b 3050:22550986c713
145 # define Perl_pop_scope dll_Perl_pop_scope 145 # define Perl_pop_scope dll_Perl_pop_scope
146 # define Perl_push_scope dll_Perl_push_scope 146 # define Perl_push_scope dll_Perl_push_scope
147 # define Perl_save_int dll_Perl_save_int 147 # define Perl_save_int dll_Perl_save_int
148 # define Perl_stack_grow dll_Perl_stack_grow 148 # define Perl_stack_grow dll_Perl_stack_grow
149 # define Perl_set_context dll_Perl_set_context 149 # define Perl_set_context dll_Perl_set_context
150 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
151 # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags
152 # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck
153 # else
150 # define Perl_sv_2bool dll_Perl_sv_2bool 154 # define Perl_sv_2bool dll_Perl_sv_2bool
155 # endif
151 # define Perl_sv_2iv dll_Perl_sv_2iv 156 # define Perl_sv_2iv dll_Perl_sv_2iv
152 # define Perl_sv_2mortal dll_Perl_sv_2mortal 157 # define Perl_sv_2mortal dll_Perl_sv_2mortal
153 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) 158 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
154 # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags 159 # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags
155 # define Perl_sv_2pv_nolen dll_Perl_sv_2pv_nolen 160 # define Perl_sv_2pv_nolen dll_Perl_sv_2pv_nolen
250 static void (*Perl_pop_scope)(pTHX); 255 static void (*Perl_pop_scope)(pTHX);
251 static void (*Perl_push_scope)(pTHX); 256 static void (*Perl_push_scope)(pTHX);
252 static void (*Perl_save_int)(pTHX_ int*); 257 static void (*Perl_save_int)(pTHX_ int*);
253 static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int); 258 static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int);
254 static SV** (*Perl_set_context)(void*); 259 static SV** (*Perl_set_context)(void*);
260 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
261 static bool (*Perl_sv_2bool_flags)(pTHX_ SV*, I32);
262 static void (*Perl_xs_apiversion_bootcheck)(pTHX_ SV *module, const char *api_p, STRLEN api_len);
263 #else
255 static bool (*Perl_sv_2bool)(pTHX_ SV*); 264 static bool (*Perl_sv_2bool)(pTHX_ SV*);
265 #endif
256 static IV (*Perl_sv_2iv)(pTHX_ SV*); 266 static IV (*Perl_sv_2iv)(pTHX_ SV*);
257 static SV* (*Perl_sv_2mortal)(pTHX_ SV*); 267 static SV* (*Perl_sv_2mortal)(pTHX_ SV*);
258 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8) 268 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
259 static char* (*Perl_sv_2pv_flags)(pTHX_ SV*, STRLEN*, I32); 269 static char* (*Perl_sv_2pv_flags)(pTHX_ SV*, STRLEN*, I32);
260 static char* (*Perl_sv_2pv_nolen)(pTHX_ SV*); 270 static char* (*Perl_sv_2pv_nolen)(pTHX_ SV*);
358 {"Perl_pop_scope", (PERL_PROC*)&Perl_pop_scope}, 368 {"Perl_pop_scope", (PERL_PROC*)&Perl_pop_scope},
359 {"Perl_push_scope", (PERL_PROC*)&Perl_push_scope}, 369 {"Perl_push_scope", (PERL_PROC*)&Perl_push_scope},
360 {"Perl_save_int", (PERL_PROC*)&Perl_save_int}, 370 {"Perl_save_int", (PERL_PROC*)&Perl_save_int},
361 {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow}, 371 {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow},
362 {"Perl_set_context", (PERL_PROC*)&Perl_set_context}, 372 {"Perl_set_context", (PERL_PROC*)&Perl_set_context},
373 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
374 {"Perl_sv_2bool_flags", (PERL_PROC*)&Perl_sv_2bool_flags},
375 {"Perl_xs_apiversion_bootcheck",(PERL_PROC*)&Perl_xs_apiversion_bootcheck},
376 #else
363 {"Perl_sv_2bool", (PERL_PROC*)&Perl_sv_2bool}, 377 {"Perl_sv_2bool", (PERL_PROC*)&Perl_sv_2bool},
378 #endif
364 {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv}, 379 {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv},
365 {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal}, 380 {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal},
366 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8) 381 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
367 {"Perl_sv_2pv_flags", (PERL_PROC*)&Perl_sv_2pv_flags}, 382 {"Perl_sv_2pv_flags", (PERL_PROC*)&Perl_sv_2pv_flags},
368 {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen}, 383 {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen},
405 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr}, 420 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
406 #else 421 #else
407 {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2}, 422 {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
408 {"Perl_sys_init", (PERL_PROC*)&Perl_sys_init}, 423 {"Perl_sys_init", (PERL_PROC*)&Perl_sys_init},
409 {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term}, 424 {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term},
425 {"Perl_call_list", (PERL_PROC*)&Perl_call_list},
426 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
427 # else
410 {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr}, 428 {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr},
411 {"Perl_Istack_max_ptr", (PERL_PROC*)&Perl_Istack_max_ptr}, 429 {"Perl_Istack_max_ptr", (PERL_PROC*)&Perl_Istack_max_ptr},
412 {"Perl_Istack_base_ptr", (PERL_PROC*)&Perl_Istack_base_ptr}, 430 {"Perl_Istack_base_ptr", (PERL_PROC*)&Perl_Istack_base_ptr},
413 {"Perl_IXpv_ptr", (PERL_PROC*)&Perl_IXpv_ptr}, 431 {"Perl_IXpv_ptr", (PERL_PROC*)&Perl_IXpv_ptr},
414 {"Perl_Itmps_ix_ptr", (PERL_PROC*)&Perl_Itmps_ix_ptr}, 432 {"Perl_Itmps_ix_ptr", (PERL_PROC*)&Perl_Itmps_ix_ptr},
416 {"Perl_Ina_ptr", (PERL_PROC*)&Perl_Ina_ptr}, 434 {"Perl_Ina_ptr", (PERL_PROC*)&Perl_Ina_ptr},
417 {"Perl_Imarkstack_ptr_ptr", (PERL_PROC*)&Perl_Imarkstack_ptr_ptr}, 435 {"Perl_Imarkstack_ptr_ptr", (PERL_PROC*)&Perl_Imarkstack_ptr_ptr},
418 {"Perl_Imarkstack_max_ptr", (PERL_PROC*)&Perl_Imarkstack_max_ptr}, 436 {"Perl_Imarkstack_max_ptr", (PERL_PROC*)&Perl_Imarkstack_max_ptr},
419 {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr}, 437 {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr},
420 {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr}, 438 {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr},
421 {"Perl_call_list", (PERL_PROC*)&Perl_call_list},
422 {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr}, 439 {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr},
423 {"Perl_Iunitcheckav_ptr", (PERL_PROC*)&Perl_Iunitcheckav_ptr}, 440 {"Perl_Iunitcheckav_ptr", (PERL_PROC*)&Perl_Iunitcheckav_ptr},
424 #endif 441 # endif
442 #endif
443 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
444 #else
425 {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr}, 445 {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr},
426 {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr}, 446 {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr},
427 {"Perl_Isv_yes_ptr", (PERL_PROC*)&Perl_Isv_yes_ptr}, 447 {"Perl_Isv_yes_ptr", (PERL_PROC*)&Perl_Isv_yes_ptr},
448 {"Perl_Gthr_key_ptr", (PERL_PROC*)&Perl_Gthr_key_ptr},
449 #endif
428 {"boot_DynaLoader", (PERL_PROC*)&boot_DynaLoader}, 450 {"boot_DynaLoader", (PERL_PROC*)&boot_DynaLoader},
429 {"Perl_Gthr_key_ptr", (PERL_PROC*)&Perl_Gthr_key_ptr},
430 {"", NULL}, 451 {"", NULL},
431 }; 452 };
432 453
433 /* 454 /*
434 * Make all runtime-links of perl. 455 * Make all runtime-links of perl.