# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1152455767 0
# Node ID df55df8eb0624f4da0c7b24bb79aa680f08f69f3
# Parent  a5eb5d8b1eca007c700e0c89f29c11a6b1a1b8ec
(back_comment, scan_lists): Also use EMACS_INT for buffer positions.

diff -r a5eb5d8b1eca -r df55df8eb062 src/ChangeLog
--- a/src/ChangeLog	Sun Jul 09 14:19:33 2006 +0000
+++ b/src/ChangeLog	Sun Jul 09 14:36:07 2006 +0000
@@ -1,6 +1,7 @@
 2006-07-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* syntax.c (Fforward_comment): Revert the reversion.
+	(back_comment, scan_lists): Also use EMACS_INT for buffer positions.
 
 2006-07-09  John Paul Wallington  <jpw@pobox.com>
 
diff -r a5eb5d8b1eca -r df55df8eb062 src/syntax.c
--- a/src/syntax.c	Sun Jul 09 14:19:33 2006 +0000
+++ b/src/syntax.c	Sun Jul 09 14:36:07 2006 +0000
@@ -97,10 +97,11 @@
 
 
 static int find_defun_start P_ ((int, int));
-static int back_comment P_ ((int, int, int, int, int, int *, int *));
+static int back_comment P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int, int,
+			     EMACS_INT *, EMACS_INT *));
 static int char_quoted P_ ((int, int));
 static Lisp_Object skip_chars P_ ((int, int, Lisp_Object, Lisp_Object, int));
-static Lisp_Object scan_lists P_ ((int, int, int, int));
+static Lisp_Object scan_lists P_ ((EMACS_INT, EMACS_INT, EMACS_INT, int));
 static void scan_sexps_forward P_ ((struct lisp_parse_state *,
 				    int, int, int, int,
 				    int, Lisp_Object, int));
@@ -471,9 +472,9 @@
 
 static int
 back_comment (from, from_byte, stop, comnested, comstyle, charpos_ptr, bytepos_ptr)
-     int from, from_byte, stop;
+     EMACS_INT from, from_byte, stop;
      int comnested, comstyle;
-     int *charpos_ptr, *bytepos_ptr;
+     EMACS_INT *charpos_ptr, *bytepos_ptr;
 {
   /* Look back, counting the parity of string-quotes,
      and recording the comment-starters seen.
@@ -2199,11 +2200,12 @@
 
 static Lisp_Object
 scan_lists (from, count, depth, sexpflag)
-     register int from;
-     int count, depth, sexpflag;
+     register EMACS_INT from;
+     EMACS_INT count, depth;
+     int sexpflag;
 {
   Lisp_Object val;
-  register int stop = count > 0 ? ZV : BEGV;
+  register EMACS_INT stop = count > 0 ? ZV : BEGV;
   register int c, c1;
   int stringterm;
   int quoted;
@@ -2212,11 +2214,11 @@
   int min_depth = depth;    /* Err out if depth gets less than this.  */
   int comstyle = 0;	    /* style of comment encountered */
   int comnested = 0;	    /* whether the comment is nestable or not */
-  int temp_pos;
-  int last_good = from;
+  EMACS_INT temp_pos;
+  EMACS_INT last_good = from;
   int found;
-  int from_byte;
-  int out_bytepos, out_charpos;
+  EMACS_INT from_byte;
+  EMACS_INT out_bytepos, out_charpos;
   int temp, dummy;
   int multibyte_symbol_p = sexpflag && multibyte_syntax_as_symbol;