7.2.363

   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    ///