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.2 / 7.2.363 < prev    next >
Encoding:
Internet Message Format  |  2010-02-16  |  2.5 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 7.2.363
  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.2.363
  11. Problem:    Can't dynamically load Perl 5.10.
  12. Solution:   Add the function Perl_croak_xs_usage. (Sergey Khorev)
  13. Files:        src/if_perl.xs
  14.  
  15.  
  16. *** ../vim-7.2.362/src/if_perl.xs    2009-11-11 14:45:36.000000000 +0100
  17. --- src/if_perl.xs    2010-02-17 16:33:16.000000000 +0100
  18. ***************
  19. *** 93,98 ****
  20. --- 93,101 ----
  21.   # define perl_free dll_perl_free
  22.   # define Perl_get_context dll_Perl_get_context
  23.   # define Perl_croak dll_Perl_croak
  24. + # if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
  25. + #  define Perl_croak_xs_usage dll_Perl_croak_xs_usage
  26. + # endif
  27.   # ifndef PROTO
  28.   #  define Perl_croak_nocontext dll_Perl_croak_nocontext
  29.   #  define Perl_call_argv dll_Perl_call_argv
  30. ***************
  31. *** 202,207 ****
  32. --- 205,213 ----
  33.   static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**);
  34.   static void* (*Perl_get_context)(void);
  35.   static void (*Perl_croak)(pTHX_ const char*, ...);
  36. + #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
  37. + static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params);
  38. + #endif
  39.   static void (*Perl_croak_nocontext)(const char*, ...);
  40.   static I32 (*Perl_dowantarray)(pTHX);
  41.   static void (*Perl_free_tmps)(pTHX);
  42. ***************
  43. *** 306,311 ****
  44. --- 312,320 ----
  45.       {"perl_parse", (PERL_PROC*)&perl_parse},
  46.       {"Perl_get_context", (PERL_PROC*)&Perl_get_context},
  47.       {"Perl_croak", (PERL_PROC*)&Perl_croak},
  48. + #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
  49. +     {"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage},
  50. + #endif
  51.       {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext},
  52.       {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray},
  53.       {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps},
  54. *** ../vim-7.2.362/src/version.c    2010-02-17 16:31:27.000000000 +0100
  55. --- src/version.c    2010-02-17 16:35:39.000000000 +0100
  56. ***************
  57. *** 683,684 ****
  58. --- 683,686 ----
  59.   {   /* Add new patch number below this line */
  60. + /**/
  61. +     363,
  62.   /**/
  63.  
  64. -- 
  65. If you're sending someone Styrofoam, what do you pack it in?
  66.  
  67.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  68. ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  69. \\\        download, build and distribute -- http://www.A-A-P.org        ///
  70.  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///
  71.