Mercurial > vim
comparison src/if_perl.xs @ 3050:22550986c713 v7.3.297
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. |