To: vim-dev@vim.org Subject: Patch 6.1.473 Fcc: outbox From: Bram Moolenaar Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit ------------ Patch 6.1.473 Problem: Referring to $curwin or $curbuf in Perl 5.6 causes a crash. Solution: Add "pTHX_" to cur_val(). (Yasuhiro Matsumoto) Files: src/if_perl.xs *** ../vim61.472/src/if_perl.xs Sun Apr 6 15:17:31 2003 --- src/if_perl.xs Mon Apr 21 13:03:36 2003 *************** *** 528,534 **** } #ifndef PROTO ! I32 cur_val(IV iv, SV *sv); /* * Handler for the magic variables $main::curwin and $main::curbuf. --- 527,533 ---- } #ifndef PROTO ! I32 cur_val(pTHX_ IV iv, SV *sv); /* * Handler for the magic variables $main::curwin and $main::curbuf. *************** *** 536,542 **** * (This is effectively a C-level equivalent of a tied variable). * There is no "set" function as the variables are read-only. */ ! I32 cur_val(IV iv, SV *sv) { SV *rv; if (iv == 0) --- 535,541 ---- * (This is effectively a C-level equivalent of a tied variable). * There is no "set" function as the variables are read-only. */ ! I32 cur_val(pTHX_ IV iv, SV *sv) { SV *rv; if (iv == 0) *** ../vim61.472/src/version.c Fri Apr 18 14:33:01 2003 --- src/version.c Mon Apr 21 19:07:11 2003 *************** *** 613,614 **** --- 618,621 ---- { /* Add new patch number below this line */ + /**/ + 473, /**/ -- Apparently, 1 in 5 people in the world are Chinese. And there are 5 people in my family, so it must be one of them. It's either my mum or my dad. Or my older brother Colin. Or my younger brother Ho-Cha-Chu. But I think it's Colin. /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ /// Creator of Vim - Vi IMproved -- http://www.Vim.org \\\ \\\ Project leader for A-A-P -- http://www.A-A-P.org /// \\\ Help AIDS victims, buy at Amazon -- http://ICCF.nl/click1.html ///