home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 7.3 / 7.3.297 < prev    next >
Encoding:
Internet Message Format  |  2012-11-20  |  5.0 KB
  1. To: vim_dev@googlegroups.com
  2. Subject: Patch 7.3.297
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=UTF-8
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 7.3.297
  11. Problem:    Can't load Perl 5.14 dynamically.
  12. Solution:   Add code in #ifdefs. (Charles Cooper)
  13. Files:        if_perl.xs
  14.  
  15.  
  16. *** ../vim-7.3.296/src/if_perl.xs    2011-07-27 14:15:41.000000000 +0200
  17. --- src/if_perl.xs    2011-09-07 18:47:07.000000000 +0200
  18. ***************
  19. *** 147,153 ****
  20. --- 147,158 ----
  21.   # define Perl_save_int dll_Perl_save_int
  22.   # define Perl_stack_grow dll_Perl_stack_grow
  23.   # define Perl_set_context dll_Perl_set_context
  24. + # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
  25. + # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags
  26. + # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck 
  27. + # else
  28.   # define Perl_sv_2bool dll_Perl_sv_2bool
  29. + # endif
  30.   # define Perl_sv_2iv dll_Perl_sv_2iv
  31.   # define Perl_sv_2mortal dll_Perl_sv_2mortal
  32.   # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
  33. ***************
  34. *** 252,258 ****
  35. --- 257,268 ----
  36.   static void (*Perl_save_int)(pTHX_ int*);
  37.   static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int);
  38.   static SV** (*Perl_set_context)(void*);
  39. + #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
  40. + static bool (*Perl_sv_2bool_flags)(pTHX_ SV*, I32);
  41. + static void (*Perl_xs_apiversion_bootcheck)(pTHX_ SV *module, const char *api_p, STRLEN api_len);
  42. + #else
  43.   static bool (*Perl_sv_2bool)(pTHX_ SV*);
  44. + #endif
  45.   static IV (*Perl_sv_2iv)(pTHX_ SV*);
  46.   static SV* (*Perl_sv_2mortal)(pTHX_ SV*);
  47.   #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
  48. ***************
  49. *** 360,366 ****
  50. --- 370,381 ----
  51.       {"Perl_save_int", (PERL_PROC*)&Perl_save_int},
  52.       {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow},
  53.       {"Perl_set_context", (PERL_PROC*)&Perl_set_context},
  54. + #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
  55. +     {"Perl_sv_2bool_flags", (PERL_PROC*)&Perl_sv_2bool_flags},
  56. +     {"Perl_xs_apiversion_bootcheck",(PERL_PROC*)&Perl_xs_apiversion_bootcheck},
  57. + #else
  58.       {"Perl_sv_2bool", (PERL_PROC*)&Perl_sv_2bool},
  59. + #endif
  60.       {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv},
  61.       {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal},
  62.   #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
  63. ***************
  64. *** 407,412 ****
  65. --- 422,430 ----
  66.       {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
  67.       {"Perl_sys_init", (PERL_PROC*)&Perl_sys_init},
  68.       {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term},
  69. +     {"Perl_call_list", (PERL_PROC*)&Perl_call_list},
  70. + # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
  71. + # else
  72.       {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr},
  73.       {"Perl_Istack_max_ptr", (PERL_PROC*)&Perl_Istack_max_ptr},
  74.       {"Perl_Istack_base_ptr", (PERL_PROC*)&Perl_Istack_base_ptr},
  75. ***************
  76. *** 418,432 ****
  77.       {"Perl_Imarkstack_max_ptr", (PERL_PROC*)&Perl_Imarkstack_max_ptr},
  78.       {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr},
  79.       {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr},
  80. -     {"Perl_call_list", (PERL_PROC*)&Perl_call_list},
  81.       {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr},
  82.       {"Perl_Iunitcheckav_ptr", (PERL_PROC*)&Perl_Iunitcheckav_ptr},
  83.   #endif
  84.       {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr},
  85.       {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr},
  86.       {"Perl_Isv_yes_ptr", (PERL_PROC*)&Perl_Isv_yes_ptr},
  87. -     {"boot_DynaLoader", (PERL_PROC*)&boot_DynaLoader},
  88.       {"Perl_Gthr_key_ptr", (PERL_PROC*)&Perl_Gthr_key_ptr},
  89.       {"", NULL},
  90.   };
  91.   
  92. --- 436,453 ----
  93.       {"Perl_Imarkstack_max_ptr", (PERL_PROC*)&Perl_Imarkstack_max_ptr},
  94.       {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr},
  95.       {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr},
  96.       {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr},
  97.       {"Perl_Iunitcheckav_ptr", (PERL_PROC*)&Perl_Iunitcheckav_ptr},
  98. + # endif
  99.   #endif
  100. + #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
  101. + #else
  102.       {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr},
  103.       {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr},
  104.       {"Perl_Isv_yes_ptr", (PERL_PROC*)&Perl_Isv_yes_ptr},
  105.       {"Perl_Gthr_key_ptr", (PERL_PROC*)&Perl_Gthr_key_ptr},
  106. + #endif
  107. +     {"boot_DynaLoader", (PERL_PROC*)&boot_DynaLoader},
  108.       {"", NULL},
  109.   };
  110.   
  111. *** ../vim-7.3.296/src/version.c    2011-09-07 15:04:26.000000000 +0200
  112. --- src/version.c    2011-09-07 18:45:28.000000000 +0200
  113. ***************
  114. *** 711,712 ****
  115. --- 711,714 ----
  116.   {   /* Add new patch number below this line */
  117. + /**/
  118. +     297,
  119.   /**/
  120.  
  121. -- 
  122. At some point in the project somebody will start whining about the need to
  123. determine the project "requirements".  This involves interviewing people who
  124. don't know what they want but, curiously, know exactly when they need it.
  125.                 (Scott Adams - The Dilbert principle)
  126.  
  127.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  128. ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  129. \\\  an exciting new programming language -- http://www.Zimbu.org        ///
  130.  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///
  131.