To: vim_dev@googlegroups.com Subject: Patch 7.3.806 Fcc: outbox From: Bram Moolenaar Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit ------------ Patch 7.3.806 Problem: Compiler warnings in Perl code when building with Visual studio 2012. (skeept) Solution: Add type casts. (Christian Brabandt, 2013 Jan 30) Files: src/if_perl.xs *** ../vim-7.3.805/src/if_perl.xs 2012-09-21 12:50:44.000000000 +0200 --- src/if_perl.xs 2013-02-06 19:55:12.000000000 +0100 *************** *** 1048,1054 **** { SV *sv = ST(i); if (SvIOK(sv)) ! b = SvIV(ST(i)); else { char_u *pat; --- 1048,1054 ---- { SV *sv = ST(i); if (SvIOK(sv)) ! b = (int) SvIV(ST(i)); else { char_u *pat; *************** *** 1091,1097 **** { for (i = 0; i < items; i++) { ! w = SvIV(ST(i)); vimwin = win_find_nr(w); if (vimwin) XPUSHs(newWINrv(newSV(0), vimwin)); --- 1091,1097 ---- { for (i = 0; i < items; i++) { ! w = (int) SvIV(ST(i)); vimwin = win_find_nr(w); if (vimwin) XPUSHs(newWINrv(newSV(0), vimwin)); *************** *** 1154,1161 **** if (!win_valid(win)) win = curwin; ! lnum = SvIV(ST(1)); ! col = SvIV(ST(2)); win->w_cursor.lnum = lnum; win->w_cursor.col = col; check_cursor(); /* put cursor on an existing line */ --- 1154,1161 ---- if (!win_valid(win)) win = curwin; ! lnum = (int) SvIV(ST(1)); ! col = (int) SvIV(ST(2)); win->w_cursor.lnum = lnum; win->w_cursor.col = col; check_cursor(); /* put cursor on an existing line */ *************** *** 1216,1222 **** { for (i = 1; i < items; i++) { ! lnum = SvIV(ST(i)); if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count) { line = ml_get_buf(vimbuf, lnum, FALSE); --- 1216,1222 ---- { for (i = 1; i < items; i++) { ! lnum = (long) SvIV(ST(i)); if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count) { line = ml_get_buf(vimbuf, lnum, FALSE); *************** *** 1239,1245 **** if (items < 3) croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)"); ! lnum = SvIV(ST(1)); for(i = 2; i < items; i++, lnum++) { line = SvPV(ST(i),PL_na); --- 1239,1245 ---- if (items < 3) croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)"); ! lnum = (long) SvIV(ST(1)); for(i = 2; i < items; i++, lnum++) { line = SvPV(ST(i),PL_na); *************** *** 1274,1286 **** { if (items == 2) { ! lnum = SvIV(ST(1)); count = 1; } else if (items == 3) { ! lnum = SvIV(ST(1)); ! count = 1 + SvIV(ST(2)) - lnum; if (count == 0) count = 1; if (count < 0) --- 1274,1286 ---- { if (items == 2) { ! lnum = (long) SvIV(ST(1)); count = 1; } else if (items == 3) { ! lnum = (long) SvIV(ST(1)); ! count = (long) 1 + SvIV(ST(2)) - lnum; if (count == 0) count = 1; if (count < 0) *************** *** 1331,1337 **** if (items < 3) croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)"); ! lnum = SvIV(ST(1)); for (i = 2; i < items; i++, lnum++) { line = SvPV(ST(i),PL_na); --- 1331,1337 ---- if (items < 3) croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)"); ! lnum = (long) SvIV(ST(1)); for (i = 2; i < items; i++, lnum++) { line = SvPV(ST(i),PL_na); *** ../vim-7.3.805/src/version.c 2013-02-06 19:49:38.000000000 +0100 --- src/version.c 2013-02-06 19:58:16.000000000 +0100 *************** *** 727,728 **** --- 727,730 ---- { /* Add new patch number below this line */ + /**/ + 806, /**/ -- BRIDGEKEEPER: What is your favorite colour? LAUNCELOT: Blue. BRIDGEKEEPER: Right. Off you go. "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ \\\ an exciting new programming language -- http://www.Zimbu.org /// \\\ help me help AIDS victims -- http://ICCF-Holland.org ///