7.2.063

   1 To: vim-dev@vim.org
   2 Subject: Patch 7.2.063
   3 Fcc: outbox
   4 From: Bram Moolenaar <Bram@moolenaar.net>
   5 Mime-Version: 1.0
   6 Content-Type: text/plain; charset=ISO-8859-1
   7 Content-Transfer-Encoding: 8bit
   8 ------------
   9
  10 Patch 7.2.063
  11 Problem:    Warning for NULL argument of Perl_sys_init3().
  12 Solution:   Use Perl_sys_init() instead. (partly by Dominique Pelle)
  13 Files:      src/if_perl.xs
  14
  15
  16 *** ../vim-7.2.062/src/if_perl.xs       Mon Sep  1 17:56:05 2008
  17 --- src/if_perl.xs      Wed Dec  3 12:44:38 2008
  18 ***************
  19 *** 166,172 ****
  20   # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr
  21   # define boot_DynaLoader dll_boot_DynaLoader
  22
  23 ! # define Perl_sys_init3 dll_Perl_sys_init3
  24   # define Perl_sys_term dll_Perl_sys_term
  25   # define Perl_ISv_ptr dll_Perl_ISv_ptr
  26   # define Perl_Istack_max_ptr dll_Perl_Istack_max_ptr
  27 --- 166,172 ----
  28   # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr
  29   # define boot_DynaLoader dll_boot_DynaLoader
  30
  31 ! # define Perl_sys_init dll_Perl_sys_init
  32   # define Perl_sys_term dll_Perl_sys_term
  33   # define Perl_ISv_ptr dll_Perl_ISv_ptr
  34   # define Perl_Istack_max_ptr dll_Perl_Istack_max_ptr
  35 ***************
  36 *** 272,278 ****
  37
  38   #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
  39   static void (*Perl_sv_free2)(pTHX_ SV*);
  40 ! static void (*Perl_sys_init3)(int* argc, char*** argv, char*** env);
  41   static void (*Perl_sys_term)(void);
  42   static SV** (*Perl_ISv_ptr)(register PerlInterpreter*);
  43   static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*);
  44 --- 272,278 ----
  45
  46   #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
  47   static void (*Perl_sv_free2)(pTHX_ SV*);
  48 ! static void (*Perl_sys_init)(int* argc, char*** argv);
  49   static void (*Perl_sys_term)(void);
  50   static SV** (*Perl_ISv_ptr)(register PerlInterpreter*);
  51   static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*);
  52 ***************
  53 *** 372,378 ****
  54       {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
  55   #else
  56       {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
  57 !     {"Perl_sys_init3", (PERL_PROC*)&Perl_sys_init3},
  58       {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term},
  59       {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr},
  60       {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr},
  61 --- 372,378 ----
  62       {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
  63   #else
  64       {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
  65 !     {"Perl_sys_init", (PERL_PROC*)&Perl_sys_init},
  66       {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term},
  67       {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr},
  68       {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr},
  69 ***************
  70 *** 460,466 ****
  71       static char *argv[] = { "", "-e", "" };
  72
  73   #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
  74 !     Perl_sys_init3(&argc, (char***)&argv, NULL);
  75   #endif
  76       perl_interp = perl_alloc();
  77       perl_construct(perl_interp);
  78 --- 460,466 ----
  79       static char *argv[] = { "", "-e", "" };
  80
  81   #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
  82 !     Perl_sys_init(&argc, (char***)&argv);
  83   #endif
  84       perl_interp = perl_alloc();
  85       perl_construct(perl_interp);
  86 *** ../vim-7.2.062/src/version.c        Wed Dec  3 11:21:20 2008
  87 --- src/version.c       Wed Dec  3 12:42:50 2008
  88 ***************
  89 *** 678,679 ****
  90 --- 678,681 ----
  91   {   /* Add new patch number below this line */
  92 + /**/
  93 +     63,
  94   /**/
  95
  96 --
  97 Windows
  98 M!uqoms
  99
 100  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
 101 ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
 102 \\\        download, build and distribute -- http://www.A-A-P.org        ///
 103  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///