changeset: 5309:c290121b0c3f tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Tue Nov 30 13:08:44 2010 +0000 files: src/ChangeLog src/fns.c description: #'fill; move all declarations before statements, for the Visual Studio build 2010-11-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; * fns.c (Ffill): Move all declarations before statements, for the sake of the Visual Studio build. Thank you Vin! diff -r 17c381a2f377 -r c290121b0c3f src/ChangeLog --- a/src/ChangeLog Wed Nov 24 17:54:57 2010 +0000 +++ b/src/ChangeLog Tue Nov 30 13:08:44 2010 +0000 ＠＠ -1,3 +1,9 ＠＠ +2010-11-30 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * fns.c (Ffill): + Move all declarations before statements, for the sake of the + Visual Studio build. Thank you Vin! + 2010-11-24 Aidan Kehoe <kehoea(a)parhasard.net&gt; * font-mgr.c (Ffc_pattern_get): Fix my last change when both diff -r 17c381a2f377 -r c290121b0c3f src/fns.c --- a/src/fns.c Wed Nov 24 17:54:57 2010 +0000 +++ b/src/fns.c Tue Nov 30 13:08:44 2010 +0000 ＠＠ -4173,11 +4173,13 ＠＠ { Lisp_Object sequence = args[0]; Lisp_Object item = args[1]; - Elemcount starting = 0, ending = EMACS_INT_MAX + 1, ii, len; + Elemcount starting, ending = EMACS_INT_MAX + 1, ii, len; PARSE_KEYWORDS (Ffill, nargs, args, 2, (start, end), (start = Qzero)); CHECK_NATNUM (start); + starting = BIGNUMP (start) ? EMACS_INT_MAX + 1 : XINT (start); + if (!NILP (end)) { CHECK_NATNUM (end); ＠＠ -4201,7 +4203,6 ＠＠ check_sequence_range (sequence, start, end, make_int (len)); ending = min (ending, len); - starting = XINT (start); for (ii = starting; ii < ending; ++ii) { ＠＠ -4220,7 +4221,6 ＠＠ check_sequence_range (sequence, start, end, make_int (len)); ending = min (ending, len); - starting = XINT (start); for (ii = starting; ii < ending; ++ii) { ＠＠ -4230,7 +4230,6 ＠＠ else if (LISTP (sequence)) { Elemcount counting = 0; - starting = BIGNUMP (start) ? EMACS_INT_MAX + 1 : XINT (start); EXTERNAL_LIST_LOOP_3 (elt, sequence, tail) { _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches